From 4fb1997f50bccadb511075b97c14128f796f807d Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 20 Apr 2010 18:05:43 +0000
Subject: [PATCH] Regenerate pot and po files.

---
 i18n/locale/cmucl-bsd-os.pot               |    8 +-
 i18n/locale/cmucl-mp.pot                   |   76 +-
 i18n/locale/cmucl-sse2.pot                 |   68 +-
 i18n/locale/cmucl-unix.pot                 |  632 +-
 i18n/locale/cmucl-x86-vm.pot               |  299 +-
 i18n/locale/cmucl-x87.pot                  |    4 +-
 i18n/locale/cmucl.pot                      | 9289 +++++++++----------
 i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po |    8 +-
 i18n/locale/ko/LC_MESSAGES/cmucl-mp.po     |   76 +-
 i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po   |   68 +-
 i18n/locale/ko/LC_MESSAGES/cmucl-unix.po   |  632 +-
 i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po |  299 +-
 i18n/locale/ko/LC_MESSAGES/cmucl-x87.po    |    4 +-
 i18n/locale/ko/LC_MESSAGES/cmucl.po        | 9322 ++++++++++----------
 14 files changed, 10962 insertions(+), 9823 deletions(-)

diff --git a/i18n/locale/cmucl-bsd-os.pot b/i18n/locale/cmucl-bsd-os.pot
index 380c17e4d..09f33f29b 100644
--- a/i18n/locale/cmucl-bsd-os.pot
+++ b/i18n/locale/cmucl-bsd-os.pot
@@ -15,19 +15,19 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/bsd-os.lisp
+#: src/code/bsd-os.lisp
 msgid "Version string for supporting software"
 msgstr ""
 
-#: target:code/bsd-os.lisp
+#: src/code/bsd-os.lisp
 msgid "Returns a string describing version of the supporting software."
 msgstr ""
 
-#: target:code/bsd-os.lisp
+#: src/code/bsd-os.lisp
 msgid "Unix system call getrusage failed: ~A."
 msgstr ""
 
-#: target:code/bsd-os.lisp
+#: src/code/bsd-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr ""
 
diff --git a/i18n/locale/cmucl-mp.pot b/i18n/locale/cmucl-mp.pot
index a20855a41..b9777ee38 100644
--- a/i18n/locale/cmucl-mp.pot
+++ b/i18n/locale/cmucl-mp.pot
@@ -15,60 +15,60 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Syscall ~A failed: ~A"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Return the real time in seconds."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Return the run time in seconds"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Return the process state which is either Run, Killed, or a wait reason."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Returns the current process."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "A list of all alive processes."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Return a list of all the live processes."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Execute the body the scheduling disabled."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Increaments the reference by delta in a single atomic operation"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Decrements the reference by delta in a single atomic operation"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Atomically push object onto place."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Atomically pop place."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Make a process which will run FUNCTION when it starts up.  By\n"
 "  default the process is created in a runnable (active) state.\n"
@@ -101,37 +101,37 @@ msgid ""
 "	element."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Interrupt process and cause it to evaluate function."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Destroy a process. The process is sent a interrupt which throws to\n"
 "  the end of the process allowing it to unwind gracefully."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Restart process by unwinding it to its initial state and calling its\n"
 "  initial function."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Restart process, unwinding it to its initial state and calls\n"
 "  function with args."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Disable process from being runnable until enabled."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Allow process to become runnable again after it has been disabled."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Causes the process to wait until predicate returns True. Processes\n"
 "  can only call process-wait when scheduling is enabled, and the predicate\n"
@@ -140,7 +140,7 @@ msgid ""
 "  The single True predicate value is returned."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Causes the process to wait until predicate returns True, or the\n"
 "  number of seconds specified by timeout has elapsed. The timeout may\n"
@@ -148,7 +148,7 @@ msgid ""
 "  returned, or NIL if the timeout was reached."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Try to gracefully destroy all the processes giving them some\n"
 "  chance to unwinding, before shutting down multi-processing. This is\n"
@@ -156,12 +156,12 @@ msgid ""
 "  Multi-processing can be restarted by calling init-multi-processing."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Destroyed ~d process; remaining ~d~%"
 msgid_plural "Destroyed ~d processes; remaining ~d~%"
 msgstr[0] ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "An idle loop to be run by the initial process. The select based event\n"
 "  server is called with a timeout calculated from the minimum of the\n"
@@ -174,36 +174,36 @@ msgid ""
 "  to unwind."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Allow other processes to run."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Return the accrued real time elapsed while the given process was\n"
 "  scheduled. The returned time is a double-float in seconds."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Return the accrued run time elapsed for the given process. The returned\n"
 "  time is a double-float in seconds."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Return the real time elapsed since the given process was last\n"
 "  descheduled. The returned time is a double-float in seconds."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Start a regular SIGALRM interrupt which calls process-yield. An optional\n"
 "  time in seconds and micro seconds may be provided. Note that CMUCL code\n"
 "  base is not too interrupt safe so this may cause problems."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Wait until FD is usable for DIRECTION and return True. DIRECTION should be\n"
 "  either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds "
@@ -211,31 +211,31 @@ msgid ""
 "  wait before giving up and returing NIL."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "This function causes execution to be suspended for N seconds.  N may\n"
 "  be any non-negative, non-complex number."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Executes body and returns the values of the last form in body. However, if\n"
 "  the execution takes longer than timeout seconds, abort it and evaluate\n"
 "  timeout-forms, returning the values of last form."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Show the all the processes, their whostate, and state. If the optional\n"
 "  verbose argument is true then the run, real, and idle times are also\n"
 "  shown."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Top-level READ-EVAL-PRINT loop for processes."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Enter the idle loop, starting a new process to run the top level loop.\n"
 "  The awaking of sleeping processes is timed better with the idle loop "
@@ -246,7 +246,7 @@ msgid ""
 "  default when there is better MP debug support etc."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Create a Lisp connection listener, listening on a TCP port for new\n"
 "  connections and starting a new top-level loop for each. If a password\n"
@@ -255,7 +255,7 @@ msgid ""
 "  defaults to 1025."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Execute the body with the lock held. If the lock is held by another\n"
 "  process then the current process waits until the lock is released or\n"
diff --git a/i18n/locale/cmucl-sse2.pot b/i18n/locale/cmucl-sse2.pot
index a0b53c98f..9f272718c 100644
--- a/i18n/locale/cmucl-sse2.pot
+++ b/i18n/locale/cmucl-sse2.pot
@@ -15,130 +15,130 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:compiler/x86/float-sse2.lisp
-msgid "Ignoring bogus i387 Constant ~a"
+#: src/compiler/x86/sse2-array.lisp src/compiler/x86/sse2-c-call.lisp
+#: src/compiler/x86/sse2-sap.lisp src/compiler/x86/float-sse2.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/x86/sse2-array.lisp target:compiler/x86/sse2-c-call.lisp
-#: target:compiler/x86/sse2-sap.lisp target:compiler/x86/float-sse2.lisp
-msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+#: src/compiler/x86/float-sse2.lisp
+msgid "Ignoring bogus i387 Constant ~a"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "float move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "float to pointer coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid ""
 "Load TN allocated, but no move function?~@\n"
 "	           VM definition inconsistent, recompile and try again."
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "pointer to float coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex float to pointer coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex double-double float to pointer coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "pointer to complex float coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "float argument move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex float argument move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex double-double-float argument move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline float arithmetic"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline float comparison"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline float coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline float truncate"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex single-float creation"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex double-float creation"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex float realpart"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex float imagpart"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline dummy FP register bias"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double-double float move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double double float to pointer coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "pointer to double-double-float coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double double-float argument move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline double-double-float creation"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double-double high part"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double-double low part"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex double-double-float creation"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex float arithmetic"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex float/float arithmetic"
 msgstr ""
 
diff --git a/i18n/locale/cmucl-unix.pot b/i18n/locale/cmucl-unix.pot
index 3354c764b..9cc3a18c3 100644
--- a/i18n/locale/cmucl-unix.pot
+++ b/i18n/locale/cmucl-unix.pot
@@ -15,679 +15,679 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Size of control character vector."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Successful"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation not permitted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No such file or directory"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No such process"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Interrupted system call"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "I/O error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Device not configured"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Arg list too long"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Exec format error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad file descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No child process"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Resource deadlock avoided"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No more processes"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Try again"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Out of memory"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Permission denied"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad address"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Block device required"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Device or resource busy"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File exists"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cross-device link"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No such device"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Not a director"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Is a directory"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid argument"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File table overflow"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many open files"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Inappropriate ioctl for device"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Text file busy"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File too large"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No space left on device"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Illegal seek"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read-only file system"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many links"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Broken pipe"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Numerical argument out of domain"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Result too large"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Math result not representable"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation would block"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Resource temporarily unavailable"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation now in progress"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation already in progress"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Socket operation on non-socket"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Destination address required"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Message too long"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol wrong type for socket"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol not available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol not supported"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Socket type not supported"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation not supported on socket"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol family not supported"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Address family not supported by protocol family"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Address already in use"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Can't assign requested address"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Network is down"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Network is unreachable"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Network dropped connection on reset"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Software caused connection abort"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Connection reset by peer"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No buffer space available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Socket is already connected"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Socket is not connected"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Can't send after socket shutdown"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many references: can't splice"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Connection timed out"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Connection refused"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many levels of symbolic links"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File name too long"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Host is down"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No route to host"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Directory not empty"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many processes"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many users"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Disc quota exceeded"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "namei should continue locally"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "namei was handled remotely"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Remote file system error _N"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "syscall was handled by Vice"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No message of desired type"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Identifier removed"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Channel number out of range"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Level 2 not synchronized"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Level 3 halted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Level 3 reset"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Link number out of range"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol driver not attached"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No CSI structure available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Level 2 halted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Deadlock situation detected/avoided"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No record locks available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 47"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 48"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad exchange descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad request descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Message tables full"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Anode table overflow"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad request code"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid slot"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File locking deadlock"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad font file format"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Not a stream device"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No data available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Timer expired"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Out of stream resources"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Machine is not on the network"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Package not installed"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Object is remote"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Link has been severed"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Advertise error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Srmount error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Communication error on send"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Multihop attempted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Not a data message"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Value too large for defined data type"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Name not unique on network"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File descriptor in bad state"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Remote address changed"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Can not access a needed shared library"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Accessing a corrupted shared library"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ".lib section in a.out corrupted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Attempting to link in more shared libraries than system limit"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Can not exec a shared library directly"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 88"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation not applicable"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Number of symbolic links encountered during path name traversal exceeds "
 "MAXSYMLINKS"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 91"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 92"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Option not supported by protocol"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation not supported on transport endpoint"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cannot assign requested address"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Network dropped connection because of reset"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Transport endpoint is already connected"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Transport endpoint is not connected"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cannot send after socket shutdown"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many references: cannot splice"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Stale NFS file handle"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Resource deadlock would occur"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Function not implemented"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many symbolic links encountered"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid exchange"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid request descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Exchange full"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No anode"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid request code"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File locking deadlock error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Device not a stream"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Out of streams resources"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "RFS specific error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Attempting to link in too many shared libraries"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cannot exec a shared library directly"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Illegal byte sequence"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Interrupted system call should be restarted _N"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Streams pipe error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Address family not supported by protocol"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cannot send after transport endpoint shutdown"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Structure needs cleaning"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Not a XENIX named type file"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No XENIX semaphores available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Is a named type file"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Remote I/O error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Quota exceeded"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Returns a string describing the error number which was returned by a\n"
 "  UNIX system call."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unknown error [~d]"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Syscall ~A failed: ~A"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Set the user ID of the calling process to UID.\n"
 "   If the calling process is the super-user, set the real\n"
@@ -695,7 +695,7 @@ msgid ""
 "   if not, the effective user ID is set to UID."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Set the group ID of the calling process to GID.\n"
 "   If the calling process is the super-user, set the real\n"
@@ -703,23 +703,23 @@ msgid ""
 "   if not, the effective group ID is set to GID."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Test for read permission"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Test for write permission"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Test for execute permission"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Test for presence of file"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given a file path (a string) and one of four constant modes,\n"
 "   unix-access returns T if the file is accessible with that\n"
@@ -733,61 +733,61 @@ msgid ""
 "	f_ok     Presence of file."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given a file path string, unix-chdir changes the current working \n"
 "   directory to the one specified."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set user ID on execution"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set group ID on execution"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Save text image after execution"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read by owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Write by owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Execute (search directory) by owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read by group"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Write by group"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Execute (search directory) by group"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read by others"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Write by others"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Execute (search directory) by others"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given a file path string and a constant mode, unix-chmod changes the\n"
 "   permission mode for that file to the one specified. The new mode\n"
@@ -813,7 +813,7 @@ msgid ""
 "  otherwise."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given an integer file descriptor and a mode (the same as those\n"
 "   used for unix-chmod), unix-fchmod changes the permission mode\n"
@@ -821,7 +821,7 @@ msgid ""
 "   was successful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given a file path, an integer user-id, and an integer group-id,\n"
 "   unix-chown changes the owner of the file and the group of the\n"
@@ -830,27 +830,27 @@ msgid ""
 "   fail if the caller is not the superuser."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-fchown is like unix-chown, except that it accepts an integer\n"
 "   file descriptor instead of a file path name."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getdtablesize returns the maximum size of the file descriptor\n"
 "   table. (i.e. the maximum number of descriptors that can exist at\n"
 "   one time.)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-close takes an integer file descriptor as an argument and\n"
 "   closes the file associated with it.  T is returned upon successful\n"
 "   completion, otherwise NIL and an error number."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-creat accepts a file name and a mode (same as those for\n"
 "   unix-chmod) and creates a file by that name with the specified\n"
@@ -860,14 +860,14 @@ msgid ""
 "   This interface is made obsolete by UNIX-OPEN."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-dup duplicates an existing file descriptor (given as the\n"
 "   argument) and return it.  If FD is not a valid file descriptor, NIL\n"
 "   and an error number are returned."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
 "   does only the new value of the duplicate descriptor may be requested\n"
@@ -876,71 +876,71 @@ msgid ""
 "   assigned to the duplicate."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Duplicate a file descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get file desc. flags"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set file desc. flags"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get file flags"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set file flags"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get lock"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set lock"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set lock, wait for release"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Non-blocking reads"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Append on each write"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Signal pgrp when data ready"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Create if nonexistant"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Truncate to zero length"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error if already created"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-fcntl manipulates file descriptors according to the\n"
 "   argument CMD which can be one of the following:\n"
@@ -964,25 +964,25 @@ msgid ""
 "   "
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-link creates a hard link from the file with name1 to the\n"
 "   file with name2."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "set the file pointer"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "increment the file pointer"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "extend the file size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-lseek accepts a file descriptor and moves the file pointer ahead\n"
 "   a certain offset for that file.  Whence can be any of the following:\n"
@@ -993,58 +993,58 @@ msgid ""
 "  _N"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-mkdir creates a new directory with the specified name and mode.\n"
 "   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
 "   NIL and an error number."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read-only flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Write-only flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read-write flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Non-blocking I/O"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Append flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Create if nonexistant flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Truncate flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error if already exists."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Don't assign controlling tty"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Non-blocking mode"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Synchronous writes (on ext2)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-open opens the file whose pathname is specified by path\n"
 "   for reading and/or writing as specified by the flags argument.\n"
@@ -1062,7 +1062,7 @@ msgid ""
 "   integer file descriptor is returned by unix-open."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-pipe sets up a unix-piping mechanism consisting of\n"
 "  an input pipe and an output pipe.  Unix-Pipe returns two\n"
@@ -1072,7 +1072,7 @@ msgid ""
 "  the unix error code."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-read attempts to read from the file described by fd into\n"
 "   the buffer buf until it is full.  Len is the length of the buffer.\n"
@@ -1080,7 +1080,7 @@ msgid ""
 "   number if an error occured."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-readlink invokes the readlink system call on the file name\n"
 "  specified by the simple string path.  It returns up to two values:\n"
@@ -1088,19 +1088,19 @@ msgid ""
 "  NIL and the Unix error number."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-rename renames the file with string name1 to the string\n"
 "   name2.  NIL and an error code is returned if an error occured."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-rmdir attempts to remove the directory name.  NIL and\n"
 "   an error number is returned if an error occured."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Perform the UNIX select(2) system call.\n"
 "  (declare (type (integer 0 #.FD-SETSIZE) num-descriptors)\n"
@@ -1111,143 +1111,143 @@ msgid ""
 "	   (optimize (speed 3) (safety 0) (inhibit-warnings 3)))"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-select examines the sets of descriptors passed as arguments\n"
 "   to see if they are ready for reading and writing.  See the UNIX\n"
 "   Programmers Manual for more information."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-sync writes all information in core memory which has been\n"
 "   modified to disk.  It returns NIL and an error code if an error\n"
 "   occured."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-fsync writes the core image of the file described by\n"
 "   fd to disk."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-truncate truncates the named file to the length (in\n"
 "   bytes) specified by len.  NIL and an error number is returned\n"
 "   if the call is unsuccessful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-ftruncate is similar to unix-truncate except that the first\n"
 "   argument is a file descriptor rather than a file name."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-symlink creates a symbolic link named name2 to the file\n"
 "   named name1.  NIL and an error number is returned if the call\n"
 "   is unsuccessful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-unlink removes the directory entry for the named file.\n"
 "   NIL and an error code is returned if the call fails."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-write attempts to write a character buffer (buf) of length\n"
 "   len to the file described by the file descriptor fd.  NIL and an\n"
 "   error is returned if the call is unsuccessful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-ioctl performs a variety of operations on open i/o\n"
 "   descriptors.  See the UNIX Programmer's Manual for more\n"
 "   information."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get terminal attributes."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set terminal attributes."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get terminal output speed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set terminal output speed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bogus baud rate ~S"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get terminal input speed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set terminal input speed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Send break"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Wait for output for finish"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "See tcflush(3)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Flow control"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get the tty-process-group for the unix file-descriptor FD."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Get the tty-process-group for the unix file-descriptor FD.  If not supplied,"
 "\n"
 "  FD defaults to /dev/tty."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not\n"
 "  supplied, FD defaults to /dev/tty."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-exit terminates the current process with an optional\n"
 "   error code.  If successful, the call doesn't return.  If\n"
 "   unsuccessful, the call returns NIL and an error number."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-stat retrieves information about the specified\n"
 "   file returning them in the form of multiple values.\n"
@@ -1256,33 +1256,33 @@ msgid ""
 "   and an error number is returned instead."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-lstat is similar to unix-stat except the specified\n"
 "   file must be a symbolic link."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-fstat is similar to unix-stat except the file is specified\n"
 "   by the file descriptor fd."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "The calling process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Terminated child processes."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Like call getrusage, but return only the system and user time, and returns\n"
 "   the seconds and microseconds as separate values."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getrusage returns information about the resource usage\n"
 "   of the process specified by who.  Who can be either the\n"
@@ -1291,13 +1291,13 @@ msgid ""
 "   is returned if the call fails."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-times returns information about the cpu time usage of the process\n"
 "   and its children."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "If it works, unix-gettimeofday returns 5 values: T, the seconds and\n"
 "   microseconds of the current time of day, the timezone (in minutes west\n"
@@ -1305,95 +1305,95 @@ msgid ""
 "   returns NIL and the errno."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-utimes sets the 'last-accessed' and 'last-updated'\n"
 "   times on a specified file.  NIL and an error number is\n"
 "   returned if the call is unsuccessful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-setreuid sets the real and effective user-id's of the current\n"
 "   process to the specified ones.  NIL and an error number is returned\n"
 "   if the call fails."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-setregid sets the real and effective group-id's of the current\n"
 "   process process to the specified ones.  NIL and an error number is\n"
 "   returned if the call fails."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getpid returns the process-id of the current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getppid returns the process-id of the parent of the current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getgid returns the real group-id of the current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getegid returns the effective group-id of the current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getpgrp returns the group-id of the calling process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-setpgrp sets the process group on the process pid to\n"
 "   pgrp.  NIL and an error number are returned upon failure."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-setpgid sets the process group of the process pid to\n"
 "   pgrp. If pgid is equal to pid, the process becomes a process\n"
 "   group leader. NIL and an error number are returned upon failure."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getuid returns the real user-id associated with the\n"
 "   current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getpagesize returns the number of bytes in a system page."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-gethostname returns the name of the host machine as a string."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-gethostid returns a 32-bit integer which provides unique\n"
 "   identification for the host machine."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Executes the unix fork system call.  Returns 0 in the child and the pid\n"
 "   of the child in the parent if it works, or NIL and an error number if it\n"
 "   doesn't work."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Get the value of the environment variable named Name.  If no such\n"
 "  variable exists, Nil is returned."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Adds the environment variable named Name to the environment with\n"
 "  the given Value if Name does not already exist. If Name does exist,\n"
@@ -1401,36 +1401,36 @@ msgid ""
 "  the value is not changed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Adds or changes the environment.  Name-value must be a string of\n"
 "  the form \"name=value\".  If the name does not exist, it is added.\n"
 "  If name does exist, the value is updated to the given value."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Removes the variable Name from the environment"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Returns either :file, :directory, :link, :special, or NIL."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Returns the pathname with all symbolic links resolved."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error reading link ~S: ~S"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Accepts a Unix file descriptor and returns T if the device\n"
 "  associated with it is a terminal."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Executes the Unix execve system call.  If the system call suceeds, lisp\n"
 "   will no longer be running in this process.  If the system call fails "
@@ -1445,7 +1445,7 @@ msgid ""
 "program."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
 "   three system timers (:real :virtual or :profile). On success,\n"
@@ -1453,7 +1453,7 @@ msgid ""
 "   T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 " Unix-setitimer sets the INTERVAL and VALUE slots of one of\n"
 "   three system timers (:real :virtual or :profile). A SIGALRM signal\n"
@@ -1465,83 +1465,83 @@ msgid ""
 "   slots as in unix-getitimer."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Return a USER-INFO structure for the user identified by LOGIN, or NIL if "
 "not found."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Return a USER-INFO structure for the user identified by UID, or NIL if not "
 "found."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "The maximum size of the group entry buffer"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
 "not found."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Return a GROUP-INFO structure for the group identified by GID, or NIL if "
 "not found."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "CPU time per process (in milliseconds)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Maximum file size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Data segment size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Stack size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Core file size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Number of open files"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Maximum mapped memory"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "CPU time per process"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Addess space (resident set size)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Locked-in-memory address space"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Number of processes"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Get the limits on the consumption of system resouce specified by\n"
 "  Resource.  If successful, return three values: T, the current (soft)\n"
diff --git a/i18n/locale/cmucl-x86-vm.pot b/i18n/locale/cmucl-x86-vm.pot
index 50991297b..e19c1a5d5 100644
--- a/i18n/locale/cmucl-x86-vm.pot
+++ b/i18n/locale/cmucl-x86-vm.pot
@@ -15,87 +15,83 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Returns a string describing the type of the local machine."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Returns a string describing the version of the local machine."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Unknown code-object-fixup kind ~s."
 msgstr ""
 
-#: target:code/x86-vm.lisp
-msgid "Unknown foreign symbol: ~S"
-msgstr ""
-
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare object's slot value to test-value and if EQ store\n"
 "   new-value in the slot. The original value of the slot is returned."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare symbol's value to test-value and if EQ store\n"
 "  new-value in symbol's value slot and return the original value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare the car of CONS to test-value and if EQ store\n"
 "  new-value its car and return the original value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare the cdr of CONS to test-value and if EQ store\n"
 "  new-value its cdr and return the original value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare an element of vector to test-value and if EQ store\n"
 "  new-value the element and return the original value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe push of val onto the list in the symbol global value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe pop from the list in the symbol global value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe push of val onto the list in the car of cons."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe push of val onto the list in the cdr of cons."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe push of val onto the list in the vector element."
 msgstr ""
 
-#: target:compiler/x86/c-call.lisp target:compiler/x86/insts.lisp
+#: src/compiler/x86/c-call.lisp src/compiler/x86/insts.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid "Move SRC into DST unless they are location=."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Loads the type bits of a pointer into target independent of\n"
 "   byte-ordering issues."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Allocate an object with a size in bytes given by Size.\n"
 "   The size may be an integer or a TN.\n"
@@ -104,30 +100,30 @@ msgid ""
 "   appropriate, allocate from the stack."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Allocate an other-pointer object of fixed Size with a single\n"
 "   word header having the specified Type-Code.  The result is placed in\n"
 "   Result-TN."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid "Cause an error.  ERROR-CODE is the error to cause."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Cause a continuable error.  If the error is continued, execution resumes at\n"
 "  LABEL."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Generate-Error-Code Error-code Value*\n"
 "  Emit code for an error with the specified Error-Code and context Values."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Generate-CError-Code Error-code Value*\n"
 "  Emit code for a continuable error with the specified Error-Code and\n"
@@ -135,140 +131,317 @@ msgid ""
 "  the GENERATE-CERROR-CODE form."
 msgstr ""
 
-#: target:compiler/x86/array.lisp target:compiler/x86/call.lisp
-#: target:compiler/x86/alloc.lisp target:compiler/x86/cell.lisp
-#: target:compiler/x86/debug.lisp target:compiler/x86/arith.lisp
-#: target:compiler/x86/memory.lisp target:compiler/x86/char.lisp
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/array.lisp src/compiler/x86/call.lisp
+#: src/compiler/x86/alloc.lisp src/compiler/x86/cell.lisp
+#: src/compiler/x86/debug.lisp src/compiler/x86/arith.lisp
+#: src/compiler/x86/memory.lisp src/compiler/x86/char.lisp
+#: src/compiler/x86/float.lisp src/compiler/x86/move.lisp
 msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "fixnum untagging"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "constant load"
 msgstr ""
 
-#: target:compiler/x86/call.lisp target:compiler/x86/debug.lisp
-#: target:compiler/x86/char.lisp target:compiler/x86/move.lisp
+#: src/compiler/x86/call.lisp src/compiler/x86/debug.lisp
+#: src/compiler/x86/char.lisp src/compiler/x86/float.lisp
+#: src/compiler/x86/move.lisp
 msgid ""
 "Load TN allocated, but no move function?~@\n"
 "	           VM definition inconsistent, recompile and try again."
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "integer to untagged word coercion"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "fixnum tagging"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "signed word to integer coercion"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "unsigned word to integer coercion"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "word integer move"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "word integer argument move"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/float.lisp
+msgid "Ignoring bogus i387 Constant ~a"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "float move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "float to pointer coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "pointer to float coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float to pointer coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex double-double float to pointer coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "pointer to complex float coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "float argument move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float argument move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex double-double-float argument move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline float arithmetic"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline float comparison"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline float coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline float truncate"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline NPX function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline tan function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline sin/cos function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline exp function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline expm1 function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline log function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline log10 function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline pow function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline scalbn function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline scalb function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline log1p function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline log1p with limited x range function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline logb function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline atan function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline atan2 function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline complex single-float creation"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline complex double-float creation"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline complex long-float creation"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float realpart"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float imagpart"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline dummy FP register bias"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double-double float move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double double float to pointer coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "pointer to double-double-float coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double double-float argument move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline double-double-float creation"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double-double high part"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double-double low part"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline complex double-double-float creation"
+msgstr ""
+
+#: src/compiler/x86/char.lisp
 msgid "character untagging"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/char.lisp
 msgid "character tagging"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/char.lisp
 msgid "character move"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/char.lisp
 msgid "character arg move"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/char.lisp
 msgid "inline comparison"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline fixnum arithmetic"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (signed-byte 32) arithmetic"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (unsigned-byte 32) arithmetic"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline ASH"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (signed-byte 32) integer-length"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (unsigned-byte 32) logcount"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline fixnum comparison"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (signed-byte 32) comparison"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (unsigned-byte 32) comparison"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "SHIFT-TOWARDS-START"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "SHIFT-TOWARDS-END"
 msgstr ""
 
-#: target:compiler/x86/c-call.lisp
+#: src/compiler/x86/c-call.lisp
 msgid "Too many result values from c-call."
 msgstr ""
 
-#: target:compiler/x86/c-call.lisp
+#: src/compiler/x86/c-call.lisp
 msgid "Method ~S not defined for ~S"
 msgstr ""
 
-#: target:compiler/x86/c-call.lisp
+#: src/compiler/x86/c-call.lisp
 msgid ""
 "Cons up a piece of code which calls call-callback with INDEX and a\n"
 "pointer to the arguments."
 msgstr ""
 
-#: target:compiler/x86/call.lisp
+#: src/compiler/x86/call.lisp
 msgid "more-arg-context"
 msgstr ""
 
-#: target:compiler/x86/array.lisp
+#: src/compiler/x86/array.lisp
 msgid "inline array access"
 msgstr ""
 
-#: target:compiler/x86/array.lisp
+#: src/compiler/x86/array.lisp
 msgid "inline array store"
 msgstr ""
 
diff --git a/i18n/locale/cmucl-x87.pot b/i18n/locale/cmucl-x87.pot
index 55e342cc9..72f249c61 100644
--- a/i18n/locale/cmucl-x87.pot
+++ b/i18n/locale/cmucl-x87.pot
@@ -15,8 +15,8 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:compiler/x86/x87-array.lisp target:compiler/x86/x87-c-call.lisp
-#: target:compiler/x86/x87-sap.lisp
+#: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp
+#: src/compiler/x86/x87-sap.lisp
 msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr ""
 
diff --git a/i18n/locale/cmucl.pot b/i18n/locale/cmucl.pot
index 9e9efda70..274ccce5b 100644
--- a/i18n/locale/cmucl.pot
+++ b/i18n/locale/cmucl.pot
@@ -15,113 +15,49 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/intl.lisp
-msgid ""
-"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n"
-"  Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this."
+#: src/code/struct.lisp
+msgid "The size of a stream in-buffer."
 msgstr ""
 
-#: target:pcl/cpl.lisp target:pcl/dfun.lisp target:pcl/vector.lisp
-#: target:pcl/boot.lisp target:pcl/cache.lisp target:pcl/fngen.lisp
-#: target:pcl/defs.lisp target:pcl/info.lisp pcl:defsys.lisp
-#: target:compiler/byte-comp.lisp target:compiler/eval-comp.lisp
-#: target:compiler/generic/new-genesis.lisp target:compiler/generic/core.lisp
-#: target:compiler/dump.lisp target:compiler/dyncount.lisp
-#: target:compiler/xref.lisp target:compiler/srctran.lisp
-#: target:compiler/typetran.lisp target:compiler/ir1util.lisp
-#: target:compiler/main.lisp target:compiler/knownfun.lisp
-#: target:compiler/new-assem.lisp target:compiler/disassem.lisp
-#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
-#: target:compiler/ctype.lisp target:compiler/node.lisp
-#: target:compiler/sset.lisp target:compiler/backend.lisp
-#: target:compiler/generic/vm-macs.lisp target:compiler/macros.lisp
-#: target:code/intl.lisp target:compiler/globaldb.lisp
-#: target:code/defstruct.lisp target:code/remote.lisp target:code/wire.lisp
-#: target:code/internet.lisp target:code/loop.lisp target:code/run-program.lisp
-#: target:code/parse-time.lisp target:code/profile.lisp target:code/ntrace.lisp
-#: target:code/rand-mt19937.lisp target:code/debug.lisp
-#: target:code/debug-int.lisp target:code/debug-info.lisp target:code/eval.lisp
-#: target:code/filesys.lisp target:code/pathname.lisp
-#: target:code/fd-stream.lisp target:code/extfmts.lisp
-#: target:code/serve-event.lisp target:code/reader.lisp
-#: target:code/package.lisp target:code/format.lisp target:code/pprint.lisp
-#: target:code/stream.lisp target:code/room.lisp target:code/dfixnum.lisp
-#: target:code/commandline.lisp target:code/unidata.lisp
-#: target:compiler/proclaim.lisp target:code/hash-new.lisp
-#: target:code/byte-interp.lisp target:code/c-call.lisp
-#: target:code/alieneval.lisp target:code/type.lisp target:code/class.lisp
-#: target:code/typedefs.lisp target:code/error.lisp target:code/fwrappers.lisp
-#: target:assembly/assemfile.lisp target:code/struct.lisp
+#: src/pcl/cpl.lisp src/pcl/dfun.lisp src/pcl/vector.lisp src/pcl/boot.lisp
+#: src/pcl/cache.lisp src/pcl/fngen.lisp src/pcl/defs.lisp src/pcl/info.lisp
+#: src/pcl/defsys.lisp src/compiler/byte-comp.lisp src/compiler/eval-comp.lisp
+#: src/compiler/generic/new-genesis.lisp src/compiler/generic/core.lisp
+#: src/compiler/dump.lisp src/compiler/dyncount.lisp src/compiler/xref.lisp
+#: src/compiler/srctran.lisp src/compiler/ir1util.lisp src/compiler/main.lisp
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/disassem.lisp src/compiler/meta-vmdef.lisp
+#: src/compiler/vop.lisp src/compiler/ctype.lisp src/compiler/node.lisp
+#: src/compiler/sset.lisp src/compiler/backend.lisp
+#: src/compiler/generic/vm-macs.lisp src/compiler/macros.lisp
+#: src/code/intl.lisp src/compiler/globaldb.lisp src/code/defstruct.lisp
+#: src/code/remote.lisp src/code/wire.lisp src/code/internet.lisp
+#: src/code/loop.lisp src/code/run-program.lisp src/code/parse-time.lisp
+#: src/code/profile.lisp src/code/ntrace.lisp src/code/rand-mt19937.lisp
+#: src/code/debug.lisp src/code/debug-int.lisp src/code/debug-info.lisp
+#: src/code/eval.lisp src/code/filesys.lisp src/code/pathname.lisp
+#: src/code/fd-stream.lisp src/code/extfmts.lisp src/code/serve-event.lisp
+#: src/code/reader.lisp src/code/package.lisp src/code/format.lisp
+#: src/code/pprint.lisp src/code/stream.lisp src/code/room.lisp
+#: src/code/dfixnum.lisp src/code/commandline.lisp src/code/unidata.lisp
+#: src/compiler/proclaim.lisp src/code/hash-new.lisp src/code/byte-interp.lisp
+#: src/code/c-call.lisp src/code/alieneval.lisp src/code/type.lisp
+#: src/code/class.lisp src/code/typedefs.lisp src/code/error.lisp
+#: src/code/fwrappers.lisp src/code/struct.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:code/intl.lisp
-msgid "Encountered illegal token: ="
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Encountered illegal token: ~C"
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Expected : in ?: construct"
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Expected close-paren."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Unexpected token: ~S."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Expecting end of expression.  ~S."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid ""
-"Look up STRING in the current message domain and return its translation."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid ""
-"Look up the singular or plural form of a message in the current domain."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid ""
-"Look up STRING in the specified message domain and return its translation."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid ""
-"Look up the singular or plural form of a message in the specified domain."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "_@ is a reserved reader macro prefix."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "~&Dumping ~D messages for domain ~S~%"
-msgstr ""
-
-#: target:code/struct.lisp
-msgid "The size of a stream in-buffer."
-msgstr ""
-
-#: target:code/sysmacs.lisp
+#: src/code/sysmacs.lisp
 msgid "Register the feature as having influenced the CMUCL build process."
 msgstr ""
 
-#: target:code/sysmacs.lisp
+#: src/code/sysmacs.lisp
 msgid ""
 "Register the feature as having influenced the CMUCL build process,\n"
 "and also the CMUCL C runtime."
 msgstr ""
 
-#: target:code/sysmacs.lisp
+#: src/code/sysmacs.lisp
 msgid ""
 "Given any Array, binds Data-Var to the array's data vector and Start-Var "
 "and\n"
@@ -135,149 +71,149 @@ msgid ""
 "  include Svalue."
 msgstr ""
 
-#: target:code/sysmacs.lisp
+#: src/code/sysmacs.lisp
 msgid "Executes the forms in the body without doing a garbage collection."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Return the 24 bits of data in the header of object X, which must be an\n"
 "  other-pointer object."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Sets the 24 bits of data in the header of object X (which must be an\n"
 "  other-pointer object) to VAL."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Returns the length of the closure X.  This is one more than the number\n"
 "  of variables closed over."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Returns the three-bit lowtag for the object X."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Returns the 8-bit header type for the object X."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Return a System-Area-Pointer pointing to the data for the vector X, which\n"
 "  must be simple."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return a System-Area-Pointer pointing to the end of the binding stack."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Returns a System-Area-Pointer pointing to the next free work of the current\n"
 "  dynamic space."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return a System-Area-Pointer pointing to the end of the control stack."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return the header typecode for FUNCTION.  Can be set with SETF."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extracts the arglist from the function header FUNC."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extracts the name from the function header FUNC."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extracts the type from the function header FUNC."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extracts the function from CLOSURE."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Return the length of VECTOR.  There is no reason to use this, 'cause\n"
 "  (length (the vector foo)) is the same."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return the SXHASH for the simple-string STRING."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Return the SXHASH for the first LENGTH characters of the simple-string\n"
 "  STRING."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extract the INDEXth slot from CLOSURE."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n"
 "  WORDS words long.  Note: it is your responsibility to assure that the\n"
 "  relation between LENGTH and WORDS is correct."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Allocate an array header with type code TYPE and rank RANK."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return a SAP pointing to the instructions part of CODE-OBJ."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Extract the INDEXth element from the header of CODE-OBJ.  Can be set with\n"
 "  setf."
 msgstr ""
 
-#: target:code/format.lisp target:code/print.lisp target:code/irrat-dd.lisp
-#: target:code/irrat.lisp target:code/float.lisp target:code/numbers.lisp
-#: target:code/kernel.lisp
+#: src/code/format.lisp src/code/print.lisp src/code/irrat-dd.lisp
+#: src/code/irrat.lisp src/code/float.lisp src/code/numbers.lisp
+#: src/code/kernel.lisp
 msgid "Argument ~A is not a ~S: ~S."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Holds a list of symbols that describe features provided by the\n"
 "   implementation."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Features affecting the runtime"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "The fixnum closest in value to positive infinity."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "The fixnum closest in value to negative infinity."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "When (typep condition *break-on-signals*) is true, then calls to SIGNAL "
 "will\n"
 "   enter the debugger prior to signalling that condition."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Invokes the signal facility on a condition formed from datum and arguments.\n"
 "   If the condition is not handled, nil is returned.  If\n"
@@ -286,53 +222,53 @@ msgid ""
 "   any signalling is done."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "~A~%Break entered because of *break-on-signals* (now NIL.)"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Ignore the additional arguments."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "You may not supply additional arguments ~\n"
 "				     when giving ~S to ~S."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Bad argument to ~S: ~S"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Invokes the signal facility on a condition formed from datum and arguments.\n"
 "   If the condition is not handled, the debugger is invoked."
 msgstr ""
 
-#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp
 msgid "Help! "
 msgstr ""
 
-#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp
 msgid " nested errors.  "
 msgstr ""
 
-#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp
 msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Prints a message and invokes the debugger without allowing any possibility\n"
 "   of condition handling occurring."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Return from BREAK."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Warns about a situation by signalling a condition formed by datum and\n"
 "   arguments.  While the condition is being signaled, a muffle-warning "
@@ -340,19 +276,19 @@ msgid ""
 "   exists that causes WARN to immediately return nil."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "a warning condition"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Skip warning."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "~&~@<Warning:  ~3i~:_~A~:>~%"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Invokes the signal facility on a condition formed from datum and arguments.\n"
 "   If the condition is not handled, the debugger is invoked.  This function\n"
@@ -360,129 +296,129 @@ msgid ""
 "   simple-program-error, instead of program-error."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gives the world a shove and hopes it spins."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Functions to be invoked during cleanup at Lisp exit."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"
 "  non-Nil."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "This function causes execution to be suspended for N seconds.  N may\n"
 "  be any non-negative, non-complex number."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Zero the unused portion of the control stack so that old objects are not\n"
 "   kept alive because of uninitialized stack variables."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Holds a list of all the values returned by the most recent top-level EVAL."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of / when a new value is computed."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of // when a new value is computed."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Holds the value of the most recent top-level EVAL."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of * when a new value is computed."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of ** when a new value is computed."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Holds the value of the most recent top-level READ."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of + when a new value is read."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of ++ when a new value is read."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Holds the form curently being evaluated."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "The top-level prompt string.  This also may be a function of no arguments\n"
 "   that returns a simple-string."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "True if we are within the Top-Level-Catcher.  This is used by interrupt\n"
 "  handlers to see whether it is o.k. to throw."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, ++,"
 "\n"
 "  +, ///, //, /, and -."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Go on with * set to NIL."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "EVAL returned an unbound marker."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "How many pages to reserve from the total heap space so we can handle\n"
 "heap overflow."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Top-level READ-EVAL-PRINT loop.  Do not call this."
 msgstr ""
 
-#: target:code/lispinit.lisp
-msgid "Return to Top-Level."
-msgstr ""
-
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "~&Received EOF on *standard-input*, ~\n"
 "					switching to *terminal-io*.~%"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "~&Received more than ~D EOFs; Aborting.~%"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "~&Received EOF.~%"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/code/lispinit.lisp
+msgid "Return to Top-Level."
+msgstr ""
+
+#: src/pcl/walk.lisp
 msgid ""
 "~@<The evaluator was called to evaluate a form in a macroexpansion ~\n"
 "          environment constructed by the PCL portable code walker.  These ~\n"
@@ -495,38 +431,38 @@ msgid ""
 ">"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid "~@<~S is not a recognized variable declaration.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid "~@<Can't get template for ~S.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid ""
 "~@<~S is a special form, not defined in the CommonLisp ~\n"
 "		      manual.  This code walker doesn't know how to walk it.  ~\n"
 "		      Define a template for this special form and try again.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid ""
 "~@<While handling repeat: ~\n"
 "                     Ran into stop while still in repeat template.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid ""
 "~@<Encountered declare ~S in a place where a ~\n"
 "         declare was not expected.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid "~@<Can't understand something in the arglist ~S.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid ""
 "~@<In the form ~S: ~\n"
 "                       IF only accepts three arguments, you are using ~D. ~\n"
@@ -540,7 +476,7 @@ msgid ""
 "your source code.~@:>"
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "A funcallable instance used to implement fwrappers.\n"
 "   The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n"
@@ -549,48 +485,48 @@ msgid ""
 "   function of the fwrapper object."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Print-function for struct FWRAPPER."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Return FUN if it is an fwrapper or nil if it isn't."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Evaluate BODY with VAR bound to consecutive fwrappers of\n"
 "   FDEFN.  Return RESULT at the end."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Return tha last encapsulation of FDEFN or NIL if none."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Prepend encapsulation F to the definition of FUNCTION-NAME.\n"
 "   Signal an error if FUNCTION-NAME is an undefined function."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Remove fwrapper F from the definition of FUNCTION-NAME."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Return a list of all fwrappers of FUNCTION-NAME, ordered\n"
 "   from outermost to innermost."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Set FUNCTION-NAMES's fwrappers to elements of the list\n"
 "   FWRAPPERS, which is assumed to be ordered from outermost to\n"
 "   innermost.  FWRAPPERS null means remove all fwrappers."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n"
 "   created by calling CONSTRUCTOR.  CONSTRUCTOR is a function\n"
@@ -601,7 +537,7 @@ msgid ""
 "   FWRAPPER)."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Remove fwrappers from the function named FUNCTION-NAME.\n"
 "   If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n"
@@ -609,27 +545,27 @@ msgid ""
 "   If both are not specified, remove all fwrappers."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Update the funcallable instance function of fwrapper F from its\n"
 "   constructor."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Update fwrapper function definitions of FUNCTION-NAME.\n"
 "   If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n"
 "   If TEST is supplied, update fwrappers satisfying TEST."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Find an fwrapper of FUNCTION-NAME.\n"
 "   If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n"
 "   If TEST is supplied, find an fwrapper satisfying TEST."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Like DEFUN, but define a function wrapper.\n"
 "   In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n"
@@ -640,30 +576,30 @@ msgid ""
 "   invokes the next function with the supplied args."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Return the expansion of a DEFINE-FWRAPPER."
 msgstr ""
 
-#: target:code/fwrappers.lisp
-msgid "&MORE not supported in fwrapper lambda lists"
-msgstr ""
-
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "First value is true if BODY refers to any of the variables in\n"
 "     OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n"
 "     returns.  Second value is true if BODY refers to REST."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
+msgid "&MORE not supported in fwrapper lambda lists"
+msgstr ""
+
+#: src/code/fwrappers.lisp
 msgid "Fwrapper for old-style encapsulations."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "This function is deprecated; use fwrappers instead."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Define (NAME ...) to be a valid function name whose syntax is checked\n"
 "  by BODY.  In BODY, VAR is bound to an actual function name of the\n"
@@ -673,68 +609,68 @@ msgid ""
 "  and in similar situations."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "First value is true if NAME has valid function name syntax.\n"
 "  Second value is the name, a symbol, to use as a block name in DEFUNs\n"
 "  and in similar situations."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Return the fdefn object for NAME.  If it doesn't already exist and CREATE\n"
 "   is non-NIL, create a new (unbound) one."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid "Invalid function name: ~S"
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Return the FDEFN of NAME.  Signal an error if there is none\n"
 "   or if it's function is null."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Returns the definition for name, including any encapsulations.  Settable\n"
 "   with SETF."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Return FUNCTION-NAME's global function definition.\n"
 "   If FUNCTION-NAME is fwrapped, return the primary function definition\n"
 "   stored in the innermost fwrapper."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "This holds functions that (SETF FDEFINITION) invokes before storing the\n"
 "   new value.  These functions take the function name and the new value."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Set FUNCTION-NAME's global function definition to NEW-VALUE.\n"
 "   If FUNCTION-NAME is fwrapped, set the primary function stored\n"
 "   in the innermost fwrapper."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid "Return true if name has a global function definition."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid "Make Name have no global function definition."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "&rest keyword is ~:[missing~;misplaced~]."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Return a list of all the currently active restarts ordered from most\n"
 "   recently established to less recently established.  If Condition is\n"
@@ -742,11 +678,11 @@ msgid ""
 "   condition) will be returned."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Returns the name of the given restart object."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*\n"
 "   Evaluates the Forms in a dynamic environment where the restarts in the "
@@ -758,7 +694,7 @@ msgid ""
 "   to the error currently being debugged.  See also RESTART-CASE."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Executes forms in a dynamic context where the given restart bindings are\n"
 "   in effect.  Users probably want to use RESTART-CASE.  When clauses "
@@ -766,12 +702,12 @@ msgid ""
 "   the same restart name, FIND-RESTART will find the first such clause."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Unnamed restart does not have a ~\n"
 "					report function -- ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Returns the first restart named name.  If name is a restart, it is returned\n"
 "   if it is currently active.  If no such restart is found, nil is "
@@ -782,7 +718,7 @@ msgid ""
 "   condition) will be returned."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Calls the function associated with the given restart, passing any given\n"
 "   arguments.  If the argument restart is not a restart or a currently "
@@ -790,11 +726,11 @@ msgid ""
 "   non-nil restart name, then a control-error is signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Restart ~S is not active."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Calls the function associated with the given restart, prompting for any\n"
 "   necessary arguments.  If the argument restart is not a restart or a\n"
@@ -802,7 +738,7 @@ msgid ""
 "signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "(RESTART-CASE form\n"
 "   {(case-name arg-list {keyword value}* body)}*)\n"
@@ -819,7 +755,7 @@ msgid ""
 "   the new restarts."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)\n"
 "   body)\n"
@@ -828,39 +764,39 @@ msgid ""
 "   returns the values nil and t."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Condition ~S was signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "No REPORT?  Shouldn't happen!"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Condition slot is not bound: ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Slot ~S of ~S missing."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Make an instance of a condition object using the specified initargs."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~S is not a condition class."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Bad thing for class arg:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Condition already names a declaration: ~S."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*\n"
 "   Define NAME as a condition type.  This new type inherits slots and its\n"
@@ -893,39 +829,39 @@ msgid ""
 "   SLOT-VALUE may not be used on condition objects."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Keyword slot name indicates probable syntax error:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Malformed condition slot spec:~%  ~S."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "More than one :INITFORM in:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "More than one slot :DOCUMENTATION in~%  ~s"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Slot :DOCUMENTATION is not a string in~%  ~s"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Unknown slot option:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Bad option:~%  ~S"
 msgstr ""
 
-#: target:compiler/new-assem.lisp target:code/error.lisp
+#: src/compiler/new-assem.lisp src/code/error.lisp
 msgid "Unknown option: ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "(HANDLER-BIND ( {(type handler)}* )  body)\n"
 "   Executes body in a dynamic context where the given handler bindings are\n"
@@ -934,67 +870,67 @@ msgid ""
 "   signalled condition."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Ill-formed handler bindings."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~&~@<Error in function ~S:  ~3i~:_~?~:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Control stack overflow"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Heap (dynamic space) overflow"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~@<Type-error in ~S:  ~3i~:_~S is not of type ~S~:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Layout-invalid error in ~S:~@\n"
 "		     Type test of class ~S was passed obsolete instance:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~@<~S fell through ~S expression.  ~:_Wanted one of ~:S.~:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "End-of-File on ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~&~@<File-error in function ~S:  ~3i~:_~?~:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Error in ~S:  the variable ~S is unbound."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Error in ~S:  the function ~S is undefined."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "~@<Destructive function ~S called on ~\n"
 "                         constant data.~@:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Arithmetic error ~S signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~%Operation was ~S, operands ~S."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "(HANDLER-CASE form\n"
 "   { (type ([var]) body) }* )\n"
@@ -1008,202 +944,202 @@ msgid ""
 "   var specification."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Executes forms after establishing a handler for all error conditions that\n"
 "   returns from this form nil and the condition signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Found an \"abort\" restart that failed to transfer control dynamically."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfers control to a restart named abort, signalling a control-error if\n"
 "   none exists."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfers control to a restart named muffle-warning, signalling a\n"
 "   control-error if none exists."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfer control to a restart named continue, returning nil if none exists."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfer control and value to a restart named store-value, returning nil if\n"
 "   none exists."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfer control and value to a restart named use-value, returning nil if\n"
 "   none exists."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "Forms that must happen before top level forms are run."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "Can't cold-load-init other forms along with an eval-when."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "~S is not a defined type class."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "Missing type method for ~S"
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "~S is not a defined type class method."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*"
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "DEFINE-TYPE-CLASS Name [Inherits]"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Layout for ~S~@[, Invalid=~S~]"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "The inclusive upper bound on LAYOUT-HASH values."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Layout depth conflict: ~S~%  ~\n"
 "		        (~S collides at ~S with ~S)~%"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Can't use anonymous or undefined class as constant:~%  ~S"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Return the class with the specified Name.  If ERRORP is false, then NIL is\n"
 "   returned when no such class exists."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Class not yet defined:~%  ~S"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Illegal to redefine standard type ~S."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Changing meta-class of ~S from ~S to ~S."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Redefining DEFTYPE type to be a class: ~S."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Return the class of the supplied object, which may be any Lisp object, not\n"
 "   just a CLOS STANDARD-OBJECT."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Modifing ~(~A~) class ~S; making it writable."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Subclassing sealed class ~S; unsealing it."
 msgstr ""
 
-#: target:code/class.lisp
-msgid ""
-"Change in superclasses of class ~S:~%  ~\n"
-"		  ~A superclasses: ~S~%  ~\n"
-"		  ~A superclasses: ~S"
-msgstr ""
-
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
-"In class ~S:~%  ~\n"
-"		    ~:(~A~) definition of superclass ~S incompatible with~%  ~\n"
-"		    ~A definition."
+"Change in the inheritance structure of class ~S~%  ~\n"
+"		 between the ~A definition and the ~A definition."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Change in instance length of class ~S:~%  ~\n"
 "		   ~A length: ~D~%  ~\n"
 "		   ~A length: ~D"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
-"Change in the inheritance structure of class ~S~%  ~\n"
-"		 between the ~A definition and the ~A definition."
+"In class ~S:~%  ~\n"
+"		    ~:(~A~) definition of superclass ~S incompatible with~%  ~\n"
+"		    ~A definition."
+msgstr ""
+
+#: src/code/class.lisp
+msgid ""
+"Change in superclasses of class ~S:~%  ~\n"
+"		  ~A superclasses: ~S~%  ~\n"
+"		  ~A superclasses: ~S"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Loading a reference to class ~S when the compile~\n"
 "		       ~%  time definition was incompatible with the current ~\n"
 "		       one."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Invalidate current definition."
 msgstr ""
 
-#: target:code/class.lisp
-msgid "New definition of ~S must be loaded eventually."
+#: src/code/class.lisp
+msgid "Smash current layout, preserving old code."
 msgstr ""
 
-#: target:code/class.lisp
-msgid "Smash current layout, preserving old code."
+#: src/code/class.lisp
+msgid "Ignore the incompatibility, leave class alone."
+msgstr ""
+
+#: src/code/class.lisp
+msgid "New definition of ~S must be loaded eventually."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Any old ~S instances will be in a bad way.~@\n"
 "		      I hope you know what you're doing..."
 msgstr ""
 
-#: target:code/class.lisp
-msgid "Ignore the incompatibility, leave class alone."
-msgstr ""
-
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Assuming the current definition of ~S is correct, and~@\n"
 "		      that the loaded code doesn't care about the ~\n"
 "		      incompatibility."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Topological sort failed due to constraint on ~S."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Something strange with forward layout for ~S:~%  ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid ""
 "*Use-Implementation-Types* is a semi-public flag which determines how\n"
 "   restrictive we are in determining type membership.  If two types are the\n"
@@ -1215,131 +1151,397 @@ msgid ""
 "   affects array types."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Subtypep is illegal on this type:~%  ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "&Aux in a FUNCTION or VALUES type: ~S."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Keyword type description is not a two-list: ~S."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Repeated keyword ~S in lambda list: ~S."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
-msgstr ""
-
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid ""
 "The maximum length of a union of integer types before we take a\n"
 "  short cut and return a simpler union."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Bad thing to be a type specifier: ~S."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "VALUES type illegal in this context:~%  ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
+msgid "Bad N specified for MOD type specifier: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Bad float format: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Arrays can't have a negative number of dimensions: ~D."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Array type has too many dimensions: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Bad dimension in array type: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Array dimensions is not a list, integer or *:~%  ~S"
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Type of characters that aren't base-char's.  None in CMU CL."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Type corresponding to the charaters required by the standard."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Type for any keyword symbol."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
+msgstr ""
+
+#: src/code/type.lisp
 msgid "The SATISFIES predicate name is not a symbol: ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Weird CONS type ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "The component type for COMPLEX is not numeric: ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "The component type for COMPLEX is not real: ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid ""
 "The component type for COMPLEX (EQL X) ~\n"
 "                                    is complex: ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid ""
 "~@<(known bug #145): The type ~S is too hairy to be \n"
 "                         used for a COMPLEX component.~:@>"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Bound is not *, a ~A or a list of a ~A: ~S"
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad N specified for MOD type specifier: ~S."
+#: src/compiler/generic/vm-type.lisp
+msgid "~S isn't an integer type?"
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an array-header-p and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an arrayp and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad float format: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an atom and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Arrays can't have a negative number of dimensions: ~D."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a base-char-p and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Array type has too many dimensions: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a bignump and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad dimension in array type: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a bit-vector-p and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Array dimensions is not a list, integer or *:~%  ~S"
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a characterp and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Type of characters that aren't base-char's.  None in CMU CL."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a code-component-p and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Type corresponding to the charaters required by the standard."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a consp and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Type for any keyword symbol."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a compiled-function-p and NIL otherwise."
 msgstr ""
 
-#: target:compiler/generic/vm-type.lisp
-msgid "~S isn't an integer type?"
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complexp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complex-double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complex-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a complex-double-double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complex-rational-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complex-single-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a double-double-float-p and NIL otherwise."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a fdefn-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a fixnump and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a floatp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a functionp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an integerp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a listp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a long-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a lra-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a not and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a null and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a numberp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a rationalp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a ratiop and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a realp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a scavenger-hook-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a short-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-array-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-bit-vector-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-string-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-vector-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a single-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a stringp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a %instancep and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a symbolp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a system-area-pointer-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a weak-pointer-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a vectorp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an unsigned-byte-32-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a signed-byte-32-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-2-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-4-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-8-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-16-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-32-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-signed-byte-8-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-signed-byte-16-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-signed-byte-30-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-signed-byte-32-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-array-single-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-array-double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-double-double-float-p and NIL otherwise"
+"."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-complex-single-float-p and NIL otherwis"
+"e."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-complex-double-float-p and NIL otherwis"
+"e."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-complex-double-double-float-p and NIL "
+"otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
 msgid "Return the type of OBJECT."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid ""
 "Return the element type that will actually be used to implement an array\n"
 "   with the specifier :ELEMENT-TYPE Spec."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid ""
 "Return two values indicating the relationship between type1 and type2:\n"
 "  T and T: type1 definitely is a subtype of type2.\n"
@@ -1347,43 +1549,43 @@ msgid ""
 "  NIL and NIL: who knows?"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Return T iff OBJECT is of type TYPE."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "~@<unknown element type in array type: ~2I~_~S~:>"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Unknown type specifier: ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Invalid type specifier: ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Function types are not a legal argument to TYPEP:~%  ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Class has not yet been defined: ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "TYPEP on obsolete object (was class ~S)."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Class is currently invalid: ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid ""
 "Returns T if X and Y are EQL or if they are structured components\n"
 "  whose elements are EQUAL.  Strings and bit-vectors are EQUAL if they\n"
@@ -1391,7 +1593,7 @@ msgid ""
 "  EQ to be EQUAL."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid ""
 "Just like EQUAL, but more liberal in several respects.\n"
 "  Numbers may be of different types, as long as the values are identical\n"
@@ -1400,74 +1602,74 @@ msgid ""
 "  in their type restriction."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "No alien type class ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "No method ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid "Method ~S not defined for ~S"
-msgstr ""
-
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Parse the list structure TYPE as an alien type specifier and return\n"
 "   the resultant alien-type structure."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unknown alien type: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "No translator for primitive alien type ~S?"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Definition missing for alien type ~S?"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Attempt to multiple define ~A ~S."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Attempt to shadow definition of ~A ~S."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Convert the alien-type structure TYPE back into a list specification of\n"
 "   the type."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
+msgid "Method ~S not defined for ~S"
+msgstr ""
+
+#: src/code/alieneval.lisp
 msgid ""
 "Define the alien type NAME to be equivalent to TYPE.  Name may be NIL for\n"
 "   STRUCT and UNION types, in which case the name is taken from the type\n"
 "   specifier."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Redefining ~A ~S to be:~%  ~S,~%was:~%  ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "~S is a built-in alien type."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Redefining ~S to be:~%  ~S,~%was~%  ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Return T iff TYPE1 and TYPE2 describe equivalent alien types."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Return T iff the alien type TYPE1 is a subtype of TYPE2.  Currently, the\n"
 "   only supported subtype relationships are that any pointer type is a\n"
@@ -1476,114 +1678,110 @@ msgid ""
 "   ALIEN-TYPE-=."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Return T iff OBJECT is an alien of type TYPE."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot represent ~S typed aliens."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot pass aliens of type ~S as arguments to call-out"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot return aliens of type ~S from call-out"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot extract ~D bit integers."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Redefining alien enum ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unknown enum type: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Empty enum type: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "An enumeration must contain at least one element."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Enumeration element ~S is not a keyword."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Element value ~S is not an integer."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Element value ~S used more than once."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Enumeration element ~S used more than once."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Can't represent enums needing more than 32 bits."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot deposit aliens of type ~S (unknown size)."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "First dimension is not a non-negative fixnum or NIL: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Dimension is not a non-negative fixnum: ~S"
 msgstr ""
 
-#: target:pcl/simple-streams/socket.lisp target:pcl/simple-streams/file.lisp
-#: target:pcl/simple-streams/internal.lisp
-#: target:pcl/simple-streams/classes.lisp target:pcl/env.lisp
-#: target:pcl/fixup.lisp target:pcl/methods.lisp target:pcl/cpl.lisp
-#: target:pcl/seal.lisp target:pcl/dfun.lisp
-#: target:pcl/method-slot-access-optimization.lisp target:pcl/boot.lisp
-#: target:pcl/dlisp.lisp target:pcl/cache.lisp target:pcl/defclass.lisp
-#: target:pcl/low.lisp target:compiler/disassem.lisp target:code/pathname.lisp
-#: target:code/format.lisp target:code/pprint-loop.lisp target:code/pprint.lisp
-#: target:code/bignum.lisp target:code/alieneval.lisp
+#: src/pcl/env.lisp src/pcl/fixup.lisp src/pcl/methods.lisp src/pcl/cpl.lisp
+#: src/pcl/seal.lisp src/pcl/dfun.lisp
+#: src/pcl/method-slot-access-optimization.lisp src/pcl/boot.lisp
+#: src/pcl/dlisp.lisp src/pcl/cache.lisp src/pcl/defclass.lisp src/pcl/low.lisp
+#: src/compiler/disassem.lisp src/code/pathname.lisp src/code/pprint-loop.lisp
+#: src/code/pprint.lisp src/code/bignum.lisp src/code/alieneval.lisp
 msgid "Required argument missing"
 msgstr ""
 
-#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+#: src/compiler/aliencomp.lisp src/code/alieneval.lisp
 msgid "Unknown size: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unknown alignment: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "A hash table used to detect cycles while comparing record types."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.\n"
 "If so return true; otherwise call ALTERNATIVE."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot use values types here."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Badly formed alien name."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Define NAME as an external alien variable of type TYPE.  NAME should be\n"
 "   a list of a string holding the alien name and a symbol to use as the "
@@ -1593,13 +1791,13 @@ msgid ""
 "   from the one supplied."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Access the alien variable named NAME, assuming it is of type TYPE.  This\n"
 "   is SETFable."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Establish some local alien variables.  Each BINDING is of the form:\n"
 "     VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]\n"
@@ -1617,26 +1815,26 @@ msgid ""
 "       the external alien given by EXTERNAL-NAME."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Return true if X (which must be an Alien pointer) is null, false otherwise."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Convert the System-Area-Pointer SAP to an Alien of the specified Type (not\n"
 "   evaluated.)  Type must be pointer-like."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot make aliens of type ~S out of SAPs"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Return a System-Area-Pointer pointing to Alien's data."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Allocate an alien of type TYPE and return an alien pointer to it.  If SIZE\n"
 "   is supplied, how it is interpreted depends on TYPE.  If TYPE is an array\n"
@@ -1647,42 +1845,42 @@ msgid ""
 "   functions which use ``free''."
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid "Cannot override the size of zero-dimensional arrays."
-msgstr ""
-
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Size of ~S unknown."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Alignment of ~S unknown."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
+msgid "Cannot override the size of zero-dimensional arrays."
+msgstr ""
+
+#: src/code/alieneval.lisp
 msgid ""
 "Dispose of the storage pointed to by ALIEN.  ALIEN must have been allocated\n"
 "   by MAKE-ALIEN or ``malloc''."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "No slot named ~S in ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Extract SLOT from the Alien STRUCT or UNION ALIEN.  May be set with SETF."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Too many indices when derefing ~S: ~D"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Incorrect number of indices when derefing ~S: ~D"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "De-reference an Alien pointer or array.  If an array, the indices are used\n"
 "   as the indices of the array element to access.  If a pointer, one index "
@@ -1690,68 +1888,68 @@ msgid ""
 "   optionally be specified, giving the equivalent of C pointer arithmetic."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Something is wrong; local-alien-info not found: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "~S isn't forced to memory.  Something went wrong."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Return an Alien pointer to the data addressed by Expr, which must be a call\n"
 "   to SLOT or DEREF, or a reference to an Alien variable."
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid "Something is wrong, local-alien-info not found: ~S"
+#: src/code/alieneval.lisp
+msgid "~S is not a valid L-value"
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid "~S is not a valid L-value"
+#: src/code/alieneval.lisp
+msgid "Something is wrong, local-alien-info not found: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Convert ALIEN to an Alien of the specified TYPE (not evaluated).  Both "
 "types\n"
 "   must be Alien array, pointer or function types."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "~S cannot be cast."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+#: src/compiler/aliencomp.lisp src/code/alieneval.lisp
 msgid "Cannot cast to alien type ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Return the size of the alien type TYPE.  UNITS specifies the units to\n"
 "   use and can be either :BITS, :BYTES, or :WORDS."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unknown size for alien type ~S."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Call the foreign function ALIEN with the specified arguments.  ALIEN's\n"
 "   type specifies the argument and result types."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Wrong number of arguments for ~S~%Expected ~D, got ~D."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "~S is not an alien function."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Def-Alien-Routine Name Result-Type\n"
 "                    {(Arg-Name Arg-Type [Style])}*\n"
@@ -1798,43 +1996,34 @@ msgid ""
 "return."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Bogus argument style ~S in ~S."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Can't use :out or :in-out on pointer-like type:~%  ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid ""
-"A callback consists of a piece assembly code -- the trampoline --\n"
-"and a lisp function.  We store the function type (including return\n"
-"type and arg types), so we can detect incompatible redefinitions."
-msgstr ""
-
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Vector of all callbacks."
 msgstr ""
 
-#: target:pcl/simple-streams/string.lisp target:compiler/tn.lisp
-#: target:compiler/main.lisp target:code/describe.lisp
-#: target:code/debug-int.lisp target:code/debug-info.lisp
-#: target:code/foreign-linkage.lisp target:code/reader.lisp
-#: target:code/stream.lisp target:code/hash-new.lisp target:code/array.lisp
-#: target:code/alieneval.lisp
+#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp
+#: src/code/debug-int.lisp src/code/debug-info.lisp
+#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp
+#: src/code/hash-new.lisp src/code/array.lisp src/code/alieneval.lisp
 msgid "~S is not an array with a fill-pointer."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unable to mprotect ~S bytes (~S) at ~S (~S).  Callbacks may not work."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Return the trampoline pointer for the callback NAME."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "~\n"
 "Attempt to redefine callback with incompatible return type.\n"
@@ -1842,20 +2031,20 @@ msgid ""
 "    New type is: ~A"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "~\n"
 "Create new trampoline (old trampoline calls old lisp function)."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unsupported argument type: ~A"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unsupported return type: ~A"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n"
 "     {doc-string} {decls}* {FORM}*)\n"
@@ -1871,104 +2060,104 @@ msgid ""
 "incremental redefinition of callback functions."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Return T iff the SAP X points to a smaller address then the SAP Y."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/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
+#: src/code/sap.lisp
 msgid "Return T iff the SAP X points to the same address as the SAP Y."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/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
+#: src/code/sap.lisp
 msgid "Return T iff the SAP X points to a larger address then the SAP Y."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Return a new sap OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Return the byte offset between SAP1 and SAP2."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Converts a System Area Pointer into an integer."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Converts an integer into a System Area Pointer."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 8-bit byte at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 16-bit word at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 32-bit dualword at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 64-bit quadword at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 32-bit single-float at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 64-bit double-float at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the long-float at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the signed 16-bit word at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid "The number of bits to process at a time."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "The maximum number of bits that can be dealt with during a single call."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing\n"
 "  bits from the ``start.''  On big-endian machines this is a left-shift and\n"
@@ -1977,122 +2166,122 @@ msgid ""
 "  of count are significant."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing\n"
 "  bits from the ``end.''  On big-endian machines this is a right-shift and\n"
 "  on little-endian machines this is a left-shift."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for\n"
 "  the remaining ``end'' bits.  Only the lower 5 bits of COUNT are significan"
 "t."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for\n"
 "  the remaining ``start'' bits.  Only the lower 5 bits of COUNT are\n"
 "  significant."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid "Align the SAP to a word boundry, and update the offset accordingly."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits."
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "This is the interpreter's evaluation stack."
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "This is the next free element of the interpreter's evaluation stack."
 msgstr ""
 
-#: target:code/byte-interp.lisp
-msgid "Unknown inline function, id=~D"
+#: src/code/byte-interp.lisp
+msgid "Undefined XOP."
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Unbound variable: ~S"
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Non-list argument to CAR: ~S"
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Non-list argument to CDR: ~S"
 msgstr ""
 
-#: target:code/byte-interp.lisp
-msgid "Undefined XOP."
+#: src/code/byte-interp.lisp
+msgid "Unknown inline function, id=~D"
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Wrong number of arguments."
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Not enough arguments."
 msgstr ""
 
-#: target:pcl/boot.lisp target:code/byte-interp.lisp
+#: src/pcl/boot.lisp src/code/byte-interp.lisp
 msgid "Too many arguments."
 msgstr ""
 
-#: target:pcl/combin.lisp target:code/interr.lisp target:code/byte-interp.lisp
+#: src/pcl/combin.lisp src/code/interr.lisp src/code/byte-interp.lisp
 msgid "Odd number of keyword arguments."
 msgstr ""
 
-#: target:code/interr.lisp target:code/byte-interp.lisp
+#: src/code/interr.lisp src/code/byte-interp.lisp
 msgid "Unknown keyword: ~S"
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "function-end breakpoints not supported."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "The exclusive upper bound on the rank of an array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "The exclusive upper bound any given dimension of an array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "The exclusive upper bound on the total number of elements in an array."
 msgstr ""
 
-#: target:code/array.lisp
-msgid "End ~D is greater than total size ~D."
+#: src/code/array.lisp
+msgid "Start ~D is greater than end ~D."
 msgstr ""
 
-#: target:code/array.lisp
-msgid "Start ~D is greater than end ~D."
+#: src/code/array.lisp
+msgid "End ~D is greater than total size ~D."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "List of weak-pointers to static vectors.  Needed for GCing static vectors"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Cannot make a static array of element type ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Failed to allocate space for static array of length ~S of type ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Creates an array of the specified Dimensions and properties.  See the\n"
 "  manual for details.\n"
@@ -2121,89 +2310,83 @@ msgid ""
 "      created.  This array is created by calling malloc."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Can't specify :displaced-index-offset without :displaced-to"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Cannot make an adjustable static array"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Cannot make a displaced array static"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Cannot specify both :initial-element and ~\n"
 "		:initial-contents"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~D elements in the initial-contents, but the ~\n"
 "		vector length is ~D."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Only vectors can have fill pointers."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Invalid fill-pointer ~D"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Neither :initial-element nor :initial-contents ~\n"
 "		   can be specified along with :displaced-to"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "One can't displace an array of type ~S into ~\n"
 "                           another of type ~S."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~S doesn't have enough elements."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~&Freeing foreign vector at #x~X~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Finalizing static vectors ~S~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "static vector ~A.  header = ~X~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "  static vector ~A in use~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "  Free static vector ~A~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Cannot supply both :initial-contents and :initial-element to\n"
 "            either make-array or adjust-array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~S cannot be used to initialize an array of type ~S."
 msgstr ""
 
-#: target:code/array.lisp
-msgid ""
-"Malformed :initial-contents.  Dimension of ~\n"
-"			        axis ~D is ~D, but ~S is ~D long."
-msgstr ""
-
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Malformed :initial-contents.  ~S is not a ~\n"
 "			                       sequence, but ~D more layer needed."
@@ -2212,103 +2395,109 @@ msgid_plural ""
 "			                       sequence, but ~D more layers needed."
 msgstr[0] ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
+msgid ""
+"Malformed :initial-contents.  Dimension of ~\n"
+"			        axis ~D is ~D, but ~S is ~D long."
+msgstr ""
+
+#: src/code/array.lisp
 msgid "Constructs a simple-vector from the given objects."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Wrong number of subscripts, ~D, for array of rank ~D"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Invalid index ~D in ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns T if the Subscipts are in bounds for the Array, Nil otherwise."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the element of the Array specified by the Subscripts."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Returns the element of array corressponding to the row-major index.  This "
 "is\n"
 "   SETF'able."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the Index'th element of the given Simple-Vector."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the bit from the Bit-Array at the specified Subscripts."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the bit from the Simple-Bit-Array at the specified Subscripts."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the type of the elements of the array"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the number of dimensions of the Array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns length of dimension Axis-Number of the Array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Vector axis is not zero: ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~D is too big; ~S only has ~D dimension"
 msgid_plural "~D is too big; ~S only has ~D dimensions"
 msgstr[0] ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns a list whose elements are the dimensions of the array"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the total number of elements in the Array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Returns values of :displaced-to and :displaced-index-offset options to\n"
 "   make-array, or the defaults nil and 0 if not a displaced array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Returns T if (adjust-array array...) would return an array identical\n"
 "   to the argument, this happens for complex arrays."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns T if the given Array has a fill pointer, or Nil otherwise."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the Fill-Pointer of the given Vector."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "New fill pointer, ~S, is larger than the length of the vector."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Attempts to set the element of Array designated by the fill pointer\n"
 "   to New-El and increment fill pointer by one.  If the fill pointer is\n"
@@ -2317,103 +2506,103 @@ msgid ""
 "   returned."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Like Vector-Push except that if the fill pointer gets too large, the\n"
 "   Array is extended rather than Nil being returned."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Attempts to decrease the fill-pointer by 1 and return the element\n"
 "   pointer to by the new fill pointer.  If the original value of the fill\n"
 "   pointer is 0, an error occurs."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Nothing left to pop."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Adjusts the Array's dimensions to the given Dimensions and stuff."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Number of dimensions not equal to rank of array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "New element type, ~S, is incompatible with old."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Static arrays are not adjustable."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Multidimensional arrays can't have fill pointers."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Initial contents may not be specified with ~\n"
 "		 the :initial-element or :displaced-to option."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "The :initial-element option may not be specified ~\n"
 "	       with :displaced-to."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "One can't displace an array of type ~S into another of ~\n"
 "	               type ~S."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "The :displaced-to array is too small."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Cannot adjust-array an array (~S) to a size (~S) that is ~\n"
 "	            smaller than it's fill pointer (~S)."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Cannot supply a non-NIL value (~S) for :fill-pointer ~\n"
 "	   in adjust-array unless the array (~S) was originally ~\n"
 " 	   created with a fill pointer."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Cannot supply a value for :fill-pointer (~S) that is larger ~\n"
 "	     than the new length of the vector (~S)."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Bogus value for :fill-pointer in adjust-array: ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Destructively alters the Vector, changing its length to New-Size, which\n"
 "   must be less than or equal to its current size."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Fills in array header with provided information.  Returns array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~S and ~S do not have the same dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2422,7 +2611,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGIOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2431,7 +2620,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGXOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2440,7 +2629,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGEQV on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2449,7 +2638,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGNAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2458,7 +2647,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGNOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2467,7 +2656,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGANDC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2476,7 +2665,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGANDC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2485,7 +2674,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGORC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2494,7 +2683,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGORC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2503,7 +2692,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Performs a bit-wise logical NOT on the elements of BIT-ARRAY,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2511,21 +2700,21 @@ msgid ""
 "  created.  Both arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Structure used to implement hash tables."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Almost-Primify returns an almost prime number greater than or equal\n"
 "   to NUM."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Define a new kind of hash table test."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Creates and returns a new hash table.  The keywords are as follows:\n"
 "     :TEST -- Indicates what kind of test to use.  Only EQ, EQL, EQUAL,\n"
@@ -2554,48 +2743,44 @@ msgid ""
 "                backward compatibility, a value of T is the same as :KEY."
 msgstr ""
 
-#: target:code/hash-new.lisp
-msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
-msgstr ""
-
-#: target:code/hash-new.lisp
-msgid ";; Creating unsupported weak-p hash table~%"
+#: src/code/hash-new.lisp
+msgid "Cannot make a weak ~A hashtable with test: ~S"
 msgstr ""
 
-#: target:code/hash-new.lisp
-msgid "Cannot make a weak ~A hashtable with test: ~S"
+#: src/code/hash-new.lisp
+msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Returns the number of entries in the given HASH-TABLE."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Return the rehash-size HASH-TABLE was created with."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Return the rehash-threshold HASH-TABLE was created with."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Return a size that can be used with MAKE-HASH-TABLE to create a hash\n"
 "   table that can hold however many entries HASH-TABLE can hold without\n"
 "   having to be grown."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Return the test HASH-TABLE was created with."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Return T if HASH-TABLE will not keep entries for keys that would\n"
 "   otherwise be garbage, and NIL if it will."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n"
 "   value and T as multiple values, or returns DEFAULT and NIL if there is "
@@ -2603,31 +2788,31 @@ msgid ""
 "   such entry.  Entries can be added using SETF."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Remove the entry in HASH-TABLE associated with KEY.  Returns T if there\n"
 "   was such an entry, and NIL if not."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "This removes all the entries from HASH-TABLE and returns the hash table\n"
 "   itself."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "This removes all the entries from HASH-TABLE and returns the hash table\n"
 "   itself, shrinking the size to free memory."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n"
 "   of the entry; returns NIL."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n"
 "   provides a method of manually looping over the elements of a hash-table.\n"
@@ -2638,226 +2823,226 @@ msgid ""
 "object."
 msgstr ""
 
-#: target:pcl/slots.lisp target:code/hash-new.lisp
+#: src/pcl/slots.lisp src/code/hash-new.lisp
 msgid "What kind of instance is this?"
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Computes a hash code for S-EXPR and returns it as an integer."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns all but the first object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 2nd object in a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the 1st sublist."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the 1st sublist."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns all but the 1st two objects of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in the cddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in the cadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in the caar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the caar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cdar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cdar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the caaar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the caadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the caddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cdddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cdddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the caaar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cdaar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cddar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cadar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cdaar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cdadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cddar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the caadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cadar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the caddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cdadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns a list with se1 as the car and se2 as the cdr."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns T if X and Y are isomorphic trees with identical leaves."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "The recommended way to test for the end of a list.  True if Object is nil,\n"
 "   false if Object is a cons, and an error for any other types of "
 "arguments."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the length of the given List, or Nil if the List is circular."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the nth object in a list where the car is the zero-th element."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in a list or NIL if the list is empty."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 2nd object in a list or NIL if there is no 2nd object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 3rd object in a list or NIL if there is no 3rd object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 4th object in a list or NIL if there is no 4th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 5th object in a list or NIL if there is no 5th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 6th object in a list or NIL if there is no 6th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 7th object in a list or NIL if there is no 7th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 8th object in a list or NIL if there is no 8th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 9th object in a list or NIL if there is no 9th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 10th object in a list or NIL if there is no 10th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Means the same as the cdr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Performs the cdr function n times on a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the last N conses (not the last element!) of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns constructs and returns a list of its arguments."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns a list of the arguments with last cons a dotted pair"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Constructs a list with size elements each set to value"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "~S is not a proper list"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Typically, returns a new list that is the concatenation of Args.\n"
 "\n"
@@ -2870,230 +3055,230 @@ msgid ""
 "  last Arg is not a list, the returned value is not a list either."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "~S is not a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns a new list EQUAL but not EQ to list"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns a new association list equal to alist, constructed in space"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Copy-Tree recursively copys trees of conses."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns (append (reverse x) y)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Concatenates the lists given as arguments (by changing them)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Argument is not a list -- ~S."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns (nconc (nreverse x) y)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "First argument is not a proper list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns a new list the same as List without the last N conses.\n"
 "   List must not be circular."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Modifies List to remove the last N conses. List must not be circular."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns a new list, whose elements are those of List that appear before\n"
 "   Object.  If Object is not a tail of List, a copy of List is returned.\n"
 "   List must be a proper list or a dotted list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Changes the car of x to y and returns the new x."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Changes the cdr of x to y and returns the new x."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Sets the Nth element of List (zero based) to Newval."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "~S is too large an index for SETF of NTH."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns what was passed to it."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Builds a new function that returns T whenever FUNCTION returns NIL and\n"
 "   NIL whenever FUNCTION returns T."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees matching old."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees for which test is true."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees for which test is false."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees of tree for which test is true."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees of tree for which test is false."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes from alist into tree nondestructively."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns tail of list beginning with first element satisfying EQLity,\n"
 "   :test, or :test-not with a given item."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns tail of list beginning with first element satisfying test(element)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns tail of list beginning with first element not satisfying test(el)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns true if Object is the same as some tail of List, otherwise\n"
 "   returns false. List must be a proper list or a dotted list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Add item to list unless it is already a member"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the union of list1 and list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Test and test-not both supplied."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Destructively returns the union list1 and list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the intersection of list1 and list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Destructively returns the intersection of list1 and list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the elements of list1 which are not in list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Destructively returns the elements of list1 which are not in list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Return new list of elements appearing exactly once in LIST1 and LIST2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Destructively return a list with elements which appear but once in LIST1\n"
 "   and LIST2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns T if every element in list1 is also in list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Construct a new alist by adding the pair (key . datum) to alist"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Construct an association list from keys and data (adding to alist)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "The lists of keys and data are of unequal length."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the cons in alist whose car is equal (by a given test or EQL) to\n"
 "   the Item."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the first cons in alist whose car satisfies the Predicate.  If\n"
 "   key is supplied, apply it to the car of each cons before testing."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the first cons in alist whose car does not satisfiy the Predicate.\n"
 "  If key is supplied, apply it to the car of each cons before testing."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n"
 "   the Item."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the first cons in alist whose cdr satisfies the Predicate.  If key\n"
 "  is supplied, apply it to the cdr of each cons before testing."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the first cons in alist whose cdr does not satisfy the Predicate.\n"
 "  If key is supplied, apply it to the cdr of each cons before testing."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n"
 "  It Maps function over the arglists in the appropriate way. It is done "
@@ -3103,158 +3288,158 @@ msgid ""
 "  function and accumulating results as desired."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Applies fn to successive elements of lists, returns its second argument."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive elements of list, returns list of results."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive elements of list, returns NCONC of results."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive CDRs of list, returns ()."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive CDRs of list, returns list of results."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive CDRs of lists, returns NCONC of results."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns tail of list beginning with first element eq to item"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Return the first pair of alist where item EQ the key of pair"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns list with all elements with all elements EQ to ITEM deleted."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a list of the Nth element of each of the sequences.  Used by MAP\n"
 "   and friends."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns a sequence of the same type as SEQUENCE and the given LENGTH."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the broad class of which TYPE is a specific subclass."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "NIL output type invalid for this sequence function."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S is too hairy for sequence functions."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S is a bad type specifier for sequence functions."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Error in ~S: ~S: Index too large."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns a sequence of the given TYPE and LENGTH."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the element of SEQUENCE specified by INDEX."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Store NEWVAL as the component of SEQUENCE specified by INDEX."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns an integer that is the length of SEQUENCE."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S is a bad type specifier for sequences"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Shouldn't happen!  Weird type"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The length of ~S does not match the specified ~\n"
 "                          length of ~S."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the given Type and Length, with elements initialized\n"
 "  to :Initial-Element."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The length of ~S does not match the specified ~\n"
 "                           length  of ~S."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S is a bad type specifier for sequences."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a copy of a subsequence of SEQUENCE starting with element number \n"
 "   START and continuing to the end of SEQUENCE or the optional END."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Replace the specified elements of SEQUENCE with ITEM."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The target sequence is destructively modified by copying successive\n"
 "   elements into it from the source sequence."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a new sequence containing the same elements but in reverse order."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same elements in reverse order; the argument\n"
 "   is destroyed."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a new sequence of all the argument sequences concatenated together\n"
 "  which shares no structure with the original argument sequences of the\n"
 "  specified OUTPUT-TYPE-SPEC."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "FUNCTION must take as many arguments as there are sequences provided.  The \n"
 "   result is a sequence such that element i is the result of applying "
@@ -3262,14 +3447,14 @@ msgid ""
 "   to element i of each of the argument sequences."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "PREDICATE is applied to the elements with index 0 of the sequences, then \n"
 "   possibly to those with index 1, and so on.  SOME returns the first \n"
 "   non-() value encountered, or () if the end of a sequence is reached."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "PREDICATE is applied to the elements with index 0 of the sequences, then\n"
 "   possibly to those with index 1, and so on.  EVERY returns () as soon\n"
@@ -3277,7 +3462,7 @@ msgid ""
 "   is non-()."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "PREDICATE is applied to the elements with index 0 of the sequences, then \n"
 "   possibly to those with index 1, and so on.  NOTANY returns () as soon\n"
@@ -3285,7 +3470,7 @@ msgid ""
 "   of a sequence is reached."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "PREDICATE is applied to the elements with index 0 of the sequences, then\n"
 "   possibly to those with index 1, and so on.  NOTEVERY returns T as soon\n"
@@ -3293,57 +3478,57 @@ msgid ""
 "   is non-()."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The specified Sequence is ``reduced'' using the given Function.\n"
 "  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Coerces the Object to an object of type Output-Type-Spec."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S can't be converted to type ~S."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence formed by destructively removing the specified Item from\n"
 "  the given Sequence."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence formed by destructively removing the elements satisfying\n"
 "  the specified Predicate from the given Sequence."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence formed by destructively removing the elements not\n"
 "  satisfying the specified Predicate from the given Sequence."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a copy of SEQUENCE with elements satisfying the test (default is\n"
 "   EQL) with ITEM removed."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a copy of sequence with elements such that predicate(element)\n"
 "   is non-null are removed"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a copy of sequence with elements such that predicate(element)\n"
 "   is null are removed"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The elements of Sequence are compared pairwise, and if any two match,\n"
 "   the one occuring earlier is discarded, unless FROM-END is true, in\n"
@@ -3353,7 +3538,7 @@ msgid ""
 "   The :TEST-NOT argument is deprecated."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The elements of Sequence are examined, and if any two match, one is\n"
 "   discarded.  The resulting sequence, which may be formed by destroying "
@@ -3363,28 +3548,28 @@ msgid ""
 "   The :TEST-NOT argument is deprecated."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "  except that all elements equal to Old are replaced with New.  See manual\n"
 "  for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "  except that all elements satisfying the Test are replaced with New.  See\n"
 "  manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "  except that all elements not satisfying the Test are replaced with New.\n"
 "  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "  except that all elements equal to Old are replaced with New.  The Sequence"
@@ -3392,64 +3577,64 @@ msgid ""
 "  may be destroyed.  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "   except that all elements satisfying the Test are replaced with New.  The\n"
 "   Sequence may be destroyed.  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "   except that all elements not satisfying the Test are replaced with New.\n"
 "   The Sequence may be destroyed.  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns the zero-origin index of the first element in SEQUENCE\n"
 "   satisfying the test (default is EQL) with the given ITEM"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the zero-origin index of the first element satisfying test(el)"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns the zero-origin index of the first element not satisfying test(el)"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns the first element in SEQUENCE satisfying the test (default\n"
 "   is EQL) with the given ITEM"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the first element in SEQUENCE satisfying the test."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the first element in SEQUENCE not satisfying the test."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns the number of elements in SEQUENCE satisfying a test with ITEM,\n"
 "   which defaults to EQL."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ":TEST and :TEST-NOT are both present."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the number of elements in SEQUENCE satisfying TEST(el)."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The specified subsequences of Sequence1 and Sequence2 are compared\n"
 "   element-wise.  If they are of equal length and match in every element, "
@@ -3465,7 +3650,7 @@ msgid ""
 "   rightmost position in which the sequences differ is returned."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "A search is conducted using EQL for the first subsequence of sequence2 \n"
 "   which element-wise matches sequence1.  If there is such a subsequence in "
@@ -3474,7 +3659,7 @@ msgid ""
 "   otherwise () is returned."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Test if C is a surrogate.  C may be either an integer or a\n"
 "  character. Surrogate-type indicates what kind of surrogate to test\n"
@@ -3483,13 +3668,13 @@ msgid ""
 "  tests for any surrogate value (high or low)."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert the given Hi and Lo surrogate characters to the\n"
 "  corresponding codepoint value"
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Return the codepoint value from String at position I.  If that\n"
 "  position is a surrogate, it is combined with either the previous or\n"
@@ -3499,14 +3684,14 @@ msgid ""
 "  surrogate value, respectively."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Return the high and low surrogate characters for Codepoint.  If\n"
 "  Codepoint is in the BMP, the first return value is the corresponding\n"
 "  character and the second is NIL."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Set the codepoint at string position I to the Codepoint.  If the\n"
 "  codepoint requires a surrogate pair, the high (leading surrogate) is\n"
@@ -3514,7 +3699,7 @@ msgid ""
 "  I+1"
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Check if String is a valid UTF-16 string.  If the string is valid,\n"
 "  T is returned.  If the string is not valid, NIL is returned, and the\n"
@@ -3522,7 +3707,7 @@ msgid ""
 "  A string is also invalid if it contains any unassigned codepoints."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Coerces X into a string.  If X is a string, X is returned.  If X is a\n"
 "  symbol, X's pname is returned.  If X is a character then a one element\n"
@@ -3530,66 +3715,66 @@ msgid ""
 "  into a string, an error occurs."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid "~S cannot be coerced to a string."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string and a non-negative integer index less than the length of\n"
 "  the string, returns the character object representing the character at\n"
 "  that position in the string."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "SCHAR returns the character object at an indexed position in a string\n"
 "  just as CHAR does, except the string must be a simple-string."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically less than\n"
 "  the second string, returns the longest common prefix (using char=)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically greater than\n"
 "  the second string, returns the longest common prefix (using char=)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically less than\n"
 "  or equal to the second string, returns the longest common prefix\n"
 "  (using char=) of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically greater\n"
 "  than or equal to the second string, returns the longest common prefix\n"
 "  (using char=) of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings (string1 and string2), and optional integers start1,\n"
 "  start2, end1 and end2, compares characters in string1 to characters in\n"
 "  string2 (using char=)."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is not lexicographically equal\n"
 "  to the second string, returns the longest common prefix (using char=)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Return a new string with the case folded according to Casing as follows:\n"
 "\n"
@@ -3599,18 +3784,18 @@ msgid ""
 "  Default Casing is :SIMPLE."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings (string1 and string2), and optional integers start1,\n"
 "  start2, end1 and end2, compares characters in string1 to characters in\n"
 "  string2 (using char-equal)."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid "Improper bounds for string comparison."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is not lexicographically equal\n"
 "  to the second string, returns the longest common prefix (using char-equal)"
@@ -3618,71 +3803,71 @@ msgid ""
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid "Improper substring for comparison."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically less than\n"
 "  the second string, returns the longest common prefix (using char-equal)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically greater than\n"
 "  the second string, returns the longest common prefix (using char-equal)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically greater\n"
 "  than or equal to the second string, returns the longest common prefix\n"
 "  (using char-equal) of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically less than\n"
 "  or equal to the second string, returns the longest common prefix\n"
 "  (using char-equal) of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a character count and an optional fill character, makes and returns\n"
 "  a new string Count long filled with the fill character."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a new string that is a copy of it with all\n"
 "  lower case alphabetic characters converted to uppercase."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a new string that is a copy of it with all\n"
 "  lower case alphabetic characters converted to uppercase.  Casing is\n"
 "  :simple or :full for simple or full case conversion, respectively."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a new string that is a copy of it with all\n"
 "  upper case alphabetic characters converted to lowercase."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a new string that is a copy of it with all\n"
 "  upper case alphabetic characters converted to lowercase.  Casing is\n"
 "  :simple or :full for simple or full case conversion, respectively."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a copy of the string with the first\n"
 "  character of each ``word'' converted to upper-case, and remaining\n"
@@ -3691,7 +3876,7 @@ msgid ""
 "  non-case-modifiable chars."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a copy of the string with the first\n"
 "  character of each ``word'' converted to upper-case, and remaining\n"
@@ -3701,19 +3886,19 @@ msgid ""
 "  simple or full case conversion, respectively."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns that string with all lower case alphabetic\n"
 "  characters converted to uppercase."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns that string with all upper case alphabetic\n"
 "  characters converted to lowercase."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns that string with the first\n"
 "  character of each ``word'' converted to upper-case, and remaining\n"
@@ -3722,7 +3907,7 @@ msgid ""
 "  non-case-modifiable chars."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns\n"
 "  a copy of the string with the characters in the set removed from the\n"
@@ -3730,7 +3915,7 @@ msgid ""
 "  properly handled."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns\n"
 "  a copy of the string with the characters in the set removed from the\n"
@@ -3738,7 +3923,7 @@ msgid ""
 "  properly handled."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns a\n"
 "  copy of the string with the characters in the set removed from both\n"
@@ -3746,28 +3931,28 @@ msgid ""
 "  properly handled."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns\n"
 "  a copy of the string with the characters in the set removed from the\n"
 "  left end."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns\n"
 "  a copy of the string with the characters in the set removed from the\n"
 "  right end."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns a\n"
 "  copy of the string with the characters in the set removed from both\n"
 "  ends."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "GLYPH returns the glyph at the indexed position in a string, and the\n"
 "  position of the next glyph (or NIL) as a second value.  A glyph is\n"
@@ -3775,39 +3960,39 @@ msgid ""
 "  subsequent combining characters."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "SGLYPH returns the glyph at the indexed position, the same as GLYPH,\n"
 "  except that the string must be a simple-string"
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert String to Unicode Normalization Form D (NFD) using the\n"
 "  canonical decomposition.  The NFD string is returned"
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert String to Unicode Normalization Form KD (NFKD) uisng the\n"
 "  compatible decomposition form.  The NFKD string is returned."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert String to Unicode Normalization Form C (NFC).  If the\n"
 "  string a simple string and is already normalized, the original\n"
 "  string is returned."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert String to Unicode Normalization Form KC (NFKC).  If the\n"
 "  string is a simple string and is already normalized, the original\n"
 "  string is returned."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "Compares the substrings specified by String1 and String2 and returns\n"
 "NIL if the strings are String=, or the lowest index of String1 in\n"
@@ -3817,11 +4002,11 @@ msgid ""
 "be simple strings."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid "Like %sp-string-compare, only backwards."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Find-Character-With-Attribute  String, Start, End, Table, Mask\n"
 "  The codes of the characters of String from Start to End are used as "
@@ -3832,11 +4017,11 @@ msgid ""
 "  index into the String is returned. The corresponds to SCANC on the Vax."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid "Like %SP-Find-Character-With-Attribute, only sdrawkcaB."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Find-Character  String, Start, End, Character\n"
 "  Searches String for the Character from Start to End.  If the character is\n"
@@ -3844,7 +4029,7 @@ msgid ""
 "  returned."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Reverse-Find-Character  String, Start, End, Character\n"
 "  Searches String for Character from End to Start.  If the character is\n"
@@ -3852,21 +4037,21 @@ msgid ""
 "  returned."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Skip-Character  String, Start, End, Character\n"
 "  Returns the index of the first character between Start and End which\n"
 "  is not Char=  to Character, or NIL if there is no such character."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Skip-Character  String, Start, End, Character\n"
 "  Returns the index of the last character between Start and End which\n"
 "  is not Char=  to Character, or NIL if there is no such character."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-String-Search  String1, Start1, End1, String2, Start2, End2\n"
 "   Searches for the substring of String1 specified in String2.\n"
@@ -3874,85 +4059,85 @@ msgid ""
 "   found."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  This symbol's current special\n"
 "  value is returned."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  Return NIL if this symbol is\n"
 "  unbound, T if it has a value."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  This symbol's special value cell is\n"
 "  set to the specified new value."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Nihil ex nihil, can't set NIL."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Veritas aeterna, can't set T."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Can't set keywords."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  This symbol is made unbound,\n"
 "  removing any value it may currently have."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  This symbol's current definition\n"
 "   is returned.  Settable with SETF."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "VARIABLE must evaluate to a symbol.  Return its property list."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "VARIABLE must evaluate to a symbol.  Return its print name."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "VARIABLE must evaluate to a symbol.  Return its package."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Make and return a new symbol with the STRING as its print name."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Return the hash value for symbol."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Look on the property list of SYMBOL for the specified INDICATOR.  If this\n"
 "  is found, return the associated value, else return DEFAULT."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "~S has an odd number of items in its property list."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "The VALUE is added as a property of SYMBOL under the specified INDICATOR.\n"
 "  Returns VALUE."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Look on property list of SYMBOL for property with specified\n"
 "  INDICATOR.  If found, splice this indicator and its value out of\n"
@@ -3964,7 +4149,7 @@ msgid ""
 "value."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Searches the property list stored in Place for an indicator EQ to "
 "Indicator.\n"
@@ -3972,18 +4157,18 @@ msgid ""
 "  returned."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Malformed property list: ~S"
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Like GETF, except that Indicator-List is a list of indicators which will\n"
 "  be looked for in the property list stored in Place.  Three values are\n"
 "  returned, see manual for details."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Make and return a new uninterned symbol with the same print name\n"
 "  as SYMBOL.  If COPY-PROPS is false, the new symbol is neither bound\n"
@@ -3991,15 +4176,15 @@ msgid ""
 "  function, value and property list."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Returns true if Object is a symbol in the keyword package."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Counter for generating unique GENSYM symbols."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Creates a new uninterned symbol whose name is a prefix string (defaults\n"
 "   to \"G\"), followed by a decimal number.  Thing, when supplied, will\n"
@@ -4009,51 +4194,51 @@ msgid ""
 "   it is used."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Creates a new symbol interned in package Package with the given Prefix."
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid ""
 "When the bignum pieces are smaller than this many words, we use the\n"
 "classical multiplication algorithm instead of recursing all the way\n"
 "down to individual words."
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "Use Karatsuba if the bignums have at least this many bits"
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "WITH-BIGNUM-BUFFERS ({(var size [init])}*) Form*"
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "Unexpected zero bignums?"
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "Can't represent result of left shift."
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "Too large to be represented as a ~S:~%  ~S"
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "More types than vars."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Duplicate case: ~S."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "More vars than types."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "NUMBER-DISPATCH ({(Var Type)}*) {((Type*) Form*) | (Symbol Arg*)}*\n"
 "  A vaguely case-like macro that does number cross-product dispatches.  The\n"
@@ -4076,352 +4261,376 @@ msgid ""
 "  the call as a list of cases.  This process is not applied recursively."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the element type of the most specialized COMPLEX number type that\n"
 "   can hold parts of type Spec."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Assume this is a subtype of REAL anyway."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Cannot determine if ~S is a subtype of REAL."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Complex numbers cannot have components of type ~S."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Builds a complex number from the specified components."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Extracts the real part of a number."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Extracts the imaginary part of a number."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the complex conjugate of NUMBER.  For non-complex numbers, this is\n"
 "  an identity."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Return the numerator of NUMBER, which must be rational."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Return the denominator of NUMBER, which must be rational."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the sum of its arguments.  With no args, returns 0."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the product of its arguments.  With no args, returns 1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Subtracts the second and all subsequent arguments from the first.\n"
 "  With one arg, negates it."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Divides the first arg by each of the following arguments, in turn.\n"
 "  With one arg, returns reciprocal."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns NUMBER + 1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns NUMBER - 1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns number (or number/divisor) as an integer, rounded toward 0.\n"
 "  The second returned value is the remainder."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the greatest integer not greater than number, or number/divisor.\n"
 "  The second returned value is (mod number divisor)."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the smallest integer not less than number, or number/divisor.\n"
 "  The second returned value is the remainder."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Rounds number (or number/divisor) to nearest integer.\n"
 "  The second returned value is the remainder."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns second result of TRUNCATE."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns second result of FLOOR."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Same as TRUNCATE, but returns first value as a float."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Same as FLOOR, but returns first value as a float."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Same as CEILING, but returns first value as a float."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Same as ROUND, but returns first value as a float."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if all of its arguments are numerically equal, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if no two of its arguments are numerically equal, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if its arguments are in strictly increasing order, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if its arguments are in strictly decreasing order, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if arguments are in strictly non-decreasing order, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if arguments are in strictly non-increasing order, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the greatest of its arguments."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the least of its arguments."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Return T if OBJ1 and OBJ2 represent the same object, otherwise NIL."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the bit-wise or of its arguments.  Args must be integers."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the bit-wise exclusive or of its arguments.  Args must be integers."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the bit-wise and of its arguments.  Args must be integers."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the bit-wise equivalence of its arguments.  Args must be integers."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the complement of the logical AND of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the complement of the logical OR of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the logical AND of (LOGNOT integer1) and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the logical AND of integer1 and (LOGNOT integer2)."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the logical OR of (LOGNOT integer1) and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the logical OR of integer1 and (LOGNOT integer2)."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the bit-wise logical not of integer."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
+msgid "Returns the complement of the AND of integer1 and integer2"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the complement of the OR of integer1 and integer2"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the AND of (LOGNOT integer1) and integer2"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the AND of integer1 and (LOGNOT integer2)"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the OR of (LOGNOT integer1) and integer2"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the OR of integer1 and (LOGNOT integer2)"
+msgstr ""
+
+#: src/code/numbers.lisp
 msgid ""
 "Count the number of 1 bits if INTEGER is positive, and the number of 0 bits\n"
 "  if INTEGER is negative."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Predicate which returns T if logand of integer1 and integer2 is not zero."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Predicate returns T if bit index of integer is a 1.  The least\n"
 "significant bit of INTEGER is bit 0."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Shifts integer left by count places preserving sign.  - count shifts right."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the number of significant bits in the absolute value of integer."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns a byte specifier which may be used by other byte functions."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the size part of the byte specifier bytespec."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the position part of the byte specifier bytespec."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Extract the specified byte from integer, and right justify result."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if any of the specified bits in integer are 1's."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Extract the specified byte from integer,  but do not right justify result."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns new integer with newbyte in specified position, newbyte is right "
 "justified."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns new integer with newbyte in specified position, newbyte is not "
 "right justified."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return 0."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return -1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return integer1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return complement of integer1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return complement of integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logand of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logior of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logxor of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logeqv of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Boole function op, makes BOOLE return log nand of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return lognor of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Boole function op, makes BOOLE return logandc1 of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Boole function op, makes BOOLE return logandc2 of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Boole function op, makes BOOLE return logorc1 of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Boole function op, makes BOOLE return logorc2 of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Bit-wise boolean function on two integers.  Function chosen by OP:\n"
 "	0	BOOLE-CLR\n"
@@ -4442,53 +4651,53 @@ msgid ""
 "	15	BOOLE-ORC2"
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the greatest common divisor of the arguments, which must be\n"
 "  integers.  Gcd with no arguments is defined to be 0."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the least common multiple of one or more integers.  LCM of no\n"
 "  arguments is defined to be 1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T iff X is a positive prime integer."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the root of the nearest integer less than n which is a perfect\n"
 "   square."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number = 0, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number > 0, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number < 0, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number is odd, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number is even, NIL otherwise."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid "Unknown float trap kind: ~S."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid ""
 "This function sets options controlling the floating-point hardware.  If a\n"
 "  keyword is not supplied, then the current value is preserved.  Possible\n"
@@ -4522,11 +4731,11 @@ msgid ""
 "   currently in effect."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid "Unknown rounding mode: ~S."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid ""
 "This function returns a list representing the state of the floating point\n"
 "  modes.  The list is in the same format as the keyword arguments to\n"
@@ -4537,18 +4746,18 @@ msgid ""
 "no-op)."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid ""
 "Current-Float-Trap Trap-Name*\n"
 "  Return true if any of the named traps are currently trapped, false\n"
 "  otherwise."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid "SIGFPE with no exceptions currently enabled?"
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid ""
 "Execute BODY with the floating point exceptions listed in TRAPS\n"
 "  masked (disabled).  TRAPS should be a list of possible exceptions\n"
@@ -4558,52 +4767,52 @@ msgid ""
 "  their testing within, and restored on exit."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid "Return true if the float X is denormalized."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid "Return true if the float X is an infinity (+ or -)."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid "Return true if the float X is a NaN (Not a Number)."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid "Return true if the float X is a trapping NaN (Not a Number)."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns a non-negative number of significant digits in it's float argument.\n"
 "  Will be less than FLOAT-DIGITS if denormalized or zero."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns a floating-point number that has the same sign as\n"
 "   float1 and, if float2 is given, has the same absolute value\n"
 "   as float2."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns a non-negative number of radix-b digits used in the\n"
 "   representation of it's argument.  See Common Lisp: The Language\n"
 "   by Guy Steele for more details."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid "Returns (as an integer) the radix b of its floating-point\n"
 "   argument."
 msgstr ""
 
-#: target:code/irrat.lisp target:code/float.lisp
+#: src/code/irrat.lisp src/code/float.lisp
 msgid "Can't decode NAN or infinity: ~S."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns three values:\n"
 "   1) an integer representation of the significand.\n"
@@ -4617,7 +4826,7 @@ msgid ""
 "   3) -1 or 1 (i.e. the sign of the argument.)"
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns three values:\n"
 "   1) a floating-point number representing the significand.  This is always\n"
@@ -4626,27 +4835,27 @@ msgid ""
 "   3) -1.0 or 1.0 (i.e. the sign of the argument.)"
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss\n"
 "  of precision or overflow."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Converts any REAL to a float.  If OTHER is not provided, it returns a\n"
 "  SINGLE-FLOAT if NUMBER is not already a FLOAT.  If OTHER is provided, the\n"
 "  result is the same float format as OTHER."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "RATIONAL produces a rational number for any real numeric argument.  This is\n"
 "  more efficient than RATIONALIZE, but it assumes that floating-point is\n"
 "  completely accurate, giving a result that isn't as pretty."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Converts any REAL to a RATIONAL.  Floats are converted to a simple rational\n"
 "  representation exploiting the assumption that floats are only accurate to\n"
@@ -4654,39 +4863,39 @@ msgid ""
 "      (= x (float (rationalize x) x))"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return e raised to the power NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "The absolute value of ~S exceeds limit ~S."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Continue with calculation"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Continue with calculation, update limit"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Returns BASE raised to the POWER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the logarithm of NUMBER in the base BASE, which defaults to e."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the square root of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Returns the absolute value of the number."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Returns the angle part of the polar representation of a complex number.\n"
 "  For complex numbers, this is (atan (imagpart number) (realpart number)).\n"
@@ -4694,75 +4903,75 @@ msgid ""
 "  numbers this is PI."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the sine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the cosine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the tangent of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Argument to CIS is complex: ~S"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the arc sine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the arc cosine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic sine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic cosine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic tangent of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic arc sine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic arc cosine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic arc tangent of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Compute 2^N * X without compute 2^N first (use properties of the\n"
 "underlying floating-point format"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Same as logb but X is not infinity and non-zero and not a NaN, so\n"
 "that we can always return an integer"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Compute an integer N such that 1 <= |2^(-N) * x| < 2.\n"
 "For the special cases, the following values are used:\n"
@@ -4774,341 +4983,341 @@ msgid ""
 ""
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Create complex number with real part X and imaginary part Y such that\n"
 "it has the same type as Z.  If Z has type (complex rational), the X\n"
 "and Y are coerced to single-float."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Principle square root of Z\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute log(2^j*z).\n"
 "\n"
 "This is for use with J /= 0 only when |z| is huge."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Log of Z = log |Z| + i * arg Z\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid "Compute atanh z = (log(1+z) - log(1-z))/2"
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid "Compute tanh z = sinh z / cosh z"
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute acos z = pi/2 - asin z\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute asin z = asinh(i*z)/i\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute asinh z = log(z + sqrt(1 + z*z))\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute atan z = atanh (i*z) / i\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute tan z = -i * tanh(i * z)\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "log(most-positive-double-double-float)"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "log(least-positive-double-double-float"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "log(2)"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Log base 2 of e"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "log2(e)-1"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Pi"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Pi/2"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Pi/4"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Sqrt(1/2)"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "exp(x) - 1"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "396 (hex) digits of 2/pi"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Overflow"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid ""
 "~S uses lambda-list keyword naming convention, but is not a recognized "
 "lambda-list keyword."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &optional in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &rest in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &more in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &key in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &allow-other-keys in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &aux in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Found garbage in lambda-list when expecting a keyword: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "&rest not followed by required variable."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Illegal function name: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Special form is an illegal function name: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid ""
 "Defining as a SETF function a name that already has a SETF macro:~\n"
 "       ~%  ~S"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Assume redefinition is compatible and allow it"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Redefining slot accessor ~S for structure type ~S"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "~S previously defined as a macro."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Unknown optimization quality ~S in ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Malformed optimization quality specifier ~S in ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "DECLAIM Declaration*\n"
 "  Do a declaration for the global environment."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp
 msgid "Malformed PROCLAIM spec: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp
 msgid "Variable name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Nihil ex nihil, can't declare ~S special."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Veritas aeterna, can't declare ~S special."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Can't declare ~S special, it is a keyword."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Proceed anyway."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Trying to declare ~S special, which is ~A."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "a constant"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "an alien variable"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "a symbol macro"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp
 msgid "Declared functional type is not a function type: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Ignoring FTYPE declaration for slot accesor:~%  ~S"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Declaration to be RECOGNIZED is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Declaration already names a type: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp
 msgid "Unrecognized proclamation: ~S."
 msgstr ""
 
-#: target:code/unidata.lisp
+#: src/code/unidata.lisp
 msgid "The Unicode data file is broken."
 msgstr ""
 
-#: target:code/unidata.lisp
+#: src/code/unidata.lisp
 msgid "Unicode data file is for Unicode ~D.~D.~D"
 msgstr ""
 
-#: target:code/unidata.lisp
+#: src/code/unidata.lisp
 msgid "No data in file."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "The upper exclusive bound on values produced by CHAR-CODE."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "The upper exclusive bound on the value of a Unicode codepoint"
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "This is the alist of (character-name . character) for characters with\n"
 "  long names.  The first name in this list for a given character is used\n"
 "  on typeout and is the preferred form for input."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns the integer code of CHAR."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns the integer code of CHAR.  This is the same as char-code, as\n"
 "   CMU Common Lisp does not implement character bits or fonts."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns the character with the code CODE."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Coerces its argument into a character object if possible.  Accepts\n"
 "  characters, strings and symbols of length 1."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "String is not of length one: ~S"
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Symbol name is not of length one: ~S"
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "~S cannot be coerced to a character."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Given a character object, char-name returns the name for that\n"
 "  object (a symbol)."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Given an argument acceptable to string, name-char returns a character\n"
 "  object whose name is that symbol, if one exists, otherwise NIL."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object.  Standard-char-p returns T if the\n"
 "   argument is a standard character -- one of the 95 ASCII printing characte"
@@ -5116,232 +5325,232 @@ msgid ""
 "   or <return>."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Return T if and only if THING is a standard-char.  Differs from\n"
 "  standard-char-p in that THING doesn't have to be a character."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object.  Graphic-char-p returns T if the\n"
 "  argument is a printing character, otherwise returns NIL."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object.  Alpha-char-p returns T if the\n"
 "  argument is an alphabetic character; otherwise NIL."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object; upper-case-p returns T if the\n"
 "  argument is an upper-case character, NIL otherwise."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object; lower-case-p returns T if the \n"
 "  argument is a lower-case character, NIL otherwise."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object; title-case-p returns T if the\n"
 "  argument is a title-case character, NIL otherwise."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object.  Both-case-p returns T if the\n"
 "  argument is an alphabetic character and if the character exists in\n"
 "  both upper and lower case.  For ASCII, this is the same as Alpha-char-p."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "If char is a digit in the specified radix, returns the fixnum for\n"
 "  which that digit stands, else returns NIL.  Radix defaults to 10\n"
 "  (decimal)."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Given a character-object argument, alphanumericp returns T if the\n"
 "  argument is either numeric or alphabetic."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns T if all of its arguments are the same character."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns T if no two of its arguments are the same character."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly increasing alphabetic order."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly decreasing alphabetic order."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly non-decreasing alphabetic order."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly non-increasing alphabetic order."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if all of its arguments are the same character.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if no two of its arguments are the same character.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly increasing alphabetic order.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly decreasing alphabetic order.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly non-decreasing alphabetic order.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly non-increasing alphabetic order.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns CHAR converted to upper-case if that is possible."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns CHAR converted to title-case if that is possible."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns CHAR converted to lower-case if that is possible."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "All arguments must be integers.  Returns a character object that\n"
 "  represents a digit of the given weight in the specified radix.  Returns\n"
 "  NIL if no such character exists."
 msgstr ""
 
-#: target:pcl/cmucl-documentation.lisp target:code/misc.lisp
+#: src/code/misc.lisp
 msgid ""
 "Returns the documentation string of Doc-Type for X, or NIL if\n"
 "  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
 "  SETF, and T."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "~S is not the name of a structure type."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid ""
 "If X is an atom, see if it is present in *FEATURES*.  Also\n"
 "  handle arbitrary combinations of atoms using NOT, AND, OR."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Unknown operator in feature expression: ~S."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string describing the implementation type."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string describing the implementation version."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid " Unicode"
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string giving the name of the local machine."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "The value of SOFTWARE-TYPE.  Set in FOO-os.lisp."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string describing the supporting software."
 msgstr ""
 
-#: target:code/misc.lisp
-msgid "Unknown"
+#: src/code/misc.lisp
+msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
 msgstr ""
 
-#: target:code/misc.lisp
-msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
+#: src/code/misc.lisp
+msgid "Unknown"
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string with the abbreviated site name."
 msgstr ""
 
-#: target:code/misc.lisp
-msgid "Site name not initialized"
+#: src/code/misc.lisp
+msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
 msgstr ""
 
-#: target:code/misc.lisp
-msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
+#: src/code/misc.lisp
+msgid "Site name not initialized"
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string with the long form of the site name."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid ""
 "With a file name as an argument, dribble opens the file and\n"
 "   sends a record of further I/O to that file.  Without an\n"
 "   argument, it closes the dribble file, and quits logging."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Not currently dribbling."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid ""
 "Default implementation of ed.  This does nothing.  If hemlock is\n"
 "  loaded, ed can be used to edit a file"
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "This function can be used as the default value for keyword arguments that\n"
 "  must be always be supplied.  Since it is known by the compiler to never\n"
@@ -5354,11 +5563,11 @@ msgid ""
 "  corresponding to required arguments."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "A required keyword argument was not supplied."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "FILE-COMMENT String\n"
 "  When COMPILE-FILE sees this form at top-level, it places the constant "
@@ -5370,11 +5579,11 @@ msgid ""
 "  etc."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "See listen.  Any whitespace in the input stream will be flushed."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Does what one might expect, saving the old values and setting the generalize"
 "d\n"
@@ -5384,7 +5593,7 @@ msgid ""
 "  and the once-only evaluation of subforms."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Like letf*, but evaluates all the implicit subforms and new values of all\n"
 "  the implied setfs before altering any values.  However, the store forms\n"
@@ -5392,17 +5601,17 @@ msgid ""
 "  protects to protect the environment."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Causes the output of the indenting Stream to indent More spaces.  More is\n"
 "  evaluated twice."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Just like dolist, but with one-dimensional arrays."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Iterate Name ({(Var Initial-Value)}*) Declaration* Form*\n"
 "  This is syntactic sugar for Labels.  It creates a local function Name "
@@ -5413,11 +5622,11 @@ msgid ""
 "  of the call is return from the macro."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Malformed iterate variable spec: ~S."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Collect ({(Name [Initial-Value] [Function])}*) {Form}*\n"
 "  Collect some values somehow.  Each of the collections specifies a bunch "
@@ -5451,11 +5660,11 @@ msgid ""
 "  position, including macros and lambdas."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Malformed collection specifier: ~S."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Once-Only ({(Var Value-Expression)}*) Form*\n"
 "  Create a Let* which evaluates each Value-Expression, binding a temporary\n"
@@ -5465,23 +5674,23 @@ msgid ""
 "  temporary variable."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Malformed Once-Only binding spec: ~S."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Ill-formed ~S -- possibly illegal old style DO?"
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "~S step variable is not a symbol: ~S"
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "~S is an illegal form for a ~S varlist."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
 "  Like DO, but has no implicit NIL block.  Each Var is initialized in "
@@ -5496,13 +5705,13 @@ msgid ""
 "  of the DO."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*\n"
 "   Iterate over the entries in a hash-table."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "DEFINE-HASH-CACHE Name ({(Arg-Name Test-Function)}*) {Key Value}*\n"
 "  Define a hash cache that associates some number of argument values to a\n"
@@ -5551,62 +5760,62 @@ msgid ""
 "      specified name.  Default PROGN."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Number of default values ~S differs from :VALUES ~D."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Bad arg spec: ~S."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*\n"
 "  Some syntactic sugar for defining a function whose values are cached by\n"
 "  DEFINE-HASH-CACHE."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Return an EQ hash of X.  The value of this hash for any given object can "
 "(of\n"
 "  course) change at arbitary times."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "A list of all the command line arguments after --"
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "A list of cmd-switch's representing the arguments used to invoke\n"
 "  this process."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "The string name that was used to invoke this process."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "A list of words between the utility name and the first switch."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "A list of strings obtained from the command line that invoked this process."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "An Alist of (\"argument-name\" . demon-function)"
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "When True runs lisp with its input coming from standard-input.\n"
 "   If an error is detected returns error code 1, otherwise 0."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "Accepts the name of a switch as a string and returns the value of the\n"
 "   switch.  If no value was specified, then any following words are returned"
@@ -5616,17 +5825,17 @@ msgid ""
 "   specified, then nil is returned."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "When set, invoking switch demons complains about illegal switches that have\n"
 "   not been defined with DEFSWITCH."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "~S is an illegal switch"
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "Associates function with the switch name in *command-switch-demons*.  Name\n"
 "   is a simple-string that does not begin with a hyphen, unless the switch "
@@ -5638,11 +5847,11 @@ msgid ""
 "   switches.  This can be inhibited with *complain-about-illegal-switches*."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "a symbol or function"
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Returns information about the symbol VAR in the lexical environment ENV.\n"
 "Three values are returned:\n"
@@ -5656,7 +5865,7 @@ msgid ""
 "  3) An a-list containing information about any declarations that apply."
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Returns information about declarations named by the symbol DECLARATION-NAME"
 ".\n"
@@ -5671,11 +5880,11 @@ msgid ""
 "     A list of the declaration names the have been proclaimed as valid."
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid "Unsupported declaration ~S."
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Process a macro in the same way that DEFMACRO or MACROLET would.\n"
 "Three values are returned:\n"
@@ -5684,7 +5893,7 @@ msgid ""
 "  3) An environment"
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Returns information about the function name FUNCTION in the lexical environm"
 "ent ENV.\n"
@@ -5698,7 +5907,7 @@ msgid ""
 "  3) An a-list containing information about the declarations that apply."
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Return a new environment containing information in ENV that is augmented\n"
 "by the specified parameters:\n"
@@ -5711,93 +5920,85 @@ msgid ""
 "  :DECLARE      a list of declaration specifiers"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "increments dfixnum v by dfixnum i"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "dfixnum became too big ~a + ~a"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "increments dfixnum v by i (max half fixnum)"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "not a half-fixnum: ~a"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "decrement dfixnum v by dfixnum i"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "dfixnum became negative ~a - ~a (~a/~a)"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "decrement dfixnum v by half-fixnum i"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid ""
 "increments dfixnum by an interger which may be bigger than fixnum.\n"
 "   May cons"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "returns a new dfixnum from number i"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "increments a pair of halffixnums by another pair"
 msgstr ""
 
-#: target:code/profile.lisp target:code/dfixnum.lisp
-msgid "dfixnum became too big ~a/~a + ~a/~a"
-msgstr ""
-
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "decrement dfixnum pair by another pair"
 msgstr ""
 
-#: target:code/profile.lisp target:code/dfixnum.lisp
-msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
-msgstr ""
-
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~2&Summary of spaces: ~(~{~A ~}~)~%"
 msgstr ""
 
-#: target:code/room.lisp
-msgid "~%Summary total:~%    ~:D bytes, ~:D objects.~%"
-msgstr ""
-
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~%~A:~%    ~:D bytes, ~:D object"
 msgid_plural "~%~A:~%    ~:D bytes, ~:D objects"
 msgstr[0] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
+msgid "~%Summary total:~%    ~:D bytes, ~:D objects.~%"
+msgstr ""
+
+#: src/code/room.lisp
 msgid "~2&Breakdown for ~(~A~) space:~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~13:D bytes for ~9:D other object.~%"
 msgid_plural "  ~13:D bytes for ~9:D other objects.~%"
 msgstr[0] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~13:D bytes for ~9:D ~(~A~) object.~%"
 msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects.~%"
 msgstr[0] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~13:D bytes for ~9:D ~(~A~) object (space total.)~%"
 msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects (space total.)~%"
 msgstr[0] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid ""
 "Print out information about the heap memory in use.  :Print-Spaces is a "
 "list\n"
@@ -5813,27 +6014,27 @@ msgid ""
 "  be combined as OTHER."
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "Print info about how much code and no-ops there are in Space."
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "Bogus type: ~D"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~:D words allocated for descriptor objects.~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~:D bytes data/~:D words header for non-descriptor objects.~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/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 "
@@ -5841,112 +6042,112 @@ msgid ""
 "  largest usage."
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~32A: ~7:D bytes, ~5D object.~%"
 msgid_plural "  ~32A: ~7:D bytes, ~5D objects.~%"
 msgstr[0] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  Other types: ~:D bytes, ~D: object~:P.~%"
 msgid_plural "  Other types: ~:D bytes, ~D: object~:P.~%"
 msgstr[0] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~:(~A~) instance total: ~:D bytes, ~:D object.~%"
 msgid_plural "  ~:(~A~) instance total: ~:D bytes, ~:D objects.~%"
 msgstr[0] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "In ~A space:~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~D bytes at #x~X~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "No source for ~S"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~%Package ~A: ~32T~9:D bytes, ~9:D object.~%"
 msgid_plural "~%Package ~A: ~32T~9:D bytes, ~9:D objects.~%"
 msgstr[0] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~30@A: ~9:D bytes, ~9:D object.~%"
 msgid_plural "~30@A: ~9:D bytes, ~9:D objects.~%"
 msgstr[0] ""
 
-#: target:code/room.lisp
+#: src/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
+#: src/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
+#: src/code/room.lisp
 msgid "~8:D: Other~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~8:D: Total~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/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
+#: src/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
+#: src/code/gc.lisp
 msgid "Oh no.  The current dynamic space is missing!"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Dynamic Space Usage:    ~13:D bytes (out of ~4:D MB).~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Read-Only Space Usage:  ~13:D bytes (out of ~4:D MB).~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Static Space Usage:     ~13:D bytes (out of ~4:D MB).~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Control Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Binding Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "The current dynamic space is ~D.~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Garbage collection is currently ~:[enabled~;DISABLED~].~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Prints to *STANDARD-OUTPUT* information about the state of internal\n"
 "  storage and its management.  The optional argument controls the\n"
@@ -5957,47 +6158,47 @@ msgid ""
 "  VM:INSTANCE-USAGE for finer report control."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "No way man!  The optional argument to ROOM must be T, NIL, ~\n"
 "		 or :DEFAULT.~%What do you think you are doing?"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "resetting GC counters"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Returns the number of bytes consed since the first time this function\n"
 "  was called.  The first time it is called, it returns zero."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "This number specifies the minimum number of bytes of dynamic space\n"
 "   that must be consed before the next gc will occur."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "The total CPU time spend doing garbage collection (as reported by\n"
 "   GET-INTERNAL-RUN-TIME.)"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "A list of functions that are called before garbage collection occurs.\n"
 "  The functions should take no arguments."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "A list of functions that are called after garbage collection occurs.\n"
 "  The functions should take no arguments."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Should be bound to a function or NIL.  If it is a function, this\n"
 "  function should take one argument, the current amount of dynamic\n"
@@ -6005,7 +6206,7 @@ msgid ""
 "  continue and non-NIL if it should be inhibited.  Use with caution."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "When non-NIL, causes the functions bound to *GC-NOTIFY-BEFORE* and\n"
 "  *GC-NOTIFY-AFTER* to be called before and after a garbage collection\n"
@@ -6014,28 +6215,28 @@ msgid ""
 "  annoyingly."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "~&; [GC threshold exceeded with ~:D bytes in use.  ~\n"
 "             Commencing GC.]~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "This function bound to this variable is invoked before GC'ing (unless\n"
 "  *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in\n"
 "  bytes).  It should notify the user that the system is going to GC."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "~&; [GC completed with ~:D bytes retained and ~:D bytes freed.]~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "~&; [GC will next occur when at least ~:D bytes are in use.]~%"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "The function bound to this variable is invoked after GC'ing (unless\n"
 "  *GC-VERBOSE* is NIL) with the amount of dynamic usage (in bytes) now\n"
@@ -6044,32 +6245,24 @@ msgid ""
 "  finished GC'ing."
 msgstr ""
 
-#: target:code/gc.lisp
-msgid "Attempt to set GC trigger to something bogus: ~S"
-msgstr ""
-
-#: target:code/gc.lisp
-msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A"
-msgstr ""
-
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~\n"
 "	       integer.  Resetting it to ~D."
 msgstr ""
 
-#: target:code/gc.lisp
-msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+#: src/code/gc.lisp
+msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Initiates a garbage collection.  The optional argument, VERBOSE-P,\n"
 "  which defaults to the value of the variable *GC-VERBOSE* controls\n"
 "  whether or not GC statistics are printed."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Initiates a garbage collection.  The keyword :VERBOSE, which\n"
 "   defaults to the value of the variable *GC-VERBOSE* controls whether or\n"
@@ -6077,21 +6270,21 @@ msgid ""
 "   controls the number of generations to garbage collect."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Return the amount of memory that will be allocated before the next garbage\n"
 "   collection is initiated.  This can be set with SETF."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Enables the garbage collector."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Disables the garbage collector."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Return some GC statistics for the specified GENERATION.  The\n"
 "  statistics are the number of bytes allocated in this generation; the\n"
@@ -6101,7 +6294,7 @@ msgid ""
 "  generation.  See the gencgc source code for more info."
 msgstr ""
 
-#: target:code/purify.lisp
+#: src/code/purify.lisp
 msgid ""
 "This function optimizes garbage collection by moving all currently live\n"
 "   objects into non-collected storage.  ROOT-STRUCTURES is an optional list "
@@ -6120,19 +6313,19 @@ msgid ""
 "   supplied, then environment compaction is inhibited."
 msgstr ""
 
-#: target:code/purify.lisp
+#: src/code/purify.lisp
 msgid "[Doing purification: "
 msgstr ""
 
-#: target:code/purify.lisp
+#: src/code/purify.lisp
 msgid "Done.]"
 msgstr ""
 
-#: target:code/scavhook.lisp
+#: src/code/scavhook.lisp
 msgid "Returns T if OBJECT is a scavenger-hook, and NIL if not."
 msgstr ""
 
-#: target:code/scavhook.lisp
+#: src/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"
@@ -6140,17 +6333,17 @@ msgid ""
 "   to be funcalled."
 msgstr ""
 
-#: target:code/scavhook.lisp
+#: src/code/scavhook.lisp
 msgid "Returns the VALUE being monitored by SCAVHOOK.  Can be setf."
 msgstr ""
 
-#: target:code/scavhook.lisp
+#: src/code/scavhook.lisp
 msgid ""
 "Returns the FUNCTION invoked when the monitored value is moved.  Can be\n"
 "   setf."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "This is a list of functions which are called before creating a saved core\n"
 "  image.  These functions are executed in the child process which has no "
@@ -6158,7 +6351,7 @@ msgid ""
 "  so they cannot do anything that tries to talk to the outside world."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "This is a list of functions which are called when a saved core image starts\n"
 "  up.  The system itself should be initialized at this point, but applicatio"
@@ -6166,20 +6359,20 @@ msgid ""
 "  might not be."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "An alist mapping environment variables (as keywords) to either values"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Non-NIL if environment-init has been called"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "This is true if and only if the lisp was started with the -edit switch."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "Saves a CMU Common Lisp core image in the file of the specified name.  The\n"
 "  following keywords are defined:\n"
@@ -6235,19 +6428,19 @@ msgid ""
 "  will always be in batch-mode, regardless of any command-line switches."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Directory ~S does not exist"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Skip remaining initializations."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Error in batch processing:~%~A~%"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "Determines what PRINT-HERALD prints (the system startup banner.)  This is a\n"
 "   database which can be augmented by each loaded system.  The format is a\n"
@@ -6262,156 +6455,156 @@ msgid ""
 "   functions are called with an output stream argument."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ", running on "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "With core: "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Dumped on: "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid " on "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "See <http://www.cons.org/cmucl/> for support information."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Loaded subsystems:"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "    Unicode "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "with Unicode version "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "Print some descriptive information about the Lisp system version and\n"
 "   configuration."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Unrecognized *HERALD-ITEMS* entry: ~S."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Change *PACKAGE* to the USER package and try again."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Terminal I/O stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Default input stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Default output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Error output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Query I/O stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Trace output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Interactive debugging stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not an input stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not an output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not a character input stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not a character output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not a binary input stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "~S is not a binary input stream ~\n"
 "                          or does not support multi-byte read operations."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not a binary output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is closed."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is an unsupported Gray stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp target:code/stream.lisp
+#: src/pcl/gray-streams.lisp src/code/stream.lisp
 msgid "Returns non-nil if the given Stream can perform input operations."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp target:code/stream.lisp
+#: src/pcl/gray-streams.lisp src/code/stream.lisp
 msgid "Returns non-nil if the given Stream can perform output operations."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Return true if Stream is not closed."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a type specifier for the kind of object returned by the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Return true if Stream does I/O on a terminal or other interactive device."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Can't set interactive flag on ~S."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Returns the external format used by the given Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Closes the given Stream.  No more I/O may be performed, but inquiries\n"
 "  may still be made.  If :Abort is non-nil, an attempt is made to clean\n"
 "  up the side effects of having created the stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "With one argument returns the current position within the file\n"
 "   File-Stream is open to.  If the second argument is supplied, then\n"
@@ -6419,60 +6612,60 @@ msgid ""
 "   be :start or :end for the start and end of the file, respectively."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "This function returns the length of the file that File-Stream is open to."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a line of text read from the Stream as a string, discarding the\n"
 "  newline character."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Inputs a character from Stream and returns it."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Puts the Character back on the front of the input Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Nothing to unread."
 msgstr ""
 
-#: target:code/stream.lisp
-msgid "Impossible case reached in PEEK-CHAR"
-msgstr ""
-
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Peeks at the next character in the input Stream.  See manual for details."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>"
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
+msgid "Impossible case reached in PEEK-CHAR"
+msgstr ""
+
+#: src/code/stream.lisp
 msgid "Returns T if a character is available on the given Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns the next character from the Stream if one is available, or nil."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Clears any buffered input associated with the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Returns the next byte of the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Reads Numbytes bytes into the Buffer starting at Start, returning the "
 "number\n"
@@ -6486,126 +6679,126 @@ msgid ""
 "      read is less than Count and eof has not been hit."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Outputs the Character to the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Outputs a new line to the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Outputs a new line to the Stream if it is not positioned at the beginning "
 "of\n"
 "   a line.  Returns T if it output a new line, nil otherwise."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Outputs the String to the given Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Outputs the String to the given Stream, followed by a newline character."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns the number of characters on the current line of output of the given\n"
 "  Stream, or Nil if that information is not availible."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns the number of characters that will fit on a line of output on the\n"
 "  given Stream, or Nil if that information is not available."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Attempts to ensure that all output sent to the Stream has reached its\n"
 "   destination, and only then returns."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Attempts to force any buffered output to be sent."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Clears the given output Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Outputs the Integer to the binary Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns an output stream which sends its output to all of the given\n"
 "streams."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a stream which performs its operations on the stream which is the\n"
 "   value of the dynamic variable named by Symbol."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a bidirectional stream which gets its input from Input-Stream and\n"
 "   sends its output to Output-Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a stream which takes its input from each of the Streams in turn,\n"
 "   going on to the next at EOF."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns an echo stream that takes input from Input-stream and sends\n"
 "output to Output-stream"
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a bidirectional stream which gets its input from Input-Stream and\n"
 "   sends its output to Output-Stream.  In addition, all input is echoed to\n"
 "   the output stream"
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns an input stream which will supply the characters of String between\n"
 "  Start and End in order."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns an Output stream which will accumulate all output given to it for\n"
 "   the benefit of the function Get-Output-Stream-String."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a string of all the characters sent to a stream made by\n"
 "   Make-String-Output-Stream since the last call to this function."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Dumps the characters buffer up in the In-Stream to the Out-Stream as\n"
 "  Get-Output-Stream-String would return them."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Returns an output stream which indents its output by some amount."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a stream that sends all output to the stream TARGET, but modifies\n"
 "   the case of letters, depending on KIND, which should be one of:\n"
@@ -6618,7 +6811,7 @@ msgid ""
 "        case and everything else to lower case."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "This takes a stream and waits for text or a command to appear on it.  If\n"
 "   text appears before a command, this returns nil, and otherwise it "
@@ -6626,7 +6819,7 @@ msgid ""
 "   a command."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Destructively modify SEQ by reading elements from STREAM.\n"
 "\n"
@@ -6649,23 +6842,19 @@ msgid ""
 "	    less than END because the end of file was reached."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "The stream is not open."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "The stream is not open for input."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Trying to read characters from a binary stream."
 msgstr ""
 
-#: target:code/stream.lisp
-msgid "Trying to read binary data from a text stream."
-msgstr ""
-
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Writes the elements of the Seq bounded by Start and End to Stream.\n"
 "\n"
@@ -6681,82 +6870,82 @@ msgid ""
 ""
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "The stream is not open for output."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Trying to output an element of unproper type to a stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Trying to output a string to a binary stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Trying to output binary data to a text stream."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "If true, all objects will printed readably.  If readably printing is\n"
 "  impossible, an error will be signalled.  This overrides the value of\n"
 "  *PRINT-ESCAPE*."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Flag which indicates that slashification is on.  See the manual"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Flag which indicates that pretty printing is to be used"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "The output base for integers and rationals."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "This flag requests to verify base when printing rationals."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "How many levels deep to print.  Unlimited if null."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "How many elements to print on each level.  Unlimited if null."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Whether to worry about circular list structures. See the manual."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "What kind of case the printer should use by default"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Whether the array should print it's guts out"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "If true, symbols with no home package are printed with a #: prefix.\n"
 "  If false, no prefix is printed."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "The maximum number of lines to print.  If NIL, unlimited."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "The position of the right margin in ems.  If NIL, try to determine this\n"
 "   from the stream in use."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "If the remaining space between the current column and the right margin\n"
 "   is less than this, then print using ``miser-style'' output.  Miser\n"
@@ -6764,13 +6953,13 @@ msgid ""
 "   turned off.  If NIL, never use miser mode."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "The pprint-dispatch-table that controls how to pretty print objects.  See\n"
 "   COPY-PPRINT-DISPATH, PPRINT-DISPATCH, and SET-PPRINT-DISPATCH."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Bind the reader and printer control variables to values that enable READ\n"
 "   to reliably read the results of PRINT.  These values are:\n"
@@ -6785,6 +6974,7 @@ msgid ""
 "       *PRINT-LEVEL*			NIL\n"
 "       *PRINT-LINES*			NIL\n"
 "       *PRINT-MISER-WIDTH*		NIL\n"
+"       *PRINT-PPRINT-DISPATCH*          The standard pprint dispatch table\n"
 "       *PRINT-PRETTY*			NIL\n"
 "       *PRINT-RADIX*			NIL\n"
 "       *PRINT-READABLY*			T\n"
@@ -6796,64 +6986,62 @@ msgid ""
 "       *READTABLE*			the standard readtable."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Outputs OBJECT to the specified stream, defaulting to *standard-output*"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Outputs a mostly READable printed representation of OBJECT on the specified\n"
 "  stream."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Outputs an asthetic but not READable printed representation of OBJECT on "
 "the\n"
 "  specified stream."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Outputs a terpri, the mostly READable printed represenation of OBJECT, and \n"
 "  space to the stream."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Prettily outputs the Object preceded by a newline."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Returns the printed representation of OBJECT as a string."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Returns the printed representation of OBJECT as a string with \n"
 "   slashification on."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Returns the printed representation of OBJECT as a string with\n"
-"  slashification off."
+"  slashification off and readability off."
 msgstr ""
 
-#: target:compiler/byte-comp.lisp target:compiler/dyncount.lisp
-#: target:compiler/knownfun.lisp target:compiler/new-assem.lisp
-#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
-#: target:compiler/node.lisp target:compiler/sset.lisp
-#: target:compiler/backend.lisp target:compiler/macros.lisp
-#: target:code/print.lisp
+#: src/compiler/byte-comp.lisp src/compiler/dyncount.lisp
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/meta-vmdef.lisp src/compiler/vop.lisp src/compiler/node.lisp
+#: src/compiler/sset.lisp src/compiler/backend.lisp src/code/print.lisp
 msgid "~S cannot be printed readably."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Determines whether or not the character is considered whitespace."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Check to see if OBJECT is a circular reference, and return something "
 "non-NIL\n"
@@ -6866,49 +7054,49 @@ msgid ""
 "   non-NIL when ASSIGN is T, then you must call HANDLE-CIRCULARITY on it."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Handle the results of CHECK-FOR-CIRCULARITY.  If this returns T then\n"
 "   you should go ahead and print the object.  If it returns NIL, then\n"
 "   you should blow it off."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Attempt to use CHECK-FOR-CIRCULARITY when circularity ~\n"
 "	       checking has not been initiated."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "The current level we are printing at, to be compared against *PRINT-LEVEL*.\n"
 "   See the macro DESCEND-INTO for a handy interface to depth abbreviation."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Automatically handle *print-level* abbreviation.  If we are too deep, then\n"
 "   a # is printed to STREAM and BODY is ignored."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*\n"
 "   is NIL) by outputting \"...\" and returning from the block named NIL."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "The current pretty printer.  Should be either a function that takes two\n"
 "   arguments (the object and the stream) or NIL to indicate that there is\n"
 "   no pretty printer installed."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Output OBJECT to STREAM observing all printer control variables."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Output OBJECT to STREAM observing all printer control variables except\n"
 "   for *PRINT-PRETTY*.  Note: if *PRINT-PRETTY* is non-NIL, then the pretty\n"
@@ -6916,166 +7104,166 @@ msgid ""
 "   itself."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Invalid *PRINT-CASE* value: ~S"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Invalid READTABLE-CASE value: ~S"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Outputs the printed representation of any array in either the #< or #A\n"
 "   form."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Obsolete Instance"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unprintable Instance"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "~A is not a reasonable value for *Print-Base*."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Compute a list of pairs (2^i . r^{2^i}), stopping with the largest r^{2^i}\n"
 "greater than n."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
+msgid "overflow in digit-to-char"
+msgstr ""
+
+#: src/code/print.lisp
 msgid ""
 "Convert digit into a character representation.  We use 0..9, a..z for\n"
 "10..35, and A..Z for 36..52."
 msgstr ""
 
-#: target:code/print.lisp
-msgid "overflow in digit-to-char"
-msgstr ""
-
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Print a fixnum N to stream S, maybe with leading zeros.  This isn't\n"
 "ever-so efficient, but we probably don't need to care."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Use the power list (see power-list) PL to split N roughly in half; then\n"
 "print the left and right halves using (cdr PL).  Make sure we count the\n"
 "leading zeroes correctly."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Primary fast bignum-printing interface.  Prints integer N to stream S in\n"
 "radix-R.  If you have a power-list then pass it in as PL."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Minimum power of 10 that allows the float printer to use free format,\n"
 "   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
 "   in the ANSI CL standard."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Maximum power of 10 that allows the float printer to use free format,\n"
 "   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
 "   in the ANSI CL standard."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Convert a DD number to a lisp rational"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Print out a double-double to a string"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Weak Pointer: "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Broken Weak Pointer"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Bogus Code Object"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Code Object"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Return PC Object"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "FDEFINITION object for "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Function "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Interpreted Function ~S"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Byte Compiled Function"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Byte Compiled Closure"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Closure Over "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unknown Function"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Value Cell "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unknown Pointer Object, type="
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unbound Marker"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unknown Immediate Object, lowtag="
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ", type="
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Continue anyway"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Cannot find ~S, so unicode support is not available"
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Insert an annotation into the pretty-printing stream STREAM.\n"
 "HANDLER is a function, and RECORD is an arbitrary datum.  The\n"
@@ -7091,18 +7279,18 @@ msgid ""
 "with the arguments RECORD, STREAM and nil."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "Insert ANNOTATION into the queue of annotations in STREAM."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Insert all annotations in STREAM from the queue of pending\n"
 "operations into the queue of annotations.  When END is non-nil, \n"
 "stop before reaching the queued-op END."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Dequeue the next annotation from the queue of annotations of STREAM\n"
 "and return it.  Return nil if there are no more annotations.  When\n"
@@ -7110,22 +7298,22 @@ msgid ""
 "this, also return nil."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output the buffer of STREAM up to (excluding) the buffer index END.\n"
 "When annotations are present, invoke them at the right positions."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Invoke all annotations in STREAM up to (including) the buffer index END."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "Output-partial-line called when nothing can be output."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Group some output into a logical block.  STREAM-SYMBOL should be either a\n"
 "   stream, T (for *TERMINAL-IO*), or NIL (for *STANDARD-OUTPUT*).  The "
@@ -7133,11 +7321,11 @@ msgid ""
 "   control variable *PRINT-LEVEL* is automatically handled."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "Cannot specify both a prefix and a per-line-prefix."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Cause the closest enclosing use of PPRINT-LOGICAL-BLOCK to return\n"
 "   if it's list argument is exhausted.  Can only be used inside\n"
@@ -7145,13 +7333,13 @@ msgid ""
 "   PPRINT-LOGICAL-BLOCK is supplied."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "PPRINT-EXIT-IF-LIST-EXHAUSTED must be lexically inside ~\n"
 "	  PPRINT-LOGICAL-BLOCK."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Return the next element from LIST argument to the closest enclosing\n"
 "   use of PPRINT-LOGICAL-BLOCK, automatically handling *PRINT-LENGTH*\n"
@@ -7160,11 +7348,11 @@ msgid ""
 "   is poped, but the *PRINT-LENGTH* testing still happens."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "PPRINT-POP must be lexically inside PPRINT-LOGICAL-BLOCK."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output a conditional newline to STREAM (which defaults to\n"
 "   *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do\n"
@@ -7186,7 +7374,7 @@ msgid ""
 "   next line.  (See PPRINT-INDENT.)"
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Specify the indentation to use in the current logical block if STREAM\n"
 "   (which defaults to *STANDARD-OUTPUT*) is a pretty-printing stream\n"
@@ -7199,7 +7387,7 @@ msgid ""
 "   break.  The indention value is silently truncated to an integer."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "If STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing\n"
 "   stream, perform tabbing based on KIND, otherwise do nothing.  KIND can\n"
@@ -7215,7 +7403,7 @@ msgid ""
 "       of the current section, not the start of the line."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output LIST to STREAM putting :FILL conditional newlines between each\n"
 "   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
@@ -7223,7 +7411,7 @@ msgid ""
 "   can be used with the ~/.../ format directive."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output LIST to STREAM putting :LINEAR conditional newlines between each\n"
 "   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
@@ -7232,7 +7420,7 @@ msgid ""
 "   can be used with the ~/.../ format directive."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output LIST to STREAM tabbing to the next column that is an even multiple\n"
 "   of TABSIZE (which defaults to 16) between each element.  :FILL style\n"
@@ -7242,44 +7430,44 @@ msgid ""
 "   the ~/.../ format directive."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "CONS PPRINT dispatch ignored w/o compiler loaded:~%  ~S"
 msgstr ""
 
-#: target:pcl/env.lisp target:pcl/methods.lisp target:pcl/std-class.lisp
-#: target:pcl/defclass.lisp target:code/format.lisp
-#: target:code/pprint-loop.lisp target:code/pprint.lisp
+#: src/pcl/env.lisp src/pcl/methods.lisp src/pcl/std-class.lisp
+#: src/pcl/defclass.lisp src/code/format.lisp src/code/pprint-loop.lisp
+#: src/code/pprint.lisp
 msgid "No more arguments."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "~:[~;Error in format: ~]~\n"
 "	      ~?~@[~%  ~A~%  ~V@T^~]"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "A justification directive cannot be in the same format string~%~\n"
 "                         as ~~W, ~~I, ~~:T, or a logical-block directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "String ended before directive was found."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many colons supplied."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many at-signs supplied."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No matching closing slash."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "Provides various facilities for formatting output.\n"
 "  CONTROL-STRING contains a string to be output, possibly with embedded\n"
@@ -7307,263 +7495,244 @@ msgid ""
 "  details."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Unknown format directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Unknown directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many parameters, expected no more than ~D"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many parameters, expected no more than 0"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Table of ordinal ones-place digits in English"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Table of ordinal tens-place digits in English"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Number too large to print in old Roman numerals: ~:D"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Number too large to print in Roman numerals: ~:D"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No previous argument."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify the colon modifier with this directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify either colon or atsign for this directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify both colon and atsign for this directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify the at-sign modifier."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify both colon and at-sign."
 msgstr ""
 
-#: target:code/format.lisp
-msgid "Index ~D out of bounds.  Should have been ~\n"
-"				    between 0 and ~D."
-msgstr ""
-
-#: target:code/format.lisp
-msgid "Index ~D out of bounds.  Should have been ~\n"
-"				between 0 and ~D."
-msgstr ""
-
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Index ~D out of bounds.  Should have been ~\n"
 "				   between 0 and ~D."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "Index ~D out of bounds.  Should have been ~\n"
 "			       between 0 and ~D."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify the colon modifier."
 msgstr ""
 
-#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp
-#: target:pcl/low.lisp target:code/format.lisp
+#: src/pcl/seal.lisp src/pcl/method-slot-access-optimization.lisp
+#: src/pcl/low.lisp src/code/format.lisp
 msgid "~A~%while processing indirect format string:"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding close paren."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding open paren."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding close bracket."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify both the colon and at-sign modifiers."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Can only specify one section"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Must specify exactly two sections."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "~~; not contained within either ~~[...~~] or ~~<...~~>."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding open bracket."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding close brace."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding open brace."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "~D illegal directive found inside justification block"
 msgid_plural "~D illegal directives found inside justification block"
 msgstr[0] ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No parameters can be supplied with ~~<...~~:>."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "Cannot include format directives inside the ~\n"
 "			       ~:[suffix~;prefix~] segment of ~~<...~~:>"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many segments for ~~<...~~:>."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Malformed ~~/ directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No package named ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "The list of packages to use by default of no :USE argument is supplied\n"
 "   to MAKE-PACKAGE or other package creation forms."
 msgstr ""
 
-#: target:code/package.lisp
-msgid ""
-"Standard structure for the description of a package.  Consists of \n"
-"   a list of all hash tables, the name of the package, the nicknames of\n"
-"   the package, the use-list for the package, the used-by- list, hash-\n"
-"   tables for the internal and external symbols, and a list of the\n"
-"   shadowing symbols."
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The ~A package, ~D/~D internal, ~D/~D external"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The ~A package"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "deleted package"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The current package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~&~@<Attempt to modify the locked package ~A, by ~3i~:_~?~:>"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "redefining function ~A"
 msgstr ""
 
-#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+#: src/code/macros.lisp src/code/defstruct.lisp src/code/package.lisp
 msgid "Ignore the lock and continue"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Disable package's definition-lock, then continue"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Disable all package locks, then continue"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Bogus ~A name: ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Can't do anything to a deleted package: ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Given PACKAGE-SPECIFIER, a package, symbol or string, return the\n"
 "  parent package.  If there is not a parent, signal an error."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The parent of ~a does not exist."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "There is no parent of ~a."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Given PACKAGE-SPECIFIER, a package, symbol or string, return all the\n"
 "  packages which are in the hierarchy 'under' the given package.  If\n"
 "  :recurse is nil, then only return the immediate children of the package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Find the package having the specified name."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Make this package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "#<Package-Hashtable: Size = ~D, Free = ~D, Deleted = ~D>"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*\n"
 "   Executes the FORMs at least once for each symbol accessible in the given\n"
 "   PACKAGE with VAR bound to the current symbol."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*\n"
 "   Executes the FORMs once for each external symbol in the given PACKAGE "
@@ -7571,14 +7740,14 @@ msgid ""
 "   VAR bound to the current symbol."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*\n"
 "   Executes the FORMs once for each symbol in every package with VAR bound\n"
 "   to the current symbol."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Within the lexical scope of the body forms, MNAME is defined via macrolet\n"
 "   such that successive invocations of (mname) will return the symbols,\n"
@@ -7586,23 +7755,19 @@ msgid ""
 "   any of :inherited :external :internal."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "~@<~S does not name a package ~:>"
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Must supply at least one of :internal, ~\n"
 "	                             :external, or :inherited."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "~S is not one of :internal, :external, ~\n"
 "		                       or :inherited."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Defines a new package called PACKAGE.  Each of OPTIONS should be one of the\n"
 "   following:\n"
@@ -7618,65 +7783,65 @@ msgid ""
 "   All options except :SIZE and :DOCUMENTATION can be used multiple times."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Bogus DEFPACKAGE option: ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Can't specify :SIZE twice."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Bogus :SIZE, must be a positive integer: ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Can't specify :DOCUMENTATION twice."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Parameters ~S and ~S must be disjoint ~\n"
 "	                             but have common elements ~%   ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A is a nick-name for the package ~A"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A also shadows the following symbols:~%  ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A previously used the following packages:~%  ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A also exports the following symbols:~%  ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A does not contain a symbol ~A"
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Ignore this nickname."
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is a package name, so it cannot be a nickname for ~S."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Redefine this nickname."
+#: src/code/package.lisp
+msgid "Ignore this nickname."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is already a nickname for ~S."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
+msgid "Redefine this nickname."
+msgstr ""
+
+#: src/code/package.lisp
 msgid ""
 "Makes a new package having the specified Name and Nicknames.  The\n"
 "  package will inherit all external symbols from each package in\n"
@@ -7685,15 +7850,15 @@ msgid ""
 "  will ultimately be present in the package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Leave existing package alone."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "A package named ~S already exists"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Sets *PACKAGE* to package with given NAME, creating the package if\n"
 "   it does not exist.  If the package already exists then it is modified\n"
@@ -7703,47 +7868,47 @@ msgid ""
 "   list."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Old-style IN-PACKAGE."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The package named ~S doesn't exist."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Changes the name and nicknames for a package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "A package named ~S already exists."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Delete the PACKAGE-OR-NAME from the package system data structures."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Return NIL"
+#: src/code/package.lisp
+msgid "No package of name ~S."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "No package of name ~S."
+#: src/code/package.lisp
+msgid "Return NIL"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Remove dependency in other packages."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Returns a list of all existing packages."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Returns a symbol having the specified name, creating it if necessary."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Returns the symbol NAME in PACKAGE.  If such a symbol is found\n"
 "  then the second value is :internal, :external or :inherited to indicate\n"
@@ -7751,116 +7916,112 @@ msgid ""
 "  are NIL."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "interning symbol ~A"
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Makes SYMBOL no longer present in PACKAGE.  If SYMBOL was present\n"
 "  then T is returned, otherwise NIL.  If PACKAGE is SYMBOL's home\n"
 "  package, then it is made uninterned."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "uninterning symbol ~A"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Disable package's lock then continue"
 msgstr ""
 
-#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+#: src/code/macros.lisp src/code/defstruct.lisp src/code/package.lisp
 msgid "Unlock all packages, then continue"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "prompt for a symbol to shadowing-import."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Uninterning symbol ~S causes name conflict among these symbols:~%~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Symbol to shadowing-import: "
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is not a symbol."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is not one of the conflicting symbols."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is neither a symbol nor a list of symbols."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Exports SYMBOLS from PACKAGE, checking that no name conflicts result."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Exporting these symbols from the ~A package:~%~S~%~\n"
 "	      results in name conflicts with these packages:~%~{~A ~}"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Unintern conflicting symbols."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Skip exporting conflicting symbols."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Import these symbols into the ~A package."
+#: src/code/package.lisp
+msgid "These symbols are not accessible in the ~A package:~%~S"
 msgstr ""
 
-#: target:code/package.lisp
-msgid "These symbols are not accessible in the ~A package:~%~S"
+#: src/code/package.lisp
+msgid "Import these symbols into the ~A package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Makes SYMBOLS no longer exported from PACKAGE."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "unexporting symbols ~A"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is not accessible in the ~A package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Make SYMBOLS accessible as internal symbols in PACKAGE.  If a symbol\n"
 "  is already accessible then it has no effect.  If a name conflict\n"
 "  would result from the importation, then a correctable error is signalled."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Import these symbols with Shadowing-Import."
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Importing these symbols into the ~A package ~\n"
 "		causes a name conflict:~%~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
+msgid "Import these symbols with Shadowing-Import."
+msgstr ""
+
+#: src/code/package.lisp
 msgid ""
 "Import SYMBOLS into PACKAGE, disregarding any name conflict.  If\n"
 "  a symbol of the same name is present, then it is uninterned.\n"
 "  The symbols are added to the Package-Shadowing-Symbols."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Make an internal symbol in PACKAGE with the same name as each of the\n"
 "  specified SYMBOLS, adding the new symbols to the Package-Shadowing-Symbols"
@@ -7870,74 +8031,74 @@ msgid ""
 "  not already present."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Add all the PACKAGES-TO-USE to the use list for PACKAGE so that\n"
 "  the external symbols of the used packages are accessible as internal\n"
 "  symbols in PACKAGE."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Unintern the conflicting symbols in the ~2*~A package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Use'ing package ~A results in name conflicts for these symbols:~%~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Remove PACKAGES-TO-UNUSE from the use list for PACKAGE."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Return a list of all symbols in the system having the specified name."
 msgstr ""
 
-#: target:code/describe.lisp target:code/package.lisp
+#: src/code/describe.lisp src/code/package.lisp
 msgid "special variable"
 msgstr ""
 
-#: target:code/describe.lisp target:code/package.lisp
+#: src/code/describe.lisp src/code/package.lisp
 msgid "constant"
 msgstr ""
 
-#: target:code/describe.lisp target:code/package.lisp
+#: src/code/describe.lisp src/code/package.lisp
 msgid "undefined variable"
 msgstr ""
 
-#: target:code/describe.lisp target:code/package.lisp
+#: src/code/describe.lisp src/code/package.lisp
 msgid "symbol macro"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "alien variable"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "value: "
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "macro"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "special operator"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "function"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "class"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "type"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Call FUN with each symbol that contains STRING.\n"
 "  If PACKAGE is supplied then only use symbols present in\n"
@@ -7945,7 +8106,7 @@ msgid ""
 "  symbols exported from the specified package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Briefly describe all symbols which contain the specified STRING.\n"
 "  If PACKAGE is supplied then only describe symbols present in\n"
@@ -7953,60 +8114,54 @@ msgid ""
 "  external symbols in the specified package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Identical to APROPOS, except that it returns a list of the symbols\n"
 "  found instead of describing them."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Float format for 1.0E1"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Variable bound to current readtable."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Reader error ~@[at ~D ~]on ~S:~%~?"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Unexpected EOF on ~S ~A."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/code/reader.lisp
 msgid "Value of *package* at the start of the last read or Nil."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Undefined read-macro character ~S"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "A copy is made of from-readtable and place into to-readtable."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/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"
@@ -8015,156 +8170,156 @@ msgid ""
 "   returns T."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/code/reader.lisp
 msgid "Bind *read-buffer* to a fresh buffer and execute Body."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid ""
 "If true, only warn when there is an extra close paren, otherwise error."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/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
+#: src/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
+#: src/code/reader.lisp
 msgid "Nothing appears before . in list."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Nothing appears after . in list."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "More than one object follows . in list."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Ignoring unmatched close parenthesis~\n"
 "		  ~@[ at file position ~D~]."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Unmatched close parenthesis."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "after escape character"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "inside extended token"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "invalid constituent"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Suppresses most interpreting of the reader when T"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/code/reader.lisp
 msgid "impossible!"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "dot context error"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "too many dots"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "too many colons in ~S"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "after reading a colon"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "package ~S not found"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Use symbol anyway."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "The symbol ~S is not external in the ~A package."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Symbol ~S not found in the ~A package."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
+msgid "This function is just an fsm that recognizes numbers and symbols."
+msgstr ""
+
+#: src/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
+#: src/code/reader.lisp
+msgid "after escape"
+msgstr ""
+
+#: src/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
+#: src/code/reader.lisp
 msgid ""
 "Holds the mapping of base to 'safe' number of digits to read for a fixnum."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Holds the largest fixnum power of the base for make-integer."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/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"
@@ -8173,27 +8328,27 @@ msgid ""
 "the end of the stream."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Internal error in floating point reader."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Underflow"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Floating-point number not representable"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Invalid ratio: ~S/~S"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "No dispatch function defined for ~S."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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"
@@ -8201,47 +8356,55 @@ msgid ""
 "   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
+#: src/code/reader.lisp
 msgid "Dispatch Sub-Char must not be a decimal digit: ~S"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "~S is not a dispatch character."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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 ""
+
+#: src/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
+#: src/code/reader.lisp
 msgid "inside dispatch character"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "No dispatch table for dispatch char."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "A resource of string streams for Read-From-String."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/code/reader.lisp
+msgid "There are no digits in this string: ~S"
+msgstr ""
+
+#: src/code/reader.lisp
+msgid "There's junk in this string: ~S."
+msgstr ""
+
+#: src/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"
@@ -8249,148 +8412,140 @@ msgid ""
 "  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/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Numeric argument ignored in #~D~A."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Unrecognized character name: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Ill-formed vector: #~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Vector longer than specified length: #~S~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Escape character appeared after #*"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "You have to give a little bit for non-zero #* bit-vectors."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Illegal element given for bit-vector: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Bit vector is longer than specified length #~A*~A"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Symbol following #: contains a package marker: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "If false, then the #. read macro is disabled."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Attempt to read #. while *READ-EVAL* is bound to NIL."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Radix missing in #R."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Illegal radix for #R: ~D."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "#~A (base ~D) value is not a rational: ~S."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "#~DA axis ~D is empty, but axis ~\n"
 "				          ~D is non-empty."
 msgstr ""
 
-#: target:code/sharpm.lisp
-msgid "Non-list following #S"
-msgstr ""
-
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Non-list following #S: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Structure type is not a symbol: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "~S is not a defined structure type."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "The ~S structure does not have a default constructor."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
+msgid "Non-list following #S"
+msgstr ""
+
+#: src/code/sharpm.lisp
 msgid "Missing label for #=."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Multiply defined label: #~D="
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Have to tag something more than just #~D#."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Missing label for ##."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "reference to undefined label #~D#"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Illegal complex number format: #C~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Illegal sharp character ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid "How deep we are into backquotes"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ",@ after backquote in ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ",. after backquote in ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid "Comma not inside a backquote."
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ",@ after dot in ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ",. after dot in ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ""
 "Given a lisp form containing the magic functions BACKQ-LIST, BACKQ-LIST*,\n"
 "  BACKQ-APPEND, etc. produced by the backquote reader macro, will return a\n"
@@ -8403,60 +8558,69 @@ msgid ""
 "  level of parentheses should be added."
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid "### illegal dotted backquote form ###"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Make an object set for use by a RPC/xevent server.  Name is for\n"
 "      descriptive purposes only."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "You lose, object: ~S"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
-"Return the handler function in Object-Set for the operation specified by\n"
-"   Message-ID, if none, NIL is returned."
+"Return as multiple values the object and object-set mapped to by xwindow."
+msgstr ""
+
+#: src/code/serve-event.lisp
+msgid "Add a new xwindow/object/object-set association."
 msgstr ""
 
-#: target:code/serve-event.lisp
-msgid "Sets the handler function for an object set operation."
+#: src/code/serve-event.lisp
+msgid "Remove xwindow and its associated object/object-set pair."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
+msgid ""
+"Return the handler function in Object-Set for the operation specified by\n"
+"   Message-ID, if none, NIL is returned."
+msgstr ""
+
+#: src/code/serve-event.lisp
 msgid "#<Handler for ~A on ~:[~;BOGUS ~]descriptor ~D: ~S>"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "List of all the currently active handlers for file descriptors"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Arange to call FUNCTION whenever FD is usable. DIRECTION should be\n"
 "  either :INPUT or :OUTPUT. The value returned should be passed to\n"
 "  SYSTEM:REMOVE-FD-HANDLER when it is no longer needed."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Invalid direction ~S, must be either :INPUT or :OUTPUT"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Removes HANDLER from the list of active handlers."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Remove any handers refering to FD. This should only be used when attempting\n"
 "  to recover from a detected inconsistency."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Establish a handler with SYSTEM:ADD-FD-HANDLER for the duration of BODY.\n"
 "   DIRECTION should be either :INPUT or :OUTPUT, FD is the file descriptor "
@@ -8465,28 +8629,28 @@ msgid ""
 msgstr ""
 
 #.  This needs more work.
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
+msgid "~S ~[have~;has a~:;have~] bad file descriptor."
+msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors."
+msgstr[0] ""
+
+#: src/code/serve-event.lisp
 msgid "Remove bogus handlers."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Retry bogus handlers."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Go on, leaving handlers marked as bogus."
 msgstr ""
 
-#: target:code/serve-event.lisp
-msgid "~S ~[have~;has a~:;have~] bad file descriptor."
-msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors."
-msgstr[0] ""
-
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Timeout is not a real number or NIL: ~S"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or\n"
 "  :OUTPUT. TIMEOUT, if supplied, is the number of seconds to wait before "
@@ -8494,11 +8658,11 @@ msgid ""
 "  up."
 msgstr ""
 
-#: target:code/time.lisp target:code/serve-event.lisp
+#: src/code/time.lisp src/code/serve-event.lisp
 msgid "Syscall ~A failed: ~A"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "This is an alist mapping displays to user functions to be called when\n"
 "   SYSTEM:SERVE-EVENT notices input on a display connection.  Do not modify\n"
@@ -8506,7 +8670,7 @@ msgid ""
 "   should be represented here only once."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "SERVE-ALL-EVENTS calls SERVE-EVENT with the specified timeout.  If\n"
 "  SERVE-EVENT does something (returns T) it loops over SERVE-EVENT with "
@@ -8515,7 +8679,7 @@ msgid ""
 "  SERVE-EVENT did something and NIL if not."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Receive on all ports and Xevents and dispatch to the appropriate handler\n"
 "  function.  If timeout is specified, server will wait the specified time "
@@ -8524,51 +8688,51 @@ msgid ""
 "  Server returns T if something happened and NIL otherwise."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Event-listen was true, but handler didn't handle: ~%~S"
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Attempting unimplemented external-format I/O."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Nonsensical argument (~S) to DEFINE-EXTERNAL-FORMAT."
 msgstr ""
 
-#: target:code/extfmts.lisp
-msgid "External-format aliases file ends early."
+#: src/code/extfmts.lisp
+msgid "Bad entry in external-format aliases file: ~S => ~S."
 msgstr ""
 
-#: target:code/extfmts.lisp
-msgid "Bad entry in external-format aliases file: ~S => ~S."
+#: src/code/extfmts.lisp
+msgid "External-format aliases file ends early."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "External-format aliasing depth exceeded."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "~S is a Composing-External-Format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "~S is not a Composing-External-Format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "~S is not a valid external format name."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "External format ~S not found."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Attempting I/O through void external-format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Convert String to octets using the specified External-format.  The\n"
 "   string is bounded by Start (defaulting to 0) and End (defaulting to\n"
@@ -8576,7 +8740,7 @@ msgid ""
 "   there.  If not, a new buffer is created."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Octets-to-string converts an array of octets in Octets to a string\n"
 "  according to the specified External-format.  The array of octets is\n"
@@ -8594,7 +8758,7 @@ msgid ""
 "  external format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Encode the given String using External-Format and return a new\n"
 "  string.  The characters of the new string are the octets of the\n"
@@ -8602,7 +8766,7 @@ msgid ""
 "  code-char.  This is the inverse to String-Decode"
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Decode String using the given External-Format and return the new\n"
 "  string.  The input string is treated as if it were an array of\n"
@@ -8610,7 +8774,7 @@ msgid ""
 "  the inverse of String-Encode."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Change the external format of the standard streams to Terminal.\n"
 "  The standard streams are sys::*stdin*, sys::*stdout*, and\n"
@@ -8621,37 +8785,37 @@ msgid ""
 "  set to the specified format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Can't find external-format ~S."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Change it anyway."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "The external-format for encoding filenames is already set."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "List of available buffers.  Each buffer is an sap pointing to\n"
 "  bytes-per-buffer of memory."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Number of bytes per buffer."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "The maximum supported byte size for a stream element-type."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Timeout ~(~A~)ing ~S."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "List of all available output routines. Each element is a list of the\n"
 "  element-type output, the kind of buffering, the function name, and the "
@@ -8659,81 +8823,81 @@ msgid ""
 "  of bytes per element."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Write would have blocked, but SERVER told us to go."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "While writing ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "Output THING to stream.  THING can be any kind of vector or a sap.  If "
 "THING\n"
 "  is a SAP, END must be supplied (as length won't work)."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Just go on as if nothing happened..."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "~S called with :END before :START!"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "List of all available input routines. Each element is a list of the\n"
 "  element-type input, the function name, and the number of bytes per "
 "element."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error reading ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Could not find any input routine for ~S"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Could not find any output routine for ~S buffered ~S."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Element sizes for input (~S:~S) and output (~S:~S) differ?"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Input type (~S) and output type (~S) are unrelated?"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Go on as if nothing bad happened."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Could not restore ~S to its original contents: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "~s is not a stream associated with a file."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error fstating ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error lseek'ing ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Invalid position given to file-position: ~S"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "Create a stream for the given unix file descriptor.\n"
 "  If input is non-nil, allow input operations.\n"
@@ -8748,15 +8912,15 @@ msgid ""
 "  Name is used to identify the stream when printed."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "File descriptor must be opened either for input or output."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "** Closed ~A~%"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "This is a string that OPEN tacks on the end of a file namestring to produce\n"
 "   a name for the :if-exists :rename-and-delete and :rename options.  Also,\n"
@@ -8764,59 +8928,59 @@ msgid ""
 "   namestring."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Enter new value for ~*~S"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "~S is invalid for ~S. Must be one of~{ ~S~}"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Enter new value for ~S: "
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Try to rename it anyway."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "File ~S is not writable."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Use :SUPERSEDE instead."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Could not rename ~S to ~S: ~A."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Cannot open ~S for output: Is a directory."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Cannot find ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Return NIL."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error opening ~S, ~A."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error creating ~S, path does not exist."
 msgstr ""
 
-#: target:pcl/braid.lisp target:code/fd-stream.lisp
+#: src/pcl/braid.lisp src/code/fd-stream.lisp
 msgid "Try again."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "Return a stream which reads from or writes to Filename.\n"
 "  Defined keywords:\n"
@@ -8829,261 +8993,261 @@ msgid ""
 "  See the manual for details."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/pcl/std-class.lisp src/pcl/boot.lisp src/pcl/defs.lisp
+#: src/pcl/defclass.lisp src/code/fd-stream.lisp
+msgid "Odd-length property list in REMF."
+msgstr ""
+
+#: src/code/fd-stream.lisp
 msgid "Do it anyway."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Can't create simple-streams with an element-type."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Unable to open streams of class ~S."
 msgstr ""
 
-#: target:pcl/std-class.lisp target:pcl/boot.lisp target:pcl/defs.lisp
-#: target:pcl/defclass.lisp target:code/macros.lisp target:code/fd-stream.lisp
-msgid "Odd-length property list in REMF."
-msgstr ""
-
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "The stream connected to the controlling terminal or NIL if there is none."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "The stream connected to the standard input (file descriptor 0)."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "The stream connected to the standard output (file descriptor 1)."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "The stream connected to the standard error output (file descriptor 2)."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "This is called in BEEP to feep the user.  It takes a stream."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "Return the delta in Stream's FILE-POSITION that would be caused by writing\n"
 "   Object to Stream.  Non-trivial only in implementations that support\n"
 "   international character sets."
 msgstr ""
 
-#: target:code/fd-stream-extfmt.lisp
-msgid "Loading simple-streams should redefine this"
+#: src/code/fd-stream-extfmt.lisp
+msgid "Don't know how to set external-format for ~S."
 msgstr ""
 
-#: target:code/fd-stream-extfmt.lisp
-msgid "Don't know how to set external-format for ~S."
+#: src/code/fd-stream-extfmt.lisp
+msgid "Loading simple-streams should redefine this"
 msgstr ""
 
-#: target:code/fd-stream-extfmt.lisp
+#: src/code/fd-stream-extfmt.lisp
 msgid "Setting external-format on Gray streams not supported."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "When non-nil, attempt to load \"library:<host>.translations\" to resolve\n"
 "   an otherwise undefined logical host."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "A path specification, either a string, file-stream or pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Convert thing (a pathname, string or stream) into a pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Construct a filled in pathname by completing the unspecified components\n"
 "   from the defaults."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "~S is not allowed as a directory component."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Makes a new pathname from the component arguments.  Note that host is\n"
 "a host-structure or string."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Silly argument for a unix ~A: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Silly argument for a unix PATHNAME-NAME: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Illegal pathname: ~\n"
 "                                Directory with ~S immediately followed by "
 "~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for the pathname's host."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for pathname's device."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for the pathname's directory list."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for the pathname's name."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for the pathname's version."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Parse error in namestring: ~?~%  ~A~%  ~V@T^"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "When Host arg is not supplied, Defaults arg must ~\n"
 "		  have a non-null PATHNAME-HOST."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Host in namestring: ~S~@\n"
 "		    does not match explicit host argument: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Converts pathname, a pathname designator, into a pathname structure,\n"
 "   for a physical pathname, returns the printed representation. Host may be\n"
 "   a physical host structure or host namestring."
 msgstr ""
 
-#: target:code/pathname.lisp
-msgid ""
-"A LIST representing a pathname host is not ~\n"
-"                              supported in this implementation:~%  ~S"
-msgstr ""
-
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Hosts do not match: ~S and ~S."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Can't figure out the file associated with stream:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
+msgid ""
+"A LIST representing a pathname host is not ~\n"
+"                              supported in this implementation:~%  ~S"
+msgstr ""
+
+#: src/code/pathname.lisp
 msgid "Construct the full (name)string form of the pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Cannot determine the namestring for pathnames with no ~\n"
 "		  host:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Returns a string representation of the name of the host in the pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Cannot determine the namestring for pathnames with no host:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Returns a string representation of the directories used in the pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Returns a string representation of the name used in the pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Returns an abbreviated pathname sufficent to identify the pathname relative\n"
 "   to the defaults."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Predicate for determining whether pathname contains any wildcards."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Pathname matches the wildname template?"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Not enough wildcards in FROM pattern to match ~\n"
 "		       TO pattern:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Can't substitute this into the middle of a word:~\n"
 "			  ~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Pathname components from Source and From args to TRANSLATE-PATHNAME~@\n"
 "	  did not match:~%  ~S ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ":WILD-INFERIORS not paired in from and to ~\n"
 "			   patterns:~%  ~S ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Use the source pathname to translate the from-wildname's wild and\n"
 "   unspecified elements into a completed to-pathname based on the to-wildnam"
 "e."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "~S doesn't match ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Search-list ~a not defined."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Clear the current definition for the search-list NAME.  Returns T if such\n"
 "   a definition existed, and NIL if not."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Clear the definition for all search-lists.  Only use this if you know\n"
 "   what you are doing."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "~S doesn't start with a search-list."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Return the expansions for the search-list starting PATHNAME.  If PATHNAME\n"
 "   does not start with a search-list, then an error is signaled.  If\n"
@@ -9091,29 +9255,29 @@ msgid ""
 "   The expansion for a search-list can be set with SETF."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Search list ~S has not been defined yet."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Returns T if the search-list starting PATHNAME is currently defined, and\n"
 "   NIL otherwise.  An error is signaled if PATHNAME does not start with a\n"
 "   search-list."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "That would result in a circularity:~%  ~\n"
 "		     ~A~{ -> ~A~} -> ~A"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Search-lists cannot expand into pathnames that have ~\n"
 "		       a name, type, or ~%version specified:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Execute BODY with VAR bound to each successive possible expansion for\n"
 "   PATHNAME and then return RESULT.  Note: if PATHNAME does not contain a\n"
@@ -9122,105 +9286,105 @@ msgid ""
 "   VAR is *not* bound inside of RESULT."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Undefined search list: ~A"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Logical namestring character ~\n"
 "			     is not alphanumeric or hyphen:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Logical host not yet defined: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Double asterisk inside of logical ~\n"
 "				     word: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Illegal character for logical pathname:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
-msgid "Expecting ~A, got ~:[nothing~;~:*~S~]."
-msgstr ""
-
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a host name"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a directory name"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a file name"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Expecting a dot, got ~S."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a file type"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a positive integer, * or NEWEST"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
+msgid "Expecting ~A, got ~:[nothing~;~:*~S~]."
+msgstr ""
+
+#: src/code/pathname.lisp
 msgid "Expected a positive integer, ~\n"
 "					    got ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Extra stuff after end of file name."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Converts the pathspec argument to a logical-pathname and returns it."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Logical namestring does not specify a host:~%  ~S"
 msgstr ""
 
-#: target:code/filesys.lisp target:code/pathname.lisp
+#: src/code/filesys.lisp src/code/pathname.lisp
 msgid "Invalid directory component: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Invalid keyword: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Logical pathname translation is not a two-list:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Return the (logical) host object argument's list of translations."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Set the translations list for the logical host argument.\n"
 "   Return translations."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Clobber search-list host with logical pathname host"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "~S names a CMUCL search-list"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Search for a logical pathname named host, if not already defined. If "
 "already\n"
@@ -9230,29 +9394,29 @@ msgid ""
 "   successfully, T is returned, else error."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ";; Loading pathname translations from ~A~%"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Translates pathname to a physical pathname, which is returned."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "No translation for ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Remove any occurrences of \\ from the string because we've already\n"
 "   checked for whatever may have been backslashed."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Backslash in bad place."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "If non-NIL, Unix shell-style wildcards are ignored when parsing\n"
 "  pathname namestrings.  They are also ignored when computing\n"
@@ -9261,59 +9425,59 @@ msgid ""
 "  printing pathnames."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "``['' with no corresponding ``]''"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~A already names a logical host"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Invalid pattern piece: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ":BACK cannot be represented in namestrings."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a directory separator in a pathname name: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a dot in a pathname name without a pathname type: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Invalid value for a pathname name: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify the type without a file: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a directory separator in a pathname type: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a dot in a pathname type: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a version without a file: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~S cannot be represented relative to ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot supply a type without a name:~%  ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Convert PATHNAME into a string that can be used with UNIX system calls.\n"
 "   Search-lists and wild-cards are expanded. If optional argument\n"
@@ -9322,83 +9486,83 @@ msgid ""
 "   unless an executable version of PATHNAME exists."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~S is ambiguous:~{~%  ~A~}"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Return the pathname for the actual file described by the pathname\n"
 "  An error of type file-error is signalled if no such file exists,\n"
 "  or the pathname is wild."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Bad place for a wild pathname."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "The file ~S does not exist."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Return a pathname which is the truename of the file if it exists, NIL\n"
 "  otherwise. An error of type file-error is signalled if pathname is wild."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Rename File to have the specified New-Name.  If file is a stream open to a\n"
 "  file, then the associated file is renamed."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~S can't be created."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Failed to rename ~A to ~A: ~A"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Delete the specified file."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~S doesn't exist."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Could not delete ~A: ~A."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Delete old versions of files matching the given Pathname,\n"
 "optionally keeping some of the most recent old versions."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Returns the home directory of the logged in user as a pathname.\n"
 "  This is obtained from the logical name \"home:\"."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Return file's creation date, or NIL if it doesn't exist.\n"
 " An error of type file-error is signalled if file is a wild pathname"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Returns the file author as a string, or nil if the author cannot be\n"
 " determined.  Signals an error of type file-error if file doesn't exist,\n"
 " or file is a wild pathname."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Returns a list of pathnames, one for each file that matches the given\n"
 "   pathname.  Supplying :ALL as nil causes this to ignore Unix dot files.  "
@@ -9414,7 +9578,7 @@ msgid ""
 "   not followed."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Like Directory, but prints a terse, multi-column directory listing\n"
 "   instead of returning a list of pathnames.  When :all is supplied and\n"
@@ -9423,131 +9587,131 @@ msgid ""
 "   information is output one file per line."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Directory of ~A:~%"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Couldn't stat ~A -- ~A.~%"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Return a list of all files which are possible completions of Pathname.\n"
 "   We look in the directory specified by Defaults as well as looking down\n"
 "   the search list."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "File-writable accepts a pathname and returns T if the current\n"
 "  process can write it, and NIL otherwise."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Returns the pathname for the default directory.  This is the place where\n"
 "  a file will be written if no directory is specified.  This may be changed\n"
 "  with setf."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Tests whether the directories containing the specified file\n"
 "  actually exist, and attempts to create them if they do not.\n"
 "  Portable programs should avoid using the :MODE keyword argument."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~&Creating directory: ~A~%"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Can't create directory ~A."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The default for the :IF-SOURCE-NEWER argument to load."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The source file types which LOAD recognizes."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "A list of the object file types recognized by LOAD."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "A list of the object file types recognized by LOAD for logical pathnames."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The default for the :VERBOSE argument to Load."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The default for the :PRINT argument to Load."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The TRUENAME of the file that LOAD is currently loading."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The defaulted pathname that LOAD is currently loading."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Count of the number of recursive loads."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "~A was compiled for fasl-file version ~X, ~\n"
 "                     but this is version ~X"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "List of free fop tables for the fasloader."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The fop stack (we only need one!)."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Vector indexed by a FaslOP that yields the FOP's name."
 msgstr ""
 
-#: target:code/load.lisp
-msgid "Losing FOP!"
-msgstr ""
-
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "Vector indexed by a FaslOP that yields a function of 0 arguments which\n"
 "  will perform the operation."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
+msgid "Losing FOP!"
+msgstr ""
+
+#: src/code/load.lisp
 msgid "Loading ~S.~%"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Loading stuff from ~S.~%"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Attempt to load an empty FASL FILE:~%  ~S"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Bad FASL file format."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "Loads the file named by Filename into the Lisp environment.  The file type\n"
 "   (a.k.a extension) is defaulted if missing.  These options are defined:\n"
@@ -9590,148 +9754,144 @@ msgid ""
 "   types that we use for defaulting when none is specified."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Return NIL from load of ~S."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "~S does not exist."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "See if it exists now."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Prompt for a new name."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "New name: "
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Load it as a source file."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "File has a fasl file type, but no fasl file header:~%  ~S"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "Loading object file ~A,~@\n"
 "		  which is older than the presumed source:~%  ~A."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "Loading source file ~A,~@\n"
 "		  which is newer than the presumed object file:~%  ~A."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Compile of source failed, cannot load object."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Object file ~A is~@\n"
 "		       older than the presumed source:~%  ~A."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "load source file"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "load object file"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Fop-End-Header was executed???"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Fasl table of improper size.  Bug!"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Fasl stack not empty.  Bug!"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The package ~S does not exist."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Losing i-vector element size: ~S"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Load ~A anyway"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "~A was compiled for a ~A, but this is a ~A"
 msgstr ""
 
-#: target:compiler/dfo.lisp target:code/load.lisp
+#: src/compiler/dfo.lisp src/code/load.lisp
 msgid "Top-Level Form"
 msgstr ""
 
-#: target:compiler/generic/core.lisp target:code/load.lisp
+#: src/compiler/generic/core.lisp src/code/load.lisp
 msgid "Unaligned function object, offset = #x~X."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "~S defined~%"
 msgstr ""
 
-#: target:compiler/generic/core.lisp target:code/load.lisp
-msgid "Unknown foreign symbol: ~S"
-msgstr ""
-
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Cannot load assembler code."
 msgstr ""
 
-#: target:compiler/generic/core.lisp target:code/load.lisp
+#: src/compiler/generic/core.lisp src/code/load.lisp
 msgid "Undefined assembler routine: ~S"
 msgstr ""
 
-#: target:code/foreign-linkage.lisp
+#: src/code/foreign-linkage.lisp
 msgid "~A is not defined as a foreign symbol"
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "This is a list of module names that have been loaded into Lisp so far.\n"
 "   It is used by PROVIDE and REQUIRE."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid "*load-verbose* is bound to this before loading files."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid "See function documentation for REQUIRE"
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "Defines a module by registering the files that need to be loaded when\n"
 "   the module is required.  If name is a symbol, its print name is used\n"
 "   after downcasing it."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "Adds a new module name to *modules* indicating that it has been loaded.\n"
 "   Module-name may be any valid string designator.  All comparisons are\n"
 "   done using string=, i.e. module names are case-sensitive."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "Loads a module when it has not been already.  Pathname, if supplied,\n"
 "   is a single pathname or list of pathnames to be loaded if the module\n"
@@ -9757,15 +9917,15 @@ msgid ""
 "   which defaults to t."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid "Don't know how to load ~A"
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid "Coerce a string designator to a module name."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "Derive a default pathname to try to load for an undefined module\n"
 "named module-name.  The default pathname is constructed from the\n"
@@ -9774,19 +9934,19 @@ msgid ""
 "each, separately, converted from :case :common to :case :local."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Keywords that you can put in a lambda-list, supposing you should want\n"
 "  to do such a thing."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "The exclusive upper bound on the number of arguments which may be passed\n"
 "  to a function, including rest args."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "The exclusive upper bound on the number of parameters which may be specifed\n"
 "  in a given lambda list.  This is actually the limit on required and "
@@ -9794,13 +9954,13 @@ msgid ""
 "  parameters.  With &key and &aux you can get more."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "The exclusive upper bound on the number of multiple-values that you can\n"
 "  have."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "This variable controls whether assignments to unknown variables at top-level"
 "\n"
@@ -9813,53 +9973,53 @@ msgid ""
 "      NIL   -- Never declare the variable, giving warnings on each use."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Evaluates its single arg in a null lexical environment, returns the\n"
 "  result or results."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Wrong number of args to FUNCTION:~% ~S."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "~S is a macro."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "~S is a special operator."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Wrong number of args to QUOTE:~% ~S."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Odd number of args to SETQ:~% ~S."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Declaring ~S special."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:code/eval.lisp
+#: src/compiler/ir1tran.lisp src/code/eval.lisp
 msgid "Bad Eval-When situation list: ~S."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Attempt to evaluation a complex expression:~%     ~S~@\n"
 "	  This expression must be compiled, but the compiler is not loaded."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~\n"
 "	  ~%     ~S~%"
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Given a function, return three values:\n"
 "   1] A lambda expression that could be used to define the function, or NIL "
@@ -9873,11 +10033,11 @@ msgid ""
 "      any object, CMU CL always returns a valid function name or a string."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "If the symbol globally names a special form, returns T, otherwise NIL."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "The value of this variable must be a function that can take three\n"
 "  arguments, a macro expander function, the macro form to be expanded,\n"
@@ -9887,28 +10047,28 @@ msgid ""
 "  FUNCALL."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Invoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to\n"
 "   a function."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "If SYMBOL names a macro in ENV, returns the expansion function,\n"
 "   else returns NIL.  If ENV is unspecified or NIL, use the global\n"
 "   environment only."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "~S names a special form."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Cannot funcall macro functions."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "If form is a macro (or symbol macro), expands it once.  Returns two values,\n"
 "   the expanded form and a T-or-NIL flag indicating whether the form was, "
@@ -9918,7 +10078,7 @@ msgid ""
 "   to the null environment."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Repetitively call MACROEXPAND-1 until the form can no longer be expanded.\n"
 "   Returns the final resultant form, and T if it was expanded.  ENV is the\n"
@@ -9926,7 +10086,7 @@ msgid ""
 "   environment."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "If NAME names a compiler-macro, returns the expansion function,\n"
 "   else returns NIL.  Note: if the name is shadowed in ENV by a local\n"
@@ -9934,27 +10094,27 @@ msgid ""
 "   set with SETF."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "If FORM is a function call for which a compiler-macro has been defined,\n"
 "   invoke the expander function using *macroexpand-hook* and return the\n"
 "   results and T.  Otherwise, return the original form and NIL."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Repetitively call COMPILER-MACROEXPAND-1 until the form can no longer be\n"
 "   expanded.  ENV is the lexical environment to expand in, or NIL (the\n"
 "   default) for the null environment."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "True of any Lisp object that has a constant value: types that eval to\n"
 "  themselves, keywords, constants, and list whose car is QUOTE."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Applies FUNCTION to a list of arguments produced by evaluating ARGS in\n"
 "  the manner of LIST*.  That is, a list is made of the values of all but "
@@ -9964,77 +10124,205 @@ msgid ""
 "  list."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Calls Function with the given Arguments."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Returns all of its arguments, in order, as values."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Returns all of the elements of List, in order, as values."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid "A list of unix signal structures."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid "~S is not a valid signal name or number."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Return the name of the signal as a string.  Signal should be a valid\n"
 "  signal number or a keyword of the standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Return a string describing signal.  Signal should be a valid signal\n"
 "  number or a keyword of the standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Return the number of the given signal.  Signal should be a valid\n"
 "  signal number or a keyword of the standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
+msgid "Check"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Hangup"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Interrupt"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Quit"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Illegal instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Trace trap"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Iot instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "C abort()"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Emt instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Floating point exception"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Kill"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Bus error"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Segmentation violation"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Bad argument to system call"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Write on a pipe with no one to read it"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Alarm clock"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Software termination signal"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Urgent condition present on socket"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Stop"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Stop signal generated from keyboard"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Continue after stop"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Child status has changed"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Background read attempted from control terminal"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Background write attempted to control terminal"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "I/O is possible on a descriptor"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Cpu time limit exceeded"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "File size limit exceeded"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Virtual time alarm"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Profiling timer alarm"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Window size change"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "User defined signal 1"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "User defined signal 2"
+msgstr ""
+
+#: src/code/signal.lisp
 msgid "Returns a mask given a set of signals."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-kill sends the signal signal to the process with process \n"
 "   id pid.  Signal should be a valid signal number or a keyword of the\n"
 "   standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-killpg sends the signal signal to the all the process in process\n"
 "  group PGRP.  Signal should be a valid signal number or a keyword of\n"
 "  the standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-sigblock cause the signals specified in mask to be\n"
 "   added to the set of signals currently being blocked from\n"
 "   delivery.  The macro sigmask is provided to create masks."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-sigpause sets the set of masked signals to its argument\n"
 "   and then waits for a signal to arrive, restoring the previous\n"
 "   mask upon its return."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-sigsetmask sets the current set of masked signals (those\n"
 "   being blocked from delivery) to the argument.  The macro sigmask\n"
@@ -10042,91 +10330,87 @@ msgid ""
 "   mask is returned."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid "Enable all the default signals that Lisp knows how to deal with."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid "Execute BODY in a context impervious to interrupts."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Allow interrupts while executing BODY.  As interrupts are normally allowed,\n"
 "  this is only useful inside a WITHOUT-INTERRUPTS."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "With-enabled-interrupts ({(interrupt function)}*) {form}*\n"
 "   Establish function as a handler for the Unix signal interrupt which\n"
 "   should be a number between 1 and 31 inclusive."
 msgstr ""
 
-#: target:code/interr.lisp
-msgid "~S isn't one of the required args."
-msgstr ""
-
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Unknown error:~{ ~S~})"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Invalid number of arguments: ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Attempt to THROW to a tag that does not exist: ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Function with declared result type NIL returned:~%  ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Invalid array index, ~D for ~S.  Array has no elements."
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "Invalid array index, ~D for ~S.  Should have greater than or equal to 0."
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Invalid array index, ~D for ~S.  Should have been less than ~D"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Undefined foreign symbol: ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "The maximum number of nested errors allowed.  Internal errors are\n"
 "   double-counted."
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "The current number of nested errors."
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Unknown internal error, ~D?  args=~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Internal error ~D: ~A.  args=~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "~2&~@<A control stack overflow has occurred: ~\n"
 "            the program has entered the yellow control stack guard zone.  ~\n"
@@ -10134,14 +10418,14 @@ msgid ""
 "            enter the red control stack guard zone while debugging.~@:>~2%"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "~2&~@<Fatal control stack overflow.  You have entered~%~\n"
 "           the red control stack guard zone while debugging.~%~\n"
 "           Returning to Top-Level.~@:>~2%"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
 "            Only a small amount of dynamic space is available now.~%~\n"
@@ -10150,171 +10434,171 @@ msgid ""
 "            warning if you run out of space while debugging.~@:>~%"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "All debug-conditions inherit from this type.  These are serious conditions\n"
 "    that must be handled, but they are not programmer errors."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "There is absolutely no debugging information available."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "No debugging information available."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "The system could not return values from a frame with debug-function since\n"
 "    it lacked information about returning values."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "~&Cannot return values from ~:[frame~;~:*~S~] since ~\n"
 "			the debug information lacks details about returning ~\n"
 "			values here."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "The debug-function has no debug-block information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S has no debug-block information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "The debug-function has no debug-variable information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S has no debug-variable information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "The debug-function has no lambda-list since argument debug-variables are\n"
 "    unavailable."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S has no lambda-list information available."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S has :invalid or :unknown value in ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S names more than one valid variable in ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "All programmer errors from using the interface for building debugging\n"
 "    tools inherit from this type."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&Unhandled debug-condition:~%~A"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&Invalid use of an unknown code-location -- ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S not in ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Invalid control stack pointer."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&Form was preprocessed for ~S,~% but called on ~S:~%  ~S"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the name of the debug-variable.  The name is the name of the symbol\n"
 "   used as an identifier when writing the code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the package name of the debug-variable.  This is the package name "
 "of\n"
 "   the symbol used as an identifier when writing the code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the integer that makes debug-variable's name and package name "
 "unique\n"
 "   with respect to other debug-variable's in the same function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the frame immediately above frame on the stack.  When frame is\n"
 "   the top of the stack, this returns nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the debug-function for the function whose call frame represents."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the code-location where the frame's debug-function will continue\n"
 "   running when program execution returns to this frame.  If someone\n"
 "   interrupted this frame, the result could be an unknown code-location."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "#<Compiled-Frame ~S~:[~;, interrupted~]>"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "#<~A-Debug-Function ~S>"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the list of possible code-locations where execution may continue\n"
 "   when the basic-block represented by debug-block completes its execution."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns whether debug-block represents elsewhere code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the breakpoint's function the system calls when execution encounters"
 "\n"
 "   the breakpoint, and it is active.  This is SETF'able."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns the breakpoint's what specification."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns the breakpoint's kind specification."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the debug-function representing information about the function\n"
 "   corresponding to the code-location."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the number of top-level forms processed by the compiler before\n"
 "   compiling this source.  If this source is uncompiled, this is zero.  "
@@ -10326,7 +10610,7 @@ msgid ""
 "   zero -- the compiler saw no other top-level forms before it."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns an indication of the type of source.  The following are the possible"
 "\n"
@@ -10336,7 +10620,7 @@ msgid ""
 "      :stream  from a non-file stream."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the actual source in some sense represented by debug-source, which\n"
 "   is related to DEBUG-SOURCE-FROM:\n"
@@ -10345,19 +10629,19 @@ msgid ""
 "      :stream  some descriptive string that's otherwise useless."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the universal time someone created the source.  This may be nil if\n"
 "   it is unavailable."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the time someone compiled the source.  This is nil if the source\n"
 "   is uncompiled."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This function returns the file position of each top-level form as an array\n"
 "   if debug-source is from a :file.  If DEBUG-SOURCE-FROM is :lisp or "
@@ -10365,74 +10649,66 @@ msgid ""
 "   this returns nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns whether object is a debug-source."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the top frame of the control stack as it was before calling this\n"
 "   function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Flush all of the frames above FRAME, and renumber all the frames below\n"
 "   FRAME."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the frame immediately below frame on the stack.  When frame is\n"
 "   the bottom of the stack, this returns nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "When set, the debugger foregoes making interpreted-frames, so you can\n"
 "   debug the functions that manifest the interpreter."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Zero or more than one ~A variable in ~\n"
 "			   EVAL::INTERNAL-APPLY-LOOP?"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Return a string describing the foreign function near ADDRESS"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Foreign function call land"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Return t if COMPONENT contains code from assembly routines."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Return the name of the assembly routine at offset PC in COMPONENT.\n"
 "The result is a symbol or nil if the routine cannot be found."
 msgstr ""
 
-#: target:code/debug-int.lisp
-msgid "no debug info: ~A:~A"
-msgstr ""
-
-#: target:code/debug-int.lisp
-msgid "find the PC"
-msgstr ""
-
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns an a-list mapping catch tags to code-locations.  These are\n"
 "   code-locations at which execution would continue with frame as the top\n"
 "   frame if someone threw to the corresponding tag."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Executes the forms in a context with block-var bound to each debug-block in\n"
 "   debug-function successively.  Result is an optional form to execute for\n"
@@ -10441,7 +10717,7 @@ msgid ""
 "   debug-function lacks debug-block information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Executes body in a context with var bound to each debug-variable in\n"
 "   debug-function.  This returns the value of executing result (defaults to\n"
@@ -10451,35 +10727,35 @@ msgid ""
 "   preserved argument information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the Common Lisp function associated with the debug-function.  This\n"
 "   returns nil if the function is unavailable or is non-existent as a user\n"
 "   callable function object."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the name of the function represented by debug-function.  This may\n"
 "   be a string or a cons; do not assume it is a symbol."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns a debug-function that represents debug information for function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the kind of the function which is one of :optional, :external,\n"
 "   :top-level, :cleanup, nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns whether there is any variable information for debug-function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns a list of debug-variables in debug-function having the same name\n"
 "   and package as symbol.  If symbol is uninterned, then this returns a "
@@ -10491,7 +10767,7 @@ msgid ""
 "   knows about its arguments."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns a list of debug-variables in debug-function whose names contain\n"
 "    name-prefix-string as an intial substring.  The result of this function "
@@ -10501,7 +10777,7 @@ msgid ""
 "    example, possibly debug-function only knows about its arguments."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns a list representing the lambda-list for debug-function.  The list\n"
 "   has the following structure:\n"
@@ -10522,17 +10798,17 @@ msgid ""
 "   condition when there is no argument list information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Malformed arguments description."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns whether basic-code-location is unknown.  It returns nil when the\n"
 "   code-location is known."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the debug-block containing code-location if it is available.  Some\n"
 "   debug policies inhibit debug-block information, and if none is available,"
@@ -10540,11 +10816,11 @@ msgid ""
 "   then this signals a no-debug-blocks condition."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns the code-location's debug-source."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the number of top-level forms before the one containing\n"
 "   code-location as seen by the compiler in some compilation unit.  A\n"
@@ -10552,18 +10828,18 @@ msgid ""
 "   debug-sources."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Unknown code location?  It should be known."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the number of the form corresponding to code-location.  The form\n"
 "   number is derived by a walking the subforms of a top-level form in\n"
 "   depth-first order."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Return the kind of CODE-LOCATION, one of:\n"
 "     :interpreted, :unknown-return, :known-return, :internal-error,\n"
@@ -10571,48 +10847,40 @@ msgid ""
 "     :non-local-entry"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns whether obj1 and obj2 are the same place in the code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Executes forms in a context with code-var bound to each code-location in\n"
 "   debug-block.  This returns the value of executing result (defaults to "
 "nil)."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "??? Can't get name of debug-block's function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the symbol from interning DEBUG-VARIABLE-NAME in the package named\n"
 "   by DEBUG-VARIABLE-PACKAGE."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the value stored for debug-variable in frame.  If the value is not\n"
 "   :valid, then this signals an invalid-value error."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the value stored for debug-variable in frame.  The value may be\n"
 "   invalid.  This is SETF'able."
 msgstr ""
 
-#: target:code/debug-int.lisp
-msgid "Local non-descriptor register access?"
-msgstr ""
-
-#: target:code/debug-int.lisp
-msgid "Local interior register access?"
-msgstr ""
-
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns three values reflecting the validity of debug-variable's value\n"
 "   at basic-code-location:\n"
@@ -10621,14 +10889,14 @@ msgid ""
 "      :unknown  The value's availability is unknown."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This returns a table mapping form numbers to source-paths.  A source-path\n"
 "   indicates a descent into the top-level-form form, going directly to the\n"
 "   subform corressponding to the form number."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Form is a top-level form, and path is a source-path into it.  This returns\n"
 "   the form indicated by the source-path.  Context is the number of enclosin"
@@ -10640,11 +10908,11 @@ msgid ""
 "   immediately before the form indicated by path."
 msgstr ""
 
-#: target:code/debug.lisp target:code/debug-int.lisp
+#: src/code/debug.lisp src/code/debug-int.lisp
 msgid "Source path no longer exists."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Return a function of one argument that evaluates form in the lexical\n"
 "   context of the basic-code-location loc.  PREPROCESS-FOR-EVAL signals a\n"
@@ -10656,23 +10924,23 @@ msgid ""
 "   ambiguous-variable-name, and frame-function-mismatch"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Evaluate Form in the lexical context of Frame's current code location,\n"
 "   returning the results of the evaluation."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Find and return the debug catch tag for a given frame, if it exists."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Evaluate Form in the lexical context of Frame's current code location,\n"
 "   returning from the current frame the results of the evaluation."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This creates and returns a breakpoint.  When program execution encounters\n"
 "   the breakpoint, the system calls hook-function.  Hook-function takes the\n"
@@ -10706,27 +10974,27 @@ msgid ""
 "      This signals an error if what is an unknown code-location."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Cannot make a breakpoint at an unknown code location -- ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Breakpoints in interpreted code are currently unsupported."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 ":FUNCTION-END breakpoints are currently unsupported ~\n"
 "		       for the known return convention."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 ":function-end breakpoints are currently unsupported ~\n"
 "	     for interpreted-debug-functions."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This takes a function-end-cookie and a frame, and it returns whether the\n"
 "   cookie is still valid.  A cookie becomes invalid when the frame that\n"
@@ -10740,7 +11008,7 @@ msgid ""
 "   series of cookies is valid."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This causes the system to invoke the breakpoint's hook-function until the\n"
 "   next call to DEACTIVATE-BREAKPOINT or DELETE-BREAKPOINT.  The system "
@@ -10748,29 +11016,29 @@ msgid ""
 "   breakpoint hook functions in the opposite order that you activate them."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Cannot activate a deleted breakpoint -- ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "I don't know how you made this, but they're unsupported -- ~S"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "This stops the system from invoking the breakpoint's hook-function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This returns the user maintained info associated with breakpoint.  This\n"
 "   is SETF'able."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "This returns whether breakpoint is currently active."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This frees system storage and removes computational overhead associated "
 "with\n"
@@ -10779,19 +11047,15 @@ msgid ""
 "   never become active again."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Unknown breakpoint in ~S at offset ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Breakpoint that nobody wants?"
 msgstr ""
 
-#: target:code/debug-int.lisp
-msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
-msgstr ""
-
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Make a bogus LRA object that signals a breakpoint trap when returned to.  "
 "If\n"
@@ -10802,7 +11066,7 @@ msgid ""
 "   the PC offset for the trap instruction."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "The editor calls this remotely in the slave to set breakpoints.  Package is\n"
 "   the string name of a package or nil, and name-str is a string representin"
@@ -10818,44 +11082,44 @@ msgid ""
 "   the top-level form."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Editor installed breakpoint."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "We don't currently support breakpoints in interpreted code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "~%Cannot set breakpoints for editor when source file no ~\n"
 "		    longer exists:~%  ~A."
 msgstr ""
 
-#: target:code/debug-int.lisp
-msgid ""
-"Cannot set breakpoints for editor when ~\n"
-"				   there is no start positions map."
-msgstr ""
-
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "~%While setting a breakpoint for the editor, noticed ~\n"
 "			source file has been modified since compilation:~%  ~A~@\n"
 "			Using form offset instead of character position.~%"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
+msgid ""
+"Cannot set breakpoints for editor when ~\n"
+"				   there is no start positions map."
+msgstr ""
+
+#: src/code/debug-int.lisp
 msgid ""
 "The editor calls this in the slave with a remote-object representing a\n"
 "   code-location to set a breakpoint."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "The editor calls this remotely in the slave to delete a breakpoint."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This returns a code-location before the body of a function and after all\n"
 "   the arguments are in place.  If this cannot determine that location due "
@@ -10863,185 +11127,115 @@ msgid ""
 "   a lack of debug information, it returns nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~S code location at ~D"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "*PRINT-LEVEL* is bound to this value when debug prints a function call.  If\n"
 "  null, use *PRINT-LEVEL*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "*PRINT-LENGTH* is bound to this value when debug prints a function call.  "
 "If\n"
 "  null, use *PRINT-LENGTH*."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "default value for the verbose argument to print-frame-call.  If set to >= 2,"
 " source will be printed for all frames"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "This is T while in the debugger."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Pushes and pops/exits inside the debugger change this."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "If this is bound before the debugger is invoked, it is used as the stack\n"
 "   top by the debugger."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "This is a function of no arguments that prints the debugger prompt\n"
 "   on *debug-io*."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid ""
-"\n"
-"The prompt is right square brackets, the number indicating how many\n"
-"  recursive command loops you are in.\n"
-"Debug commands do not affect * and friends, but evaluation in the debug "
-"loop\n"
-"  do affect these variables.\n"
-"Any command may be uniquely abbreviated.\n"
-"\n"
-"Getting in and out of DEBUG:\n"
-"  Q        throws to top level.\n"
-"  GO       calls CONTINUE which tries to proceed with the restart "
-"'continue.\n"
-"  RESTART  invokes restart numbered as shown (prompt if not given).\n"
-"  ERROR    prints the error condition and restart cases.\n"
-"  FLUSH    toggles *flush-debug-errors*, which is initially t.\n"
-" \n"
-"  The name of any restart, or its number, is a valid command, and is the "
-"same\n"
-"    as using RESTART to invoke that restart.\n"
-"\n"
-"Changing frames:\n"
-"  U  up frame        D  down frame       T  top frame       B  bottom frame\n"
-"\n"
-"  F n   goes to frame n.\n"
-"\n"
-"Inspecting frames:\n"
-"  BACKTRACE [n]  shows n frames going down the stack.\n"
-"  L [prefix]     lists locals starting with the given prefix in current "
-"function.\n"
-"  P              displays current function call.\n"
-"  PP             verbose display of current function, with source.\n"
-"  SOURCE [n]     displays frame's source form with n levels of enclosing "
-"forms.\n"
-"  VSOURCE [n]    displays frame's source form without any ellipsis.\n"
-"  DESCRIBE       describe the current function.\n"
-"\n"
-"Breakpoints and steps:\n"
-"  LIST-LOCATIONS [{function | :c}]  list the locations for breakpoints.\n"
-"    Specify :c for the current frame.  Abbreviation: LL\n"
-"  LIST-BREAKPOINTS                  list the active breakpoints.\n"
-"    Abbreviations: LB, LBP\n"
-"  DELETE-BREAKPOINT [n]             remove breakpoint n or all breakpoints.\n"
-"    Abbreviations: DEL, DBP    \n"
-"  BREAKPOINT {n | :end | :start} [:break form] [:function function]\n"
-"    [{:print form}*] [:condition form]    set a breakpoint.\n"
-"    Abbreviations: BR, BP\n"
-"  STEP [n]                          step to the next location or step n "
-"times.\n"
-"\n"
-"Actions on frames:\n"
-"  DEBUG-RETURN expression\n"
-"    returns expression's values from the current frame, exiting the debugger"
-".\n"
-"    Abbreviations: R\n"
-"\n"
-"Variables:\n"
-"  (DEBUG:VAR name [id])   Returns variable's value if possible.  If multiple"
-"\n"
-"                          variables with the same name exist, use id to "
-"select\n"
-"                          one\n"
-"  (DEBUG:ARG n)           Returns the n'th argument's value if possible.\n"
-"                          Argument zero is the first argument.\n"
-"\n"
-"See the CMU Common Lisp User's Manual for more information.\n"
-""
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "When true, the LIST-LOCATIONS command only displays block start locations.\n"
 "   Otherwise, all locations are displayed."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "If true, list the code location type in the LIST-LOCATIONS command."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%Unknown location: using block start.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&~S: ~S in ~S"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&~S: FUNCTION-START in ~S"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&~S: FUNCTION-END in ~S"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%Return values: ~S"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&*Step (to a breakpoint)*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "*Step*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&*Breakpoint hit*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Error in main-hook-function: unknown breakpoint"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Cannot step, in elsewhere code~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "Currently only compiled code can be stepped.~%~\n"
 "                Trying to compile the passed form resulted in ~\n"
 "                the following error:~%  ~A"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~2&Stepping the form~%  ~S~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&using the debugger.  Type HELP for help.~2%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "STEP implements a debugging paradigm wherein the programmer is allowed\n"
 "   to step through the evaluation of a form.  We use the debugger's stepping"
@@ -11054,7 +11248,7 @@ msgid ""
 "   error is signalled."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "Show a listing of the call stack going down from the current frame.  In the\n"
 "   debugger, the current frame is indicated by the prompt.  Count is how "
@@ -11062,39 +11256,39 @@ msgid ""
 "   frames to show."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "unavaliable-rest-arg"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "lambda-list-unavailable"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "error printing object {~X}"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "unused-arg"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "unavailable-arg"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%Source: "
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Error finding source: ~A"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Unable to display error condition~@[: ~A~]"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "This is either nil or a function of two arguments, a condition and the "
 "value\n"
@@ -11106,86 +11300,70 @@ msgid ""
 "   around the invocation."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~2&~A~%   [Condition of type ~S]~2&"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "The CMU Common Lisp debugger.  Type h for help."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&Restarts:~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~2&Debug  (type H for help)~2%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while\n"
 "   executing in the debugger.  The 'flush' command toggles this."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "When non-NIL, becomes the system *READTABLE* in the debugger\n"
 "   read-eval-print loop"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "When non-NIL, print the current frame when entering the debugger."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~&Error flushed ..."
+#: src/code/debug.lisp
+msgid "Unknown stream-command -- ~S."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Return to debug level ~D."
+#: src/code/debug.lisp
+msgid "Ambiguous debugger command: ~S."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Unknown stream-command -- ~S."
+#: src/code/debug.lisp
+msgid "~&Your command, ~S, is ambiguous:~%"
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Ambiguous debugger command: ~S."
+#: src/code/debug.lisp
+msgid "Return to debug level ~D."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~&Your command, ~S, is ambiguous:~%"
+#: src/code/debug.lisp
+msgid "~&Error flushed ..."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "When set (the default), evaluations in the debugger's command loop occur\n"
 "   relative to the current frame's environment without the need of debugger\n"
 "   forms that explicitly control this kind of evaluation."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Setting * to NIL -- was unbound marker."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "No known valid variables match ~S."
-msgstr ""
-
-#: target:code/debug.lisp
-msgid "Specification ambiguous:~%~{   ~A~%~}"
-msgstr ""
-
-#: target:code/debug.lisp
-msgid "Invalid variable ID, ~D, should have been one of ~S."
-msgstr ""
-
-#: target:code/debug.lisp
-msgid "Specify variable ID to disambiguate ~S.  Use one of ~S."
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "Returns a variable's value if possible.  Name is a simple-string or symbol.\n"
 "   If it is a simple-string, it is an initial substring of the variable's "
@@ -11208,7 +11386,23 @@ msgid ""
 "   information.  This is SETF'able."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
+msgid "No known valid variables match ~S."
+msgstr ""
+
+#: src/code/debug.lisp
+msgid "Specification ambiguous:~%~{   ~A~%~}"
+msgstr ""
+
+#: src/code/debug.lisp
+msgid "Invalid variable ID, ~D, should have been one of ~S."
+msgstr ""
+
+#: src/code/debug.lisp
+msgid "Specify variable ID to disambiguate ~S.  Use one of ~S."
+msgstr ""
+
+#: src/code/debug.lisp
 msgid ""
 "Returns the n'th argument's value if possible.  Argument zero is the first\n"
 "   argument in a frame's default printed representation.  Count keyword/valu"
@@ -11216,67 +11410,63 @@ msgid ""
 "   pairs as separate arguments."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "No argument values are available."
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Unused arguments have no values."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Invalid argument value."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Argument specification out of range -- ~S."
+#: src/code/debug.lisp
+msgid "No argument values are available."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Unused rest-arg before n'th argument."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Invalid rest-arg before n'th argument."
+#: src/code/debug.lisp
+msgid "Argument specification out of range -- ~S."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Invoking debugger command while outside the debugger."
+#: src/code/debug.lisp
+msgid "Invalid rest-arg before n'th argument."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Unknown debug command name -- ~S"
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~&Top of stack."
+#: src/code/debug.lisp
+msgid "Invoking debugger command while outside the debugger."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~&Bottom of stack."
+#: src/code/debug.lisp
+msgid "~&Top of stack."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Frame number: "
+#: src/code/debug.lisp
+msgid "~&Bottom of stack."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "You are here."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Bottom of stack encountered."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Top of stack encountered."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "debug-return: "
+#: src/code/debug.lisp
+msgid "Frame number: "
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "~@<can't find a tag for this frame ~\n"
 "                   ~2I~_(hint: try increasing the DEBUG optimization "
@@ -11284,129 +11474,133 @@ msgid ""
 "                   and recompiling)~:@>"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
+msgid "debug-return: "
+msgstr ""
+
+#: src/code/debug.lisp
 msgid "No restart named continue."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Restart: "
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~S is invalid as a restart name.~%"
+#: src/code/debug.lisp
+msgid "No such restart."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "No such restart."
+#: src/code/debug.lisp
+msgid "~S is invalid as a restart name.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "This controls how many lines the debugger's help command prints before\n"
 "   printing a prompting line to continue with output."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: "
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "No local variables ~@[starting with ~A ~]~\n"
 "	               in function."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "All variables ~@[starting with ~A ~]currently ~\n"
 "	               have invalid values."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "No variable information available."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "No start positions map."
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Source file no longer exists:~%  ~A."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%; File: ~A~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "~%; File has been modified since compilation:~%;   ~A~@\n"
 "		 ; Using form offset instead of character position.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
+msgid "No start positions map."
+msgstr ""
+
+#: src/code/debug.lisp
 msgid "Couldn't continue."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "::FUNCTION-START "
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid " *Active*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid " *Continue here*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&::FUNCTION-END *Active* "
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Location number, :start, or :end: "
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Note: previous breakpoint removed.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&Added."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
+msgid "Location number, :start, or :end: "
+msgstr ""
+
+#: src/code/debug.lisp
 msgid "Breakpoint ~S removed.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Breakpoint doesn't exist."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "All breakpoints deleted.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Errors now flushed."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Errors now create nested debug levels."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Can't figure out the function for this frame."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "The debugger's EDIT-SOURCE command only works in slave Lisps ~\n"
 "	    connected to a Hemlock editor."
 msgstr ""
 
-#: target:code/query.lisp
+#: src/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"
@@ -11414,28 +11608,28 @@ msgid ""
 "   enter any other characters."
 msgstr ""
 
-#: target:code/query.lisp
+#: src/code/query.lisp
 msgid "Type \"y\" for yes or \"n\" for no. "
 msgstr ""
 
-#: target:code/query.lisp
+#: src/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
+#: src/code/query.lisp
 msgid "Type \"yes\" for yes or \"no\" for no. "
 msgstr ""
 
-#: target:code/rand-mt19937.lisp
+#: src/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
+#: src/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"
@@ -11443,84 +11637,84 @@ msgid ""
 "  the universal time or /dev/urandom if available."
 msgstr ""
 
-#: target:code/rand-mt19937.lisp
+#: src/code/rand-mt19937.lisp
 msgid "Argument is not a RANDOM-STATE, T or NIL: ~S"
 msgstr ""
 
-#: target:code/rand-mt19937.lisp
+#: src/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
+#: src/code/rand-mt19937.lisp
 msgid "Argument is not a positive integer or a positive float: ~S"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "This is bound to the returned values when evaluating :BREAK-AFTER and\n"
 "   :PRINT-AFTER forms."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "If the trace indentation exceeds this value, then indentation restarts at\n"
 "   0."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "The default value for the :ENCAPSULATE option to trace."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "List of package names.  Encapsulate functions from these packages\n"
 "   by default.  This should at least include the packages of functions\n"
 "   used by TRACE, directly or indirectly."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Can't trace special form ~S."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Breaking ~A traced call to ~S:"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "~S returned"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Function ~S already TRACE'd, retracing it."
 msgstr ""
 
-#: target:code/ntrace.lisp
-msgid "Tracing shared code for ~S:~%  ~S"
-msgstr ""
-
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "~S name is not a defined global function: ~S"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Can't use encapsulation to trace anonymous function ~S."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Can't use encapsulation to trace local flet/labels function ~S."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
+msgid "Tracing shared code for ~S:~%  ~S"
+msgstr ""
+
+#: src/code/ntrace.lisp
 msgid "Missing argument to ~S TRACE option."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Unknown TRACE option: ~S"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "TRACE {Option Global-Value}* {Name {Option Value}*}*\n"
 "   TRACE is a debugging tool that prints information when specified function"
@@ -11619,65 +11813,170 @@ msgid ""
 "   -ALL forms are evaluated in the null environment."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Function is not TRACE'd -- ~S."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "Removes tracing from the specified functions.  With no args, untraces all\n"
 "   functions."
 msgstr ""
 
-#: target:code/sort.lisp
+#: src/code/profile.lisp
+msgid "List of functions that are currently being timed."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid "A list of profiled functions which weren't called."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"If the number of profiled functions that were not called is less than\n"
+"this, the functions are listed.  If NIL, then always list the functions."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
+msgstr ""
+
+#: src/code/profile.lisp
+msgid "dfixnum became too big ~a/~a + ~a/~a"
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Ensure that a profile fwrapper for functions with NREQ required\n"
+"   arguments and optional arguments according to OPTIONALS-P exists.\n"
+"   Return the name of that fwrapper."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid "Return the profile FWRAPPER object on function NAME, if any."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Return the PROFILE-INFO for function NAME.\n"
+"   Signal an error if NAME is not profiled."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"PROFILE Name*\n"
+"   Wraps profiling code around the named functions.  As in TRACE, the names "
+"are\n"
+"   not evaluated.  If a function is already profiled, then unprofile and\n"
+"   reprofile (useful to notice function redefinition.)  If a name is "
+"undefined,\n"
+"   then we give a warning and ignore it.\n"
+"\n"
+"   CLOS methods can be profiled by specifying names of the form\n"
+"   (METHOD <name> <qualifier>* (<specializer>*)), like in TRACE.\n"
+"\n"
+"   :METHODS Function-Form is a way of specifying that all methods of a\n"
+"   generic functions should be profiled.  The Function-Form is\n"
+"   evaluated immediately, and the methods of the resulting generic\n"
+"   function are profiled.\n"
+"\n"
+"   If :CALLERS T appears, subsequent names have counts of the most\n"
+"   common calling functions recorded.\n"
+"\n"
+"   See also UNPROFILE, REPORT-TIME and RESET-TIME."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"PROFILE-ALL\n"
+"\n"
+" Wraps profiling code around all functions in PACKAGE, which defaults\n"
+" to *PACKAGE*. If a function is already profiled, then unprofile and\n"
+" reprofile (useful to notice function redefinition.)  If a name is\n"
+" undefined, then we give a warning and ignore it.  If CALLERS-P is T\n"
+" names have counts of the most common calling functions recorded.\n"
+"\n"
+" When called with arguments :METHODS T, profile all methods of all\n"
+" generic function having names in the given package.  Generic functions\n"
+" themselves, that is, their dispatch functions, are left alone.\n"
+"\n"
+" See also UNPROFILE, REPORT-TIME and RESET-TIME. "
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Unwraps the profiling code around the named functions.  Names defaults to\n"
+"  the list of all currently profiled functions."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Resets the time counter for the named functions.  Names defaults to the "
+"list\n"
+"  of all currently profiled functions."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Reports the time spent in the named functions.  Names defaults to the list\n"
+"  of all currently profiled functions."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Reports the time spent in the named functions.  Names defaults to the list\n"
+"  of all currently profiled functions.  Uses printfunction."
+msgstr ""
+
+#: src/code/sort.lisp
 msgid ""
 "Destructively sorts sequence.  Predicate should returns non-Nil if\n"
 "   Arg1 is to precede Arg2."
 msgstr ""
 
-#: target:code/sort.lisp
+#: src/code/sort.lisp
 msgid "~S is not a sequence."
 msgstr ""
 
-#: target:code/sort.lisp
+#: src/code/sort.lisp
 msgid ""
 "The sequences Sequence1 and Sequence2 are destructively merged into\n"
 "   a sequence of type Result-Type using the Predicate to order the "
 "elements."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "The number of internal time units that fit into a second.  See\n"
 "  Get-Internal-Real-Time and Get-Internal-Run-Time."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Return the real time in the internal time format.  This is useful for\n"
 "  finding elapsed time.  See Internal-Time-Units-Per-Second."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Return the run time in the internal time format.  This is useful for\n"
 "  finding CPU usage."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Returns a single integer for the current time of\n"
 "   day in universal time format."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Returns nine values specifying the current time as follows:\n"
 "   second, minute, hour, date, month, year, day of week (0 = Monday), T\n"
 "   (daylight savings times) or NIL (standard time), and timezone."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Converts a universal-time to decoded time format returning the following\n"
 "   nine values: second, minute, hour, date, month, year, day of week (0 =\n"
@@ -11685,23 +11984,23 @@ msgid ""
 "   Completely ignores daylight-savings-time when time-zone is supplied."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "The time values specified in decoded format are converted to \n"
 "   universal time, which is returned."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid "Evaluates the Form and prints timing information on *Trace-Output*."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "TIME form in a non-null environment, forced to interpret.~@\n"
 "	       Compiling entire form will produce more accurate times."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Evaluation took:~%  ~\n"
 "		     ~S seconds of real time~%  ~\n"
@@ -11709,7 +12008,7 @@ msgid ""
 "		     ~S seconds of system run time~%  "
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "~:D ~A cycle~%  ~\n"
 "		     ~@[[Run times include ~S seconds GC run time]~%  ~]"
@@ -11718,437 +12017,437 @@ msgid_plural ""
 "		     ~@[[Run times include ~S seconds GC run time]~%  ~]"
 msgstr[0] ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid "~S page fault and~%  "
 msgid_plural "~S page faults and~%  "
 msgstr[0] ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid "~:D byte consed.~%"
 msgid_plural "~:D bytes consed.~%"
 msgstr[0] ""
 
-#: target:code/weak.lisp
+#: src/code/weak.lisp
 msgid "Allocates and returns a weak pointer which points to OBJECT."
 msgstr ""
 
-#: target:code/weak.lisp
+#: src/code/weak.lisp
 msgid ""
 "If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.\n"
 "   If the referent of WEAK-POINTER has been garbage collected, returns\n"
 "   the values NIL and NIL."
 msgstr ""
 
-#: target:code/weak.lisp
+#: src/code/weak.lisp
 msgid "Updates WEAK-POINTER to point to a new object."
 msgstr ""
 
-#: target:code/final.lisp
+#: src/code/final.lisp
 msgid ""
 "Arrange for FUNCTION to be called when there are no more references to\n"
 "   OBJECT.  FUNCTION takes no arguments."
 msgstr ""
 
-#: target:code/final.lisp
+#: src/code/final.lisp
 msgid "Cancel any finalization registers for OBJECT."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Depth of recursive descriptions allowed."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "If non-nil, descriptions may provide interpretations of information and\n"
 "  pointers to additional information.  Normally nil."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "*print-level* gets bound to this inside describe.  If null, use\n"
 "  *print-level*"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "*print-length* gets bound to this inside describe.  If null, use\n"
 "  *print-length*."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Number of spaces that sets off each line of a recursive description."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Used to tell whether we are doing a recursive describe."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Used to implement recursive description cutoff.  Don't touch."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "An output stream used by Describe for indenting and stuff."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "List of all objects describe within the current top-level call to describe."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "The last object passed to describe."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Prints a description of the object X."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "*describe-level* should be a nonnegative integer - ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is a ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its code is #x~4,'0x."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its name is ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a ~:[high (leading)~;low (trailing)~] surrogate character."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is a ~(~A~) of type ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is a ~:[~;displaced ~]vector of length ~D."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It has a fill pointer, currently ~d"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It has no fill pointer."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is ~:[an~;a displaced~] array of rank ~A"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~%Its dimensions are ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its element type is specialized to ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is adjustable."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is static."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a prime number."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a composite number."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its components are ~S and ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is an ~A hash table."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its size is ~D buckets."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its rehash-size is ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its rehash-threshold is ~S."
 msgstr ""
 
-#: target:pcl/env.lisp target:code/describe.lisp
+#: src/pcl/env.lisp src/code/describe.lisp
 msgid "~&It currently holds ~d entries."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is weak ~A table."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~d symbols total: ~d internal and ~d external."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~@(~A documentation:~)~&  ~A"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its ~(~A~) argument types are:~%  ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its result type is:~%  ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "~&It is currently declared ~(~A~);~\n"
 "		 ~:[no~;~] expansion is available."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~@(~@[~A ~]arguments:~%~)"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "  There are no arguments."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its closure environment is:"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its definition is:~%  ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&On ~A it was compiled from:"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~A~%  Created: "
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&  Comment: ~A"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "  There is no argument information available."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Macro-function: ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Function: ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~S is a function."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is an unknown type of function."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~A is an ~A symbol in the ~A package."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~A is an uninterned symbol."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~@<It is an alien at #x~8,'0X of type ~3I~:_~S.~:>~%"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~@<Its current value is ~3I~:_~S.~:>"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a ~A with expansion: ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a ~A; its value is ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a ~A; no current value."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its declared type is ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Special form"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Structure"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Type"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Setf macro"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Documentation on the ~(~A~):~%~A"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It names a class ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It names a PCL class ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It names a type specifier."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its ~S property is ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is defined in:~&~A"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%That slot is unbound.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%This object contains nothing to inspect.~%~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%Enter a VALID number (~:[0-~D~;0~]).~%~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%Bottom of Stack.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%Returning to INSPECTOR.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "TTY-Inspector Help:"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  R           -  recompute current object."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  D           -  redisplay current object."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  U           -  Move upward through the object stack."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  <number>    -  Inspect this slot."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  Q, E        -  Quit TTY-INSPECTOR."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  ?, H, Help  -  Show this help."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Unbound"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~s is a symbol.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Value"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Function"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Plist"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Package"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~s is an instance of ~s.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "- (slot is unbound)"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~s is a ~(~A~).~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Function ~s.~@[~%Argument List: ~a~]."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Object is a ~:[~;displaced ~]vector of length ~d.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Object is a LIST of length ~d.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Object is a CONS.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid ""
 "Object is ~:[a displaced~;an~] array of ~a.~%~\n"
 "                       Its dimensions are ~s.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Object is an atom.~%"
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid ""
 "Format-Universal-Time formats a string containing the time and date\n"
 "   given by universal-time in a common manner.  The destination is any\n"
@@ -12164,27 +12463,27 @@ msgid ""
 "   printing of the obvious part of the time/date."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Not a valid format destination."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Universal-Time should be an integer."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Timezone should be a rational between -24 and 24."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Timezone is not a second (1/3600) multiple."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Unrecognized :style keyword value."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid ""
 "Format-Decoded-Time formats a string containing decoded-time\n"
 "   expressed in a humanly-readable manner.  The destination is any\n"
@@ -12198,79 +12497,79 @@ msgid ""
 "   parts of the string."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Seconds should be an integer between 0 and 59."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Minutes should be an integer between 0 and 59."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Hours should be an integer between 0 and 23."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Day should be an integer between 1 and 31."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Month should be an integer between 1 and 12."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Hours should be an non-negative integer."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Timezone should be an integer between 0 and 32."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid ""
 "If t, an error will be signalled if parse-time is unable\n"
 "   to determine the time/date format of the string."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "\"~A\" is not a recognized word or abbreviation."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid ""
 "Can't parse time/date string.~%>>> ~A~\n"
 "				   ~%~VT^-- Bogus character encountered here."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Unrecognized symbol: ~A"
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "~D is not an AM hour, dummy."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "~A isn't AM/PM - this shouldn't happen."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Invalid number of days (~D) for month ~D in ~D"
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Ignore."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Specified day (~@(~A~)) doesn't match actual day (~@(~A~))"
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Unrecognized symbol in form list: ~A."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid ""
 "Tries very hard to make sense out of the argument time-string and\n"
 "   returns a single integer representing the universal time if\n"
@@ -12283,33 +12582,33 @@ msgid ""
 "   are 00:00:00 on the current date, current time-zone."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "\"~A\" is not a recognized time/date format."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Return any available status information on child processed. "
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "List of process structures for all active processes."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/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
+#: src/code/run-program.lisp
 msgid "Wait for PROC to quit running for some reason.  Returns PROC."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "TIOCPGRP ioctl failed: ~S"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/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"
@@ -12318,42 +12617,42 @@ msgid ""
 "   in the foreground."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Returns T if the process is still alive, NIL otherwise."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid ""
 "Close all streams connected to PROC and stop maintaining the status slot."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/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
+#: src/code/run-program.lisp
 msgid ""
 "List of file descriptors to close when RUN-PROGRAM returns in the parent."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "List of handlers installed by RUN-PROGRAM."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Returns the master fd, the slave fd, and the name of the tty"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not find a pty."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not UNIX:UNIX-DUP ~D: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/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"
@@ -12414,71 +12713,78 @@ msgid ""
 "        process changes.  The function takes the process as an argument."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "All args to program must be simple strings -- ~S."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "No such program: ~S"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not fork child process: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not select on sub-process: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not read input from sub-process: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not open \"/dev/null\": ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not create pipe: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Direction must be either :INPUT or :OUTPUT, not ~S"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not duplicate file descriptor: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not open a temporary file in /tmp"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Cound not create pipe: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Invalid option to run-program: ~S"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
+msgid ""
+"If not NIL, this must be a list of two things:\n"
+"a LET-like macro, and a SETQ-like macro, which perform LOOP-style destructur"
+"ing."
+msgstr ""
+
+#: src/code/loop.lisp
 msgid "LOOP-BODY called with non-synched before- and after-loop lists."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~?~%Current LOOP context:~{ ~S~}."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "LOOP couldn't verify that ~S is a subtype of the required type ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Specified data type ~S is not a subtype of ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "Causes the iteration to terminate \"normally\", the same as implicit\n"
 "termination by an iteration driving clause, or by use of WHILE or\n"
@@ -12486,226 +12792,226 @@ msgid ""
 "collected result will be returned as the value of the LOOP."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where LOOP keyword expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S is an unknown keyword in LOOP macro."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "LOOP source code ran out when another token was expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Compound form expected, but found ~A."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "LOOP code ran out where a form was expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "LOOP clause is providing a value for the iteration,~@\n"
 "	        however one was already established by a ~S clause."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a "
 "conditional."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "This LOOP clause is not permitted with anonymous collectors."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "This anonymous collection LOOP clause is not permitted with aggregate "
 "booleans."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern "
 "expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where a LOOP keyword or LOOP type keyword expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Destructuring type pattern ~S contains unrecognized type keyword ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Destructuring type pattern ~S doesn't match variable pattern ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Duplicated LOOP iteration variable ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Duplicated variable ~S in LOOP parallel binding."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Bad variable ~S somewhere in LOOP."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Variable ~S has already been used"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Invalid LOOP variable passed in: ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where keyword expected getting LOOP clause after ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S does not introduce a LOOP clause that can follow ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S is an invalid name for your LOOP."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "The NAMED ~S clause occurs too late."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Value accumulation recipient name, ~S, is not a symbol."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Variable ~S cannot be used in INTO clause"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "Incompatible kinds of LOOP value accumulation specified for collecting~@\n"
 "		    ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "Unequal datatypes specified in different LOOP value accumulations~@\n"
 "		   into ~S: ~S and ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Iteration in LOOP follows body code."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S is an unknown keyword in FOR or AS clause in LOOP."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Use of QUOTE around stepping function in LOOP will be left verbatim."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where ITS or EACH expected in LOOP iteration path syntax."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Unrecognizable LOOP iteration path syntax.  Missing EACH or THE?"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where a LOOP iteration path name was expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S is not the name of a LOOP iteration path."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "\"Inclusive\" iteration is not possible with the ~S LOOP iteration path."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Unused USING variables: ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "Value passed back by LOOP iteration path function for path ~S has invalid "
 "length."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "A ~S prepositional phrase occurs multiply for some LOOP clause."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Preposition ~S used when some other preposition has subsumed it."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "The variable substitution for ~S occurs twice in a USING phrase,~@\n"
 "		        with ~S and ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "~S invalid preposition in sequencing or sequence path.~@\n"
 "	       Invalid prepositions specified in iteration path descriptor or "
 "something?"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Conflicting stepping directions in LOOP sequencing path"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Missing OF or IN phrase in sequence path"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Don't know where to start stepping."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Too many prepositions!"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Missing OF or IN in ~S iteration path."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Unknown preposition ~S"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Destructuring is not valid for package symbol iteration."
 msgstr ""
 
-#: target:code/stream-vector-io.lisp
+#: src/code/stream-vector-io.lisp
 msgid "endian-swap ~a is illegal for element-type of vector ~a"
 msgstr ""
 
-#: target:code/stream-vector-io.lisp
+#: src/code/stream-vector-io.lisp
 msgid ""
 "Read from Stream into Vector.  The Start and End indices of Vector\n"
 "  is in octets, and must be an multiple of the octets per element of\n"
@@ -12713,11 +13019,11 @@ msgid ""
 "  endian swapping to be done. "
 msgstr ""
 
-#: target:code/stream-vector-io.lisp
+#: src/code/stream-vector-io.lisp
 msgid "Wrong vector type ~a for read-vector on stream ~a."
 msgstr ""
 
-#: target:code/stream-vector-io.lisp
+#: src/code/stream-vector-io.lisp
 msgid ""
 "Write Vector to Stream.  The Start and End indices of Vector is in\n"
 "  octets, and must be an multiple of the octets per element of the\n"
@@ -12725,61 +13031,33 @@ msgid ""
 "  endian swapping to be done. "
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Could not create temporary file ~S: ~A"
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid "Not enough memory left."
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Make sure the header starts with the ELF magic value."
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Return the `osabi' field in the padding of the ELF file."
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Given a file type number, determine whether the file is executable."
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Make sure the header starts with the mach-o magic value."
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ";;; Loading object file...~%"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "Could not open ~S: ~A"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "~A is not an ELF file."
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "~A is not a ~A executable, it's a ~A executable."
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "~A is not executable."
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ""
 "Parse symbol table file created by load-foreign script.  Modified\n"
 "to skip undefined symbols which don't have an address."
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ";;; Parsing symbol table...~%"
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ""
 "Load-foreign loads a list of C object files into a running Lisp.  The files\n"
 "  argument should be a single file or a list of files.  The files may be\n"
@@ -12796,367 +13074,345 @@ msgid ""
 "  the linker.  The default is the environment passed to Lisp."
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ";;; Running library:load-foreign.csh...~%"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "Object file is wrong format, so can't load-foreign:~\n"
-"		  ~%  ~S"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "Object file is not relocatable, so can't load-foreign:~\n"
-"		  ~%  ~S"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "Could not run library:load-foreign.csh"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "library:load-foreign.csh failed:~%~A"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid ";;; Done.~%"
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Lazy function call binding"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Immediate function call binding"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Mask of binding time value"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ""
 "If set the symbols of the loaded object and its dependencies are\n"
 "   made visible as if the object were linked directly into the program"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
+msgid ""
+"Load C object files into the running Lisp. The FILES argument\n"
+"should be a single file or a list of files. The files may be specified\n"
+"as namestrings or as pathnames. The LIBRARIES argument should be a\n"
+"list of library files as would be specified to ld. They will be\n"
+"searched in the order given. The default is just \"-lc\", i.e., the C\n"
+"library. The BASE-FILE argument is used to specify a file to use as\n"
+"the starting place for defined symbols. The default is the C start up\n"
+"code for Lisp. The ENV argument is the Unix environment variable\n"
+"definitions for the invocation of the linker. The default is the\n"
+"environment passed to Lisp."
+msgstr ""
+
+#: src/code/foreign.lisp
 msgid "Can't open global symbol table: ~S"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Can't open object ~S: ~S"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Couldn't open library ~S: ~S"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Reloaded library ~S~%"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Ignore library and continue"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Try reloading again"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Choose new library path"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Enter new library path: "
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ""
-"Load C object files into the running Lisp. The FILES argument\n"
-"should be a single file or a list of files. The files may be specified\n"
-"as namestrings or as pathnames. The LIBRARIES argument should be a\n"
-"list of library files as would be specified to ld. They will be\n"
-"searched in the order given. The default is just \"-lc\", i.e., the C\n"
-"library. The BASE-FILE argument is used to specify a file to use as\n"
-"the starting place for defined symbols. The default is the C start up\n"
-"code for Lisp. The ENV argument is the Unix environment variable\n"
-"definitions for the invocation of the linker. The default is the\n"
-"environment passed to Lisp."
+#: src/code/foreign.lisp
+msgid ";;; Opening as shared library ~A ...~%"
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ";;; Opening as shared library ~A ...~%"
+#: src/code/foreign.lisp
+msgid ";;; Done.~%"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ";;; Trying as object file ~A...~%"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ";;; Running ~A...~%"
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid "File does not exist: ~A."
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Could not run ~A"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "~A failed:~%~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/foreign.lisp
+msgid "File does not exist: ~A."
+msgstr ""
+
+#: src/code/internet.lisp
 msgid "AList of socket kinds and protocol values."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Invalid kind (~S) for internet domain sockets."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid ""
 "Return a host-entry for the given host. The host may be an address\n"
 "  string or an IP address in host order."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error creating socket: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error connecting socket to [~A]: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error binding socket to path ~a: ~a"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error listening to socket: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error accepting a connection: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "bind Socket to (local) Host and Port"
 msgstr ""
 
-#: target:code/internet.lisp
-msgid "Unknown host: ~S."
+#: src/code/internet.lisp
+msgid "Error binding socket to port ~A: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
-msgid "Error binding socket to port ~A: ~A"
+#: src/code/internet.lisp
+msgid "Unknown host: ~S."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "The host may be an address string or an IP address in host order."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error connecting socket to [~A:~A]: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Get an integer value socket option."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Set an integer value socket option."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error ~S setting socket option on socket ~D."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error closing socket: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Return the peer host address and port in host order."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error ~s getting peer host and port on FD ~d."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error ~s getting socket host and port on FD ~d."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Ignore it"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error recving oob data on ~A: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "No oob handler defined for ~S on ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Got a SIGURG, but couldn't find any out-of-band data."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Remove any handlers for CHAR on FD."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Remove all handlers for FD."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error sending ~S OOB to across ~A: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid ""
 "A packaging of the unix recvfrom call.  Returns three values:\n"
 "bytecount, source address as integer, and source port.  bytecount\n"
 "can of course be negative, to indicate faults."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "A packaging of the unix sendto call.  Return value like sendto"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid ""
 "A packaging of the unix shutdown call.  An error is signaled if shutdown "
 "fails."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error on shutdown of socket: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid ""
 "Return a network stream.  HOST may be an address string or an integer\n"
 "IP address."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Unknown host format: ~S."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "network connection to ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "network connection from ~D.~D.~D.~D:~D"
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "The wire the form we are currently evaluating came across."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Unique identifier for this host."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Unique identifier for this process."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Hash table mapping local objects to the corresponding remote id."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Hash table mapping remote id's to the curresponding local object."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Next available id for remote objects."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "There is a problem with ~A."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Received EOF on ~A."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Error ~A ~A: ~A."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Returns T iff the given remote object is defined locally."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Returns T iff the two objects refer to the same (eq) object in the same\n"
 "  process."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Return the associated value for the given remote object. It is an error if\n"
 "  the remote object was not created in this process or if\n"
 "  FORGET-REMOTE-TRANSLATION has been called on this remote object."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "~S is defined is a different process."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Use the value of NIL"
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "No value for ~S -- FORGET-REMOTE-TRANSLATION was called to early."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Convert the given local object to a remote object."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Forget the translation from the given local to the corresponding remote\n"
 "object. Passing that remote object to remote-object-value will new return "
 "NIL."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Return T iff anything is in the input buffer or available on the socket."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "listening to"
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Read data off the socket, filling the input buffer. The buffer is cleared\n"
 "first. If fill-input-buffer returns, it is guarenteed that there will be at\n"
@@ -13164,15 +13420,15 @@ msgid ""
 "is signaled."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "reading"
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Return the next byte from the wire."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Read a number off the wire. Numbers are 4 bytes in network order.\n"
 "The optional argument controls weather or not the number should be considere"
@@ -13180,96 +13436,92 @@ msgid ""
 "signed (defaults to T)."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and\n"
 "   return it."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Reads a string from the wire. The first four bytes spec the size."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Reads the next object from the wire and returns it."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Attempt to read symbol, ~A, of wire into non-existent ~\n"
 "		       package, ~A."
 msgstr ""
 
-#: target:code/wire.lisp
-msgid "writing"
-msgstr ""
-
-#: target:code/wire.lisp
-msgid "Not everything wrote."
-msgstr ""
-
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Send any info still in the output buffer down the wire and clear it. "
 "Nothing\n"
 "harmfull will happen if called when the output buffer is empty."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
+msgid "writing"
+msgstr ""
+
+#: src/code/wire.lisp
+msgid "Not everything wrote."
+msgstr ""
+
+#: src/code/wire.lisp
 msgid "Output the given (8-bit) byte on the wire."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Output the given (32-bit) number on the wire."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Outputs an arbitrary integer, but less effeciently than WIRE-OUTPUT-NUMBER."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Output the given string. First output the length using WIRE-OUTPUT-NUMBER,\n"
 "then output the bytes."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Output the given object on the given wire. If cache-it is T, enter this\n"
 "object in the cache for future reference."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Error: Cannot output objects of type ~s across a wire."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Send the function and args down the wire as a funcall."
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/code/remote.lisp
 msgid "AList of wire . remote-wait structs"
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/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
+#: src/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
+#: src/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 "
@@ -13277,7 +13529,7 @@ msgid ""
 "  instead of returning."
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/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 "
@@ -13288,51 +13540,47 @@ msgid ""
 "   DESTROY-REQUEST-SERVER accepts to kill the request server."
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/code/remote.lisp
 msgid "Quit accepting connections to the given request server."
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/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/setf-funs.lisp
-msgid "Hairy setf expander for function ~S."
-msgstr ""
-
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "Controls compiling DEFSTRUCT :print-function and :print-method\n"
 "   options according to ANSI spec. MUST be NIL to compile CMUCL & PCL"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Allocate a new instance with LENGTH data slots."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Given an instance, return its length."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Return the value from the INDEXth slot of INSTANCE.  This is SETFable."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Set the INDEXth slot of INSTANCE to NEW-VALUE."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Class not yet defined or was undefined: ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Class is not a structure class: ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "DEFSTRUCT {Name | (Name Option*)} {Slot | (Slot [Default] {Key Value}*)}\n"
 "   Define the structure type Name.  Instances are created by MAKE-<name>, "
@@ -13367,109 +13615,109 @@ msgid ""
 "       If true, no setter function is defined for this slot."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "defining structure ~A"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Disable package's definition lock then continue"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Defstruct already names a declaration: ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Can't have more than one :INCLUDE option."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "~S is a bad :TYPE for Defstruct."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "The Defstruct option :NAMED takes no arguments."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Unknown DEFSTRUCT option~%  ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Unrecognized DEFSTRUCT option: ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Can't specify :OFFSET unless :TYPE is specified."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Silly to specify :PRINT-FUNCTION with :TYPE."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Silly to specify :MAKE-LOAD-FORM-FUN with :TYPE."
 msgstr ""
 
-#: target:code/defstruct.lisp
-msgid ""
-"Keyword slot name indicates probable syntax ~\n"
-"		      error in DEFSTRUCT -- ~S."
-msgstr ""
-
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Duplicate slot name ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Slot ~S must be read-only in subtype ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
+msgid ""
+"Keyword slot name indicates probable syntax ~\n"
+"		      error in DEFSTRUCT -- ~S."
+msgstr ""
+
+#: src/code/defstruct.lisp
 msgid ":TYPE option mismatch between structures ~S and ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ":TYPE'd defstruct ~S not found for inclusion."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "(:CONSTRUCTOR NIL) combined with other :CONSTRUCTORs."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "~@<Non-overwritten accessor ~S does not access ~\n"
 "                        slot with name ~S (accessing an inherited slot ~\n"
 "                        instead).~:@>"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Obsolete structure accessor function called."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Structure for accessor ~S is not a ~S:~% ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Structure for setter ~S is not a ~S:~% ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "New-Value for setter ~S is not a ~S:~% ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Structure for copier is not a ~S:~% ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Shouldn't happen!  Some strange thing in LAYOUT-INFO:~\n"
 "		    ~%  ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "Incompatibly redefining slots of structure class ~S~@\n"
 "	  Make sure any uses of affected accessors are recompiled:~@\n"
@@ -13478,163 +13726,147 @@ msgid ""
 "	  ~@[  These slots were deleted:~%    ~S~%~]"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Redefining class ~S incompatibly with the current ~\n"
 "		definition."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Invalidate already loaded code and instances, use new definition."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Previously loaded ~S accessors will no longer work."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "Any old ~S instances will be in a bad way.~@\n"
 "	       I hope you know what you're doing..."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Removing old subclasses of ~S:~%  ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Return a copy of Structure with the same (EQL) slot values."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Copying an obsolete structure:~%  ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Structures of type ~S cannot be dumped as constants."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "A list of tests that do argument counting at expansion time."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Let bindings that are done to make lambda-list parsing possible."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Let bindings that the user has explicitly supplied."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Unsupplied optional and keyword arguments get this value defaultly."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ""
 "Returns as multiple-values a parsed body, any local-declarations that\n"
 "   should be made where this body is inserted, and a doc-string if there is\n"
 "   one."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "&Whole must appear first in ~S lambda-list."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "&environment not valid with ~S."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "&environment only valid at top level of lambda-list."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Invalid ~a"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Ignore extra noise."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ""
 "More than variable, initform, and suppliedp ~\n"
 "			    in &optional binding - ~S"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Non-symbol in lambda-list - ~S."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Illegal optional variable name: ~S"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ""
 "Takes a non-keyword symbol, symbol, and returns the corresponding keyword."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Illegal or ill-formed ~A argument in ~A~@[ ~S~]."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Error while parsing arguments to ~A in ~S:~%"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Error while parsing arguments to ~A ~S:~%"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Bogus sublist:~%  ~S~%to satisfy lambda-list:~%  ~:S~%"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ""
 "Invalid number of elements in:~%  ~:S~%~\n"
 "	     to satisfy lambda-list:~%  ~:S~%"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Expected at least ~D"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Expected exactly ~D"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Expected between ~D and ~D"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ", but got ~D."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
-msgid "Type not defined yet."
-msgstr ""
-
-#: target:compiler/globaldb.lisp
-msgid "~S is not a defined info class."
-msgstr ""
-
-#: target:compiler/globaldb.lisp
-msgid "~S is not a defined info type."
-msgstr ""
-
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "Define-Info-Class Class\n"
 "  Define a new class of global information."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
-msgid "Out of INFO type numbers!"
-msgstr ""
-
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "Define-Info-Type Class Type default Type-Spec\n"
 "  Define a new type of global information for Class.  Type is the symbol "
@@ -13650,23 +13882,39 @@ msgid ""
 "  value of Info will also be true."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
+msgid "Type not defined yet."
+msgstr ""
+
+#: src/compiler/globaldb.lisp
+msgid "~S is not a defined info class."
+msgstr ""
+
+#: src/compiler/globaldb.lisp
+msgid "~S is not a defined info type."
+msgstr ""
+
+#: src/compiler/globaldb.lisp
+msgid "Out of INFO type numbers!"
+msgstr ""
+
+#: src/compiler/globaldb.lisp
 msgid "Redefine it."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "Changing type number for ~A ~A."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "Go for it."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "Reusing type number for ~A ~A."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "Return the information of the specified Type and Class for Name.\n"
 "   The second value is true if there is any such information recorded.  If\n"
@@ -13675,11 +13923,11 @@ msgid ""
 "   is NIL."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "Set the global information for Name."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "DO-INFO (Env &Key Name Class Type Value) Form*\n"
 "  Iterate over all the values stored in the Info-Env Env.  Name is bound to\n"
@@ -13687,32 +13935,32 @@ msgid ""
 "  (represented as strings), and Value is bound to the entry's value."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "Return a new compact info environment that holds the same information as\n"
 "  Env."
 msgstr ""
 
-#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+#: src/compiler/knownfun.lisp src/compiler/globaldb.lisp
 msgid "No info environment?"
 msgstr ""
 
-#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+#: src/compiler/knownfun.lisp src/compiler/globaldb.lisp
 msgid "Cannot modify this environment: ~S."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "0 is not a legal INFO name."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "Clear the information of the specified Type and Class for Name in the\n"
 "  current environment, allowing any inherited info to become visible.  We\n"
 "  return true if there was any info."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "This function is to parse the declarations and doc-string out of the body "
 "of\n"
@@ -13727,91 +13975,87 @@ msgid ""
 "  and the doc-string, or NIL if none."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "defining macro ~A"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Disable the package's definition-lock then continue"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Define a compiler-macro for NAME."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:code/macros.lisp
+#: src/compiler/ir1tran.lisp src/code/macros.lisp
 msgid "Symbol macro name is not a symbol: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Symbol macro name already declared special: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Symbol macro name already declared constant: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Syntax like DEFMACRO, but defines a new type."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~S -- Type name not a symbol."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "defining type ~A"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Disable package's definition-lock then continue"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Deftype already names a declaration: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Illegal to redefine standard type: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Redefining class ~S to be a DEFTYPE."
 msgstr ""
 
-#: target:code/macros.lisp
-msgid "Setf expander for ~S cannot be called with ~S args."
-msgstr ""
-
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Syntax like DEFMACRO, but creates a Setf-Expansion generator.  The body\n"
 "  must be a form that returns the five magical values."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Obsolete, use define-setf-expander."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Defining setf macro for destruct slot accessor; redefining as ~\n"
 "	        a normal function:~%  ~S"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Defining setf macro for ~S, but ~S is fbound."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "For defining global constants at top level.  The DEFCONSTANT says that the\n"
 "  value is constant and may be compiled into code.  If the variable already "
@@ -13821,15 +14065,15 @@ msgid ""
 "  argument is an optional documentation string for the variable."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Go ahead and change the value."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Constant ~S being redefined."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "For defining global variables at top level.  Declares the variable\n"
 "  SPECIAL and, optionally, initializes it.  If the variable already has a\n"
@@ -13837,7 +14081,7 @@ msgid ""
 "  documentation string for the variable."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Defines a parameter that is not normally changed by the program,\n"
 "  but that may be changed without causing an error.  Declares the\n"
@@ -13845,33 +14089,33 @@ msgid ""
 "  an optional documentation string for the parameter."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "First arg is a predicate.  If it is non-null, the rest of the forms are\n"
 "  evaluated as a PROGN."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "First arg is a predicate.  If it is null, the rest of the forms are\n"
 "  evaluated as a PROGN."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Cond clause is not a list: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Varlist is not a list of symbols: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Evaluates FORM and returns the Nth value (zero based).  This involves no\n"
 "  consing when N is a trivial constant integer."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Returns five values needed by the SETF machinery: a list of temporary\n"
 "   variables, a list of values with which to fill them, a list of temporarie"
@@ -13879,32 +14123,32 @@ msgid ""
 "   for the new values, the setting function, and the accessing function."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Obsolete: use GET-SETF-EXPANSION."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Obsolete: use GET-SETF-EXPANSION and handle multiple store values."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "GET-SETF-METHOD used for a form with multiple store ~\n"
 "	      variables:~%  ~S"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Associates a SETF update function or macro with the specified access\n"
 "  function or macro.  The format is complex.  See the manual for\n"
 "  details."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Ill-formed DEFSETF for ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Takes pairs of arguments like SETQ.  The first is a place and the second\n"
 "  is the value that is supposed to go into that place.  Returns the last\n"
@@ -13912,11 +14156,11 @@ msgid ""
 "  knows a corresponding setting form."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Odd number of args to SETF."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "This is to SETF as PSETQ is to SETQ.  Args are alternating place\n"
 "  expressions and values to go into those places.  All of the subforms and\n"
@@ -13924,11 +14168,11 @@ msgid ""
 "  updated.  Returns NIL."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Odd number of args to PSETF."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "One or more SETF-style place expressions, followed by a single\n"
 "   value expression.  Evaluates all of the expressions in turn, then\n"
@@ -13936,7 +14180,7 @@ msgid ""
 "   returning the value of the leftmost."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Takes any number of SETF-style place expressions.  Evaluates all of the\n"
 "   expressions in turn, then assigns to each place the value of the form to\n"
@@ -13944,33 +14188,33 @@ msgid ""
 "   Returns NIL."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Creates a new read-modify-write macro like PUSH or INCF."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Non-symbol &rest arg in definition of ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Illegal stuff after &rest arg in Define-Modify-Macro."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~S not allowed in Define-Modify-Macro lambda list."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Illegal stuff in lambda list of Define-Modify-Macro."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Takes an object and a location holding a list.  Conses the object onto\n"
 "  the list, returning the modified list.  OBJ is evaluated before PLACE."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Takes an object and a location holding a list.  If the object is already\n"
 "  in the list, does nothing.  Else, conses the object onto the list.  "
@@ -13978,25 +14222,25 @@ msgid ""
 "  NIL.  If there is a :TEST keyword, this is used for the comparison."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The argument is a location holding a list.  Pops one item off the front\n"
 "  of the list and returns it."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The first argument is some location holding a number. This number is\n"
 "  incremented by the second argument, DELTA, which defaults to 1."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The first argument is some location holding a number. This number is\n"
 "  decremented by the second argument, DELTA, which defaults to 1."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Place may be any place expression acceptable to SETF, and is expected\n"
 "  to hold a property list or ().  This list is destructively altered to\n"
@@ -14004,18 +14248,18 @@ msgid ""
 "  property was present, NIL if not."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Setf of Apply is only defined for function args like #'symbol."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The first argument is a byte specifier.  The second is any place form\n"
 "  acceptable to SETF.  Replaces the specified byte of the number in this\n"
 "  place with bits from the low-order end of the new value."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The first argument is a byte specifier.  The second is any place form\n"
 "  acceptable to SETF.  Replaces the specified byte of the number in this "
@@ -14023,27 +14267,27 @@ msgid ""
 "  with bits from the corresponding position in the new value."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~S -- Bad clause in ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "No default clause allowed in ~S: ~S"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "T and OTHERWISE may not be used as key designators for ~A"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Bad style to use T or OTHERWISE in ECASE or CCASE"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Supply a new value for ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "CASE Keyform {({(Key*) | Key} Form*)}*\n"
 "  Evaluates the Forms in the first clause with a Key EQL to the value\n"
@@ -14051,7 +14295,7 @@ msgid ""
 "  a default clause."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "CCASE Keyform {({(Key*) | Key} Form*)}*\n"
 "  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
@@ -14059,14 +14303,14 @@ msgid ""
 "  signalled."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "ECASE Keyform {({(Key*) | Key} Form*)}*\n"
 "  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
 "  Keyform.  If none of the keys matches then an error is signalled."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "TYPECASE Keyform {(Type Form*)}*\n"
 "  Evaluates the Forms in the first clause for which TYPEP of Keyform\n"
@@ -14074,7 +14318,7 @@ msgid ""
 "  clause is a default clause."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "CTYPECASE Keyform {(Type Form*)}*\n"
 "  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
@@ -14082,7 +14326,7 @@ msgid ""
 "  is true.  If no form is satisfied then a correctable error is signalled."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "ETYPECASE Keyform {(Type Form*)}*\n"
 "  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
@@ -14090,7 +14334,7 @@ msgid ""
 "  is true.  If no form is satisfied then an error is signalled."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Signals an error if the value of test-form is nil.  Continuing from this\n"
 "   error using the CONTINUE restart will allow the user to alter the value "
@@ -14099,48 +14343,48 @@ msgid ""
 "nil."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "The assertion ~S failed."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Retry assertion"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid " with new value for ~{~S~^, ~}."
 msgid_plural " with new values for ~{~S~^, ~}."
 msgstr[0] ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "The old value of ~S is ~S.~\n"
 "		  ~%Do you want to supply a new value? "
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~&Type a form to be evaluated:~%"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Signals an error of type type-error if the contents of place are not of the\n"
 "   specified type.  If an error is signaled, this can only return if\n"
 "   STORE-VALUE is invoked.  It will store into place and start over."
 msgstr ""
 
-#: target:code/macros.lisp
-msgid "The value of ~S is ~S, which is not ~A."
+#: src/code/macros.lisp
+msgid "Supply a new value of ~S."
 msgstr ""
 
-#: target:code/macros.lisp
-msgid "The value of ~S is ~S, which is not of type ~S."
+#: src/code/macros.lisp
+msgid "The value of ~S is ~S, which is not ~A."
 msgstr ""
 
-#: target:code/macros.lisp
-msgid "Supply a new value of ~S."
+#: src/code/macros.lisp
+msgid "The value of ~S is ~S, which is not of type ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The file whose name is Filespec is opened using the Open-args and\n"
 "  bound to the variable Var. If the call to open is unsuccessful, the\n"
@@ -14148,27 +14392,27 @@ msgid ""
 "  terminate, normally or otherwise, the file is closed."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The form stream should evaluate to a stream.  VAR is bound\n"
 "   to the stream and the forms are evaluated as an implicit\n"
 "   progn.  The stream is closed upon exit."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Binds the Var to an input stream that returns characters from String and\n"
 "  executes the body.  See manual for details."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "If STRING is specified, it must be a string with a fill pointer;\n"
 "   the output is incrementally appended to the string (as if by use of\n"
 "   VECTOR-PUSH-EXTEND)."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "DO ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
 "  Iteration construct.  Each Var is initialized in parallel to the value of "
@@ -14184,7 +14428,7 @@ msgid ""
 "  used as an laternate exit mechanism."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "DO* ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
 "  Iteration construct.  Each Var is initialized sequentially (like LET*) to "
@@ -14198,7 +14442,7 @@ msgid ""
 "  allowing RETURN to be used as an laternate exit mechanism."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "PSETQ {var value}*\n"
 "   Set the variables to the values, like SETQ, except that assignments\n"
@@ -14206,21 +14450,21 @@ msgid ""
 "   forms have been evaluated."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "variable ~S in PSETQ is not a SYMBOL"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Unknown declaration context: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Context declaration spec should have context and at ~\n"
 "	  least one DECLARE form:~%  ~S"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "WITH-COMPILATION-UNIT ({Key Value}*) Form*\n"
 "  This form affects compilations that take place within its dynamic extent. "
@@ -14289,15 +14533,73 @@ msgid ""
 "	    etc."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Odd number of key/value pairs: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Ignoring unknown option: ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/code/intl.lisp
+msgid ""
+"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n"
+"  Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Encountered illegal token: ="
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Encountered illegal token: ~C"
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Expected : in ?: construct"
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Expected close-paren."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Unexpected token: ~S."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Expecting end of expression.  ~S."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid ""
+"Look up STRING in the current message domain and return its translation."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid ""
+"Look up the singular or plural form of a message in the current domain."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid ""
+"Look up STRING in the specified message domain and return its translation."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid ""
+"Look up the singular or plural form of a message in the specified domain."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "_@ is a reserved reader macro prefix."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "~&Dumping ~D messages for domain ~S~%"
+msgstr ""
+
+#: src/compiler/macros.lisp
 msgid ""
 "Policy Node Condition*\n"
 "  Test whether some conditions apply to the current compiler policy for "
@@ -14317,11 +14619,11 @@ msgid ""
 "  conversion."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Can't funcall the SYMBOL-FUNCTION of special forms."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Def-IR1-Translator Name (Lambda-List Start-Var Cont-Var {Key Value}*)\n"
 "                      [Doc-String] Form*\n"
@@ -14335,12 +14637,7 @@ msgid ""
 "          The function kind to associate with Name (default :special-form)."
 msgstr ""
 
-#: target:compiler/ir2tran.lisp target:compiler/ltv.lisp
-#: target:compiler/ir1tran.lisp target:compiler/macros.lisp
-msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A."
-msgstr ""
-
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Def-Source-Transform Name Lambda-List Form*\n"
 "  Define a macro-like source-to-source transformation for the function "
@@ -14365,14 +14662,14 @@ msgid ""
 "pass."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Def-Primitive-Translator Name Lambda-List Form*\n"
 "  Define a function that converts a use of (%PRIMITIVE Name ...) into Lisp\n"
 "  code.  Lambda-List is a defmacro style lambda list."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)\n"
 "               Declaration* [Doc-String] Form*\n"
@@ -14455,11 +14752,11 @@ msgid ""
 "              byte-code or both (default :native.)"
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Can't specify both DEFUN-ONLY and EVAL-NAME."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Defknown Name Arg-Types Result-Type [Attributes] {Key Value}* \n"
 "  Declare the function Name to be a known function.  We construct a type\n"
@@ -14516,11 +14813,11 @@ msgid ""
 "  optimizers that the function might have."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Function cannot have both good and bad attributes: ~S"
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Defoptimizer (Function Kind) (Lambda-List [Node-Var] Var*)\n"
 "                Declaration* Form*\n"
@@ -14547,7 +14844,7 @@ msgid ""
 "  argument."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Blocks (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*\n"
 "  Iterate over the blocks in a component, binding Block-Var to each block "
@@ -14563,25 +14860,25 @@ msgid ""
 "  If supplied, Result-Form is the value to return."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Losing Ends value: ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Blocks-Backwards (Block-Var Component [Ends] [Result-Form]) {Declaration}"
 "* {Form}*\n"
 "  Like Do-Blocks, only iterate over the blocks in reverse order."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Uses (Node-Var Continuation [Result]) {Declaration}* {Form}*\n"
 "  Iterate over the uses of Continuation, binding Node to each one succesivel"
 "y."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Nodes (Node-Var Cont-Var Block {Key Value}*) {Declaration}* {Form}*\n"
 "  Iterate over the nodes in Block, binding Node-Var to the each node and\n"
@@ -14591,13 +14888,13 @@ msgid ""
 "  not supplied, this is an error.)"
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Nodes-Backwards (Node-Var Cont-Var Block) {Declaration}* {Form}*\n"
 "  Like Do-Nodes, only iterates in reverse order."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "With-IR1-Environment Node Form*\n"
 "  Bind the IR1 context variables so that IR1 conversion can be done after "
@@ -14605,7 +14902,7 @@ msgid ""
 "  main conversion pass has finished."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "LEXENV-FIND Name Slot {Key Value}*\n"
 "  Look up Name in the lexical environment namespace designated by Slot,\n"
@@ -14613,12 +14910,12 @@ msgid ""
 "  may be used to determine the name equality predicate."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "If true, defprinter print functions print each slot on a separate line."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Defprinter Name Slot-Desc*\n"
 "  Define some kind of reasonable defstruct structure-print function.  Name\n"
@@ -14643,15 +14940,36 @@ msgid ""
 "  Stream."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Losing Defprinter option: ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Unknown attribute name: ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute test function.  See\n"
+"	    Def-Boolean-Attribute."
+msgstr ""
+
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute setter.  See\n"
+"	    Def-Boolean-Attribute."
+msgstr ""
+
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute creation function.  See\n"
+"	    Def-Boolean-Attribute."
+msgstr ""
+
+#: src/compiler/macros.lisp
 msgid ""
 "Def-Boolean-Attribute Name Attribute-Name*\n"
 "  Define a new class of boolean attributes, with the attributes havin the\n"
@@ -14670,52 +14988,34 @@ msgid ""
 "      Return a set of the named attributes."
 msgstr ""
 
-#: target:compiler/macros.lisp
-msgid ""
-"Automagically generated boolean attribute test function.  See\n"
-"	    Def-Boolean-Attribute."
-msgstr ""
-
-#: target:compiler/macros.lisp
-msgid ""
-"Automagically generated boolean attribute setter.  See\n"
-"	    Def-Boolean-Attribute."
-msgstr ""
-
-#: target:compiler/macros.lisp
-msgid ""
-"Automagically generated boolean attribute creation function.  See\n"
-"	    Def-Boolean-Attribute."
-msgstr ""
-
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Returns the union of all the sets of boolean attributes which are its\n"
 "  arguments."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Returns the intersection of all the sets of boolean attributes which are "
 "its\n"
 "  arguments."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Returns true if the attributes present in Attr1 are indentical to those in\n"
 "  Attr2."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "~S is not the name of an event."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Return the number of times that Event has happened."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Return the function that is called when Event happens.  If this is null,\n"
 "  there is no action.  The function is passed the node to which the event\n"
@@ -14723,7 +15023,7 @@ msgid ""
 "SETF."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Return the non-negative integer which represents the level of significance\n"
 "  of the event Name.  This is used to determine whether to print a message "
@@ -14731,7 +15031,7 @@ msgid ""
 "  the event happens.  This may be set with SETF."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Defevent Name Description\n"
 "  Define a new kind of event.  Name is a symbol which names the event and\n"
@@ -14741,13 +15041,13 @@ msgid ""
 "  whether to print a Note when the event happens."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "This variable is a non-negative integer specifying the lowest level of\n"
 "  event that will print a Note when it occurs."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Event Name Node\n"
 "  Note that the event with the specified Name has happened.  Node is "
@@ -14755,7 +15055,7 @@ msgid ""
 "  to determine the node to which the event happened."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Print a listing of events and their counts, sorted by the count.  Events\n"
 "  that happened fewer than Min-Count times will not be printed.  Stream is "
@@ -14763,20 +15063,19 @@ msgid ""
 "  stream to write to."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Find Element in a null-terminated List linked by the accessor function\n"
 "  Next.  Key, Test and Test-Not are the same as for generic sequence\n"
 "  functions."
 msgstr ""
 
-#: target:compiler/debug.lisp target:compiler/pack.lisp
-#: target:compiler/represent.lisp target:compiler/copyprop.lisp
-#: target:compiler/life.lisp target:compiler/macros.lisp
+#: src/compiler/debug.lisp src/compiler/pack.lisp src/compiler/represent.lisp
+#: src/compiler/copyprop.lisp src/compiler/life.lisp src/compiler/macros.lisp
 msgid "Silly to supply both :Test and :Test-Not."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Return the position of Element (or NIL if absent) in a null-terminated List\n"
 "  linked by the accessor function Next.  Key, Test and Test-Not are the "
@@ -14784,13 +15083,13 @@ msgid ""
 "  for generic sequence functions."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Map Function over the elements in a null-terminated List linked by the\n"
 "  accessor function Next, returning a list of the results."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Deletef-In Next Place Item\n"
 "  Delete Item from a null-terminated list linked by the accessor function "
@@ -14798,311 +15097,403 @@ msgid ""
 "  that is stored in Place.  Item must appear exactly once in the list."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Push Item onto a list linked by the accessor function Next that is stored "
 "in\n"
 "  Place."
 msgstr ""
 
-#: target:compiler/debug-dump.lisp target:compiler/checkgen.lisp
-#: target:compiler/ir1util.lisp target:compiler/meta-vmdef.lisp
-#: target:compiler/macros.lisp
-msgid "Shouldn't happen?"
-msgstr ""
-
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Redefining modular version ~S of ~S for width ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Lambda list keyword ~S is not supported for ~\n"
 "              modular function lambda lists."
 msgstr ""
 
-#: target:compiler/generic/vm-macs.lisp
+#: src/compiler/generic/vm-macs.lisp
 msgid "No more slots can follow a :rest-p slot."
 msgstr ""
 
-#: target:compiler/generic/vm-macs.lisp
+#: src/compiler/generic/vm-macs.lisp
 msgid "Number of slots used by each ~S~\n"
 "				  ~@[~* including the header~]."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "Machine specific support routine ~S ~\n"
 "				  undefined for ~S"
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "Unknown VM support routine: ~A"
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "The backend for the machine we are running on. Do not change this."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "The backend we are attempting to compile."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "The backend we are using to compile with."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "Compute the *FEATURES* list to use with BACKEND."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid ""
 "Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "Same as EXT:FEATUREP, except use the features found in *BACKEND*."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid ""
 "Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/x86/parms.lisp
+msgid "Number of bits per word where a word holds one lisp descriptor."
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid ""
+"Number of bits per byte where a byte is the smallest addressable object."
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bits needed to represent a character"
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bytes needed to represent a character"
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bits to shift between word addresses and byte addresses."
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bytes in a word."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
 msgid "Number of bits at the low end of a pointer used for type information."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "Mask to extract the low tag bits from a pointer."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid ""
 "Exclusive upper bound on the value of the low tag bits from a\n"
 "  pointer."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "Number of bits used in the header word of a data block for typeing."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "Mask to extract the type from a header word."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "most-positive-fixnum in the target architecture."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "most-negative-fixnum in the target architecture."
 msgstr ""
 
-#: target:compiler/generic/interr.lisp
-msgid "Unknown internal error: ~S"
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each CONS."
 msgstr ""
 
-#: target:compiler/bit-util.lisp
-msgid "local-tn-limit not a vm:word-bits multiple."
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each RATIO including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each SINGLE-FLOAT including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each DOUBLE-FLOAT including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each COMPLEX including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each FDEFN including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each VALUE-CELL including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each SAP including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each WEAK-POINTER including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each SCAVENGER-HOOK including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each BINDING."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each UNWIND-BLOCK."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each CATCH-BLOCK."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each SYMBOL including the header."
 msgstr ""
 
-#: target:compiler/pack.lisp target:compiler/generic/vm-tran.lisp
-#: target:compiler/life.lisp target:compiler/bit-util.lisp
+#: src/compiler/generic/objdef.lisp
 msgid ""
-"Argument and/or result bit arrays not the same length:~\n"
-"			 ~%  ~S~%  ~S  ~%  ~S"
+"Number of slots used by each COMPLEX-SINGLE-FLOAT including the header."
 msgstr ""
 
-#: target:compiler/ctype.lisp
-msgid "Function has an odd number of arguments in the keyword portion."
+#: src/compiler/generic/objdef.lisp
+msgid ""
+"Number of slots used by each COMPLEX-DOUBLE-FLOAT including the header."
 msgstr ""
 
-#: target:compiler/ctype.lisp
-msgid "Can't tell whether the result is a ~S."
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each DOUBLE-DOUBLE-FLOAT including the header."
 msgstr ""
 
-#: target:compiler/ctype.lisp
-msgid "The result is a ~S, not a ~S."
+#: src/compiler/generic/objdef.lisp
+msgid ""
+"Number of slots used by each COMPLEX-DOUBLE-DOUBLE-FLOAT including the "
+"header."
+msgstr ""
+
+#: src/compiler/generic/interr.lisp
+msgid "Unknown internal error: ~S"
+msgstr ""
+
+#: src/compiler/bit-util.lisp
+msgid "local-tn-limit not a vm:word-bits multiple."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/pack.lisp src/compiler/life.lisp src/compiler/bit-util.lisp
+msgid ""
+"Argument and/or result bit arrays not the same length:~\n"
+"			 ~%  ~S~%  ~S  ~%  ~S"
+msgstr ""
+
+#: src/compiler/ctype.lisp
 msgid "Function called with ~R argument, but wants exactly ~R."
 msgid_plural "Function called with ~R arguments, but wants exactly ~R."
 msgstr[0] ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Function called with ~R argument, but wants at least ~R."
 msgid_plural "Function called with ~R arguments, but wants at least ~R."
 msgstr[0] ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Function called with ~R argument, but wants at most ~R."
 msgid_plural "Function called with ~R arguments, but wants at most ~R."
 msgstr[0] ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
+msgid "Function has an odd number of arguments in the keyword portion."
+msgstr ""
+
+#: src/compiler/ctype.lisp
+msgid "Can't tell whether the result is a ~S."
+msgstr ""
+
+#: src/compiler/ctype.lisp
+msgid "The result is a ~S, not a ~S."
+msgstr ""
+
+#: src/compiler/ctype.lisp
 msgid "Can't tell whether the ~:R argument is a ~S."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument is a ~S, not a ~S."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument never returns a value."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument is not a constant."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid ""
 "Can't tell whether the ~:R argument is a ~\n"
 "		             constant ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument is not a constant ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument (in keyword position) is not a constant."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The value of ~S is not a constant"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "~S is not a known argument keyword."
 msgstr ""
 
-#: target:compiler/ctype.lisp
-msgid ""
-"Function previously called with an odd number of arguments in ~\n"
-"	      the keyword portion."
-msgstr ""
-
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Function previously called with ~R argument, but wants at least ~R."
 msgid_plural ""
 "Function previously called with ~R arguments, but wants at least ~R."
 msgstr[0] ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Function previously called with ~R argument, but wants at most ~R."
 msgid_plural ""
 "Function previously called with ~R arguments, but wants at most ~R."
 msgstr[0] ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
+msgid ""
+"Function previously called with an odd number of arguments in ~\n"
+"	      the keyword portion."
+msgstr ""
+
+#: src/compiler/ctype.lisp
 msgid "Can't tell whether previous ~? argument type ~S is a ~S."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "~:(~?~) argument should be a ~S but was a ~S in a previous call."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Function previously called with unknown argument keyword ~S."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid ""
 "Definition's declared type for variable ~A:~%  ~S~@\n"
 "		   conflicts with this type from ~A:~%  ~S"
 msgstr ""
 
-#.  Translate FIXED above appropriately.
-#: target:compiler/ctype.lisp
+#. updated to allow better translations.
+#: src/compiler/ctype.lisp
+msgid "Definition has ~R ~A arg, but ~A has ~R."
+msgid_plural "Definition has ~R ~A args, but ~A has ~R."
+msgstr[0] ""
+
+#: src/compiler/ctype.lisp
 msgid "fixed"
 msgstr ""
 
-#.  Translate OPTIONAL above appropriately.
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "optional"
 msgstr ""
 
-#. updated to allow better translations.
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Definition ~:[doesn't have~;has~] ~A, but ~\n"
 "		~A ~:[doesn't~;does~]."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "keyword args"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "rest args"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Defining a ~S keyword not present in ~A."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Definition lacks the ~S keyword present in ~A."
 msgstr ""
 
-#: target:compiler/ctype.lisp
-msgid "Definition has ~R ~A arg, but ~A has ~R."
-msgid_plural "Definition has ~R ~A args, but ~A has ~R."
-msgstr[0] ""
-
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Definition has no ~A, but the ~A did."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "optional args"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "rest arg"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Definition has ~R arg, but the ~A has ~R."
 msgid_plural "Definition has ~R args, but the ~A has ~R."
 msgstr[0] ""
 
-#: target:compiler/ctype.lisp
-msgid "previous declaration"
-msgstr ""
-
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid ""
 "The result type from ~A:~%  ~S~@\n"
 "	   conflicts with the definition's result type assertion:~%  ~S"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid ""
 "Assignment to argument: ~S~%  ~\n"
 "			       prevents use of assertion from function ~\n"
 "			       type ~A:~%  ~S~%"
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/ctype.lisp
+msgid "previous declaration"
+msgstr ""
+
+#: src/compiler/vmdef.lisp
 msgid "~S is not a defined template."
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/vmdef.lisp
 msgid "~S is not a defined storage class."
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/vmdef.lisp
 msgid "~S is not a defined storage base."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp target:compiler/vmdef.lisp
+#: src/compiler/meta-vmdef.lisp src/compiler/vmdef.lisp
 msgid "~S is not a defined primitive type."
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/vmdef.lisp
 msgid ""
 "NOTE-THIS-LOCATION VOP Kind\n"
 "  Note that the current code location is an interesting (to the debugger)\n"
@@ -15113,7 +15504,7 @@ msgid ""
 "  that the live set is computed."
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/vmdef.lisp
 msgid ""
 "NOTE-NEXT-INSTRUCTION VOP Kind\n"
 "   Similar to NOTE-THIS-LOCATION, except the use the location of the next\n"
@@ -15121,7 +15512,7 @@ msgid ""
 "   it."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-Storage-Base Name Kind {Key Value}*\n"
 "  Define a storage base having the specified Name.  Kind may be :Finite,\n"
@@ -15133,15 +15524,15 @@ msgid ""
 "      :Unbounded SB."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Size specification meaningless in a ~S SB."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Size not specified in a ~S SB."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-Storage-Class Name Number Storage-Base {Key Value}*\n"
 "  Define a storage class Name that uses the named Storage-Base.  Number is "
@@ -15186,31 +15577,27 @@ msgid ""
 "      SC by a move function."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Alignment is not a power of two: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "SC element ~D out of bounds for ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ":Locations is meaningless in a ~S SB."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Reserve-Locations not a subset of Locations."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Meaningless to specify alternate or constant SCs in a ~S SB."
 msgstr ""
 
-#: target:compiler/x86/vm.lisp target:compiler/meta-vmdef.lisp
-msgid "Redefining SC number ~D from ~S to ~S."
-msgstr ""
-
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-Move-Function (Name Cost) lambda-list ({(From-SC*) (To-SC*)}*) form*\n"
 "  Define the function Name and note it as the function used for moving "
@@ -15224,11 +15611,11 @@ msgid ""
 "  DEFINE-VOP."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed SCs spec: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-Move-VOP Name {:Move | :Move-Argument} {(From-SC*) (To-SC*)}*\n"
 "  Make Name be the VOP used to move values in the specified From-SCs to the\n"
@@ -15237,11 +15624,11 @@ msgid ""
 "  an extra argument, which is the frame pointer of the frame to move into."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown kind ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Def-Primitive-Type Name (SC*) {Key Value}*\n"
 "   Define a primitive type Name.  Each SC specifies a Storage Class that "
@@ -15254,13 +15641,13 @@ msgid ""
 "      (defaults to Name.)"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "DEF-PRIMITIVE-TYPE-ALIAS Name Result\n"
 "  Define name to be an alias for Result in VOP operand type restrictions."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Primitive-Type-VOP Vop (Kind*) Type*\n"
 "  Annotate all the specified primitive Types with the named VOP under each "
@@ -15272,171 +15659,170 @@ msgid ""
 "      checking that the value is of this type in the process."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown kind: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Operand ~S isn't one of these kinds: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "~S is not an operand to ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "~S is not the name of a defined VOP."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "~:R argument missing: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Extra junk at end of ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "~:R argument is not a ~S: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed time specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown phase in time specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Cannot target a ~S operand: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/debug-dump.lisp src/compiler/checkgen.lisp
+#: src/compiler/ir1util.lisp src/compiler/meta-vmdef.lisp
+msgid "Shouldn't happen?"
+msgstr ""
+
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "No move function defined to ~:[save~;load~] SC ~S~\n"
 "			  ~:[to~;from~] from SC ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Can't tell whether to ~:[save~;load~] with ~S~@\n"
 "				 or ~S when operand is in SC ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "SC ~S has no alternate~:[~; or constant~] SCs, yet it is~@\n"
 "	          mentioned in the restriction for operand ~S."
 msgstr ""
 
-#: target:compiler/x86/nlx.lisp target:compiler/meta-vmdef.lisp
-msgid ""
-"Load TN allocated, but no move function?~@\n"
-"	           VM definition inconsistent, recompile and try again."
-msgstr ""
-
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed operand specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "More operand isn't last: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Can only specify :FROM in a result: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Can only specify :TO in an argument: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown keyword in operand specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Cannot specify :TARGET in a :MORE operand."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Cannot specify :LOAD-IF in a :MORE operand."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed temporary spec: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed options list: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Odd number of arguments in keyword options: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Temporary spec allocates no temps:~%  ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Bad temporary name: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Must specify exactly one SC for a temporary."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown temporary option: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Temporary lifetime doesn't begin before it ends: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Must specifiy :SC for all temporaries: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed option specification: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown option specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "No move function defined to move ~:[from~;to~] SC ~\n"
 "	              ~S~%~:[to~;from~] alternate or constant SC ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Bad thing to be a operand type: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Bad PRIMITIVE-TYPE name in ~S: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Can't include primitive-type ~\n"
 "				             alias ~S in a :OR restriction: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Can't :CONSTANT for a result."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Bad :CONSTANT argument type spec: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "In the ~A ~:[result~;argument~] to VOP ~S,~@\n"
 "	            none of the SCs allowed by the operand type ~S can ~\n"
@@ -15445,27 +15831,27 @@ msgid ""
 "		    [* type operand must allow T's SCs.]~]"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "~:[Result~;Argument~] ~A to VOP ~S~@\n"
 "	         has SC restriction ~S which is ~\n"
 "		 not allowed by the operand type:~%  ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
-msgid "Can't use :CONSTANT on VOP more args."
-msgstr ""
-
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Expected ~D ~:[result~;argument~] type: ~S."
 msgid_plural "Expected ~D ~:[result~;argument~] types: ~S."
 msgstr[0] ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
+msgid "Can't use :CONSTANT on VOP more args."
+msgstr ""
+
+#: src/compiler/meta-vmdef.lisp
 msgid "Expected ~D variant values: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-VOP (Name [Inherits]) Spec*\n"
 "  Define the symbol Name to be a Virtual OPeration in the compiler.  If\n"
@@ -15644,14 +16030,14 @@ msgid ""
 "      frame."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Emit-Template Node Block Template Args Results [Info]\n"
 "  Call the emit function for Template, linking the result in at the end of\n"
 "  Block."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "VOP Name Node Block Arg* Info* Result*\n"
 "  Emit the VOP (or other template) Name at the end of the IR2-Block Block,\n"
@@ -15670,15 +16056,15 @@ msgid ""
 "  codegen info."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Cannot use VOP with variable operand count templates."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Called with ~D operands, but was expecting ~D."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "VOP* Name Node Block (Arg* More-Args) (Result* More-Results) Info*\n"
 "  Like VOP, but allows for emission of templates with arbitrary numbers of\n"
@@ -15698,19 +16084,19 @@ msgid ""
 "  arguments."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Too many fixed arguments."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Too many fixed results."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Expected ~D info args."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "SC-Case TN {({(SC-Name*) | SC-Name | T} Form*)}*\n"
 "  Case off of TN's SC.  The first clause containing TN's SC is evaulated,\n"
@@ -15721,37 +16107,27 @@ msgid ""
 "  clause matches, then an error is signalled."
 msgstr ""
 
-#: target:assembly/x86/arith.lisp target:assembly/x86/array.lisp
-#: target:assembly/x86/assem-rtns.lisp target:compiler/x86/type-vops.lisp
-#: target:compiler/x86/pred.lisp target:compiler/x86/print.lisp
-#: target:compiler/x86/nlx.lisp target:compiler/x86/values.lisp
-#: target:compiler/x86/subprim.lisp target:compiler/x86/static-fn.lisp
-#: target:compiler/x86/system.lisp target:compiler/x86/sap.lisp
-#: target:compiler/meta-vmdef.lisp
-msgid "Unknown SC to SC-Case for ~S:~%  ~S"
-msgstr ""
-
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Illegal SC-Case clause: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "T case is not last in SC-Case."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "SC-Is TN SC*\n"
 "  Returns true if TNs SC is any of the named SCs, false otherwise."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Do-IR2-Blocks (Block-Var Component [Result]) Form*\n"
 "  Iterate over the IR2 blocks in component, in emission order."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "DO-LIVE-TNS (TN-Var Live Block [Result]) Form*\n"
 "  Iterate over all the TNs live at some point, with the live set represented"
@@ -15759,24 +16135,24 @@ msgid ""
 "  a local conflicts bit-vector and the IR2-Block containing the location."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "DO-ENVIRONMENT-IR2-BLOCKS (Block-Var Env [Result]) Form*\n"
 "  Iterate over all the IR2 blocks in the environment Env, in emit order."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "The width of the column in which instruction-names are printed.\n"
 "  NIL means use the default.  A value of zero gives the effect of not\n"
 "  aligning the arguments at all."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "The column in which end-of-line comments for notes are started."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Specify global disassembler params for C:*TARGET-BACKEND*.\n"
 "  Keyword arguments include:\n"
@@ -15792,7 +16168,7 @@ msgid ""
 "      instruction, or NIL to use the default."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "DEFINE-ARGUMENT-TYPE Name {Key Value}*\n"
 "  Define a disassembler argument type NAME (which can then be referenced in\n"
@@ -15825,7 +16201,7 @@ msgid ""
 "      value."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*\n"
 "  Define an instruction format NAME for the disassembler's use.  LENGTH is\n"
@@ -15889,93 +16265,93 @@ msgid ""
 "      label.  If this is a function, it is called to filter the value."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "~d bits is not a byte-multiple"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Return ADDRESS aligned *upward* to a SIZE byte boundary."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return\n"
 "  OLD-CONS, otherwise return (cons CAR CDR)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "A simple (one list arg) mapcar that avoids consing up a new list\n"
 "  as long as the results of calling FUN on the elements of LIST are\n"
 "  eq to the original."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Can't dump functions, so function ref form must be quoted: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown argument ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "~s must not have multiple values"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown arg-form kind ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Cannot label a multiple-field argument ~\n"
 "			      unless using a function: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Bogus!  Can't use the :printed value of an arg!"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "number of constants doesn't match number of fields ~\n"
 "			  in: (~s :constant~{ ~s~})"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Can't compare differently sized fields: ~\n"
 "		          (~s :same-as ~s)"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Bogus test-form: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the first non-keyword symbol in a depth-first search of TREE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Illegal printer: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown printer element: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "First arg to :USING must be a string or #'function"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "No suitable choice found in ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns a version of the disassembly-template PRINTER with compile-time\n"
 "  tests (e.g. :constant without a value), and any :CHOOSE operators resolved"
@@ -15985,96 +16361,88 @@ msgid ""
 "  which every field reference refers to a valid arg."
 msgstr ""
 
-#: target:compiler/disassem.lisp
-msgid "~&; Using cached function ~s~%"
-msgstr ""
-
-#: target:compiler/disassem.lisp
-msgid "~&; Making new function ~s~%"
-msgstr ""
-
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown argument type: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "~@<In arg ~s:  ~3i~:_~\n"
 "          Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "~@<In arg ~s:  ~3i~:_~\n"
 "				     Field ~s doesn't fit in an ~\n"
 "				     instruction-format ~d bits wide.~:>"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Generate a form to specify global disassembler params.  See the\n"
 "  documentation for SET-DISASSEM-PARAMS for more info."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Generate a form to define a disassembler argument type.  See\n"
 "  DEFINE-ARGUMENT-TYPE for more info."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Generate a form to define an instruction format.  See\n"
 "  DEFINE-INSTRUCTION-FORMAT for more info."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Field ~s in arg ~s overlaps some other field"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown instruction format ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns non-NIL if the instruction SPECIAL is a more specific version of\n"
 "  GENERAL (i.e., the same instruction, but with more constraints)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns an integer corresponding to the specifivity of the instruction "
 "INST."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Order the list of instructions INSTS with more specific (more constant\n"
 "  bits, or same-as argument constains) ones first.  Returns the ordered "
 "list."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Instructions either aren't related or conflict in some way:~% ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given a list of instructions INSTS, Sees if one of these instructions is a\n"
 "  more general form of all the others, in which case they are put into its\n"
 "  specializers list, and it is returned.  Otherwise an error is signaled."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Multiple specializing masters: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns non-NIL if all constant-bits in INST match CHUNK."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given an instruction object, INST, and a bit-pattern, CHUNK, picks the\n"
 "  most specific instruction on INST's specializer list who's constraints "
@@ -16082,13 +16450,13 @@ msgid ""
 "  met by CHUNK.  If none do, then INST is returned."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns the instruction object within INST-SPACE corresponding to the\n"
 "  bit-pattern CHUNK, or NIL if there isn't one."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns an instruction-space object corresponding to the list of\n"
 "  instructions INSTS.  If the optional parameter INITIAL-MASK is supplied, "
@@ -16096,114 +16464,114 @@ msgid ""
 "  bits it has set are used."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Prints a nicely formatted version of INST-SPACE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Print the inst space for the specified backend"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Converts a word-offset NUM to a byte-offset."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Converts a byte-offset NUM to a word-offset."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Get the value of the property called NAME in DSTATE.  Also setf'able."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the absolute address of the current instruction in DSTATE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the absolute address of the next instruction in DSTATE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Offset of FUNCTION from the start of its code-component's instruction area."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Offset of FUNCTION from the start of its code-component."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the length of the instruction area in CODE-COMPONENT."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the address of the instruction area in CODE-COMPONENT."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the first function in CODE-COMPONENT."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Possible ~A header word"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Print the function-header (entry-point) pseudo-instruction at the current\n"
 "  location in DSTATE to STREAM."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Iterate through the instructions in SEGMENT, calling FUNCTION\n"
 "  for each instruction, with arguments of CHUNK, STREAM, and DSTATE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Make an initial non-printing disassembly pass through DSTATE, noting any\n"
 "  addresses that are referenced by instructions in this segment."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If any labels in DSTATE have been added since the last call to this\n"
 "  function, give them label-numbers, enter them in the hash-table, and make\n"
 "  sure the label list is in sorted order."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Get the instruction-space from PARAMS, creating it if necessary."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Print the current address in DSTATE to STREAM, plus any labels that\n"
 "  correspond to it, and leave the cursor in the instruction column."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Print a newline to STREAM, inserting any pending notes in DSTATE as\n"
 "  end-of-line comments.  If there is more than one note, a separate line\n"
 "  will be used for each one."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Make a disassembler-state object."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Return a memory segment located at the system-area-pointer returned by\n"
 "  SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.\n"
@@ -16213,39 +16581,39 @@ msgid ""
 "  object), and :HOOKS (a list of offs-hook objects)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Code-header ~s: size: ~s, trace-table-offset: ~s~%"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "The source file ~s no longer seems to exist"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "No start positions map"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Source file ~s has been modified; ~@\n"
 "					 Using form offset instead of file index"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Bogus form-number in form!  The source file has probably ~@\n"
 "		  been changed too much to cope with"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Return the vector of debug-variables currently associated with DSTATE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given the OFFSET of a location within the location-group called LG-NAME,\n"
 "  see if there's a current mapping to a source variable in DSTATE, and if "
@@ -16253,57 +16621,49 @@ msgid ""
 "  return the offset of that variable in the current debug-variable vector."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Return a new vector which has the same contents as the old one VEC, plus\n"
 "  new cells (for a total size of NEW-LEN).  The additional elements are\n"
 "  initailized to INITIAL-ELEMENT."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns a STORAGE-INFO struction describing the object-to-source\n"
 "  variable mappings from DEBUG-FUNCTION."
 msgstr ""
 
-#: target:compiler/disassem.lisp
-msgid ";;; At offset ~d: ~s~%"
-msgstr ""
-
-#: target:compiler/disassem.lisp
-msgid ";;; SET: ~s[~d]~%"
-msgstr ""
-
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Add hooks to track to track the source code in SEGMENT during\n"
 "  disassembly.  SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE\n"
 "  structure, in which case it is used to cache forms from files."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "No-arg-parsing entry point"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "~s entry point"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Return the PC of FUNCTION's header."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "If non-NIL, disassemble flets/labels too"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns a list of the segments of memory containing machine code\n"
 "  instructions for FUNCTION."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns a list of the segments of memory containing machine code\n"
 "  instructions for the code-component CODE.  If START-OFFS and/or LENGTH is\n"
@@ -16311,13 +16671,13 @@ msgid ""
 "  constrained to lie within the code-segment)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Return the address of the instructions for function and its length.\n"
 "  The length is computed using a heuristic, and so may not be accurate."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns two values:  the amount by which the last instruction in the\n"
 "  segment goes past the end of the segment, and the offset of the end of "
@@ -16326,7 +16686,7 @@ msgid ""
 "  perfectly, this will return 0 and 0."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Computes labels for all the memory segments in SEGLIST and adds them to\n"
 "  DSTATE.  It's important to call this function with all the segments "
@@ -16334,29 +16694,29 @@ msgid ""
 "  interested in, so it can find references from one to another."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Disassemble the machine code instructions in SEGMENT to STREAM."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassemble the machine code instructions in each memory segment in\n"
 "  SEGMENTS in turn to STREAM."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Disassemble the machine code instructions for FUNCTION."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Cannot compile a lexical closure"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Can't make a compiled function from ~S"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassemble the machine code associated with OBJECT, which can be a\n"
 "  function, a lambda expression, or a symbol with a function definition.  "
@@ -16366,7 +16726,7 @@ msgid ""
 "  disassemble."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassembles the given area of memory starting at ADDRESS and LENGTH long.\n"
 "  Note that if CODE-COMPONENT is NIL and this memory could move during a GC,"
@@ -16374,29 +16734,29 @@ msgid ""
 "  you'd better disable it around the call to this function."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid " Address ~x not in the code component ~s."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassemble the machine code instructions associated with\n"
 "  CODE-COMPONENT (this may include multiple entry points)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassemble the machine code instructions associated with\n"
 "  ASSEM-SEGMENT (of type new-assem:segment)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a\n"
 "symbol object that we know about."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given ADDRESS, try and figure out if which slot of which symbol is being\n"
 "  refered to.  Of course we can just give up, so it's not a big deal...\n"
@@ -16404,7 +16764,7 @@ msgid ""
 "  slot."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given a BYTE-OFFSET from NIL, try and figure out if which slot of which\n"
 "  symbol is being refered to.  Of course we can just give up, so it's not a "
@@ -16412,28 +16772,28 @@ msgid ""
 "  deal...  Returns two values, the symbol and the access function."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the lisp object located BYTE-OFFSET from NIL."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns two values; the lisp-object located at BYTE-OFFSET in the constant\n"
 "  area of the code-object in the current segment and T, or NIL and NIL if\n"
 "  there is no code-object in the current segment."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Build an address-name hash-table from the name-address hash"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns the name of the primitive lisp assembler routine or foreign\n"
 "  symbol located at ADDRESS, or NIL if there isn't one."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Store NOTE (which can be either a string or a function with a single\n"
 "  stream argument) to be printed as an end-of-line comment after the "
@@ -16441,21 +16801,21 @@ msgid ""
 "  instruction is disassembled."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Store a note about the lisp constant located BYTE-OFFSET bytes from the\n"
 "  current code-component, to be printed as an end-of-line comment after the\n"
 "  current instruction is disassembled."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Store a note about the lisp constant located at ADDR in the\n"
 "  current code-component, to be printed as an end-of-line comment after the\n"
 "  current instruction is disassembled."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
 "  is a valid slot in a symbol, store a note describing which symbol and "
@@ -16464,7 +16824,7 @@ msgid ""
 "  disassembled.  Returns non-NIL iff a note was recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
 "  is a valid lisp object, store a note describing which symbol and slot, to\n"
@@ -16472,7 +16832,7 @@ msgid ""
 "  disassembled.  Returns non-NIL iff a note was recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If ADDRESS is the address of a primitive assembler routine or\n"
 "  foreign symbol, store a note describing which one, to be printed as\n"
@@ -16481,7 +16841,7 @@ msgid ""
 "  note of the address is also made."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If NIL-BYTE-OFFSET is the offset of static function, store a note\n"
 "  describing which one, to be printed as an end-of-line comment after\n"
@@ -16489,7 +16849,7 @@ msgid ""
 "  was recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If there's a valid mapping from OFFSET in the storage class SC-NAME to a\n"
 "  source variable, make a note of the source-variable name, to be printed "
@@ -16498,7 +16858,7 @@ msgid ""
 "  Returns non-NIL iff a note was recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If there's a valid mapping from OFFSET in the storage-base called SB-NAME\n"
 "  to a source variable, make a note equating ASSOC-WITH with the\n"
@@ -16507,7 +16867,7 @@ msgid ""
 "  recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "When called from an error break instruction's :DISASSEM-CONTROL (or\n"
 "  :DISASSEM-PRINTER) function, will correctly deal with printing the\n"
@@ -16529,81 +16889,29 @@ msgid ""
 "       return-values."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Set up the assembler."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Execute BODY (as a progn) without scheduling any of the instructions\n"
 "   generated inside it.  DO NOT throw or return-from out of it."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
-msgid "~&~S reads ~S[~D for ~D]~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "~&~S writes ~S[~D for ~D]~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "~&Queuing ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "  reads ~S~%  writes ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "~&Scheduling pending instructions...~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Flushing ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Queued branches: ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Initially emittable: ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Initially delayed: ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Filling branch delay slot with ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Emitting ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Emitting a NOP.~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Now emittable: ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Emit BYTE to SEGMENT."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Output AMOUNT zeros (in bytes) to SEGMENT."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Attempt to emit ~S for the second time."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Note that the instruction stream has to be back-patched when label positions"
 "\n"
@@ -16619,7 +16927,7 @@ msgid ""
 "   ended up."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Note that the instruction stream here depends on the actual positions of\n"
 "   various labels, so can't be output until label positions are known.  "
@@ -16641,139 +16949,131 @@ msgid ""
 "   just like a BACK-PATCH.  (See EMIT-BACK-PATCH.)"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "~S emitted ~D bytes, but claimed it's max was ~D"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "~S shrunk by ~D bytes, but claimed that it ~\n"
 "			    preserve ~D bits of alignment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Chooser ~S passed, but not before emitting ~D bytes."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Alignment ~S needs more space now?  It was ~D, ~\n"
 "			    and is ~D now."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "~S emitted ~D bytes, but claimed it's was ~D"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Execute BODY (as a progn) with SEGMENT as the current segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Duplicate nested labels: ~S"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Emit the specified instruction to the current segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Unknown instruction: ~S"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Emit LABEL at this location in the current segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Emit an alignment restriction to the current segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Return the current position for LABEL.  Chooser maybe-shrink functions\n"
 "   should supply IF-AFTER and DELTA to assure correct results."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Append OTHER-SEGMENT to the end of SEGMENT.  Don't use OTHER-SEGMENT\n"
 "   for anything after this."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Does any final processing of SEGMENT and returns the total number of bytes\n"
 "   covered by this segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Call FUNCTION on all the output accumulated in SEGMENT.  FUNCTION is called\n"
 "   zero or more times with two arguments: a SAP and a number of bytes."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Releases any output buffers held on to by segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
-msgid "~D isn't an even multiple of ~D"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Byte spec ~S either overlaps another byte spec, or ~\n"
 "		    extends past the end."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "There are holes."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
+msgid "~D isn't an even multiple of ~D"
+msgstr ""
+
+#: src/compiler/new-assem.lisp
 msgid "Can only specify one emitter per instruction."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Can only specify delay once per instruction."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Can only specify :vop-var once."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
-msgid "You can't use INST without an ASSEMBLE inside emitters."
-msgstr ""
-
-#: target:compiler/alloc.lisp
+#: src/compiler/alloc.lisp
 msgid ""
 "defallocators {((name lambda-list [real-lambda-list]) thread-slot\n"
 "                   (deinit-form*)\n"
 "		   (reinit-form*))}*"
 msgstr ""
 
-#: target:compiler/alloc.lisp
-msgid "~S already deallocated!"
-msgstr ""
-
-#: target:compiler/knownfun.lisp
+#: src/compiler/knownfun.lisp
 msgid "optimize"
 msgstr ""
 
-#: target:compiler/knownfun.lisp
+#: src/compiler/knownfun.lisp
 msgid "~S is not a known function."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default value for the :Block-Compile argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default value for the :Byte-Compile argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-level"
 "\n"
@@ -16781,39 +17081,39 @@ msgid ""
 "   (the default.)  When true, we decide to byte-compile."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Whether loop analysis should be done or not."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Whether the compiler should record cross-reference information."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default for the :VERBOSE argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default for the :PRINT argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default for the :PROGRESS argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The defaulted pathname of the file currently being compiled, or NIL if not\n"
 "  compiling."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The TRUENAME of the file currently being compiled, or NIL if not\n"
 "  compiling."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The user supplied source-info for the current compilation.  \n"
 "This is the :source-info argument to COMPILE-FROM-STREAM and will be\n"
@@ -16821,40 +17121,36 @@ msgid ""
 "in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The upper limit on the number of times that we will consecutively do IR1\n"
 "  optimization that doesn't introduce any new code.  A finite limit is\n"
 "  necessary, since type inference may take arbitrarily long to converge."
 msgstr ""
 
-#: target:compiler/main.lisp
-msgid "*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceeded."
-msgstr ""
-
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~|~%Disassembly of code for ~S~2%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~:[~;Byte ~]Compiling ~A: "
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Undefined ~(~A~) ~S~@[ ~A~]"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~D more use~:P of undefined ~(~A~) ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~\n"
 "		~%  ~{~<~%  ~1:;~S~>~^ ~}"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "~2&; Compilation unit ~:[finished~;aborted~].~\n"
 "      ~[~:;~:*~&;   ~D fatal error~:P~]~\n"
@@ -16863,99 +17159,87 @@ msgid ""
 "      ~[~:;~:*~&;   ~D note~:P~]~2%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~|~%;;;; Component: ~S~2%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~%~|~%;;;; IR2 component: ~S~2%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Entries:~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~4TL~D: ~S~:[~; [Closure]~]~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Read error at ~D:~% \"~A/\\~A\"~%~A"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Unable to recover from read error."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A"
 msgstr ""
 
-#: target:compiler/main.lisp
-msgid "Skip this form."
-msgstr ""
-
-#: target:compiler/main.lisp
-msgid "Attempt to load a file having a compile-time read error."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp target:compiler/main.lisp
+#: src/compiler/ir1tran.lisp src/compiler/main.lisp
 msgid "(during macroexpansion)~%~A"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Bad FILE-COMMENT form: ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Ignoring extra file comment:~%  ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~&; Comment: ~A~2&"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/main.lisp
-msgid "Execution of a form compiled with errors:~% ~S"
-msgstr ""
-
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "EVAL-WHEN form is too short: ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "MACROLET form is too short: ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Load Time Value of ~S"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "(while making load form for ~S)~%~A"
 msgstr ""
 
-#: target:compiler/main.lisp
-msgid "Creation Form for ~A"
+#: src/compiler/main.lisp
+msgid "Circular references in creation form for ~S"
 msgstr ""
 
-#: target:compiler/main.lisp
-msgid "Circular references in creation form for ~S"
+#: src/compiler/main.lisp
+msgid "Creation Form for ~A"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Init Form~:[~;s~] for ~{~A~^, ~}"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~2&Fatal error, aborting compilation...~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Can't compile with no source files."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Similar to COMPILE-FILE, but compiles text from Stream into the current "
 "lisp\n"
@@ -16978,19 +17262,19 @@ msgid ""
 "        If true, then may compile to interpreted byte code."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~2&; Python version ~A, VM version ~A on ~A.~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "; Compiling: ~A ~A~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~&; Compilation ~:[aborted after~;finished in~] ~A.~&"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Compiles Source, producing a corresponding .FASL file.  Source may be a "
 "list\n"
@@ -17051,23 +17335,23 @@ msgid ""
 "      The external format to use when opening the source file"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~2&; ~A written.~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Can't :LOAD with no output file."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~S was defined in a non-null environment."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Can't find a definition for ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Compiles the function (or macro-function) whose name is NAME.  If\n"
 "  DEFINITION is supplied, it should be a lambda expression which will\n"
@@ -17077,37 +17361,37 @@ msgid ""
 "  is Nil, the compiled code object is returned."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Attempt to replace Name's definition with an interpreted version of that\n"
 "  definition.  If no interpreted definition is to be found, then signal an\n"
 "  error."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~S is already interpreted."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Return a pathname describing what file COMPILE-FILE would write to given\n"
 "   these arguments."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The ~A parameter is a ~S, which is an invalid value ~@\n"
 "            to COMPILE-FILE-PATHNAME."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "If true, argument and result type information derived from compilation of\n"
 "  DEFUNs is used when compiling calls to that function.  If false, only\n"
 "  information from FTYPE proclamations will be used."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "If NIL, never trust dynamic-extent declarations.\n"
 "\n"
@@ -17119,170 +17403,166 @@ msgid ""
 "   otherwise they are not trusted."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Can't find slot ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Found macro name ~S ~A."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Found special-form name ~S ~A."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Cannot dump objects of type ~S into fasl files."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~S has already ended."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~S already has successors."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~S is already a predecessor of ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Misplaced declaration."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Illegal function call."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Attempt to reference undumpable constant."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Reading an ignored variable: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~&dynamic-extent args ~:s in ~s~%"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Conflicting type declarations ~\n"
 "				   ~S and ~S for ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Can't declare type of Alien variable: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Declaring symbol-macro ~S special."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Ignored variable ~S is being declared special."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Ignoring ~A declaration not at ~\n"
 "				   definition of local function:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Unrecognizable function or variable name: ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Ignoring free ignore declaration for ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Ignore declaration for unknown variable ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Declaring special variable ~S to be ignored."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "If true, processing of the VALUES declaration is inhibited."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "No type specified in FTYPE declaration: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Abbreviated type declaration: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Unrecognized declaration: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed declaration specifier ~S in ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Declaring an alien variable to be special: ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Declaring a constant to be special: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Lambda-variable is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Repeated variable in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Name of lambda-variable is a constant: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Multiple uses of keyword ~S in lambda-list."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Found a ~S when expecting a lambda expression:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Expecting a lambda, but form begins with ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Lambda-list absent or not a list:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "ir1-convert-lambda: called by: ~S, parent-form: ~S~%"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Arg specifier is too long: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Malformed keyword arg specifier: ~S."
+#: src/compiler/ir1tran.lisp
+msgid "Malformed &aux binding specifier: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Malformed &aux binding specifier: ~S."
+#: src/compiler/ir1tran.lisp
+msgid "Malformed keyword arg specifier: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Progn Form*\n"
 "  Evaluates each Form in order, returing the values of the last form.  With "
@@ -17290,14 +17570,22 @@ msgid ""
 "  forms, returns NIL."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir2tran.lisp src/compiler/ltv.lisp src/compiler/ir1tran.lisp
+msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "If Predicate Then [Else]\n"
 "  If Predicate evaluates to non-null, evaluate Then and returns its values,\n"
 "  otherwise evaluate Else and return its values.  Else defaults to NIL."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid "Block name is not a symbol: ~S."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Block Name Form*\n"
 "  Evaluate the Forms as a PROGN.  Within the lexical scope of the body,\n"
@@ -17305,11 +17593,11 @@ msgid ""
 "  result of Value-Form."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Block name is not a symbol: ~S."
+#: src/compiler/ir1tran.lisp
+msgid "Return for unknown block: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Return-From Block-Name Value-Form\n"
 "  Evaluate the Value-Form, returning its values from the lexically enclosing"
@@ -17318,19 +17606,15 @@ msgid ""
 "  extent of the BLOCK."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Return for unknown block: ~S."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Repeated tagbody tag: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Illegal tagbody statement: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Tagbody {Tag | Statement}*\n"
 "  Define tags for used with GO.  The Statements are evaluated in order\n"
@@ -17343,7 +17627,11 @@ msgid ""
 "  body."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid "Go to nonexistent tag: ~S."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Go Tag\n"
 "  Transfer control to the named Tag in the lexically enclosing TAGBODY.  "
@@ -17351,34 +17639,30 @@ msgid ""
 "  is constrained to be used only within the dynamic extent of the TAGBODY."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Go to nonexistent tag: ~S."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Bad compiler-let binding spec: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "EVAL-WHEN (Situation*) Form*\n"
 "  Evaluate the Forms in the specified Situations, any of :COMPILE-TOPLEVEL,\n"
 "  :LOAD-TOPLEVEL, :EXECUTE."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Macro name ~S is not a symbol."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Local macro ~S has argument list that is not a list: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Local macro ~S is too short to be a legal definition."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "MACROLET ({(Name Lambda-List Form*)}*) Body-Form*\n"
 "  Evaluate the Body-Forms in an environment with the specified local macros\n"
@@ -17386,55 +17670,59 @@ msgid ""
 "  destructuring lambda list, and the Forms evaluate to the expansion."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid "Bogus binding for ~\n"
+"						     COMPILER-OPTION-BIND: ~S"
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*\n"
 "   Establish the specified compiler options for the (lexical) duration of\n"
 "   the body.  The Value-Forms are evaluated at compile time."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Bogus binding for ~\n"
-"						     COMPILER-OPTION-BIND: ~S"
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Lisp error during evaluation of info args:~%~A"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "%Primitive name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Undefined primitive name: ~A."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Primitive called with ~R argument~:P, ~\n"
 "	    		         but wants at least ~R."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Primitive called with ~R argument~:P, ~\n"
 "				 but wants exactly ~R."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "%Primitive used with a conditional template."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "%Primitive used with an unknown values template."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "QUOTE Value\n"
 "  Return Value without evaluating it."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid "Illegal function name: ~S"
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "FUNCTION Name\n"
 "  Return the lexically apparent definition of the function Name.  Name may "
@@ -17442,64 +17730,60 @@ msgid ""
 "  be a lambda."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Illegal function name: ~S"
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Might be a symbol, so must call FDEFINITION at runtime."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid ""
-"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n"
-"  Define the Names as symbol macros with the given Expansions.  Within the\n"
-"  body, references to a Name will effectively be replaced with the Expansion"
-"."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed symbol macro binding: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Repeated name in SYMBOL-MACROLET: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid ""
+"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n"
+"  Define the Names as symbol macros with the given Expansions.  Within the\n"
+"  body, references to a Name will effectively be replaced with the Expansion"
+"."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid "Name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "New proclaimed type ~S for ~S conflicts with old type ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Attempt to proclaim constant ~S to be special."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed TYPE proclamation: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed FUNCTION proclamation: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed FTYPE proclamation: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed ~S binding spec: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "LET ({(Var [Value]) | Var}*) Declaration* Form*\n"
 "  During evaluation of the Forms, Bind the Vars to the result of evaluating "
@@ -17509,14 +17793,14 @@ msgid ""
 "  evaluated."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "LOCALLY Declaration* Form*\n"
 "   Sequentially evaluates a body of Form's in a lexical environment\n"
 "   where the given Declaration's have effect."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "LET* ({(Var [Value]) | Var}*) Declaration* Form*\n"
 "  Similar to LET, but the variables are bound sequentially, allowing each "
@@ -17524,11 +17808,11 @@ msgid ""
 "  form to reference any of the previous Vars."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed ~S definition spec: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "FLET ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
 "  Evaluate the Body-Forms with some local function definitions.   The "
@@ -17538,7 +17822,7 @@ msgid ""
 "  the lexically apparent function definition in the enclosing environment."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "LABELS ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
 "  Evaluate the Body-Forms with some local function definitions.  The "
@@ -17548,18 +17832,18 @@ msgid ""
 "  each other."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Type ~S in ~S declaration conflicts with enclosing assertion:~%   ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "THE Type Form\n"
 "  Assert that Form evaluates to the specified type (which may be a VALUES\n"
 "  type.)"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Truly-The Type Value\n"
 "  Like the THE special form, except that it believes whatever you tell it.  "
@@ -17569,34 +17853,34 @@ msgid ""
 "  can prove the assertion is wrong."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid ""
-"SETQ {Var Value}*\n"
-"  Set the variables to the values.  If more than one pair is supplied, the\n"
-"  assignments are done sequentially.  If Var names a symbol macro, SETF the\n"
-"  expansion."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Odd number of args to SETQ: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Attempt to set constant ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Setting an ignored variable: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid ""
+"SETQ {Var Value}*\n"
+"  Set the variables to the values.  If more than one pair is supplied, the\n"
+"  assignments are done sequentially.  If Var names a symbol macro, SETF the\n"
+"  expansion."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Throw Tag Form\n"
 "  Do a non-local exit, return the values of Form from the CATCH whose tag\n"
 "  evaluates to the same thing as Tag."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Catch Tag Form*\n"
 "  Evaluates Tag and instantiates it as a catcher while the body forms are\n"
@@ -17607,7 +17891,7 @@ msgid ""
 "  and the thrown values will be returned."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Unwind-Protect Protected Cleanup*\n"
 "  Evaluate the form Protected, returning its values.  The cleanup forms are\n"
@@ -17616,125 +17900,125 @@ msgid ""
 "  due to normal completion or a non-local exit such as THROW)."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "MULTIPLE-VALUE-CALL Function Values-Form*\n"
 "  Call Function, passing all the values of each Values-Form as arguments,\n"
 "  values from the first Values-Form making up the first argument, etc."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "MULTIPLE-VALUE-PROG1 Values-Form Form*\n"
 "  Evaluate Values-Form and then the Forms, but return all the values of\n"
 "  Values-Form."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Macro name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Defining ~S to be a macro when it was ~(~A~) to be a function."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Attempt to redefine special form ~S as a macro."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~&; Converted ~S.~%"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Attempt to define a compiler-macro for special form ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Constant name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Can't change T."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Nihil ex nihil (Can't change NIL)."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Can't change the value of keywords."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Redefining constant ~S as:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Redefining ~(~A~) ~S to be a constant."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Return the TLF-NUMBER and FORM-NUMBER encoded as fixnum."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Return the tlf-number and form-number from an encoded FIXNUM."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Return a source-location for the call site."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Deleting unused function~:[.~;~:*~%  ~S~]"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Block is already deleted."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Variable ~S defined but never used."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Deleting unreachable code."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "If CONT is a call to FUN with NUM-ARGS args, change those arguments\n"
 "   to feed directly to the continuation-dest of CONT, which must be\n"
 "   a combination."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "An upper limit on the number of inline function calls that will be expanded\n"
 "   in any given code object (single function or block compilation.)"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "*Inline-Expansion-Limit* (~D) exceeded, ~\n"
 "			     probably trying to~%  ~\n"
 "			     inline a recursive function."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "The value for *Print-Level* when printing compiler error messages."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "The value for *Print-Length* when printing compiler error messages."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "The value for *Print-Lines* when printing compiler error messages."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "The maximum number of enclosing non-original source forms (i.e. from\n"
 "  macroexpansion) that we print in full.  For additional enclosing forms, "
@@ -17742,7 +18026,7 @@ msgid ""
 "  print only the CAR."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "DEF-SOURCE-CONTEXT Name Lambda-List Form*\n"
 "   This macro defines how to extract an abbreviated source context from the\n"
@@ -17752,11 +18036,11 @@ msgid ""
 "   list of subforms suitable for a \"~{~S ~}\" format string."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Compiler-Error with no bailout."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "This is the function called by the compiler to specially note a\n"
 "warning, comment, or error. The function must take five arguments: the\n"
@@ -17766,27 +18050,27 @@ msgid ""
 "these can be NIL if unavailable or inapplicable."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "[Last message occurs ~D times]"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "~2&File: ~A"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "In:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "replace form with call to ERROR."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "ignore it."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "If non-null, then an upper limit on the number of unknown function or type\n"
 "  warnings that the compiler will print for any given name in a single\n"
@@ -17795,20 +18079,20 @@ msgid ""
 "  a missing definition (as opposed to a typo in the use.)"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Lisp error during ~A:~%~A"
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid "New inferred type ~S conflicts with old type:~\n"
 "		~%  ~S~%*** Bug?"
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid "The return value of ~A should not be discarded."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "This function is used to throw out of an IR1 transform, aborting this\n"
 "  attempt to transform the call, but admitting the possibility that this or\n"
@@ -17817,14 +18101,14 @@ msgid ""
 "  format arguments for an efficiency note."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "This function is used to throw out of an IR1 transform and force a normal\n"
 "  call to the function at run time.  No further optimizations will be\n"
 "  attempted."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "This function is used to throw out of an IR1 transform, and delay the\n"
 "  transform on the node until later. The reasons specifies when the transfor"
@@ -17835,113 +18119,101 @@ msgid ""
 "  propagation."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
 "	     at least ~R."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
 "	     at most ~R."
 msgstr ""
 
-#: target:compiler/ir1final.lisp
+#: src/compiler/ir1final.lisp
 msgid "Unable to ~A because:~%~6T~?"
 msgstr ""
 
-#: target:compiler/ir1final.lisp
+#: src/compiler/ir1final.lisp
 msgid ""
 "Unable to ~A due to type uncertainty:~@\n"
 "	                      ~{~6T~?~^~&~}"
 msgstr ""
 
-#: target:compiler/ir1final.lisp
+#: src/compiler/ir1final.lisp
 msgid ""
 "The result type from previous declaration:~%  ~S~@\n"
 "				  conflicts with the result type:~%  ~S"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
-msgid "Element-Type is not constant."
+#: src/compiler/array-tran.lisp
+msgid "Default initial element ~s is not a ~s."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Cannot open-code creation of ~S"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
-msgid "Default initial element ~s is not a ~s."
+#: src/compiler/array-tran.lisp
+msgid "Element-Type is not constant."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Element-type not constant; cannot open code array creation"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Dimension list not constant; cannot open code array creation"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Dimension list contains something other than an integer: ~S"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Array rank not known at compile time: ~S"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Axis not constant."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Array dimensions unknown, must call array-dimension at runtime."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Array has dimensions ~S, ~D is too large."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Can't tell if array is simple."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Vector length unknown, must call length at runtime."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Can't tell the rank at compile time."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid ""
 "Array type ambiguous; must call ~\n"
 "	              array-has-fill-pointer-p at runtime."
 msgstr ""
 
-#: target:compiler/srctran.lisp target:compiler/seqtran.lisp
-msgid "open code"
-msgstr ""
-
-#: target:compiler/seqtran.lisp
-msgid "convert to EQ test"
-msgstr ""
-
-#: target:compiler/seqtran.lisp
+#: src/compiler/seqtran.lisp
 msgid "Item might be a number"
 msgstr ""
 
-#: target:compiler/seqtran.lisp
-msgid "inline expand"
-msgstr ""
-
-#: target:compiler/seqtran.lisp
+#: src/compiler/seqtran.lisp
 msgid "Specified output type ~S is not a sequence type"
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid ""
 "Define-Type-Predicate Name Type\n"
 "  Establish an association between the type predicate Name and the\n"
@@ -17949,443 +18221,409 @@ msgid ""
 "  purposes of optimization."
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid "Can't open-code test of non-constant type."
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid "Can't open-code test of unknown type ~S."
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid "Can't compile TYPEP of anonymous or undefined ~\n"
 "			class:~%  ~S"
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid "Illegal type specifier for Typep: ~S."
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "use inline fixnum operations"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "use inline (unsigned-byte 32) operations"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
-msgid "use inline (signed-byte 32) operations"
-msgstr ""
-
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Shouldn't happen"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Can't open-code float to rational comparison."
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "~S doesn't have a precise float representation."
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid ""
 "Unable to avoid inline argument range check~@\n"
 "                      because the argument range (~s) was not within 2^~D"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid ""
 "Unable to avoid inline argument range check~@\n"
 "                   because the argument range (~s) was not within 2^~D"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Float zero bound ~s not correctly canonicalised?"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
+msgid "Compute fl(a*b) and err(a*b)"
+msgstr ""
+
+#: src/compiler/float-tran.lisp
+msgid ""
+"Compute fl(a*a) and err(a*b).  This is a more efficient\n"
+"  implementation of two-prod"
+msgstr ""
+
+#: src/compiler/float-tran.lisp
 msgid "Computes fl(a+b) and err(a+b), assuming |a| >= |b|"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Computes fl(a+b) and err(a+b)"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Add the double-double A0,A1 to the double-double B0,B1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Compute fl(a-b) and err(a-b), assuming |a| >= |b|"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Compute fl(a-b) and err(a-b)"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Subtract the double-double B0,B1 from A0,A1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Compute double-double = double - double-double"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Subtract the double B from the double-double A0,A1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid ""
 "Split the double-float number a into a-hi and a-lo such that a =\n"
 "  a-hi + a-lo and a-hi contains the upper 26 significant bits of a and\n"
 "  a-lo contains the lower 26 bits."
 msgstr ""
 
-#: target:compiler/float-tran.lisp
-msgid "Compute fl(a*b) and err(a*b)"
-msgstr ""
-
-#: target:compiler/float-tran.lisp
-msgid ""
-"Compute fl(a*a) and err(a*b).  This is a more efficient\n"
-"  implementation of two-prod"
-msgstr ""
-
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Multiply the double-double A0,A1 with B0,B1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Add the double-double A0,A1 to the double B"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Divide the double-double A0,A1 by B0,B1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Square"
 msgstr ""
 
-#: target:compiler/saptran.lisp
+#: src/compiler/saptran.lisp
 msgid "FOREIGN-SYMBOL-ADDRESS flavor ~S is not :CODE or :DATA"
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Function doesn't have fixed argument count."
 msgstr ""
 
-#: target:compiler/srctran.lisp
-msgid "convert NTHCDR to CAxxR"
-msgstr ""
-
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Unknown bound type in make-interval!"
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "This shouldn't happen!"
 msgstr ""
 
-#: target:compiler/srctran.lisp
-msgid "convert to inline logical ops"
-msgstr ""
-
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "BOOLE code is not a constant."
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "~S illegal control arg to BOOLE."
 msgstr ""
 
-#: target:compiler/srctran.lisp
-msgid "convert x*2^k to shift"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert division by 2^k to shift"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert remainder mod 2^k to LOGAND"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "fold identity operations"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "fold identity operation"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert (- 0 x) to negate"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert (* x 0) to 0."
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "fold zero arg"
-msgstr ""
-
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Unexpected types: ~s ~s~%"
 msgstr ""
 
-#: target:compiler/srctran.lisp
-msgid "recode as multiplication or sqrt"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert to simpler equality predicate"
-msgstr ""
-
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Operands might not be the same type."
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "~s: too few args (~d), need at least ~d"
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "~s: too many args (~d), wants at most ~d"
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Control string is not a constant."
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid ""
 "When non-NIL, the compiler will generate code utilizing modular\n"
 "  arithmetic.  Set to NIL to disable this, if you don't want modular\n"
 "  arithmetic in some cases."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid ""
 "Couldn't inline expand because expansion ~\n"
 "				   calls this let-converted local function:~\n"
 "				   ~%  ~S"
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Function called with ~R argument~:P, but wants exactly ~R."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Function called with ~R argument~:P, but wants at least ~R."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Function called with ~R argument~:P, but wants at most ~R."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Can't local-call functions with &MORE args."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid ""
 "Function called with odd number of ~\n"
 "	  		     arguments in keyword portion."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Non-constant keyword in keyword call."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "non-constant :ALLOW-OTHER-KEYS value"
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Function called with unknown argument keyword ~S."
 msgstr ""
 
-#: target:compiler/checkgen.lisp
-msgid "~:[A possible~;The~] binding of ~S"
-msgstr ""
-
-#: target:compiler/checkgen.lisp
+#: src/compiler/checkgen.lisp
 msgid "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
 msgstr ""
 
-#: target:compiler/checkgen.lisp
+#: src/compiler/checkgen.lisp
 msgid "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
 msgstr ""
 
-#: target:compiler/checkgen.lisp
+#: src/compiler/checkgen.lisp
+msgid "~:[A possible~;The~] binding of ~S"
+msgstr ""
+
+#: src/compiler/checkgen.lisp
 msgid "Type assertion too complex to check:~% ~S."
 msgstr ""
 
-#: target:compiler/constraint.lisp
+#: src/compiler/constraint.lisp
 msgid "*** Unreachable code in constraint ~\n"
 "			  propagation...  Bug?"
 msgstr ""
 
-#: target:compiler/tn.lisp
+#: src/compiler/tn.lisp
 msgid ""
 "Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*\n"
 "  Iterate over all packed TNs allocated in Component."
 msgstr ""
 
-#: target:compiler/tn.lisp
+#: src/compiler/tn.lisp
 msgid "SC ~S has no :unbounded :save-p NIL alternate SC."
 msgstr ""
 
-#: target:compiler/life.lisp
+#: src/compiler/life.lisp
 msgid "More operand ~S used more than once in its VOP."
 msgstr ""
 
-#: target:compiler/debug-dump.lisp
+#: src/compiler/debug-dump.lisp
 msgid ""
 "Extract the namestring from FILE-INFO for the DEBUG-SOURCE.  \n"
 "Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;\n"
 "otherwise the truename."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "Make a fixnum out of NUM.  (i.e. shift by two bits if it will fit.)"
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "~D is too big for a fixnum."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "Returns the byte offset of the static symbol Symbol."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "~S is not a static symbol."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "Given a byte offset, Offset, returns the appropriate static symbol."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "Byte offset, ~D, is not correct."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid ""
 "Return the (byte) offset from NIL to the start of the fdefn object\n"
 "   for the static function NAME."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "~S isn't a static function."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid ""
 "Given a byte offset, Offset, returns the appropriate static function\n"
 "   symbol."
 msgstr ""
 
-#: target:compiler/generic/primtype.lisp
+#: src/compiler/x86/vm.lisp
+msgid "Redefining SC number ~D from ~S to ~S."
+msgstr ""
+
+#: src/compiler/generic/primtype.lisp
 msgid ""
 "An a-list for mapping simple array element types to their\n"
 "  corresponding primitive types."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/x86/type-vops.lisp src/compiler/x86/pred.lisp
+#: src/compiler/x86/print.lisp src/compiler/x86/nlx.lisp
+#: src/compiler/x86/values.lisp src/compiler/x86/subprim.lisp
+#: src/compiler/x86/static-fn.lisp src/compiler/x86/system.lisp
+#: src/compiler/x86/sap.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: src/compiler/x86/nlx.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"	           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: src/compiler/aliencomp.lisp
 msgid "Slot is not constant, so cannot open code access."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "~S doesn't have a slot named ~S"
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Too many indices for pointer deref: ~D"
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Unknown element size."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Unknown element alignment."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Incorrect number of indices."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Element size unknown."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Element alignment unknown."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "~S not either a pointer or array type."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Info not constant; can't open code."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
-msgid "Local Alien Info isn't constant?"
-msgstr ""
-
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Aliens of type ~S cannot be represented immediately."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
-msgid "This should be dead-code eleminated."
+#: src/compiler/aliencomp.lisp
+msgid "Local Alien Info isn't constant?"
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "This shouldn't happen."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Alien type not constant; cannot open code."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid ""
 "Could not optimize away %SAP-ALIEN: forced to do runtime ~@\n"
 "	    allocation of alien-value structure."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Type not constant at compile time; can't open code."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Can't tell function type at compile time."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Wrong number of arguments.  Expected ~D, got ~D."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Something is broken."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "No unique move-arg-vop for moves in SC ~S."
 msgstr ""
 
-#: target:compiler/ltv.lisp
+#: src/compiler/ltv.lisp
+msgid "(during EVAL of LOAD-TIME-VALUE)~%~A"
+msgstr ""
+
+#: src/compiler/ltv.lisp
 msgid ""
 "Arrange for FORM to be evaluated at load-time and use the value produced\n"
 "   as if it were a constant.  If READ-ONLY-P is non-NIL, then the resultant\n"
@@ -18393,133 +18631,128 @@ msgid ""
 "   storage."
 msgstr ""
 
-#: target:compiler/ltv.lisp
-msgid "(during EVAL of LOAD-TIME-VALUE)~%~A"
-msgstr ""
-
-#: target:compiler/gtn.lisp
+#: src/compiler/gtn.lisp
 msgid ""
 "Return value count mismatch prevents known return ~\n"
 "		       from these functions:~\n"
 "		       ~{~%  ~A~}"
 msgstr ""
 
-#: target:compiler/gtn.lisp
+#: src/compiler/gtn.lisp
 msgid ""
 "Return type not fixed values, so can't use known return ~\n"
 "		      convention:~%  ~S"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid ""
 "Unable to check type assertion in unknown-values ~\n"
 "	                context:~% ~S"
 msgstr ""
 
-#: target:compiler/represent.lisp target:compiler/ir2tran.lisp
-#: target:compiler/ltn.lisp
+#: src/compiler/represent.lisp src/compiler/ir2tran.lisp src/compiler/ltn.lisp
 msgid "Neither CONT nor TN supplied."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "~S has :MORE results with :TRANSLATE."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid ""
 "This is the maximum number of possible optimization alternatives will be\n"
 "  mentioned in a particular efficiency note.  NIL means no limit."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid ""
 "This is the minumum cost difference between the chosen implementation and\n"
 "  the next alternative that justifies an efficiency note."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "This shouldn't happen!  Bug?"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Template guard failed."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Template is not safe, yet we were counting on it."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Argument types invalid."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Argument primitive types:~%  ~S"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Argument type assertions:~%  ~S"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Conditional in a non-conditional context."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Result types invalid."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "etc."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Unable to do ~A (cost ~D) because:"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Can't trust output type assertion under safe ~\n"
 "		       policy."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Forced to do ~A (cost ~D)."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Forced to do full call."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Recursive known function definition."
 msgstr ""
 
-#: target:compiler/ir2tran.lisp
+#: src/compiler/ir2tran.lisp
 msgid ""
 "Always perform stack clearing if non-NIL, independent of the\n"
 "compilation policy"
 msgstr ""
 
-#: target:compiler/ir2tran.lisp
+#: src/compiler/ir2tran.lisp
 msgid ""
 "If non-NIL and the compilation policy allows, stack clearing is enabled."
 msgstr ""
 
-#: target:compiler/ir2tran.lisp
+#: src/compiler/ir2tran.lisp
 msgid "~@<~2I~_~S ~_not found in ~_~S~:>"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid "Couldn't find REF?"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "Representation selection flamed out for no obvious reason.~@\n"
 "	          Try again after recompiling the VM definition."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "~S is not valid as the ~:R ~:[result~;argument~] to the~@\n"
 "	        ~S VOP, since the TN's primitive type ~S allows SCs:~%  ~S~@\n"
@@ -18529,13 +18762,13 @@ msgid ""
 "		time.  Recompile.~%Compilation order may be incorrect.~]"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "Representation selection flamed out for no ~\n"
 "		             obvious reason."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "~S is not valid as the ~:R ~:[result~;argument~] to VOP:~\n"
 "	        ~%  ~S~%Primitive type: ~S~@\n"
@@ -18550,225 +18783,391 @@ msgid ""
 "		time.  Recompile.~%Compilation order may be incorrect.~]"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "No :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~\n"
 "          ~S (SC ~S.)"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "No move function defined to load SC ~S from constant ~\n"
 "	             SC ~S."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "No move function defined to load SC ~S from alternate ~\n"
 "	             SC ~S."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "No move function defined to save SC ~S to alternate ~\n"
 "	             SC ~S."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid "<return value>"
 msgstr ""
 
-#: target:compiler/represent.lisp
-msgid "Couldn't fine op?  Bug!"
-msgstr ""
-
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~\n"
 "	       The ~:R ~:[result~;argument~] of ~A."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid "Doing ~A (cost ~D)~@[ from ~S~]~@[ to ~S~]."
 msgstr ""
 
-#: target:compiler/generic/vm-tran.lisp
-msgid ""
-"Argument and result bit arrays not the same length:~\n"
-"	     	     ~%  ~S~%  ~S"
+#: src/compiler/represent.lisp
+msgid "Couldn't fine op?  Bug!"
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid "Returns the number of bytes used by the code object header."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "The size of the Name'd SB in the currently compiled component.  Useful\n"
 "  mainly for finding the size for allocating stack frames."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "Return the TN that is used to hold the number stack frame-pointer in VOP's\n"
 "  function.  Returns NIL if no number stack frame was allocated."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "Return the TN that is used to hold the number stack frame-pointer in the\n"
 "  function designated by 2env.  Returns NIL if no number stack frame was\n"
 "  allocated."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "Return the TN used for passing the return PC in a local call to the function"
 "\n"
 "  designated by 2env."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "Set to NIL to inhibit assembly-level optimization.  For compiler debugging,\n"
 "  rather than policy control."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid "In the ~A segment:~%"
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid "~|~%Assembly code for ~S~2%"
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid "Missing generator for ~S.~%"
 msgstr ""
 
-#: target:compiler/debug.lisp
+#: src/compiler/debug.lisp
 msgid ""
 "This variable is bound to the format arguments when an error is signalled\n"
 "  by Barf or Burp."
 msgstr ""
 
-#: target:compiler/debug.lisp
+#: src/compiler/debug.lisp
 msgid ""
 "Action taken by the Burp function when a possible compiler bug is detected.\n"
 "  One of :Warn, :Error or :None."
 msgstr ""
 
-#: target:compiler/debug.lisp
+#: src/compiler/debug.lisp
 msgid ""
 "Return a list of a the TNs that conflict with TN.  Sort of, kind of.  For\n"
 "  debugging use only.  Probably doesn't work on :COMPONENT TNs."
 msgstr ""
 
-#: target:compiler/debug.lisp
+#: src/compiler/debug.lisp
 msgid "Return the Nth VOP in the IR2-Block pointed to by Thing."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "Compiler bug: ~S not a legal fasload operator."
+#: src/compiler/xref.lisp
+msgid "Reinitialize the cross-reference database."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "Tried to output ~D bytes, but only ~D made it."
+#: src/compiler/xref.lisp
+msgid ""
+"Return a list of those program contexts where a globally-defined\n"
+"function may be called at runtime."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "This object cannot be dumped into a fasl file:~% ~S"
+#: src/compiler/xref.lisp
+msgid ""
+"Return a list of those program contexts where GLOBAL-VARIABLE\n"
+"may be referenced at runtime."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "~S already dumped?"
+#: src/compiler/xref.lisp
+msgid ""
+"Return a list of those program contexts where GLOBAL-VARIABLE may\n"
+"be bound at runtime."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "Warning: dumping ~s as 0l0~%"
+#: src/compiler/xref.lisp
+msgid ""
+"Return a list of those program contexts where GLOBAL-VARIABLE may\n"
+"be set at runtime."
+msgstr ""
+
+#: src/compiler/dyncount.lisp
+msgid ""
+"When T, emit extra code to collect dynamic statistics about vop usages."
+msgstr ""
+
+#: src/compiler/dyncount.lisp
+msgid "Holds the TN for the counts vector."
+msgstr ""
+
+#: src/compiler/dump.lisp
+msgid "Compiler bug: ~S not a legal fasload operator."
+msgstr ""
+
+#: src/compiler/dump.lisp
+msgid "Tried to output ~D bytes, but only ~D made it."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "Unable to dump long-float"
+#: src/compiler/dump.lisp
+msgid "This object cannot be dumped into a fasl file:~% ~S"
+msgstr ""
+
+#: src/compiler/dump.lisp
+msgid "~S already dumped?"
 msgstr ""
 
-#: target:compiler/dump.lisp
+#: src/compiler/dump.lisp
 msgid "Attempt to dump invalid structure:~%  ~S~%How did this happen?"
 msgstr ""
 
-#: target:compiler/dump.lisp
+#: src/compiler/dump.lisp
 msgid "Dumping reference to obsolete class: ~S"
 msgstr ""
 
-#: target:compiler/generic/core.lisp
+#: src/compiler/generic/core.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: src/compiler/generic/core.lisp
 msgid "Unresolved forward reference."
 msgstr ""
 
-#: target:compiler/generic/core.lisp
+#: src/compiler/generic/core.lisp
 msgid "#<Code Instruction Stream for ~S>"
 msgstr ""
 
-#: target:compiler/generic/core.lisp
+#: src/compiler/generic/core.lisp
 msgid "Writing ~D bytes to ~S would cause it to overflow."
 msgstr ""
 
-#: target:compiler/generic/core.lisp
+#: src/compiler/generic/core.lisp
 msgid "Writing another byte to ~S would cause it to overflow."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/generic/new-genesis.lisp
+msgid "Rounds number up to be an integral multiple of size."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Handle on Nil."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Number of bits in the low half of the descriptor"
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Alignment requirement for spaces in the target.\n"
+"  Must be at least (ash 1 descriptor-low-bits"
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Return a descriptor for a block of LENGTH bytes out of SPACE.  The free\n"
+"  pointer is boosted as necessary.  If any additional memory is needed, we\n"
+"  vm_allocate it.  The descriptor returned is a pointer of type LOWTAG."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Return the lowtag bits for DES."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Return the bits of DES."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Return a SAP pointing to the piece of memory DES refers to.  The lowtag\n"
+"  bits of DES are ignored."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Handle on the trap object."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Head of list of functions to be called when the Lisp starts up."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Used by normal loader."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Write VALUE (a descriptor) INDEX words from ADDRESS (also a descriptor)."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Write VALUE (a descriptor) at ADDRESS (also a descriptor)."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Return the value (as a descriptor) INDEX words from ADDRESS (a descriptor)."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Return the value at ADDRESS (a descriptor)."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Allocate LENGTH words in SPACE and return a new descriptor of type LOWTAG\n"
+"  pointing to them."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Allocate LENGTH units of ELEMENT-SIZE bits plus a header word in SPACE and\n"
+"  return an ``other-pointer'' descriptor to them.  Initialize the header "
+"word\n"
+"  with the resultant length and TYPE."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Allocate LENGTH units of ELEMENT-SIZE plus a header plus a length slot in\n"
+"  SPACE and return an ``other-pointer'' descriptor to them.  Initialize the\n"
+"  header word with TYPE and the length slot with LENGTH."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Copy string into the CORE and return a descriptor to it."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Copy the bignum to the core."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Makes a number pair of TYPE (ratio or complex) and fills it in."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Copy the given number to the core, or flame out if we can't deal with it."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Allocate a cons cell in SPACE and fill it in with CAR and CDR."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Generates code to push the THING onto the given cold load LIST."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Initializes the cold load symbol-hacking data structures."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "FOP functions for cold loading."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Loads the file named by FileName into the cold load image being built."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Return the version number from the symbol table file Filename.\n"
+"  Value is 0 if Filename is null or the file doesn't exist."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Builds a kernel Lisp image from the .FASL files specified in the given\n"
+"  File-List and writes it to a file named by Core-Name."
+msgstr ""
+
+#: src/compiler/eval-comp.lisp
 msgid "Fatal error, aborting evaluation."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/eval-comp.lisp
 msgid "Wrong argument count, wanted ~D and got ~D."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/eval-comp.lisp
 msgid "Wrong number of arguments passed -- ~S."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/eval-comp.lisp
 msgid "Function called with odd number of keyword arguments."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/eval-comp.lisp
 msgid "Unknown keyword argument -- ~S."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "[PUSH: growing stack.]~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "pushing ~D.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "Attempt to pop empty eval stack."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "popping ~D --> ~S.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "[EXTEND: growing stack.]~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "extending to ~D.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "shrinking to ~D.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "setting top to ~D.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid ""
 "If the interpreted function cache has more functions than this come GC time,"
 "\n"
@@ -18776,180 +19175,180 @@ msgid ""
 "  *INTERPRETED-FUNCTION-CACHE-THRESHOLD*."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid ""
 "If an interpreted function goes uncalled for more than this many GCs, then\n"
 "  it is eligible for flushing from the cache."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid ""
 "Clear all entries in the eval function cache.  This allows the internal\n"
 "  representation of the functions to be reclaimed, and also lazily forces\n"
 "  macroexpansions to be recomputed."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "C::%UNKNOWN-VALUES should never be in interpreter's IR1."
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "Unknown XOP ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "Unknown inline function: ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "Can't find ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~|~%;;;; Byte component ~S~2%"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid ";;; Functions:~%"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~%;;;Disassembly:~2%"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "<bogus index>"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "Entry point, frame-size=~D~%"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-local ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-arg ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-const ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-sys-const ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-int ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-neg-int ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "pop-local ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "pop-n ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~:[~;named-~]call, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~:[~;named-~]tail-call, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~:[~;named-~]multiple-call, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "local call ~D, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "local tail-call ~D, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "local multiple-call ~D, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "return, ~D vals"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "branch ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "if-true ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "if-false ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "if-eq ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "xop ~A~@[ ~D~]"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "inline ~A"
 msgstr ""
 
-#: target:pcl/init.lisp target:pcl/defclass.lisp target:pcl/macros.lisp
+#: src/pcl/init.lisp src/pcl/defclass.lisp src/pcl/macros.lisp
 msgid "Malformed plist in doplist, odd number of elements."
 msgstr ""
 
-#: target:pcl/macros.lisp
+#: src/pcl/macros.lisp
 msgid "~@<~S is not a legal class name.~@:>"
 msgstr ""
 
-#: target:pcl/macros.lisp
+#: src/pcl/macros.lisp
 msgid "No class named ~S."
 msgstr ""
 
-#: target:pcl/macros.lisp
+#: src/pcl/macros.lisp
 msgid "~S is not a legal class name."
 msgstr ""
 
-#: target:pcl/macros.lisp
+#: src/pcl/macros.lisp
 msgid ""
 "Returns the PCL class metaobject named by SYMBOL. An error of type\n"
 "   SIMPLE-ERROR is signaled if the class does not exist unless ERRORP\n"
 "   is NIL in which case NIL is returned. SYMBOL cannot be a keyword."
 msgstr ""
 
-#: target:pcl/low.lisp
+#: src/pcl/low.lisp
 msgid "Set the name of a compiled function object and return the function."
 msgstr ""
 
-#: target:pcl/low.lisp
+#: src/pcl/low.lisp
 msgid ""
 "PCL debugging aid that breaks into the debugger each time\n"
 "`compile-lambda' is invoked."
 msgstr ""
 
-#: target:pcl/low.lisp
+#: src/pcl/low.lisp
 msgid ""
 "If true (the default), then `compile-lambda' will try to silence\n"
 "the compiler as completely as possible.  Currently this means that\n"
 "`*compile-print*' will be bound to nil during compilation."
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid ""
 "~@<The declaration ~S is not understood by ~S. ~\n"
 "                               Please put ~S on one of the lists ~S, ~S, or "
@@ -18959,53 +19358,57 @@ msgid ""
 "                               argument).~@:>"
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid "~@<Invalid slot access specifier ~s in ~s.~@:>"
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid "~@<Invalid slot access declaration ~s.~@:>"
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid "~@<Invalid auto-compile specifier ~s in ~s.~@:>"
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid "~@<Invalid auto-compile declaration ~s.~@:>"
 msgstr ""
 
-#: target:pcl/fin.lisp
+#: src/pcl/fin.lisp
 msgid ""
 "~@<Attempt to funcall a funcallable instance without first ~\n"
 "          setting its function.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
+msgid "Defclass already names a declaration: ~S."
+msgstr ""
+
+#: src/pcl/defclass.lisp
 msgid "~S is not a legal defclass option."
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid ""
 "~@<The value of the ~s option (~s) is not a legal ~\n"
 "	        class name.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid "~@<~S is not a legal slot specification.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid ""
 "~@<In the class definintion of ~s, the slot specification ~s ~\n"
 "                 is obsolete.  Convert it to ~s.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid "~@<~S is not a class in *early-class-definitions*.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid ""
 "~@<More than one early class defines a slot with the ~\n"
 "                    name ~S.  This can't work because the bootstrap ~\n"
@@ -19013,55 +19416,59 @@ msgid ""
 "                    slots.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid "Discard it."
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid ""
 "~@<The defclass option ~S is not supported by ~\n"
 "                                 the bootstrap object system.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid "Slot ~S not found in class ~S"
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid ""
 "~@<Trying to load (or compile) PCL in an environment in which it ~\n"
 "            has already been loaded.  This doesn't work, you will have to ~\n"
 "            get a fresh lisp (reboot) and then load PCL.~@:>"
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid "Try loading (or compiling) PCL anyways."
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
+msgid "Obsolete, don't use."
+msgstr ""
+
+#: src/pcl/defs.lisp
 msgid "~@<~S is not a legal specializer type.~@:>"
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid "~@<~s is neither a type nor a specializer.~@:>"
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid "Bad argument to type-class."
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid "~s is not a type."
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid ""
 "For class slots, the class defininig the slot.\n"
 "For inherited class slots, this is the superclass from which the slot\n"
 "was inherited."
 msgstr ""
 
-#: target:pcl/fngen.lisp
+#: src/pcl/fngen.lisp
 msgid ""
 "Flush cached emf functions.  If GF is supplied, it should be a\n"
 "   generic function metaobject or the name of a generic function, and\n"
@@ -19069,137 +19476,137 @@ msgid ""
 "   function.  If GF is not supplied, all cached emfs are flushed."
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Wrapper ~S"
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Unknown wrapper state"
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid ""
 "~@<PCL cannot handle the specializer ~S ~\n"
 "                                (meta-specializer ~S).~@:>"
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Line is reserved."
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid ""
 "~@<Bad cache ~S: Value at location ~D is ~D ~\n"
 "                               lines from its home, limit is ~D.~@:>"
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Attempt to fill a reserved cache line."
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Transfering something into a reserved cache line."
 msgstr ""
 
-#: target:pcl/dlisp.lisp
+#: src/pcl/dlisp.lisp
 msgid "Every metatype is T."
 msgstr ""
 
-#: target:pcl/dlisp.lisp
+#: src/pcl/dlisp.lisp
 msgid "Can't do a slot reg for this metatype."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~~@<Generic function ~a: ~?.~~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Invalid generic function parameter name ~a"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "Optional and key parameters of generic functions ~\n"
 "                   may not have default values or supplied-p ~\n"
 "                   parameters: ~<~s~>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~s is not allowed in generic function lambda lists"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~~@<Generic function ~~s: ~?.~~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "The option ~s appears more than once"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Declaration specifier ~s is not allowed"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "Argument precedence order must list all ~\n"
 "                           required parameters and only those: ~s"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "Duplicate parameter names in argument ~\n"
 "                           precedence order: ~s"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Special operators cannot be made generic functions"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Unsupported option ~s"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "If true, allow inlining of methods in effective methods."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<Defining method ~s ~s ~s using inline slot access in a ~\n"
 "                   non-null lexical environment means that it cannot be ~\n"
 "                   automatically recompiled.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "The method-lambda argument to make-method-function, ~S,~\n"
 "            is not a lambda form"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "Assignment to method parameter~p ~{~s~^, ~} ~\n"
 "                           might prevent CLOS optimizations"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Wrong number of args."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "1 or 2 args expected."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "1 arg expected."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<The set of methods ~s applicable to argument~p ~\n"
 "                ~{~s~^, ~} to call-next-method is different from ~\n"
@@ -19207,11 +19614,11 @@ msgid ""
 "                method argument~p ~{~s~^, ~}.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "When true, compile interpreted method functions."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~&~@<At the time the method with qualifiers ~S and ~\n"
 "               specializers ~S on the generic function ~S ~\n"
@@ -19221,381 +19628,381 @@ msgid ""
 "               may mean that this method was compiled improperly.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<~S already names an ordinary function or a macro.  ~\n"
 "	If you want to replace it with a generic function, you should remove ~\n"
 "        the existing definition beforehand.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<Discard the existing definition of ~S.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<The lambda-list ~S is incompatible with ~\n"
 "                      existing methods of ~S.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~~@<Attempt to add the method ~~S to the generic ~\n"
 "                           function ~~S, but ~?.~~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "more"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "fewer"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "the method has ~A required arguments than the ~\n"
 "                 generic function"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "the method has ~S optional arguments than the ~\n"
 "                 generic function"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "the method and generic function differ in whether ~\n"
 "                 they accept rest or keyword arguments"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "the method does not accept each of the keyword ~\n"
 "                   arguments ~S"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<The function ~S is not already defined.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<~S should be on the list ~S.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<The function of the funcallable instance ~S ~\n"
 "			 has not been set.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<No way to determine the lambda list~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<The ~s argument (~S) was neither a class nor a ~\n"
 "                    symbol naming a class.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~S is not an early-method."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Early add-method didn't get a funcallable instance."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Early add-method didn't get an early method."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Early remove-method didn't get a funcallable instance."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Early remove-method didn't get an early method."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Can't get early method."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<Qualifiers must be non-null atoms: ~s~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<~S used as a specializer, ~\n"
 "                             but is not the name of a class.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~S is not a legal specializer."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Set to true to activate the inline slot access optimization."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "When true, check slot values against specified slot types."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "When true, optimize slot access through slot reader/writer functions."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Cannot optimize slot access to"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "The class is not a standard class"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "The class doesn't contain a slot with name ~s"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Slot ~s is a class slot"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "There are non-standard accessors for slot ~s"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid ""
 "Slot ~s is not at the same location ~\n"
 "                               in the class and all of its subclasses"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Auto-compiling method ~s."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid ""
 "Methods may need to be recompiled for the changed ~\n"
 "                    class layout of"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "The class is not defined at compile time"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid ""
 "~s has a method that is not a standard ~\n"
 "                                    slot accessor"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Methods of ~s access different slots"
 msgstr ""
 
-#: target:pcl/slots-boot.lisp
+#: src/pcl/slots-boot.lisp
 msgid "~@<~S is not a standard-class.~@:>"
 msgstr ""
 
-#: target:pcl/slots-boot.lisp
+#: src/pcl/slots-boot.lisp
 msgid ""
 "~@<Slot ~S in class ~S ~\n"
 "                       does not have standard allocation.~@:>"
 msgstr ""
 
-#: target:pcl/slots-boot.lisp
+#: src/pcl/slots-boot.lisp
 msgid ""
 "~@<Slot ~S in class ~S ~\n"
 "                      does not have standard allocation.~@:>"
 msgstr ""
 
-#: target:pcl/slots-boot.lisp
+#: src/pcl/slots-boot.lisp
 msgid ""
 "~@<The wrapper for class ~S does not have ~\n"
 "                               the slot ~S.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp target:pcl/combin.lisp
+#: src/pcl/defcombin.lisp src/pcl/combin.lisp
 msgid "has more than one qualifier"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid "has an invalid qualifier"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid ""
 "~@<~s was called outside the dynamic scope ~\n"
 "            of a method combination function (inside the body of ~\n"
 "            ~s or a method on the generic function ~s).~@:>"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid "~@<~S used outside of a effective method form.~@:>"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid ""
 "~@<Invalid keyword argument~p ~{~s~^, ~}.  ~\n"
 "               Valid keywords are: ~{~s~^, ~}.~@:>"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid "Invalid keyword argument ~s"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~@<Slot ~s of class ~s is unbound in object ~s~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid ""
 "~@<Cannot get standard value of slot ~s of class ~s ~\n"
 "                in object ~s~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~&Name ~S  caching cost ~D  dispatch cost ~D~%"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid ""
 "Precompute effective methods at method load time if the generic\n"
 "   function has less than this number of methods.  If zero,\n"
 "   no effective methods are precomputed at method load time."
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~@<The function ~S requires at least ~D arguments.~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~<The function ~S requires at least ~D arguments.~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid ""
 "~@<Vicious metacircle:  The computation of an ~\n"
 "	   effective method of ~s for arguments of types ~s uses ~\n"
 "	   the effective method being computed.~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "This can't happen."
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~@<~s cannot handle the second argument ~s.~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~&There are ~4d dfuns of type ~s"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~&DFUN constructor caching is ~A."
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "enabled"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "disabled"
 msgstr ""
 
-#: target:pcl/ctor.lisp
+#: src/pcl/ctor.lisp
 msgid "~@<Not a property list: ~S.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<The function of the funcallable instance ~S ~\n"
 "                 has not been set.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<Slot allocation ~S is not supported ~\n"
 "                          in bootstrap.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid "The standard method combination."
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "In *built-in-classes*: ~S has ~S as a superclass,~%~\n"
 "                but ~S is not itself a class in *built-in-classes*."
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid "~@<~S is not the name of a class.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<No matching method for the generic function ~\n"
 "                             ~S, when called with arguments ~S.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid "Retry call to ~S."
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid "~@<In method ~S: No next method for arguments ~S.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<Generic function ~S: ~\n"
 "                             No primary method given arguments ~S~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<In a call to ~s with arguments ~:s: ~\n"
 "              The method ~s has invalid qualifiers for method ~\n"
 "              combination ~s.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<In a call to ~s with arguments ~:s: ~\n"
 "              The methods ~{~s~^, ~} have invalid qualifiers for ~\n"
 "              method combination ~s.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "~@<The slot ~S is unbound in the object ~S.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "is not a symbol and so cannot be bound"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "is a keyword and so cannot be bound"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "cannot be bound"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "is a constant and so cannot be bound"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid ""
 "~@<The slot ~s has neither ~s nor ~s ~\n"
 "                           allocation, so it can't be read by the default "
@@ -19603,13 +20010,13 @@ msgid ""
 "                           method.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid ""
 "~@<The slot ~s has neither ~s nor ~s allocation, ~\n"
 "               so it can't be written by the default ~s method.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid ""
 "~@<The slot ~s has neither ~s nor ~s ~\n"
 "                           allocation, so it can't be read by the default "
@@ -19617,241 +20024,241 @@ msgid ""
 "			   method.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "Structure slots cannot be unbound."
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "Condition slots cannot be unbound."
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid ""
 "~~@<When attempting to ~A, the slot ~S is missing ~\n"
 "                from the object ~S.~~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "read the slot's value (slot-value)"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "set the slot's value to ~S (setf of slot-value)"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "test to see if slot is bound (slot-boundp)"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "make the slot unbound (slot-makunbound)"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "~@<Can't allocate an instance of class ~S.~@:>"
 msgstr ""
 
-#: target:pcl/init.lisp
+#: src/pcl/init.lisp
 msgid ""
 "~@<Invalid initialization argument~P ~2I~_~\n"
 "                         ~<~{~S~^, ~}~@:> ~I~_in call for class ~S.~:>"
 msgstr ""
 
-#: target:pcl/seal.lisp
+#: src/pcl/seal.lisp
 msgid "~@<Invalid sealing specifier ~s.~@:>"
 msgstr ""
 
-#: target:pcl/seal.lisp
+#: src/pcl/seal.lisp
 msgid "~s is sealed wrt ~a"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid ""
 "~~@<While computing the class precedence list ~\n"
 "                of the class ~A: ~?.~~@:>"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "named ~S"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "The class ~A is a forward referenced class"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid ""
 "The class ~A is a forward referenced class. ~\n"
 "                      The class ~A is ~A."
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "a direct superclass of the class ~A"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid ""
 "reached from the class ~A by following~@\n"
 "                                  the direct superclass chain through: ~A~\n"
 "                                  ~%  ending at the class ~A"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "~{~%  the class ~A,~}"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid ""
 "It is not possible to compute the class precedence list because ~\n"
 "       there ~A in the local precedence relations.  ~\n"
 "       ~A because:~{~%  ~A~}."
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "are circularities"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "is a circularity"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "These arise"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "This arises"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "the class ~A appears in the supers of the class ~A"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "the class ~A follows the class ~A in the supers of the class ~A"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "Instance"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<Structure slots must have ~s allocation.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<~S doesn't seem to have a method function.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<Attempt to reinitialize the method ~S.  ~\n"
 "          Method objects cannot be reinitialized.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<When initializing the method ~S, ~\n"
 "                   the ~S initialization argument was ~S, ~\n"
 "                   which ~A.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "is not a string or NULL"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "is not a function"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "Contains ~S which ~A"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "is not a non-null atom"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "is neither a class object nor an eql specializer"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "The value of the ~s initarg, ~s, ~A."
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~~@<When initializing the generic-function ~S: ~\n"
 "                               The ~S initialization argument was ~A.  ~\n"
 "                               It must be ~A.~~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<~S does not name a generic function.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<There is no method for the generic function ~S ~\n"
 "                   matching argument specifiers ~S.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<No method on ~S with qualifiers ~S and ~\n"
 "           specializers ~S.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<No method on ~S with qualifiers ~S and ~\n"
 "            specializers ~S.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<The generic function ~s takes ~d required argument~p.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<The method ~S is already part of the generic ~\n"
 "            function ~S.  It can't be added to another generic ~\n"
 "            function until it is removed from the first one.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<Method ~s contains invalid qualifiers for ~\n"
 "                        the standard method combination.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<Method ~s contains invalid qualifiers for ~\n"
 "                          the method combination ~s.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<Generic function ~S requires at least ~D arguments.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "In get-accessor-method-function."
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "The key for the last case arg to mcase was not T."
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid ""
 "~@<Invalid options to a short method combination type.  ~\n"
 "            The method combination type ~S accepts one option which ~\n"
 "            must be either ~s or ~s.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid ""
 "~@<The method ~S ~A.  ~\n"
 "                    The method combination type ~S was defined with the ~\n"
@@ -19860,95 +20267,95 @@ msgid ""
 "		    ~s.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "has no qualifiers"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "has an illegal qualifier"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid ""
 "~@<More than one method of type ~S ~\n"
 "                                     with the same specializers.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "No ~S methods."
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid ""
 "~@<In the method group specifier ~S, ~\n"
 "                   ~S isn't a valid qualifier pattern.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "methods matching one of the patterns: ~{~S, ~} ~S"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "methods matching the pattern: ~S"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "Invalid parameter specifier: ~s"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~%~S is an instance of class ~S:"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~% The following slots have :INSTANCE allocation:"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~% The following slots have :CLASS allocation:"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~% The following slots have allocation as shown:"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~A is a generic function.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Its lambda-list is:~%  ~S~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Generic function documentation:~%  ~s~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Its methods are:~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "    Method documentation: ~s~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&~@<~S is a class, it is an instance of ~S.~@:>~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Its proper name is ~S.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Its name is ~S, but this is not a proper name.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "It has no name (the name is NIL).~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid ""
 "The direct superclasses are: ~:S, and the direct~%~\n"
 "           subclasses are: ~:S.  The class is ~:[not ~;~]finalized.  ~\n"
@@ -19956,92 +20363,84 @@ msgid ""
 "           There are ~D methods specialized for this class."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&Its direct slots are:~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "  ~a, documentation ~s~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&~S is a ~S.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "It has ~D internal and ~D external symbols (~D total).~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "It uses the packages ~{~S~^, ~}.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "It is used by the packages ~{~S~^, ~}.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&~S is an ~a hash table."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&Its size is ~d buckets."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&Its rehash-size is ~d."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&Its rehash-threshold is ~d."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~@<Default ~s method for ~s called.~@>"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~@<Can't dump wrapper for anonymous class ~S.~@:>"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~@<Can't use anonymous or undefined class as constant: ~S~:@>"
 msgstr ""
 
-#: target:pcl/cmucl-documentation.lisp
-msgid "Invalid function name ~s"
-msgstr ""
-
-#: target:pcl/cmucl-documentation.lisp
-msgid "~@<~S is not the name of a structure type.~@:>"
-msgstr ""
-
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Returns a type specifier for the kind of object returned by the\n"
 "  Stream. Class FUNDAMENTAL-CHARACTER-STREAM provides a default method\n"
 "  which returns CHARACTER."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Return true if Stream is not closed.  A default method is provided\n"
 "  by class FUNDAMENTAL-STREAM which returns true if CLOSE has not been\n"
 "  called on the stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Closes the given Stream.  No more I/O may be performed, but\n"
 "  inquiries may still be made.  If :Abort is non-nil, an attempt is made\n"
 "  to clean up the side effects of having created the stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This reads one character from the stream.  It returns either a\n"
 "  character object, or the symbol :EOF if the stream is at end-of-file.\n"
@@ -20049,14 +20448,14 @@ msgid ""
 "  method for this function."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Un-does the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.\n"
 "  Returns NIL.  Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM\n"
 "  must define a method for this function."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This is used to implement READ-CHAR-NO-HANG.  It returns either a\n"
 "  character, or NIL if no input is currently available, or :EOF if\n"
@@ -20066,14 +20465,14 @@ msgid ""
 "  their own method."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Used to implement PEEK-CHAR; this corresponds to peek-type of NIL.\n"
 "  It returns either a character or :EOF.  The default method calls\n"
 "  STREAM-READ-CHAR and STREAM-UNREAD-CHAR."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Used by LISTEN.  Returns true or false.  The default method uses\n"
 "  STREAM-READ-CHAR-NO-HANG and STREAM-UNREAD-CHAR.  Most streams should \n"
@@ -20081,7 +20480,7 @@ msgid ""
 "  always be more efficient than the default method."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Used by READ-LINE.  A string is returned as the first value.  The\n"
 "  second value is true if the string was terminated by end-of-file\n"
@@ -20089,24 +20488,24 @@ msgid ""
 "  calls to STREAM-READ-CHAR."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Implements CLEAR-INPUT for the stream, returning NIL.  The default\n"
 "  method does nothing."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid "Implements READ-SEQUENCE for the stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Writes character to the stream and returns the character.  Every\n"
 "  subclass of FUNDAMENTAL-CHARACTER-OUTPUT-STREAM must have a method\n"
 "  defined for this function."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This function returns the column number where the next character\n"
 "  will be written, or NIL if that is not meaningful for this stream.\n"
@@ -20117,11 +20516,11 @@ msgid ""
 "  always return NIL."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid "Return the stream line length or Nil."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This is a predicate which returns T if the stream is positioned at\n"
 "  the beginning of a line, else NIL.  It is permissible to always return\n"
@@ -20137,7 +20536,7 @@ msgid ""
 "  either STREAM-START-LINE-P or STREAM-FRESH-LINE."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This is used by WRITE-STRING.  It writes the string to the stream,\n"
 "  optionally delimited by start and end, which default to 0 and NIL.\n"
@@ -20146,13 +20545,13 @@ msgid ""
 "  STREAM-WRITE-CHAR."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Writes an end of line, as for TERPRI.  Returns NIL.  The default\n"
 "  method does (STREAM-WRITE-CHAR stream #NEWLINE)."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Outputs a new line to the Stream if it is not positioned at the\n"
 "  begining of a line.  Returns T if it output a new line, nil\n"
@@ -20160,26 +20559,26 @@ msgid ""
 "  STREAM-START-LINE-P and STREAM-TERPRI."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Attempts to ensure that all output sent to the Stream has reached\n"
 "  its destination, and only then returns false. Implements\n"
 "  FINISH-OUTPUT.  The default method does nothing."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Attempts to force any buffered output to be sent. Implements\n"
 "  FORCE-OUTPUT.  The default method does nothing."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Clears the given output Stream. Implements CLEAR-OUTPUT.  The\n"
 "  default method does nothing."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Writes enough blank space so that the next character will be\n"
 "  written at the specified column.  Returns true if the operation is\n"
@@ -20189,23 +20588,23 @@ msgid ""
 "  #SPACE character; it returns NIL if STREAM-LINE-COLUMN returns NIL."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid "Implements WRITE-SEQUENCE for the stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Used by READ-BYTE; returns either an integer, or the symbol :EOF\n"
 "  if the stream is at end-of-file."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Implements WRITE-BYTE; writes the integer to the stream and\n"
 "  returns the integer as the result."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid "    Gray Streams Protocol Support"
 msgstr ""
 
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po b/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
index 7267ae1c5..b7b6a0969 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
@@ -14,18 +14,18 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/bsd-os.lisp
+#: src/code/bsd-os.lisp
 msgid "Version string for supporting software"
 msgstr "소프트 웨어를 지원하기위한 버전 문자열"
 
-#: target:code/bsd-os.lisp
+#: src/code/bsd-os.lisp
 msgid "Returns a string describing version of the supporting software."
 msgstr "문자열을 지원하는 소프트웨어의 버전을 설명을 반환합니다."
 
-#: target:code/bsd-os.lisp
+#: src/code/bsd-os.lisp
 msgid "Unix system call getrusage failed: ~A."
 msgstr "유닉스 시스템 호출에 실패 getrusage: ~A 등급."
 
-#: target:code/bsd-os.lisp
+#: src/code/bsd-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr "Getpagesize 실패: ~ A 등급"
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po b/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po
index 1d7dce1f7..3ec1d37fc 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po
@@ -14,59 +14,59 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Syscall ~A failed: ~A"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Return the real time in seconds."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Return the run time in seconds"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Return the process state which is either Run, Killed, or a wait reason."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Returns the current process."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "A list of all alive processes."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Return a list of all the live processes."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Execute the body the scheduling disabled."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Increaments the reference by delta in a single atomic operation"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Decrements the reference by delta in a single atomic operation"
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Atomically push object onto place."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Atomically pop place."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Make a process which will run FUNCTION when it starts up.  By\n"
 "  default the process is created in a runnable (active) state.\n"
@@ -99,37 +99,37 @@ msgid ""
 "\telement."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Interrupt process and cause it to evaluate function."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Destroy a process. The process is sent a interrupt which throws to\n"
 "  the end of the process allowing it to unwind gracefully."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Restart process by unwinding it to its initial state and calling its\n"
 "  initial function."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Restart process, unwinding it to its initial state and calls\n"
 "  function with args."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Disable process from being runnable until enabled."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Allow process to become runnable again after it has been disabled."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Causes the process to wait until predicate returns True. Processes\n"
 "  can only call process-wait when scheduling is enabled, and the predicate\n"
@@ -138,7 +138,7 @@ msgid ""
 "  The single True predicate value is returned."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Causes the process to wait until predicate returns True, or the\n"
 "  number of seconds specified by timeout has elapsed. The timeout may\n"
@@ -146,7 +146,7 @@ msgid ""
 "  returned, or NIL if the timeout was reached."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Try to gracefully destroy all the processes giving them some\n"
 "  chance to unwinding, before shutting down multi-processing. This is\n"
@@ -154,13 +154,13 @@ msgid ""
 "  Multi-processing can be restarted by calling init-multi-processing."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Destroyed ~d process; remaining ~d~%"
 msgid_plural "Destroyed ~d processes; remaining ~d~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "An idle loop to be run by the initial process. The select based event\n"
 "  server is called with a timeout calculated from the minimum of the\n"
@@ -173,36 +173,36 @@ msgid ""
 "  to unwind."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Allow other processes to run."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Return the accrued real time elapsed while the given process was\n"
 "  scheduled. The returned time is a double-float in seconds."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Return the accrued run time elapsed for the given process. The returned\n"
 "  time is a double-float in seconds."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Return the real time elapsed since the given process was last\n"
 "  descheduled. The returned time is a double-float in seconds."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Start a regular SIGALRM interrupt which calls process-yield. An optional\n"
 "  time in seconds and micro seconds may be provided. Note that CMUCL code\n"
 "  base is not too interrupt safe so this may cause problems."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Wait until FD is usable for DIRECTION and return True. DIRECTION should be\n"
 "  either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds "
@@ -210,31 +210,31 @@ msgid ""
 "  wait before giving up and returing NIL."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "This function causes execution to be suspended for N seconds.  N may\n"
 "  be any non-negative, non-complex number."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Executes body and returns the values of the last form in body. However, if\n"
 "  the execution takes longer than timeout seconds, abort it and evaluate\n"
 "  timeout-forms, returning the values of last form."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Show the all the processes, their whostate, and state. If the optional\n"
 "  verbose argument is true then the run, real, and idle times are also\n"
 "  shown."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid "Top-level READ-EVAL-PRINT loop for processes."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Enter the idle loop, starting a new process to run the top level loop.\n"
 "  The awaking of sleeping processes is timed better with the idle loop "
@@ -245,7 +245,7 @@ msgid ""
 "  default when there is better MP debug support etc."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Create a Lisp connection listener, listening on a TCP port for new\n"
 "  connections and starting a new top-level loop for each. If a password\n"
@@ -254,7 +254,7 @@ msgid ""
 "  defaults to 1025."
 msgstr ""
 
-#: target:code/multi-proc.lisp
+#: src/code/multi-proc.lisp
 msgid ""
 "Execute the body with the lock held. If the lock is held by another\n"
 "  process then the current process waits until the lock is released or\n"
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po b/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po
index 8aad97bb1..edbc074a8 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po
@@ -14,129 +14,129 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:compiler/x86/float-sse2.lisp
-msgid "Ignoring bogus i387 Constant ~a"
+#: src/compiler/x86/sse2-array.lisp src/compiler/x86/sse2-c-call.lisp
+#: src/compiler/x86/sse2-sap.lisp src/compiler/x86/float-sse2.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/x86/sse2-array.lisp target:compiler/x86/sse2-c-call.lisp
-#: target:compiler/x86/sse2-sap.lisp target:compiler/x86/float-sse2.lisp
-msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+#: src/compiler/x86/float-sse2.lisp
+msgid "Ignoring bogus i387 Constant ~a"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "float move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "float to pointer coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid ""
 "Load TN allocated, but no move function?~@\n"
 "\t           VM definition inconsistent, recompile and try again."
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "pointer to float coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex float to pointer coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex double-double float to pointer coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "pointer to complex float coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "float argument move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex float argument move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex double-double-float argument move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline float arithmetic"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline float comparison"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline float coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline float truncate"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex single-float creation"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex double-float creation"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex float realpart"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "complex float imagpart"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline dummy FP register bias"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double-double float move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double double float to pointer coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "pointer to double-double-float coercion"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double double-float argument move"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline double-double-float creation"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double-double high part"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "double-double low part"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex double-double-float creation"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex float arithmetic"
 msgstr ""
 
-#: target:compiler/x86/float-sse2.lisp
+#: src/compiler/x86/float-sse2.lisp
 msgid "inline complex float/float arithmetic"
 msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po b/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
index f0d863817..8b29d3e82 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po
@@ -14,679 +14,679 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Size of control character vector."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Successful"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation not permitted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No such file or directory"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No such process"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Interrupted system call"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "I/O error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Device not configured"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Arg list too long"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Exec format error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad file descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No child process"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Resource deadlock avoided"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No more processes"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Try again"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Out of memory"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Permission denied"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad address"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Block device required"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Device or resource busy"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File exists"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cross-device link"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No such device"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Not a director"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Is a directory"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid argument"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File table overflow"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many open files"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Inappropriate ioctl for device"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Text file busy"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File too large"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No space left on device"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Illegal seek"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read-only file system"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many links"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Broken pipe"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Numerical argument out of domain"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Result too large"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Math result not representable"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation would block"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Resource temporarily unavailable"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation now in progress"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation already in progress"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Socket operation on non-socket"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Destination address required"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Message too long"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol wrong type for socket"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol not available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol not supported"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Socket type not supported"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation not supported on socket"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol family not supported"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Address family not supported by protocol family"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Address already in use"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Can't assign requested address"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Network is down"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Network is unreachable"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Network dropped connection on reset"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Software caused connection abort"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Connection reset by peer"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No buffer space available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Socket is already connected"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Socket is not connected"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Can't send after socket shutdown"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many references: can't splice"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Connection timed out"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Connection refused"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many levels of symbolic links"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File name too long"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Host is down"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No route to host"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Directory not empty"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many processes"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many users"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Disc quota exceeded"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "namei should continue locally"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "namei was handled remotely"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Remote file system error _N"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "syscall was handled by Vice"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No message of desired type"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Identifier removed"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Channel number out of range"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Level 2 not synchronized"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Level 3 halted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Level 3 reset"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Link number out of range"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol driver not attached"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No CSI structure available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Level 2 halted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Deadlock situation detected/avoided"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No record locks available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 47"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 48"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad exchange descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad request descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Message tables full"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Anode table overflow"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad request code"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid slot"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File locking deadlock"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bad font file format"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Not a stream device"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No data available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Timer expired"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Out of stream resources"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Machine is not on the network"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Package not installed"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Object is remote"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Link has been severed"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Advertise error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Srmount error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Communication error on send"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Protocol error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Multihop attempted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Not a data message"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Value too large for defined data type"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Name not unique on network"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File descriptor in bad state"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Remote address changed"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Can not access a needed shared library"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Accessing a corrupted shared library"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ".lib section in a.out corrupted"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Attempting to link in more shared libraries than system limit"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Can not exec a shared library directly"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 88"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation not applicable"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Number of symbolic links encountered during path name traversal exceeds "
 "MAXSYMLINKS"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 91"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error 92"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Option not supported by protocol"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Operation not supported on transport endpoint"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cannot assign requested address"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Network dropped connection because of reset"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Transport endpoint is already connected"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Transport endpoint is not connected"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cannot send after socket shutdown"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many references: cannot splice"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Stale NFS file handle"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Resource deadlock would occur"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Function not implemented"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Too many symbolic links encountered"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid exchange"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid request descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Exchange full"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No anode"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Invalid request code"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File locking deadlock error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Device not a stream"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Out of streams resources"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "RFS specific error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Attempting to link in too many shared libraries"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cannot exec a shared library directly"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Illegal byte sequence"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Interrupted system call should be restarted _N"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Streams pipe error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Address family not supported by protocol"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Cannot send after transport endpoint shutdown"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Structure needs cleaning"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Not a XENIX named type file"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "No XENIX semaphores available"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Is a named type file"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Remote I/O error"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Quota exceeded"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Returns a string describing the error number which was returned by a\n"
 "  UNIX system call."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unknown error [~d]"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Syscall ~A failed: ~A"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Set the user ID of the calling process to UID.\n"
 "   If the calling process is the super-user, set the real\n"
@@ -694,7 +694,7 @@ msgid ""
 "   if not, the effective user ID is set to UID."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Set the group ID of the calling process to GID.\n"
 "   If the calling process is the super-user, set the real\n"
@@ -702,23 +702,23 @@ msgid ""
 "   if not, the effective group ID is set to GID."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Test for read permission"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Test for write permission"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Test for execute permission"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Test for presence of file"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given a file path (a string) and one of four constant modes,\n"
 "   unix-access returns T if the file is accessible with that\n"
@@ -732,61 +732,61 @@ msgid ""
 "\tf_ok     Presence of file."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given a file path string, unix-chdir changes the current working \n"
 "   directory to the one specified."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set user ID on execution"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set group ID on execution"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Save text image after execution"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read by owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Write by owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Execute (search directory) by owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read by group"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Write by group"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Execute (search directory) by group"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read by others"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Write by others"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Execute (search directory) by others"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given a file path string and a constant mode, unix-chmod changes the\n"
 "   permission mode for that file to the one specified. The new mode\n"
@@ -812,7 +812,7 @@ msgid ""
 "  otherwise."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given an integer file descriptor and a mode (the same as those\n"
 "   used for unix-chmod), unix-fchmod changes the permission mode\n"
@@ -820,7 +820,7 @@ msgid ""
 "   was successful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Given a file path, an integer user-id, and an integer group-id,\n"
 "   unix-chown changes the owner of the file and the group of the\n"
@@ -829,27 +829,27 @@ msgid ""
 "   fail if the caller is not the superuser."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-fchown is like unix-chown, except that it accepts an integer\n"
 "   file descriptor instead of a file path name."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getdtablesize returns the maximum size of the file descriptor\n"
 "   table. (i.e. the maximum number of descriptors that can exist at\n"
 "   one time.)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-close takes an integer file descriptor as an argument and\n"
 "   closes the file associated with it.  T is returned upon successful\n"
 "   completion, otherwise NIL and an error number."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-creat accepts a file name and a mode (same as those for\n"
 "   unix-chmod) and creates a file by that name with the specified\n"
@@ -859,14 +859,14 @@ msgid ""
 "   This interface is made obsolete by UNIX-OPEN."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-dup duplicates an existing file descriptor (given as the\n"
 "   argument) and return it.  If FD is not a valid file descriptor, NIL\n"
 "   and an error number are returned."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-dup2 duplicates an existing file descriptor just as unix-dup\n"
 "   does only the new value of the duplicate descriptor may be requested\n"
@@ -875,71 +875,71 @@ msgid ""
 "   assigned to the duplicate."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Duplicate a file descriptor"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get file desc. flags"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set file desc. flags"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get file flags"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set file flags"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get lock"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set owner"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set lock"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set lock, wait for release"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Non-blocking reads"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Append on each write"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Signal pgrp when data ready"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Create if nonexistant"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Truncate to zero length"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error if already created"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-fcntl manipulates file descriptors according to the\n"
 "   argument CMD which can be one of the following:\n"
@@ -963,25 +963,25 @@ msgid ""
 "   "
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-link creates a hard link from the file with name1 to the\n"
 "   file with name2."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "set the file pointer"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "increment the file pointer"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "extend the file size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-lseek accepts a file descriptor and moves the file pointer ahead\n"
 "   a certain offset for that file.  Whence can be any of the following:\n"
@@ -992,58 +992,58 @@ msgid ""
 "  _N"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-mkdir creates a new directory with the specified name and mode.\n"
 "   (Same as those for unix-chmod.)  It returns T upon success, otherwise\n"
 "   NIL and an error number."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read-only flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Write-only flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Read-write flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Non-blocking I/O"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Append flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Create if nonexistant flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Truncate flag."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error if already exists."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Don't assign controlling tty"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Non-blocking mode"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Synchronous writes (on ext2)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-open opens the file whose pathname is specified by path\n"
 "   for reading and/or writing as specified by the flags argument.\n"
@@ -1061,7 +1061,7 @@ msgid ""
 "   integer file descriptor is returned by unix-open."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-pipe sets up a unix-piping mechanism consisting of\n"
 "  an input pipe and an output pipe.  Unix-Pipe returns two\n"
@@ -1071,7 +1071,7 @@ msgid ""
 "  the unix error code."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-read attempts to read from the file described by fd into\n"
 "   the buffer buf until it is full.  Len is the length of the buffer.\n"
@@ -1079,7 +1079,7 @@ msgid ""
 "   number if an error occured."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-readlink invokes the readlink system call on the file name\n"
 "  specified by the simple string path.  It returns up to two values:\n"
@@ -1087,19 +1087,19 @@ msgid ""
 "  NIL and the Unix error number."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-rename renames the file with string name1 to the string\n"
 "   name2.  NIL and an error code is returned if an error occured."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-rmdir attempts to remove the directory name.  NIL and\n"
 "   an error number is returned if an error occured."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Perform the UNIX select(2) system call.\n"
 "  (declare (type (integer 0 #.FD-SETSIZE) num-descriptors)\n"
@@ -1110,143 +1110,143 @@ msgid ""
 "\t   (optimize (speed 3) (safety 0) (inhibit-warnings 3)))"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-select examines the sets of descriptors passed as arguments\n"
 "   to see if they are ready for reading and writing.  See the UNIX\n"
 "   Programmers Manual for more information."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-sync writes all information in core memory which has been\n"
 "   modified to disk.  It returns NIL and an error code if an error\n"
 "   occured."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-fsync writes the core image of the file described by\n"
 "   fd to disk."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-truncate truncates the named file to the length (in\n"
 "   bytes) specified by len.  NIL and an error number is returned\n"
 "   if the call is unsuccessful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-ftruncate is similar to unix-truncate except that the first\n"
 "   argument is a file descriptor rather than a file name."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-symlink creates a symbolic link named name2 to the file\n"
 "   named name1.  NIL and an error number is returned if the call\n"
 "   is unsuccessful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-unlink removes the directory entry for the named file.\n"
 "   NIL and an error code is returned if the call fails."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-write attempts to write a character buffer (buf) of length\n"
 "   len to the file described by the file descriptor fd.  NIL and an\n"
 "   error is returned if the call is unsuccessful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-ioctl performs a variety of operations on open i/o\n"
 "   descriptors.  See the UNIX Programmer's Manual for more\n"
 "   information."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get terminal attributes."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set terminal attributes."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get terminal output speed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set terminal output speed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Bogus baud rate ~S"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get terminal input speed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set terminal input speed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Send break"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Wait for output for finish"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "See tcflush(3)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Flow control"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Get the tty-process-group for the unix file-descriptor FD."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Get the tty-process-group for the unix file-descriptor FD.  If not "
 "supplied,\n"
 "  FD defaults to /dev/tty."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not\n"
 "  supplied, FD defaults to /dev/tty."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-exit terminates the current process with an optional\n"
 "   error code.  If successful, the call doesn't return.  If\n"
 "   unsuccessful, the call returns NIL and an error number."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-stat retrieves information about the specified\n"
 "   file returning them in the form of multiple values.\n"
@@ -1255,33 +1255,33 @@ msgid ""
 "   and an error number is returned instead."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-lstat is similar to unix-stat except the specified\n"
 "   file must be a symbolic link."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-fstat is similar to unix-stat except the file is specified\n"
 "   by the file descriptor fd."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "The calling process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Terminated child processes."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Like call getrusage, but return only the system and user time, and returns\n"
 "   the seconds and microseconds as separate values."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getrusage returns information about the resource usage\n"
 "   of the process specified by who.  Who can be either the\n"
@@ -1290,13 +1290,13 @@ msgid ""
 "   is returned if the call fails."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-times returns information about the cpu time usage of the process\n"
 "   and its children."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "If it works, unix-gettimeofday returns 5 values: T, the seconds and\n"
 "   microseconds of the current time of day, the timezone (in minutes west\n"
@@ -1304,95 +1304,95 @@ msgid ""
 "   returns NIL and the errno."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-utimes sets the 'last-accessed' and 'last-updated'\n"
 "   times on a specified file.  NIL and an error number is\n"
 "   returned if the call is unsuccessful."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-setreuid sets the real and effective user-id's of the current\n"
 "   process to the specified ones.  NIL and an error number is returned\n"
 "   if the call fails."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-setregid sets the real and effective group-id's of the current\n"
 "   process process to the specified ones.  NIL and an error number is\n"
 "   returned if the call fails."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getpid returns the process-id of the current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getppid returns the process-id of the parent of the current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getgid returns the real group-id of the current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getegid returns the effective group-id of the current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getpgrp returns the group-id of the calling process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-setpgrp sets the process group on the process pid to\n"
 "   pgrp.  NIL and an error number are returned upon failure."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-setpgid sets the process group of the process pid to\n"
 "   pgrp. If pgid is equal to pid, the process becomes a process\n"
 "   group leader. NIL and an error number are returned upon failure."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getuid returns the real user-id associated with the\n"
 "   current process."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-getpagesize returns the number of bytes in a system page."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Unix-gethostname returns the name of the host machine as a string."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-gethostid returns a 32-bit integer which provides unique\n"
 "   identification for the host machine."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Executes the unix fork system call.  Returns 0 in the child and the pid\n"
 "   of the child in the parent if it works, or NIL and an error number if it\n"
 "   doesn't work."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Get the value of the environment variable named Name.  If no such\n"
 "  variable exists, Nil is returned."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Adds the environment variable named Name to the environment with\n"
 "  the given Value if Name does not already exist. If Name does exist,\n"
@@ -1400,36 +1400,36 @@ msgid ""
 "  the value is not changed."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Adds or changes the environment.  Name-value must be a string of\n"
 "  the form \"name=value\".  If the name does not exist, it is added.\n"
 "  If name does exist, the value is updated to the given value."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Removes the variable Name from the environment"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Returns either :file, :directory, :link, :special, or NIL."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Returns the pathname with all symbolic links resolved."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Error reading link ~S: ~S"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Accepts a Unix file descriptor and returns T if the device\n"
 "  associated with it is a terminal."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Executes the Unix execve system call.  If the system call suceeds, lisp\n"
 "   will no longer be running in this process.  If the system call fails "
@@ -1443,7 +1443,7 @@ msgid ""
 "   function bashes together to form the environment for the exec'ed program."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
 "   three system timers (:real :virtual or :profile). On success,\n"
@@ -1451,7 +1451,7 @@ msgid ""
 "   T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 " Unix-setitimer sets the INTERVAL and VALUE slots of one of\n"
 "   three system timers (:real :virtual or :profile). A SIGALRM signal\n"
@@ -1463,83 +1463,83 @@ msgid ""
 "   slots as in unix-getitimer."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Return a USER-INFO structure for the user identified by LOGIN, or NIL if not "
 "found."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Return a USER-INFO structure for the user identified by UID, or NIL if not "
 "found."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "The maximum size of the group entry buffer"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
 "not found."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Return a GROUP-INFO structure for the group identified by GID, or NIL if not "
 "found."
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "CPU time per process (in milliseconds)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Maximum file size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Data segment size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Stack size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Core file size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Number of open files"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Maximum mapped memory"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "CPU time per process"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "File size"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Addess space (resident set size)"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Locked-in-memory address space"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid "Number of processes"
 msgstr ""
 
-#: target:code/unix.lisp
+#: src/code/unix.lisp
 msgid ""
 "Get the limits on the consumption of system resouce specified by\n"
 "  Resource.  If successful, return three values: T, the current (soft)\n"
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po b/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
index 38b072ad0..36dd8ebc8 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
@@ -14,87 +14,83 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Returns a string describing the type of the local machine."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Returns a string describing the version of the local machine."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Unknown code-object-fixup kind ~s."
 msgstr ""
 
-#: target:code/x86-vm.lisp
-msgid "Unknown foreign symbol: ~S"
-msgstr ""
-
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare object's slot value to test-value and if EQ store\n"
 "   new-value in the slot. The original value of the slot is returned."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare symbol's value to test-value and if EQ store\n"
 "  new-value in symbol's value slot and return the original value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare the car of CONS to test-value and if EQ store\n"
 "  new-value its car and return the original value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare the cdr of CONS to test-value and if EQ store\n"
 "  new-value its cdr and return the original value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid ""
 "Atomically compare an element of vector to test-value and if EQ store\n"
 "  new-value the element and return the original value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe push of val onto the list in the symbol global value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe pop from the list in the symbol global value."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe push of val onto the list in the car of cons."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe push of val onto the list in the cdr of cons."
 msgstr ""
 
-#: target:code/x86-vm.lisp
+#: src/code/x86-vm.lisp
 msgid "Thread safe push of val onto the list in the vector element."
 msgstr ""
 
-#: target:compiler/x86/c-call.lisp target:compiler/x86/insts.lisp
+#: src/compiler/x86/c-call.lisp src/compiler/x86/insts.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid "Move SRC into DST unless they are location=."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Loads the type bits of a pointer into target independent of\n"
 "   byte-ordering issues."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Allocate an object with a size in bytes given by Size.\n"
 "   The size may be an integer or a TN.\n"
@@ -103,30 +99,30 @@ msgid ""
 "   appropriate, allocate from the stack."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Allocate an other-pointer object of fixed Size with a single\n"
 "   word header having the specified Type-Code.  The result is placed in\n"
 "   Result-TN."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid "Cause an error.  ERROR-CODE is the error to cause."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Cause a continuable error.  If the error is continued, execution resumes at\n"
 "  LABEL."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Generate-Error-Code Error-code Value*\n"
 "  Emit code for an error with the specified Error-Code and context Values."
 msgstr ""
 
-#: target:compiler/x86/macros.lisp
+#: src/compiler/x86/macros.lisp
 msgid ""
 "Generate-CError-Code Error-code Value*\n"
 "  Emit code for a continuable error with the specified Error-Code and\n"
@@ -134,139 +130,316 @@ msgid ""
 "  the GENERATE-CERROR-CODE form."
 msgstr ""
 
-#: target:compiler/x86/array.lisp target:compiler/x86/call.lisp
-#: target:compiler/x86/alloc.lisp target:compiler/x86/cell.lisp
-#: target:compiler/x86/debug.lisp target:compiler/x86/arith.lisp
-#: target:compiler/x86/memory.lisp target:compiler/x86/char.lisp
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/array.lisp src/compiler/x86/call.lisp
+#: src/compiler/x86/alloc.lisp src/compiler/x86/cell.lisp
+#: src/compiler/x86/debug.lisp src/compiler/x86/arith.lisp
+#: src/compiler/x86/memory.lisp src/compiler/x86/char.lisp
+#: src/compiler/x86/float.lisp src/compiler/x86/move.lisp
 msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "fixnum untagging"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "constant load"
 msgstr ""
 
-#: target:compiler/x86/call.lisp target:compiler/x86/debug.lisp
-#: target:compiler/x86/char.lisp target:compiler/x86/move.lisp
+#: src/compiler/x86/call.lisp src/compiler/x86/debug.lisp
+#: src/compiler/x86/char.lisp src/compiler/x86/float.lisp
+#: src/compiler/x86/move.lisp
 msgid ""
 "Load TN allocated, but no move function?~@\n"
 "\t           VM definition inconsistent, recompile and try again."
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "integer to untagged word coercion"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "fixnum tagging"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "signed word to integer coercion"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "unsigned word to integer coercion"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "word integer move"
 msgstr ""
 
-#: target:compiler/x86/move.lisp
+#: src/compiler/x86/move.lisp
 msgid "word integer argument move"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/float.lisp
+msgid "Ignoring bogus i387 Constant ~a"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "float move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "float to pointer coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "pointer to float coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float to pointer coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex double-double float to pointer coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "pointer to complex float coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "float argument move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float argument move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex double-double-float argument move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline float arithmetic"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline float comparison"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline float coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline float truncate"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline NPX function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline tan function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline sin/cos function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline exp function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline expm1 function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline log function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline log10 function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline pow function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline scalbn function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline scalb function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline log1p function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline log1p with limited x range function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline logb function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline atan function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline atan2 function"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline complex single-float creation"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline complex double-float creation"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline complex long-float creation"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float realpart"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "complex float imagpart"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline dummy FP register bias"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double-double float move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double double float to pointer coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "pointer to double-double-float coercion"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double double-float argument move"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline double-double-float creation"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double-double high part"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "double-double low part"
+msgstr ""
+
+#: src/compiler/x86/float.lisp
+msgid "inline complex double-double-float creation"
+msgstr ""
+
+#: src/compiler/x86/char.lisp
 msgid "character untagging"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/char.lisp
 msgid "character tagging"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/char.lisp
 msgid "character move"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/char.lisp
 msgid "character arg move"
 msgstr ""
 
-#: target:compiler/x86/char.lisp
+#: src/compiler/x86/char.lisp
 msgid "inline comparison"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline fixnum arithmetic"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (signed-byte 32) arithmetic"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (unsigned-byte 32) arithmetic"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline ASH"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (signed-byte 32) integer-length"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (unsigned-byte 32) logcount"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline fixnum comparison"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (signed-byte 32) comparison"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "inline (unsigned-byte 32) comparison"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "SHIFT-TOWARDS-START"
 msgstr ""
 
-#: target:compiler/x86/arith.lisp
+#: src/compiler/x86/arith.lisp
 msgid "SHIFT-TOWARDS-END"
 msgstr ""
 
-#: target:compiler/x86/c-call.lisp
+#: src/compiler/x86/c-call.lisp
 msgid "Too many result values from c-call."
 msgstr ""
 
-#: target:compiler/x86/c-call.lisp
+#: src/compiler/x86/c-call.lisp
 msgid "Method ~S not defined for ~S"
 msgstr ""
 
-#: target:compiler/x86/c-call.lisp
+#: src/compiler/x86/c-call.lisp
 msgid ""
 "Cons up a piece of code which calls call-callback with INDEX and a\n"
 "pointer to the arguments."
 msgstr ""
 
-#: target:compiler/x86/call.lisp
+#: src/compiler/x86/call.lisp
 msgid "more-arg-context"
 msgstr ""
 
-#: target:compiler/x86/array.lisp
+#: src/compiler/x86/array.lisp
 msgid "inline array access"
 msgstr ""
 
-#: target:compiler/x86/array.lisp
+#: src/compiler/x86/array.lisp
 msgid "inline array store"
 msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po b/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po
index dd65e7c6b..c2a1855dc 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po
@@ -14,7 +14,7 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:compiler/x86/x87-array.lisp target:compiler/x86/x87-c-call.lisp
-#: target:compiler/x86/x87-sap.lisp
+#: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp
+#: src/compiler/x86/x87-sap.lisp
 msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl.po b/i18n/locale/ko/LC_MESSAGES/cmucl.po
index 62ad9363a..cc35c7038 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl.po
@@ -15,113 +15,49 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/intl.lisp
-msgid ""
-"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n"
-"  Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this."
+#: src/code/struct.lisp
+msgid "The size of a stream in-buffer."
 msgstr ""
 
-#: target:pcl/cpl.lisp target:pcl/dfun.lisp target:pcl/vector.lisp
-#: target:pcl/boot.lisp target:pcl/cache.lisp target:pcl/fngen.lisp
-#: target:pcl/defs.lisp target:pcl/info.lisp pcl:defsys.lisp
-#: target:compiler/byte-comp.lisp target:compiler/eval-comp.lisp
-#: target:compiler/generic/new-genesis.lisp target:compiler/generic/core.lisp
-#: target:compiler/dump.lisp target:compiler/dyncount.lisp
-#: target:compiler/xref.lisp target:compiler/srctran.lisp
-#: target:compiler/typetran.lisp target:compiler/ir1util.lisp
-#: target:compiler/main.lisp target:compiler/knownfun.lisp
-#: target:compiler/new-assem.lisp target:compiler/disassem.lisp
-#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
-#: target:compiler/ctype.lisp target:compiler/node.lisp
-#: target:compiler/sset.lisp target:compiler/backend.lisp
-#: target:compiler/generic/vm-macs.lisp target:compiler/macros.lisp
-#: target:code/intl.lisp target:compiler/globaldb.lisp
-#: target:code/defstruct.lisp target:code/remote.lisp target:code/wire.lisp
-#: target:code/internet.lisp target:code/loop.lisp
-#: target:code/run-program.lisp target:code/parse-time.lisp
-#: target:code/profile.lisp target:code/ntrace.lisp
-#: target:code/rand-mt19937.lisp target:code/debug.lisp
-#: target:code/debug-int.lisp target:code/debug-info.lisp
-#: target:code/eval.lisp target:code/filesys.lisp target:code/pathname.lisp
-#: target:code/fd-stream.lisp target:code/extfmts.lisp
-#: target:code/serve-event.lisp target:code/reader.lisp
-#: target:code/package.lisp target:code/format.lisp target:code/pprint.lisp
-#: target:code/stream.lisp target:code/room.lisp target:code/dfixnum.lisp
-#: target:code/commandline.lisp target:code/unidata.lisp
-#: target:compiler/proclaim.lisp target:code/hash-new.lisp
-#: target:code/byte-interp.lisp target:code/c-call.lisp
-#: target:code/alieneval.lisp target:code/type.lisp target:code/class.lisp
-#: target:code/typedefs.lisp target:code/error.lisp target:code/fwrappers.lisp
-#: target:assembly/assemfile.lisp target:code/struct.lisp
+#: src/pcl/cpl.lisp src/pcl/dfun.lisp src/pcl/vector.lisp src/pcl/boot.lisp
+#: src/pcl/cache.lisp src/pcl/fngen.lisp src/pcl/defs.lisp src/pcl/info.lisp
+#: src/pcl/defsys.lisp src/compiler/byte-comp.lisp src/compiler/eval-comp.lisp
+#: src/compiler/generic/new-genesis.lisp src/compiler/generic/core.lisp
+#: src/compiler/dump.lisp src/compiler/dyncount.lisp src/compiler/xref.lisp
+#: src/compiler/srctran.lisp src/compiler/ir1util.lisp src/compiler/main.lisp
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/disassem.lisp src/compiler/meta-vmdef.lisp
+#: src/compiler/vop.lisp src/compiler/ctype.lisp src/compiler/node.lisp
+#: src/compiler/sset.lisp src/compiler/backend.lisp
+#: src/compiler/generic/vm-macs.lisp src/compiler/macros.lisp
+#: src/code/intl.lisp src/compiler/globaldb.lisp src/code/defstruct.lisp
+#: src/code/remote.lisp src/code/wire.lisp src/code/internet.lisp
+#: src/code/loop.lisp src/code/run-program.lisp src/code/parse-time.lisp
+#: src/code/profile.lisp src/code/ntrace.lisp src/code/rand-mt19937.lisp
+#: src/code/debug.lisp src/code/debug-int.lisp src/code/debug-info.lisp
+#: src/code/eval.lisp src/code/filesys.lisp src/code/pathname.lisp
+#: src/code/fd-stream.lisp src/code/extfmts.lisp src/code/serve-event.lisp
+#: src/code/reader.lisp src/code/package.lisp src/code/format.lisp
+#: src/code/pprint.lisp src/code/stream.lisp src/code/room.lisp
+#: src/code/dfixnum.lisp src/code/commandline.lisp src/code/unidata.lisp
+#: src/compiler/proclaim.lisp src/code/hash-new.lisp src/code/byte-interp.lisp
+#: src/code/c-call.lisp src/code/alieneval.lisp src/code/type.lisp
+#: src/code/class.lisp src/code/typedefs.lisp src/code/error.lisp
+#: src/code/fwrappers.lisp src/code/struct.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:code/intl.lisp
-msgid "Encountered illegal token: ="
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Encountered illegal token: ~C"
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Expected : in ?: construct"
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Expected close-paren."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Unexpected token: ~S."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Expecting end of expression.  ~S."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid ""
-"Look up STRING in the current message domain and return its translation."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "Look up the singular or plural form of a message in the current domain."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid ""
-"Look up STRING in the specified message domain and return its translation."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid ""
-"Look up the singular or plural form of a message in the specified domain."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "_@ is a reserved reader macro prefix."
-msgstr ""
-
-#: target:code/intl.lisp
-msgid "~&Dumping ~D messages for domain ~S~%"
-msgstr ""
-
-#: target:code/struct.lisp
-msgid "The size of a stream in-buffer."
-msgstr ""
-
-#: target:code/sysmacs.lisp
+#: src/code/sysmacs.lisp
 msgid "Register the feature as having influenced the CMUCL build process."
 msgstr ""
 
-#: target:code/sysmacs.lisp
+#: src/code/sysmacs.lisp
 msgid ""
 "Register the feature as having influenced the CMUCL build process,\n"
 "and also the CMUCL C runtime."
 msgstr ""
 
-#: target:code/sysmacs.lisp
+#: src/code/sysmacs.lisp
 msgid ""
 "Given any Array, binds Data-Var to the array's data vector and Start-Var "
 "and\n"
@@ -135,149 +71,149 @@ msgid ""
 "  include Svalue."
 msgstr ""
 
-#: target:code/sysmacs.lisp
+#: src/code/sysmacs.lisp
 msgid "Executes the forms in the body without doing a garbage collection."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Return the 24 bits of data in the header of object X, which must be an\n"
 "  other-pointer object."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Sets the 24 bits of data in the header of object X (which must be an\n"
 "  other-pointer object) to VAL."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Returns the length of the closure X.  This is one more than the number\n"
 "  of variables closed over."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Returns the three-bit lowtag for the object X."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Returns the 8-bit header type for the object X."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Return a System-Area-Pointer pointing to the data for the vector X, which\n"
 "  must be simple."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return a System-Area-Pointer pointing to the end of the binding stack."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Returns a System-Area-Pointer pointing to the next free work of the current\n"
 "  dynamic space."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return a System-Area-Pointer pointing to the end of the control stack."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return the header typecode for FUNCTION.  Can be set with SETF."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extracts the arglist from the function header FUNC."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extracts the name from the function header FUNC."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extracts the type from the function header FUNC."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extracts the function from CLOSURE."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Return the length of VECTOR.  There is no reason to use this, 'cause\n"
 "  (length (the vector foo)) is the same."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return the SXHASH for the simple-string STRING."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Return the SXHASH for the first LENGTH characters of the simple-string\n"
 "  STRING."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Extract the INDEXth slot from CLOSURE."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n"
 "  WORDS words long.  Note: it is your responsibility to assure that the\n"
 "  relation between LENGTH and WORDS is correct."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Allocate an array header with type code TYPE and rank RANK."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid "Return a SAP pointing to the instructions part of CODE-OBJ."
 msgstr ""
 
-#: target:code/kernel.lisp
+#: src/code/kernel.lisp
 msgid ""
 "Extract the INDEXth element from the header of CODE-OBJ.  Can be set with\n"
 "  setf."
 msgstr ""
 
-#: target:code/format.lisp target:code/print.lisp target:code/irrat-dd.lisp
-#: target:code/irrat.lisp target:code/float.lisp target:code/numbers.lisp
-#: target:code/kernel.lisp
+#: src/code/format.lisp src/code/print.lisp src/code/irrat-dd.lisp
+#: src/code/irrat.lisp src/code/float.lisp src/code/numbers.lisp
+#: src/code/kernel.lisp
 msgid "Argument ~A is not a ~S: ~S."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Holds a list of symbols that describe features provided by the\n"
 "   implementation."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Features affecting the runtime"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "The fixnum closest in value to positive infinity."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "The fixnum closest in value to negative infinity."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "When (typep condition *break-on-signals*) is true, then calls to SIGNAL "
 "will\n"
 "   enter the debugger prior to signalling that condition."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Invokes the signal facility on a condition formed from datum and arguments.\n"
 "   If the condition is not handled, nil is returned.  If\n"
@@ -286,53 +222,53 @@ msgid ""
 "   any signalling is done."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "~A~%Break entered because of *break-on-signals* (now NIL.)"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Ignore the additional arguments."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "You may not supply additional arguments ~\n"
 "\t\t\t\t     when giving ~S to ~S."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Bad argument to ~S: ~S"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Invokes the signal facility on a condition formed from datum and arguments.\n"
 "   If the condition is not handled, the debugger is invoked."
 msgstr ""
 
-#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp
 msgid "Help! "
 msgstr ""
 
-#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp
 msgid " nested errors.  "
 msgstr ""
 
-#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp
+#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp
 msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Prints a message and invokes the debugger without allowing any possibility\n"
 "   of condition handling occurring."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Return from BREAK."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Warns about a situation by signalling a condition formed by datum and\n"
 "   arguments.  While the condition is being signaled, a muffle-warning "
@@ -340,19 +276,19 @@ msgid ""
 "   exists that causes WARN to immediately return nil."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "a warning condition"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Skip warning."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "~&~@<Warning:  ~3i~:_~A~:>~%"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Invokes the signal facility on a condition formed from datum and arguments.\n"
 "   If the condition is not handled, the debugger is invoked.  This function\n"
@@ -360,129 +296,129 @@ msgid ""
 "   simple-program-error, instead of program-error."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gives the world a shove and hopes it spins."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Functions to be invoked during cleanup at Lisp exit."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"
 "  non-Nil."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "This function causes execution to be suspended for N seconds.  N may\n"
 "  be any non-negative, non-complex number."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Zero the unused portion of the control stack so that old objects are not\n"
 "   kept alive because of uninitialized stack variables."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Holds a list of all the values returned by the most recent top-level EVAL."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of / when a new value is computed."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of // when a new value is computed."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Holds the value of the most recent top-level EVAL."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of * when a new value is computed."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of ** when a new value is computed."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Holds the value of the most recent top-level READ."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of + when a new value is read."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Gets the previous value of ++ when a new value is read."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Holds the form curently being evaluated."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "The top-level prompt string.  This also may be a function of no arguments\n"
 "   that returns a simple-string."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "True if we are within the Top-Level-Catcher.  This is used by interrupt\n"
 "  handlers to see whether it is o.k. to throw."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, +"
 "+,\n"
 "  +, ///, //, /, and -."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Go on with * set to NIL."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "EVAL returned an unbound marker."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "How many pages to reserve from the total heap space so we can handle\n"
 "heap overflow."
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "Top-level READ-EVAL-PRINT loop.  Do not call this."
 msgstr ""
 
-#: target:code/lispinit.lisp
-msgid "Return to Top-Level."
-msgstr ""
-
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid ""
 "~&Received EOF on *standard-input*, ~\n"
 "\t\t\t\t\tswitching to *terminal-io*.~%"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "~&Received more than ~D EOFs; Aborting.~%"
 msgstr ""
 
-#: target:code/lispinit.lisp
+#: src/code/lispinit.lisp
 msgid "~&Received EOF.~%"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/code/lispinit.lisp
+msgid "Return to Top-Level."
+msgstr ""
+
+#: src/pcl/walk.lisp
 msgid ""
 "~@<The evaluator was called to evaluate a form in a macroexpansion ~\n"
 "          environment constructed by the PCL portable code walker.  These ~\n"
@@ -494,38 +430,38 @@ msgid ""
 "          to use the PCL portable code walker to build its own evaluator.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid "~@<~S is not a recognized variable declaration.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid "~@<Can't get template for ~S.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid ""
 "~@<~S is a special form, not defined in the CommonLisp ~\n"
 "\t\t      manual.  This code walker doesn't know how to walk it.  ~\n"
 "\t\t      Define a template for this special form and try again.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid ""
 "~@<While handling repeat: ~\n"
 "                     Ran into stop while still in repeat template.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid ""
 "~@<Encountered declare ~S in a place where a ~\n"
 "         declare was not expected.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid "~@<Can't understand something in the arglist ~S.~@:>"
 msgstr ""
 
-#: target:pcl/walk.lisp
+#: src/pcl/walk.lisp
 msgid ""
 "~@<In the form ~S: ~\n"
 "                       IF only accepts three arguments, you are using ~D. ~\n"
@@ -539,7 +475,7 @@ msgid ""
 "your source code.~@:>"
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "A funcallable instance used to implement fwrappers.\n"
 "   The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n"
@@ -548,48 +484,48 @@ msgid ""
 "   function of the fwrapper object."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Print-function for struct FWRAPPER."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Return FUN if it is an fwrapper or nil if it isn't."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Evaluate BODY with VAR bound to consecutive fwrappers of\n"
 "   FDEFN.  Return RESULT at the end."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Return tha last encapsulation of FDEFN or NIL if none."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Prepend encapsulation F to the definition of FUNCTION-NAME.\n"
 "   Signal an error if FUNCTION-NAME is an undefined function."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Remove fwrapper F from the definition of FUNCTION-NAME."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Return a list of all fwrappers of FUNCTION-NAME, ordered\n"
 "   from outermost to innermost."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Set FUNCTION-NAMES's fwrappers to elements of the list\n"
 "   FWRAPPERS, which is assumed to be ordered from outermost to\n"
 "   innermost.  FWRAPPERS null means remove all fwrappers."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n"
 "   created by calling CONSTRUCTOR.  CONSTRUCTOR is a function\n"
@@ -600,7 +536,7 @@ msgid ""
 "   FWRAPPER)."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Remove fwrappers from the function named FUNCTION-NAME.\n"
 "   If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n"
@@ -608,27 +544,27 @@ msgid ""
 "   If both are not specified, remove all fwrappers."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Update the funcallable instance function of fwrapper F from its\n"
 "   constructor."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Update fwrapper function definitions of FUNCTION-NAME.\n"
 "   If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n"
 "   If TEST is supplied, update fwrappers satisfying TEST."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Find an fwrapper of FUNCTION-NAME.\n"
 "   If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n"
 "   If TEST is supplied, find an fwrapper satisfying TEST."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "Like DEFUN, but define a function wrapper.\n"
 "   In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n"
@@ -639,30 +575,30 @@ msgid ""
 "   invokes the next function with the supplied args."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "Return the expansion of a DEFINE-FWRAPPER."
 msgstr ""
 
-#: target:code/fwrappers.lisp
-msgid "&MORE not supported in fwrapper lambda lists"
-msgstr ""
-
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid ""
 "First value is true if BODY refers to any of the variables in\n"
 "     OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n"
 "     returns.  Second value is true if BODY refers to REST."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
+msgid "&MORE not supported in fwrapper lambda lists"
+msgstr ""
+
+#: src/code/fwrappers.lisp
 msgid "Fwrapper for old-style encapsulations."
 msgstr ""
 
-#: target:code/fwrappers.lisp
+#: src/code/fwrappers.lisp
 msgid "This function is deprecated; use fwrappers instead."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Define (NAME ...) to be a valid function name whose syntax is checked\n"
 "  by BODY.  In BODY, VAR is bound to an actual function name of the\n"
@@ -672,68 +608,68 @@ msgid ""
 "  and in similar situations."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "First value is true if NAME has valid function name syntax.\n"
 "  Second value is the name, a symbol, to use as a block name in DEFUNs\n"
 "  and in similar situations."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Return the fdefn object for NAME.  If it doesn't already exist and CREATE\n"
 "   is non-NIL, create a new (unbound) one."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid "Invalid function name: ~S"
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Return the FDEFN of NAME.  Signal an error if there is none\n"
 "   or if it's function is null."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Returns the definition for name, including any encapsulations.  Settable\n"
 "   with SETF."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Return FUNCTION-NAME's global function definition.\n"
 "   If FUNCTION-NAME is fwrapped, return the primary function definition\n"
 "   stored in the innermost fwrapper."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "This holds functions that (SETF FDEFINITION) invokes before storing the\n"
 "   new value.  These functions take the function name and the new value."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid ""
 "Set FUNCTION-NAME's global function definition to NEW-VALUE.\n"
 "   If FUNCTION-NAME is fwrapped, set the primary function stored\n"
 "   in the innermost fwrapper."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid "Return true if name has a global function definition."
 msgstr ""
 
-#: target:code/fdefinition.lisp
+#: src/code/fdefinition.lisp
 msgid "Make Name have no global function definition."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "&rest keyword is ~:[missing~;misplaced~]."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Return a list of all the currently active restarts ordered from most\n"
 "   recently established to less recently established.  If Condition is\n"
@@ -741,11 +677,11 @@ msgid ""
 "   condition) will be returned."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Returns the name of the given restart object."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*\n"
 "   Evaluates the Forms in a dynamic environment where the restarts in the "
@@ -757,7 +693,7 @@ msgid ""
 "   to the error currently being debugged.  See also RESTART-CASE."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Executes forms in a dynamic context where the given restart bindings are\n"
 "   in effect.  Users probably want to use RESTART-CASE.  When clauses "
@@ -765,13 +701,13 @@ msgid ""
 "   the same restart name, FIND-RESTART will find the first such clause."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Unnamed restart does not have a ~\n"
 "\t\t\t\t\treport function -- ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Returns the first restart named name.  If name is a restart, it is returned\n"
 "   if it is currently active.  If no such restart is found, nil is "
@@ -782,7 +718,7 @@ msgid ""
 "   condition) will be returned."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Calls the function associated with the given restart, passing any given\n"
 "   arguments.  If the argument restart is not a restart or a currently "
@@ -790,18 +726,18 @@ msgid ""
 "   non-nil restart name, then a control-error is signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Restart ~S is not active."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Calls the function associated with the given restart, prompting for any\n"
 "   necessary arguments.  If the argument restart is not a restart or a\n"
 "   currently active non-nil restart name, then a control-error is signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "(RESTART-CASE form\n"
 "   {(case-name arg-list {keyword value}* body)}*)\n"
@@ -818,7 +754,7 @@ msgid ""
 "   the new restarts."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)\n"
 "   body)\n"
@@ -827,39 +763,39 @@ msgid ""
 "   returns the values nil and t."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Condition ~S was signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "No REPORT?  Shouldn't happen!"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Condition slot is not bound: ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Slot ~S of ~S missing."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Make an instance of a condition object using the specified initargs."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~S is not a condition class."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Bad thing for class arg:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Condition already names a declaration: ~S."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*\n"
 "   Define NAME as a condition type.  This new type inherits slots and its\n"
@@ -892,39 +828,39 @@ msgid ""
 "   SLOT-VALUE may not be used on condition objects."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Keyword slot name indicates probable syntax error:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Malformed condition slot spec:~%  ~S."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "More than one :INITFORM in:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "More than one slot :DOCUMENTATION in~%  ~s"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Slot :DOCUMENTATION is not a string in~%  ~s"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Unknown slot option:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Bad option:~%  ~S"
 msgstr ""
 
-#: target:compiler/new-assem.lisp target:code/error.lisp
+#: src/compiler/new-assem.lisp src/code/error.lisp
 msgid "Unknown option: ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "(HANDLER-BIND ( {(type handler)}* )  body)\n"
 "   Executes body in a dynamic context where the given handler bindings are\n"
@@ -933,67 +869,67 @@ msgid ""
 "   signalled condition."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Ill-formed handler bindings."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~&~@<Error in function ~S:  ~3i~:_~?~:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Control stack overflow"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Heap (dynamic space) overflow"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~@<Type-error in ~S:  ~3i~:_~S is not of type ~S~:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Layout-invalid error in ~S:~@\n"
 "\t\t     Type test of class ~S was passed obsolete instance:~%  ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~@<~S fell through ~S expression.  ~:_Wanted one of ~:S.~:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "End-of-File on ~S"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~&~@<File-error in function ~S:  ~3i~:_~?~:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Error in ~S:  the variable ~S is unbound."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Error in ~S:  the function ~S is undefined."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "~@<Destructive function ~S called on ~\n"
 "                         constant data.~@:>"
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Arithmetic error ~S signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "~%Operation was ~S, operands ~S."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "(HANDLER-CASE form\n"
 "   { (type ([var]) body) }* )\n"
@@ -1007,203 +943,203 @@ msgid ""
 "   var specification."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Executes forms after establishing a handler for all error conditions that\n"
 "   returns from this form nil and the condition signalled."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid "Found an \"abort\" restart that failed to transfer control dynamically."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfers control to a restart named abort, signalling a control-error if\n"
 "   none exists."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfers control to a restart named muffle-warning, signalling a\n"
 "   control-error if none exists."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfer control to a restart named continue, returning nil if none exists."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfer control and value to a restart named store-value, returning nil if\n"
 "   none exists."
 msgstr ""
 
-#: target:code/error.lisp
+#: src/code/error.lisp
 msgid ""
 "Transfer control and value to a restart named use-value, returning nil if\n"
 "   none exists."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "Forms that must happen before top level forms are run."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "Can't cold-load-init other forms along with an eval-when."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "~S is not a defined type class."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "Missing type method for ~S"
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "~S is not a defined type class method."
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*"
 msgstr ""
 
-#: target:code/typedefs.lisp
+#: src/code/typedefs.lisp
 msgid "DEFINE-TYPE-CLASS Name [Inherits]"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Layout for ~S~@[, Invalid=~S~]"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "The inclusive upper bound on LAYOUT-HASH values."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Layout depth conflict: ~S~%  ~\n"
 "\t\t        (~S collides at ~S with ~S)~%"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Can't use anonymous or undefined class as constant:~%  ~S"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Return the class with the specified Name.  If ERRORP is false, then NIL is\n"
 "   returned when no such class exists."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Class not yet defined:~%  ~S"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Illegal to redefine standard type ~S."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Changing meta-class of ~S from ~S to ~S."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Redefining DEFTYPE type to be a class: ~S."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Return the class of the supplied object, which may be any Lisp object, not\n"
 "   just a CLOS STANDARD-OBJECT."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Modifing ~(~A~) class ~S; making it writable."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Subclassing sealed class ~S; unsealing it."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
-"Change in superclasses of class ~S:~%  ~\n"
-"\t\t  ~A superclasses: ~S~%  ~\n"
-"\t\t  ~A superclasses: ~S"
-msgstr ""
-
-#: target:code/class.lisp
-msgid ""
-"In class ~S:~%  ~\n"
-"\t\t    ~:(~A~) definition of superclass ~S incompatible with~%  ~\n"
-"\t\t    ~A definition."
+"Change in the inheritance structure of class ~S~%  ~\n"
+"\t\t between the ~A definition and the ~A definition."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Change in instance length of class ~S:~%  ~\n"
 "\t\t   ~A length: ~D~%  ~\n"
 "\t\t   ~A length: ~D"
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
-"Change in the inheritance structure of class ~S~%  ~\n"
-"\t\t between the ~A definition and the ~A definition."
+"In class ~S:~%  ~\n"
+"\t\t    ~:(~A~) definition of superclass ~S incompatible with~%  ~\n"
+"\t\t    ~A definition."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
+msgid ""
+"Change in superclasses of class ~S:~%  ~\n"
+"\t\t  ~A superclasses: ~S~%  ~\n"
+"\t\t  ~A superclasses: ~S"
+msgstr ""
+
+#: src/code/class.lisp
 msgid ""
 "Loading a reference to class ~S when the compile~\n"
 "\t\t       ~%  time definition was incompatible with the current ~\n"
 "\t\t       one."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Invalidate current definition."
 msgstr ""
 
-#: target:code/class.lisp
-msgid "New definition of ~S must be loaded eventually."
+#: src/code/class.lisp
+msgid "Smash current layout, preserving old code."
 msgstr ""
 
-#: target:code/class.lisp
-msgid "Smash current layout, preserving old code."
+#: src/code/class.lisp
+msgid "Ignore the incompatibility, leave class alone."
+msgstr ""
+
+#: src/code/class.lisp
+msgid "New definition of ~S must be loaded eventually."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Any old ~S instances will be in a bad way.~@\n"
 "\t\t      I hope you know what you're doing..."
 msgstr ""
 
-#: target:code/class.lisp
-msgid "Ignore the incompatibility, leave class alone."
-msgstr ""
-
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid ""
 "Assuming the current definition of ~S is correct, and~@\n"
 "\t\t      that the loaded code doesn't care about the ~\n"
 "\t\t      incompatibility."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Topological sort failed due to constraint on ~S."
 msgstr ""
 
-#: target:code/class.lisp
+#: src/code/class.lisp
 msgid "Something strange with forward layout for ~S:~%  ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid ""
 "*Use-Implementation-Types* is a semi-public flag which determines how\n"
 "   restrictive we are in determining type membership.  If two types are the\n"
@@ -1215,131 +1151,395 @@ msgid ""
 "   affects array types."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Subtypep is illegal on this type:~%  ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "&Aux in a FUNCTION or VALUES type: ~S."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Keyword type description is not a two-list: ~S."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Repeated keyword ~S in lambda list: ~S."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
-msgstr ""
-
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid ""
 "The maximum length of a union of integer types before we take a\n"
 "  short cut and return a simpler union."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Bad thing to be a type specifier: ~S."
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "VALUES type illegal in this context:~%  ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
+msgid "Bad N specified for MOD type specifier: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Bad float format: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Arrays can't have a negative number of dimensions: ~D."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Array type has too many dimensions: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Bad dimension in array type: ~S."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Array dimensions is not a list, integer or *:~%  ~S"
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Type of characters that aren't base-char's.  None in CMU CL."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Type corresponding to the charaters required by the standard."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "Type for any keyword symbol."
+msgstr ""
+
+#: src/code/type.lisp
+msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
+msgstr ""
+
+#: src/code/type.lisp
 msgid "The SATISFIES predicate name is not a symbol: ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Weird CONS type ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "The component type for COMPLEX is not numeric: ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "The component type for COMPLEX is not real: ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid ""
 "The component type for COMPLEX (EQL X) ~\n"
 "                                    is complex: ~S"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid ""
 "~@<(known bug #145): The type ~S is too hairy to be \n"
 "                         used for a COMPLEX component.~:@>"
 msgstr ""
 
-#: target:code/type.lisp
+#: src/code/type.lisp
 msgid "Bound is not *, a ~A or a list of a ~A: ~S"
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad N specified for MOD type specifier: ~S."
+#: src/compiler/generic/vm-type.lisp
+msgid "~S isn't an integer type?"
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an array-header-p and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an arrayp and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad float format: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an atom and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Arrays can't have a negative number of dimensions: ~D."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a base-char-p and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Array type has too many dimensions: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a bignump and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Bad dimension in array type: ~S."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a bit-vector-p and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Array dimensions is not a list, integer or *:~%  ~S"
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a characterp and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Type of characters that aren't base-char's.  None in CMU CL."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a code-component-p and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Type corresponding to the charaters required by the standard."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a consp and NIL otherwise."
 msgstr ""
 
-#: target:code/type.lisp
-msgid "Type for any keyword symbol."
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a compiled-function-p and NIL otherwise."
 msgstr ""
 
-#: target:compiler/generic/vm-type.lisp
-msgid "~S isn't an integer type?"
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complexp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complex-double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complex-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a complex-double-double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complex-rational-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a complex-single-float-p and NIL otherwise."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a double-double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a fdefn-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a fixnump and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a floatp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a functionp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an integerp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a listp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a long-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a lra-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a not and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a null and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a numberp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a rationalp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a ratiop and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a realp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a scavenger-hook-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a short-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-array-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-bit-vector-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-string-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-vector-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a single-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a stringp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a %instancep and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a symbolp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a system-area-pointer-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a weak-pointer-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a vectorp and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is an unsigned-byte-32-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a signed-byte-32-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-2-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-4-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-8-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-16-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-unsigned-byte-32-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-array-signed-byte-8-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-signed-byte-16-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-signed-byte-30-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-signed-byte-32-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-array-single-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid "Return T if OBJECT is a simple-array-double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-double-double-float-p and NIL otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-complex-single-float-p and NIL "
+"otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-complex-double-float-p and NIL "
+"otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
+msgid ""
+"Return T if OBJECT is a simple-array-complex-double-double-float-p and NIL "
+"otherwise."
+msgstr ""
+
+#: src/code/pred.lisp
 msgid "Return the type of OBJECT."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid ""
 "Return the element type that will actually be used to implement an array\n"
 "   with the specifier :ELEMENT-TYPE Spec."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid ""
 "Return two values indicating the relationship between type1 and type2:\n"
 "  T and T: type1 definitely is a subtype of type2.\n"
@@ -1347,43 +1547,43 @@ msgid ""
 "  NIL and NIL: who knows?"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Return T iff OBJECT is of type TYPE."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "~@<unknown element type in array type: ~2I~_~S~:>"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Unknown type specifier: ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Invalid type specifier: ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Function types are not a legal argument to TYPEP:~%  ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Class has not yet been defined: ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "TYPEP on obsolete object (was class ~S)."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Class is currently invalid: ~S"
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid ""
 "Returns T if X and Y are EQL or if they are structured components\n"
 "  whose elements are EQUAL.  Strings and bit-vectors are EQUAL if they\n"
@@ -1391,7 +1591,7 @@ msgid ""
 "  EQ to be EQUAL."
 msgstr ""
 
-#: target:code/pred.lisp
+#: src/code/pred.lisp
 msgid ""
 "Just like EQUAL, but more liberal in several respects.\n"
 "  Numbers may be of different types, as long as the values are identical\n"
@@ -1400,74 +1600,74 @@ msgid ""
 "  in their type restriction."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "No alien type class ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "No method ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid "Method ~S not defined for ~S"
-msgstr ""
-
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Parse the list structure TYPE as an alien type specifier and return\n"
 "   the resultant alien-type structure."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unknown alien type: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "No translator for primitive alien type ~S?"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Definition missing for alien type ~S?"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Attempt to multiple define ~A ~S."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Attempt to shadow definition of ~A ~S."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Convert the alien-type structure TYPE back into a list specification of\n"
 "   the type."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
+msgid "Method ~S not defined for ~S"
+msgstr ""
+
+#: src/code/alieneval.lisp
 msgid ""
 "Define the alien type NAME to be equivalent to TYPE.  Name may be NIL for\n"
 "   STRUCT and UNION types, in which case the name is taken from the type\n"
 "   specifier."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Redefining ~A ~S to be:~%  ~S,~%was:~%  ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "~S is a built-in alien type."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Redefining ~S to be:~%  ~S,~%was~%  ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Return T iff TYPE1 and TYPE2 describe equivalent alien types."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Return T iff the alien type TYPE1 is a subtype of TYPE2.  Currently, the\n"
 "   only supported subtype relationships are that any pointer type is a\n"
@@ -1476,114 +1676,111 @@ msgid ""
 "   ALIEN-TYPE-=."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Return T iff OBJECT is an alien of type TYPE."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot represent ~S typed aliens."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot pass aliens of type ~S as arguments to call-out"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot return aliens of type ~S from call-out"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot extract ~D bit integers."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Redefining alien enum ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unknown enum type: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Empty enum type: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "An enumeration must contain at least one element."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Enumeration element ~S is not a keyword."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Element value ~S is not an integer."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Element value ~S used more than once."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Enumeration element ~S used more than once."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Can't represent enums needing more than 32 bits."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot deposit aliens of type ~S (unknown size)."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "First dimension is not a non-negative fixnum or NIL: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Dimension is not a non-negative fixnum: ~S"
 msgstr ""
 
-#: target:pcl/simple-streams/socket.lisp target:pcl/simple-streams/file.lisp
-#: target:pcl/simple-streams/internal.lisp
-#: target:pcl/simple-streams/classes.lisp target:pcl/env.lisp
-#: target:pcl/fixup.lisp target:pcl/methods.lisp target:pcl/cpl.lisp
-#: target:pcl/seal.lisp target:pcl/dfun.lisp
-#: target:pcl/method-slot-access-optimization.lisp target:pcl/boot.lisp
-#: target:pcl/dlisp.lisp target:pcl/cache.lisp target:pcl/defclass.lisp
-#: target:pcl/low.lisp target:compiler/disassem.lisp target:code/pathname.lisp
-#: target:code/format.lisp target:code/pprint-loop.lisp
-#: target:code/pprint.lisp target:code/bignum.lisp target:code/alieneval.lisp
+#: src/pcl/env.lisp src/pcl/fixup.lisp src/pcl/methods.lisp src/pcl/cpl.lisp
+#: src/pcl/seal.lisp src/pcl/dfun.lisp
+#: src/pcl/method-slot-access-optimization.lisp src/pcl/boot.lisp
+#: src/pcl/dlisp.lisp src/pcl/cache.lisp src/pcl/defclass.lisp
+#: src/pcl/low.lisp src/compiler/disassem.lisp src/code/pathname.lisp
+#: src/code/pprint-loop.lisp src/code/pprint.lisp src/code/bignum.lisp
+#: src/code/alieneval.lisp
 msgid "Required argument missing"
 msgstr ""
 
-#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+#: src/compiler/aliencomp.lisp src/code/alieneval.lisp
 msgid "Unknown size: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unknown alignment: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "A hash table used to detect cycles while comparing record types."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.\n"
 "If so return true; otherwise call ALTERNATIVE."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot use values types here."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Badly formed alien name."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Define NAME as an external alien variable of type TYPE.  NAME should be\n"
 "   a list of a string holding the alien name and a symbol to use as the "
@@ -1593,13 +1790,13 @@ msgid ""
 "   from the one supplied."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Access the alien variable named NAME, assuming it is of type TYPE.  This\n"
 "   is SETFable."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Establish some local alien variables.  Each BINDING is of the form:\n"
 "     VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]\n"
@@ -1617,26 +1814,26 @@ msgid ""
 "       the external alien given by EXTERNAL-NAME."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Return true if X (which must be an Alien pointer) is null, false otherwise."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Convert the System-Area-Pointer SAP to an Alien of the specified Type (not\n"
 "   evaluated.)  Type must be pointer-like."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Cannot make aliens of type ~S out of SAPs"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Return a System-Area-Pointer pointing to Alien's data."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Allocate an alien of type TYPE and return an alien pointer to it.  If SIZE\n"
 "   is supplied, how it is interpreted depends on TYPE.  If TYPE is an array\n"
@@ -1647,42 +1844,42 @@ msgid ""
 "   functions which use ``free''."
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid "Cannot override the size of zero-dimensional arrays."
-msgstr ""
-
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Size of ~S unknown."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Alignment of ~S unknown."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
+msgid "Cannot override the size of zero-dimensional arrays."
+msgstr ""
+
+#: src/code/alieneval.lisp
 msgid ""
 "Dispose of the storage pointed to by ALIEN.  ALIEN must have been allocated\n"
 "   by MAKE-ALIEN or ``malloc''."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "No slot named ~S in ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Extract SLOT from the Alien STRUCT or UNION ALIEN.  May be set with SETF."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Too many indices when derefing ~S: ~D"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Incorrect number of indices when derefing ~S: ~D"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "De-reference an Alien pointer or array.  If an array, the indices are used\n"
 "   as the indices of the array element to access.  If a pointer, one index "
@@ -1690,68 +1887,68 @@ msgid ""
 "   optionally be specified, giving the equivalent of C pointer arithmetic."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Something is wrong; local-alien-info not found: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "~S isn't forced to memory.  Something went wrong."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Return an Alien pointer to the data addressed by Expr, which must be a call\n"
 "   to SLOT or DEREF, or a reference to an Alien variable."
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid "Something is wrong, local-alien-info not found: ~S"
+#: src/code/alieneval.lisp
+msgid "~S is not a valid L-value"
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid "~S is not a valid L-value"
+#: src/code/alieneval.lisp
+msgid "Something is wrong, local-alien-info not found: ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Convert ALIEN to an Alien of the specified TYPE (not evaluated).  Both "
 "types\n"
 "   must be Alien array, pointer or function types."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "~S cannot be cast."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp target:code/alieneval.lisp
+#: src/compiler/aliencomp.lisp src/code/alieneval.lisp
 msgid "Cannot cast to alien type ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Return the size of the alien type TYPE.  UNITS specifies the units to\n"
 "   use and can be either :BITS, :BYTES, or :WORDS."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unknown size for alien type ~S."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Call the foreign function ALIEN with the specified arguments.  ALIEN's\n"
 "   type specifies the argument and result types."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Wrong number of arguments for ~S~%Expected ~D, got ~D."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "~S is not an alien function."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "Def-Alien-Routine Name Result-Type\n"
 "                    {(Arg-Name Arg-Type [Style])}*\n"
@@ -1797,43 +1994,34 @@ msgid ""
 "        the return value being determined by accessing the object on return."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Bogus argument style ~S in ~S."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Can't use :out or :in-out on pointer-like type:~%  ~S"
 msgstr ""
 
-#: target:code/alieneval.lisp
-msgid ""
-"A callback consists of a piece assembly code -- the trampoline --\n"
-"and a lisp function.  We store the function type (including return\n"
-"type and arg types), so we can detect incompatible redefinitions."
-msgstr ""
-
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Vector of all callbacks."
 msgstr ""
 
-#: target:pcl/simple-streams/string.lisp target:compiler/tn.lisp
-#: target:compiler/main.lisp target:code/describe.lisp
-#: target:code/debug-int.lisp target:code/debug-info.lisp
-#: target:code/foreign-linkage.lisp target:code/reader.lisp
-#: target:code/stream.lisp target:code/hash-new.lisp target:code/array.lisp
-#: target:code/alieneval.lisp
+#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp
+#: src/code/debug-int.lisp src/code/debug-info.lisp
+#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp
+#: src/code/hash-new.lisp src/code/array.lisp src/code/alieneval.lisp
 msgid "~S is not an array with a fill-pointer."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unable to mprotect ~S bytes (~S) at ~S (~S).  Callbacks may not work."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Return the trampoline pointer for the callback NAME."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "~\n"
 "Attempt to redefine callback with incompatible return type.\n"
@@ -1841,21 +2029,21 @@ msgid ""
 "    New type is: ~A"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "~\n"
 "Create new trampoline (old trampoline calls old lisp function)."
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unsupported argument type: ~A"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid "Unsupported return type: ~A"
 msgstr ""
 
-#: target:code/alieneval.lisp
+#: src/code/alieneval.lisp
 msgid ""
 "(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n"
 "     {doc-string} {decls}* {FORM}*)\n"
@@ -1871,103 +2059,103 @@ msgid ""
 "incremental redefinition of callback functions."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Return T iff the SAP X points to a smaller address then the SAP Y."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/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
+#: src/code/sap.lisp
 msgid "Return T iff the SAP X points to the same address as the SAP Y."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/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
+#: src/code/sap.lisp
 msgid "Return T iff the SAP X points to a larger address then the SAP Y."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Return a new sap OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Return the byte offset between SAP1 and SAP2."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Converts a System Area Pointer into an integer."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Converts an integer into a System Area Pointer."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 8-bit byte at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 16-bit word at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 32-bit dualword at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 64-bit quadword at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 32-bit single-float at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the 64-bit double-float at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the long-float at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the signed 16-bit word at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/sap.lisp
+#: src/code/sap.lisp
 msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid "The number of bits to process at a time."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid "The maximum number of bits that can be dealt with during a single call."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing\n"
 "  bits from the ``start.''  On big-endian machines this is a left-shift and\n"
@@ -1976,122 +2164,122 @@ msgid ""
 "  of count are significant."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing\n"
 "  bits from the ``end.''  On big-endian machines this is a right-shift and\n"
 "  on little-endian machines this is a left-shift."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for\n"
 "  the remaining ``end'' bits.  Only the lower 5 bits of COUNT are "
 "significant."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for\n"
 "  the remaining ``start'' bits.  Only the lower 5 bits of COUNT are\n"
 "  significant."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid "Align the SAP to a word boundry, and update the offset accordingly."
 msgstr ""
 
-#: target:code/bit-bash.lisp
+#: src/code/bit-bash.lisp
 msgid ""
 "Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits."
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "This is the interpreter's evaluation stack."
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "This is the next free element of the interpreter's evaluation stack."
 msgstr ""
 
-#: target:code/byte-interp.lisp
-msgid "Unknown inline function, id=~D"
+#: src/code/byte-interp.lisp
+msgid "Undefined XOP."
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Unbound variable: ~S"
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Non-list argument to CAR: ~S"
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Non-list argument to CDR: ~S"
 msgstr ""
 
-#: target:code/byte-interp.lisp
-msgid "Undefined XOP."
+#: src/code/byte-interp.lisp
+msgid "Unknown inline function, id=~D"
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Wrong number of arguments."
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "Not enough arguments."
 msgstr ""
 
-#: target:pcl/boot.lisp target:code/byte-interp.lisp
+#: src/pcl/boot.lisp src/code/byte-interp.lisp
 msgid "Too many arguments."
 msgstr ""
 
-#: target:pcl/combin.lisp target:code/interr.lisp target:code/byte-interp.lisp
+#: src/pcl/combin.lisp src/code/interr.lisp src/code/byte-interp.lisp
 msgid "Odd number of keyword arguments."
 msgstr ""
 
-#: target:code/interr.lisp target:code/byte-interp.lisp
+#: src/code/interr.lisp src/code/byte-interp.lisp
 msgid "Unknown keyword: ~S"
 msgstr ""
 
-#: target:code/byte-interp.lisp
+#: src/code/byte-interp.lisp
 msgid "function-end breakpoints not supported."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "The exclusive upper bound on the rank of an array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "The exclusive upper bound any given dimension of an array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "The exclusive upper bound on the total number of elements in an array."
 msgstr ""
 
-#: target:code/array.lisp
-msgid "End ~D is greater than total size ~D."
+#: src/code/array.lisp
+msgid "Start ~D is greater than end ~D."
 msgstr ""
 
-#: target:code/array.lisp
-msgid "Start ~D is greater than end ~D."
+#: src/code/array.lisp
+msgid "End ~D is greater than total size ~D."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "List of weak-pointers to static vectors.  Needed for GCing static vectors"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Cannot make a static array of element type ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Failed to allocate space for static array of length ~S of type ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Creates an array of the specified Dimensions and properties.  See the\n"
 "  manual for details.\n"
@@ -2120,91 +2308,85 @@ msgid ""
 "      created.  This array is created by calling malloc."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Can't specify :displaced-index-offset without :displaced-to"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Cannot make an adjustable static array"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Cannot make a displaced array static"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Cannot specify both :initial-element and ~\n"
 "\t\t:initial-contents"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "~D elements in the initial-contents, but the ~\n"
 "\t\tvector length is ~D."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Only vectors can have fill pointers."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Invalid fill-pointer ~D"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Neither :initial-element nor :initial-contents ~\n"
 "\t\t   can be specified along with :displaced-to"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "One can't displace an array of type ~S into ~\n"
 "                           another of type ~S."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~S doesn't have enough elements."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~&Freeing foreign vector at #x~X~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Finalizing static vectors ~S~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "static vector ~A.  header = ~X~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "  static vector ~A in use~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "  Free static vector ~A~%"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Cannot supply both :initial-contents and :initial-element to\n"
 "            either make-array or adjust-array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~S cannot be used to initialize an array of type ~S."
 msgstr ""
 
-#: target:code/array.lisp
-msgid ""
-"Malformed :initial-contents.  Dimension of ~\n"
-"\t\t\t        axis ~D is ~D, but ~S is ~D long."
-msgstr ""
-
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Malformed :initial-contents.  ~S is not a ~\n"
 "\t\t\t                       sequence, but ~D more layer needed."
@@ -2214,104 +2396,110 @@ msgid_plural ""
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
+msgid ""
+"Malformed :initial-contents.  Dimension of ~\n"
+"\t\t\t        axis ~D is ~D, but ~S is ~D long."
+msgstr ""
+
+#: src/code/array.lisp
 msgid "Constructs a simple-vector from the given objects."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Wrong number of subscripts, ~D, for array of rank ~D"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Invalid index ~D in ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns T if the Subscipts are in bounds for the Array, Nil otherwise."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the element of the Array specified by the Subscripts."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Returns the element of array corressponding to the row-major index.  This "
 "is\n"
 "   SETF'able."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the Index'th element of the given Simple-Vector."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the bit from the Bit-Array at the specified Subscripts."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the bit from the Simple-Bit-Array at the specified Subscripts."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the type of the elements of the array"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the number of dimensions of the Array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns length of dimension Axis-Number of the Array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Vector axis is not zero: ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~D is too big; ~S only has ~D dimension"
 msgid_plural "~D is too big; ~S only has ~D dimensions"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns a list whose elements are the dimensions of the array"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the total number of elements in the Array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Returns values of :displaced-to and :displaced-index-offset options to\n"
 "   make-array, or the defaults nil and 0 if not a displaced array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Returns T if (adjust-array array...) would return an array identical\n"
 "   to the argument, this happens for complex arrays."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns T if the given Array has a fill pointer, or Nil otherwise."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Returns the Fill-Pointer of the given Vector."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "New fill pointer, ~S, is larger than the length of the vector."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Attempts to set the element of Array designated by the fill pointer\n"
 "   to New-El and increment fill pointer by one.  If the fill pointer is\n"
@@ -2320,103 +2508,103 @@ msgid ""
 "   returned."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Like Vector-Push except that if the fill pointer gets too large, the\n"
 "   Array is extended rather than Nil being returned."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Attempts to decrease the fill-pointer by 1 and return the element\n"
 "   pointer to by the new fill pointer.  If the original value of the fill\n"
 "   pointer is 0, an error occurs."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Nothing left to pop."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Adjusts the Array's dimensions to the given Dimensions and stuff."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Number of dimensions not equal to rank of array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "New element type, ~S, is incompatible with old."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Static arrays are not adjustable."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Multidimensional arrays can't have fill pointers."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Initial contents may not be specified with ~\n"
 "\t\t the :initial-element or :displaced-to option."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "The :initial-element option may not be specified ~\n"
 "\t       with :displaced-to."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "One can't displace an array of type ~S into another of ~\n"
 "\t               type ~S."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "The :displaced-to array is too small."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Cannot adjust-array an array (~S) to a size (~S) that is ~\n"
 "\t            smaller than it's fill pointer (~S)."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Cannot supply a non-NIL value (~S) for :fill-pointer ~\n"
 "\t   in adjust-array unless the array (~S) was originally ~\n"
 " \t   created with a fill pointer."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Cannot supply a value for :fill-pointer (~S) that is larger ~\n"
 "\t     than the new length of the vector (~S)."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Bogus value for :fill-pointer in adjust-array: ~S"
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Destructively alters the Vector, changing its length to New-Size, which\n"
 "   must be less than or equal to its current size."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "Fills in array header with provided information.  Returns array."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid "~S and ~S do not have the same dimensions."
 msgstr "~S 와 ~S 는 그 요소의 수가 다르다."
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2425,7 +2613,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGIOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2434,7 +2622,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGXOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2443,7 +2631,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGEQV on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2452,7 +2640,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGNAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2461,7 +2649,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGNOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2470,7 +2658,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGANDC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2479,7 +2667,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGANDC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2488,7 +2676,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGORC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2497,7 +2685,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Perform a bit-wise LOGORC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2506,7 +2694,7 @@ msgid ""
 "  created.  All the arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/array.lisp
+#: src/code/array.lisp
 msgid ""
 "Performs a bit-wise logical NOT on the elements of BIT-ARRAY,\n"
 "  putting the results in RESULT-BIT-ARRAY.  If RESULT-BIT-ARRAY is T,\n"
@@ -2514,21 +2702,21 @@ msgid ""
 "  created.  Both arrays must have the same rank and dimensions."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Structure used to implement hash tables."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Almost-Primify returns an almost prime number greater than or equal\n"
 "   to NUM."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Define a new kind of hash table test."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Creates and returns a new hash table.  The keywords are as follows:\n"
 "     :TEST -- Indicates what kind of test to use.  Only EQ, EQL, EQUAL,\n"
@@ -2557,48 +2745,44 @@ msgid ""
 "                backward compatibility, a value of T is the same as :KEY."
 msgstr ""
 
-#: target:code/hash-new.lisp
-msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
-msgstr ""
-
-#: target:code/hash-new.lisp
-msgid ";; Creating unsupported weak-p hash table~%"
+#: src/code/hash-new.lisp
+msgid "Cannot make a weak ~A hashtable with test: ~S"
 msgstr ""
 
-#: target:code/hash-new.lisp
-msgid "Cannot make a weak ~A hashtable with test: ~S"
+#: src/code/hash-new.lisp
+msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Returns the number of entries in the given HASH-TABLE."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Return the rehash-size HASH-TABLE was created with."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Return the rehash-threshold HASH-TABLE was created with."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Return a size that can be used with MAKE-HASH-TABLE to create a hash\n"
 "   table that can hold however many entries HASH-TABLE can hold without\n"
 "   having to be grown."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Return the test HASH-TABLE was created with."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Return T if HASH-TABLE will not keep entries for keys that would\n"
 "   otherwise be garbage, and NIL if it will."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n"
 "   value and T as multiple values, or returns DEFAULT and NIL if there is "
@@ -2606,31 +2790,31 @@ msgid ""
 "   such entry.  Entries can be added using SETF."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "Remove the entry in HASH-TABLE associated with KEY.  Returns T if there\n"
 "   was such an entry, and NIL if not."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "This removes all the entries from HASH-TABLE and returns the hash table\n"
 "   itself."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "This removes all the entries from HASH-TABLE and returns the hash table\n"
 "   itself, shrinking the size to free memory."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n"
 "   of the entry; returns NIL."
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid ""
 "WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n"
 "   provides a method of manually looping over the elements of a hash-table.\n"
@@ -2640,226 +2824,226 @@ msgid ""
 "   the second and third values are the key and the value of the next object."
 msgstr ""
 
-#: target:pcl/slots.lisp target:code/hash-new.lisp
+#: src/pcl/slots.lisp src/code/hash-new.lisp
 msgid "What kind of instance is this?"
 msgstr ""
 
-#: target:code/hash-new.lisp
+#: src/code/hash-new.lisp
 msgid "Computes a hash code for S-EXPR and returns it as an integer."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 #, fuzzy
 msgid "Returns all but the first object."
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 2nd object in a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the 1st sublist."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the 1st sublist."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns all but the 1st two objects of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in the cddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in the cadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in the caar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the caar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cdar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cdar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the caaar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the caadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the caddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cdddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cdddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the caaar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cdaar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cddar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cadar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cdaar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cdadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the car of the cddar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the caadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cadar of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the caddr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the cdr of the cdadr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns a list with se1 as the car and se2 as the cdr."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns T if X and Y are isomorphic trees with identical leaves."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "The recommended way to test for the end of a list.  True if Object is nil,\n"
 "   false if Object is a cons, and an error for any other types of arguments."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the length of the given List, or Nil if the List is circular."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the nth object in a list where the car is the zero-th element."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 1st object in a list or NIL if the list is empty."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 2nd object in a list or NIL if there is no 2nd object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 3rd object in a list or NIL if there is no 3rd object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 4th object in a list or NIL if there is no 4th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 5th object in a list or NIL if there is no 5th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 6th object in a list or NIL if there is no 6th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 7th object in a list or NIL if there is no 7th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 8th object in a list or NIL if there is no 8th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 9th object in a list or NIL if there is no 9th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the 10th object in a list or NIL if there is no 10th object."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Means the same as the cdr of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Performs the cdr function n times on a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the last N conses (not the last element!) of a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns constructs and returns a list of its arguments."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns a list of the arguments with last cons a dotted pair"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Constructs a list with size elements each set to value"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "~S is not a proper list"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Typically, returns a new list that is the concatenation of Args.\n"
 "\n"
@@ -2872,233 +3056,233 @@ msgid ""
 "  last Arg is not a list, the returned value is not a list either."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "~S is not a list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns a new list EQUAL but not EQ to list"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns a new association list equal to alist, constructed in space"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Copy-Tree recursively copys trees of conses."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns (append (reverse x) y)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Concatenates the lists given as arguments (by changing them)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Argument is not a list -- ~S."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns (nconc (nreverse x) y)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "First argument is not a proper list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns a new list the same as List without the last N conses.\n"
 "   List must not be circular."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Modifies List to remove the last N conses. List must not be circular."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns a new list, whose elements are those of List that appear before\n"
 "   Object.  If Object is not a tail of List, a copy of List is returned.\n"
 "   List must be a proper list or a dotted list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Changes the car of x to y and returns the new x."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Changes the cdr of x to y and returns the new x."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Sets the Nth element of List (zero based) to Newval."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "~S is too large an index for SETF of NTH."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 #, fuzzy
 msgid "Returns what was passed to it."
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Builds a new function that returns T whenever FUNCTION returns NIL and\n"
 "   NIL whenever FUNCTION returns T."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees matching old."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees for which test is true."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees for which test is false."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees of tree for which test is true."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes new for subtrees of tree for which test is false."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Substitutes from alist into tree nondestructively."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns tail of list beginning with first element satisfying EQLity,\n"
 "   :test, or :test-not with a given item."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 #, fuzzy
 msgid ""
 "Returns tail of list beginning with first element satisfying test(element)"
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 #, fuzzy
 msgid ""
 "Returns tail of list beginning with first element not satisfying test(el)"
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns true if Object is the same as some tail of List, otherwise\n"
 "   returns false. List must be a proper list or a dotted list."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Add item to list unless it is already a member"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the union of list1 and list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Test and test-not both supplied."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Destructively returns the union list1 and list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the intersection of list1 and list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Destructively returns the intersection of list1 and list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns the elements of list1 which are not in list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Destructively returns the elements of list1 which are not in list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Return new list of elements appearing exactly once in LIST1 and LIST2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Destructively return a list with elements which appear but once in LIST1\n"
 "   and LIST2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns T if every element in list1 is also in list2."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Construct a new alist by adding the pair (key . datum) to alist"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Construct an association list from keys and data (adding to alist)"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "The lists of keys and data are of unequal length."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the cons in alist whose car is equal (by a given test or EQL) to\n"
 "   the Item."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the first cons in alist whose car satisfies the Predicate.  If\n"
 "   key is supplied, apply it to the car of each cons before testing."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the first cons in alist whose car does not satisfiy the Predicate.\n"
 "  If key is supplied, apply it to the car of each cons before testing."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n"
 "   the Item."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the first cons in alist whose cdr satisfies the Predicate.  If key\n"
 "  is supplied, apply it to the cdr of each cons before testing."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Returns the first cons in alist whose cdr does not satisfy the Predicate.\n"
 "  If key is supplied, apply it to the cdr of each cons before testing."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n"
 "  It Maps function over the arglists in the appropriate way. It is done when "
@@ -3108,158 +3292,158 @@ msgid ""
 "  function and accumulating results as desired."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid ""
 "Applies fn to successive elements of lists, returns its second argument."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive elements of list, returns list of results."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive elements of list, returns NCONC of results."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive CDRs of list, returns ()."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive CDRs of list, returns list of results."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Applies fn to successive CDRs of lists, returns NCONC of results."
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns tail of list beginning with first element eq to item"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Return the first pair of alist where item EQ the key of pair"
 msgstr ""
 
-#: target:code/list.lisp
+#: src/code/list.lisp
 msgid "Returns list with all elements with all elements EQ to ITEM deleted."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a list of the Nth element of each of the sequences.  Used by MAP\n"
 "   and friends."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns a sequence of the same type as SEQUENCE and the given LENGTH."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the broad class of which TYPE is a specific subclass."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "NIL output type invalid for this sequence function."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S is too hairy for sequence functions."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S is a bad type specifier for sequence functions."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Error in ~S: ~S: Index too large."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns a sequence of the given TYPE and LENGTH."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the element of SEQUENCE specified by INDEX."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Store NEWVAL as the component of SEQUENCE specified by INDEX."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns an integer that is the length of SEQUENCE."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S is a bad type specifier for sequences"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Shouldn't happen!  Weird type"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The length of ~S does not match the specified ~\n"
 "                          length of ~S."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the given Type and Length, with elements initialized\n"
 "  to :Initial-Element."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The length of ~S does not match the specified ~\n"
 "                           length  of ~S."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S is a bad type specifier for sequences."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a copy of a subsequence of SEQUENCE starting with element number \n"
 "   START and continuing to the end of SEQUENCE or the optional END."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Replace the specified elements of SEQUENCE with ITEM."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The target sequence is destructively modified by copying successive\n"
 "   elements into it from the source sequence."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a new sequence containing the same elements but in reverse order."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same elements in reverse order; the argument\n"
 "   is destroyed."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a new sequence of all the argument sequences concatenated together\n"
 "  which shares no structure with the original argument sequences of the\n"
 "  specified OUTPUT-TYPE-SPEC."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "FUNCTION must take as many arguments as there are sequences provided.  The \n"
 "   result is a sequence such that element i is the result of applying "
@@ -3267,14 +3451,14 @@ msgid ""
 "   to element i of each of the argument sequences."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "PREDICATE is applied to the elements with index 0 of the sequences, then \n"
 "   possibly to those with index 1, and so on.  SOME returns the first \n"
 "   non-() value encountered, or () if the end of a sequence is reached."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "PREDICATE is applied to the elements with index 0 of the sequences, then\n"
 "   possibly to those with index 1, and so on.  EVERY returns () as soon\n"
@@ -3282,7 +3466,7 @@ msgid ""
 "   is non-()."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "PREDICATE is applied to the elements with index 0 of the sequences, then \n"
 "   possibly to those with index 1, and so on.  NOTANY returns () as soon\n"
@@ -3290,7 +3474,7 @@ msgid ""
 "   of a sequence is reached."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "PREDICATE is applied to the elements with index 0 of the sequences, then\n"
 "   possibly to those with index 1, and so on.  NOTEVERY returns T as soon\n"
@@ -3298,57 +3482,57 @@ msgid ""
 "   is non-()."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The specified Sequence is ``reduced'' using the given Function.\n"
 "  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Coerces the Object to an object of type Output-Type-Spec."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "~S can't be converted to type ~S."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence formed by destructively removing the specified Item from\n"
 "  the given Sequence."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence formed by destructively removing the elements satisfying\n"
 "  the specified Predicate from the given Sequence."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence formed by destructively removing the elements not\n"
 "  satisfying the specified Predicate from the given Sequence."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a copy of SEQUENCE with elements satisfying the test (default is\n"
 "   EQL) with ITEM removed."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a copy of sequence with elements such that predicate(element)\n"
 "   is non-null are removed"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a copy of sequence with elements such that predicate(element)\n"
 "   is null are removed"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The elements of Sequence are compared pairwise, and if any two match,\n"
 "   the one occuring earlier is discarded, unless FROM-END is true, in\n"
@@ -3358,7 +3542,7 @@ msgid ""
 "   The :TEST-NOT argument is deprecated."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The elements of Sequence are examined, and if any two match, one is\n"
 "   discarded.  The resulting sequence, which may be formed by destroying "
@@ -3368,28 +3552,28 @@ msgid ""
 "   The :TEST-NOT argument is deprecated."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "  except that all elements equal to Old are replaced with New.  See manual\n"
 "  for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "  except that all elements satisfying the Test are replaced with New.  See\n"
 "  manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "  except that all elements not satisfying the Test are replaced with New.\n"
 "  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "  except that all elements equal to Old are replaced with New.  The "
@@ -3397,64 +3581,64 @@ msgid ""
 "  may be destroyed.  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "   except that all elements satisfying the Test are replaced with New.  The\n"
 "   Sequence may be destroyed.  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns a sequence of the same kind as Sequence with the same elements\n"
 "   except that all elements not satisfying the Test are replaced with New.\n"
 "   The Sequence may be destroyed.  See manual for details."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns the zero-origin index of the first element in SEQUENCE\n"
 "   satisfying the test (default is EQL) with the given ITEM"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the zero-origin index of the first element satisfying test(el)"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns the zero-origin index of the first element not satisfying test(el)"
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns the first element in SEQUENCE satisfying the test (default\n"
 "   is EQL) with the given ITEM"
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the first element in SEQUENCE satisfying the test."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the first element in SEQUENCE not satisfying the test."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "Returns the number of elements in SEQUENCE satisfying a test with ITEM,\n"
 "   which defaults to EQL."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ":TEST and :TEST-NOT are both present."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid "Returns the number of elements in SEQUENCE satisfying TEST(el)."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "The specified subsequences of Sequence1 and Sequence2 are compared\n"
 "   element-wise.  If they are of equal length and match in every element, "
@@ -3470,7 +3654,7 @@ msgid ""
 "   rightmost position in which the sequences differ is returned."
 msgstr ""
 
-#: target:code/seq.lisp
+#: src/code/seq.lisp
 msgid ""
 "A search is conducted using EQL for the first subsequence of sequence2 \n"
 "   which element-wise matches sequence1.  If there is such a subsequence "
@@ -3479,7 +3663,7 @@ msgid ""
 "   otherwise () is returned."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Test if C is a surrogate.  C may be either an integer or a\n"
 "  character. Surrogate-type indicates what kind of surrogate to test\n"
@@ -3488,13 +3672,13 @@ msgid ""
 "  tests for any surrogate value (high or low)."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert the given Hi and Lo surrogate characters to the\n"
 "  corresponding codepoint value"
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Return the codepoint value from String at position I.  If that\n"
 "  position is a surrogate, it is combined with either the previous or\n"
@@ -3504,14 +3688,14 @@ msgid ""
 "  surrogate value, respectively."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Return the high and low surrogate characters for Codepoint.  If\n"
 "  Codepoint is in the BMP, the first return value is the corresponding\n"
 "  character and the second is NIL."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Set the codepoint at string position I to the Codepoint.  If the\n"
 "  codepoint requires a surrogate pair, the high (leading surrogate) is\n"
@@ -3519,7 +3703,7 @@ msgid ""
 "  I+1"
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Check if String is a valid UTF-16 string.  If the string is valid,\n"
 "  T is returned.  If the string is not valid, NIL is returned, and the\n"
@@ -3527,7 +3711,7 @@ msgid ""
 "  A string is also invalid if it contains any unassigned codepoints."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Coerces X into a string.  If X is a string, X is returned.  If X is a\n"
 "  symbol, X's pname is returned.  If X is a character then a one element\n"
@@ -3535,66 +3719,66 @@ msgid ""
 "  into a string, an error occurs."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid "~S cannot be coerced to a string."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string and a non-negative integer index less than the length of\n"
 "  the string, returns the character object representing the character at\n"
 "  that position in the string."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "SCHAR returns the character object at an indexed position in a string\n"
 "  just as CHAR does, except the string must be a simple-string."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically less than\n"
 "  the second string, returns the longest common prefix (using char=)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically greater than\n"
 "  the second string, returns the longest common prefix (using char=)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically less than\n"
 "  or equal to the second string, returns the longest common prefix\n"
 "  (using char=) of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically greater\n"
 "  than or equal to the second string, returns the longest common prefix\n"
 "  (using char=) of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings (string1 and string2), and optional integers start1,\n"
 "  start2, end1 and end2, compares characters in string1 to characters in\n"
 "  string2 (using char=)."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is not lexicographically equal\n"
 "  to the second string, returns the longest common prefix (using char=)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Return a new string with the case folded according to Casing as follows:\n"
 "\n"
@@ -3604,18 +3788,18 @@ msgid ""
 "  Default Casing is :SIMPLE."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings (string1 and string2), and optional integers start1,\n"
 "  start2, end1 and end2, compares characters in string1 to characters in\n"
 "  string2 (using char-equal)."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid "Improper bounds for string comparison."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is not lexicographically equal\n"
 "  to the second string, returns the longest common prefix (using char-"
@@ -3623,71 +3807,71 @@ msgid ""
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid "Improper substring for comparison."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically less than\n"
 "  the second string, returns the longest common prefix (using char-equal)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically greater than\n"
 "  the second string, returns the longest common prefix (using char-equal)\n"
 "  of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically greater\n"
 "  than or equal to the second string, returns the longest common prefix\n"
 "  (using char-equal) of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given two strings, if the first string is lexicographically less than\n"
 "  or equal to the second string, returns the longest common prefix\n"
 "  (using char-equal) of the two strings. Otherwise, returns ()."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a character count and an optional fill character, makes and returns\n"
 "  a new string Count long filled with the fill character."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a new string that is a copy of it with all\n"
 "  lower case alphabetic characters converted to uppercase."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a new string that is a copy of it with all\n"
 "  lower case alphabetic characters converted to uppercase.  Casing is\n"
 "  :simple or :full for simple or full case conversion, respectively."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a new string that is a copy of it with all\n"
 "  upper case alphabetic characters converted to lowercase."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a new string that is a copy of it with all\n"
 "  upper case alphabetic characters converted to lowercase.  Casing is\n"
 "  :simple or :full for simple or full case conversion, respectively."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a copy of the string with the first\n"
 "  character of each ``word'' converted to upper-case, and remaining\n"
@@ -3696,7 +3880,7 @@ msgid ""
 "  non-case-modifiable chars."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns a copy of the string with the first\n"
 "  character of each ``word'' converted to upper-case, and remaining\n"
@@ -3706,19 +3890,19 @@ msgid ""
 "  simple or full case conversion, respectively."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns that string with all lower case alphabetic\n"
 "  characters converted to uppercase."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns that string with all upper case alphabetic\n"
 "  characters converted to lowercase."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a string, returns that string with the first\n"
 "  character of each ``word'' converted to upper-case, and remaining\n"
@@ -3727,7 +3911,7 @@ msgid ""
 "  non-case-modifiable chars."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns\n"
 "  a copy of the string with the characters in the set removed from the\n"
@@ -3735,7 +3919,7 @@ msgid ""
 "  properly handled."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns\n"
 "  a copy of the string with the characters in the set removed from the\n"
@@ -3743,7 +3927,7 @@ msgid ""
 "  properly handled."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns a\n"
 "  copy of the string with the characters in the set removed from both\n"
@@ -3751,28 +3935,28 @@ msgid ""
 "  properly handled."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns\n"
 "  a copy of the string with the characters in the set removed from the\n"
 "  left end."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns\n"
 "  a copy of the string with the characters in the set removed from the\n"
 "  right end."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Given a set of characters (a list or string) and a string, returns a\n"
 "  copy of the string with the characters in the set removed from both\n"
 "  ends."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "GLYPH returns the glyph at the indexed position in a string, and the\n"
 "  position of the next glyph (or NIL) as a second value.  A glyph is\n"
@@ -3780,39 +3964,39 @@ msgid ""
 "  subsequent combining characters."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "SGLYPH returns the glyph at the indexed position, the same as GLYPH,\n"
 "  except that the string must be a simple-string"
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert String to Unicode Normalization Form D (NFD) using the\n"
 "  canonical decomposition.  The NFD string is returned"
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert String to Unicode Normalization Form KD (NFKD) uisng the\n"
 "  compatible decomposition form.  The NFKD string is returned."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert String to Unicode Normalization Form C (NFC).  If the\n"
 "  string a simple string and is already normalized, the original\n"
 "  string is returned."
 msgstr ""
 
-#: target:code/string.lisp
+#: src/code/string.lisp
 msgid ""
 "Convert String to Unicode Normalization Form KC (NFKC).  If the\n"
 "  string is a simple string and is already normalized, the original\n"
 "  string is returned."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "Compares the substrings specified by String1 and String2 and returns\n"
 "NIL if the strings are String=, or the lowest index of String1 in\n"
@@ -3822,11 +4006,11 @@ msgid ""
 "be simple strings."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid "Like %sp-string-compare, only backwards."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Find-Character-With-Attribute  String, Start, End, Table, Mask\n"
 "  The codes of the characters of String from Start to End are used as "
@@ -3837,11 +4021,11 @@ msgid ""
 "  index into the String is returned. The corresponds to SCANC on the Vax."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid "Like %SP-Find-Character-With-Attribute, only sdrawkcaB."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Find-Character  String, Start, End, Character\n"
 "  Searches String for the Character from Start to End.  If the character is\n"
@@ -3849,7 +4033,7 @@ msgid ""
 "  returned."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Reverse-Find-Character  String, Start, End, Character\n"
 "  Searches String for Character from End to Start.  If the character is\n"
@@ -3857,21 +4041,21 @@ msgid ""
 "  returned."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Skip-Character  String, Start, End, Character\n"
 "  Returns the index of the first character between Start and End which\n"
 "  is not Char=  to Character, or NIL if there is no such character."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-Skip-Character  String, Start, End, Character\n"
 "  Returns the index of the last character between Start and End which\n"
 "  is not Char=  to Character, or NIL if there is no such character."
 msgstr ""
 
-#: target:code/mipsstrops.lisp
+#: src/code/mipsstrops.lisp
 msgid ""
 "%SP-String-Search  String1, Start1, End1, String2, Start2, End2\n"
 "   Searches for the substring of String1 specified in String2.\n"
@@ -3879,85 +4063,85 @@ msgid ""
 "   found."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  This symbol's current special\n"
 "  value is returned."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  Return NIL if this symbol is\n"
 "  unbound, T if it has a value."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  This symbol's special value cell is\n"
 "  set to the specified new value."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Nihil ex nihil, can't set NIL."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Veritas aeterna, can't set T."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Can't set keywords."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  This symbol is made unbound,\n"
 "  removing any value it may currently have."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "VARIABLE must evaluate to a symbol.  This symbol's current definition\n"
 "   is returned.  Settable with SETF."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "VARIABLE must evaluate to a symbol.  Return its property list."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "VARIABLE must evaluate to a symbol.  Return its print name."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "VARIABLE must evaluate to a symbol.  Return its package."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Make and return a new symbol with the STRING as its print name."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Return the hash value for symbol."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Look on the property list of SYMBOL for the specified INDICATOR.  If this\n"
 "  is found, return the associated value, else return DEFAULT."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "~S has an odd number of items in its property list."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "The VALUE is added as a property of SYMBOL under the specified INDICATOR.\n"
 "  Returns VALUE."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Look on property list of SYMBOL for property with specified\n"
 "  INDICATOR.  If found, splice this indicator and its value out of\n"
@@ -3969,7 +4153,7 @@ msgid ""
 "value."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Searches the property list stored in Place for an indicator EQ to "
 "Indicator.\n"
@@ -3977,18 +4161,18 @@ msgid ""
 "  returned."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Malformed property list: ~S"
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Like GETF, except that Indicator-List is a list of indicators which will\n"
 "  be looked for in the property list stored in Place.  Three values are\n"
 "  returned, see manual for details."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Make and return a new uninterned symbol with the same print name\n"
 "  as SYMBOL.  If COPY-PROPS is false, the new symbol is neither bound\n"
@@ -3996,15 +4180,15 @@ msgid ""
 "  function, value and property list."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Returns true if Object is a symbol in the keyword package."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Counter for generating unique GENSYM symbols."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid ""
 "Creates a new uninterned symbol whose name is a prefix string (defaults\n"
 "   to \"G\"), followed by a decimal number.  Thing, when supplied, will\n"
@@ -4014,50 +4198,50 @@ msgid ""
 "   it is used."
 msgstr ""
 
-#: target:code/symbol.lisp
+#: src/code/symbol.lisp
 msgid "Creates a new symbol interned in package Package with the given Prefix."
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid ""
 "When the bignum pieces are smaller than this many words, we use the\n"
 "classical multiplication algorithm instead of recursing all the way\n"
 "down to individual words."
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "Use Karatsuba if the bignums have at least this many bits"
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "WITH-BIGNUM-BUFFERS ({(var size [init])}*) Form*"
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "Unexpected zero bignums?"
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "Can't represent result of left shift."
 msgstr ""
 
-#: target:code/bignum.lisp
+#: src/code/bignum.lisp
 msgid "Too large to be represented as a ~S:~%  ~S"
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "More types than vars."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Duplicate case: ~S."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "More vars than types."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "NUMBER-DISPATCH ({(Var Type)}*) {((Type*) Form*) | (Symbol Arg*)}*\n"
 "  A vaguely case-like macro that does number cross-product dispatches.  The\n"
@@ -4080,349 +4264,373 @@ msgid ""
 "  the call as a list of cases.  This process is not applied recursively."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the element type of the most specialized COMPLEX number type that\n"
 "   can hold parts of type Spec."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Assume this is a subtype of REAL anyway."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Cannot determine if ~S is a subtype of REAL."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Complex numbers cannot have components of type ~S."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Builds a complex number from the specified components."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Extracts the real part of a number."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Extracts the imaginary part of a number."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the complex conjugate of NUMBER.  For non-complex numbers, this is\n"
 "  an identity."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Return the numerator of NUMBER, which must be rational."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Return the denominator of NUMBER, which must be rational."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the sum of its arguments.  With no args, returns 0."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the product of its arguments.  With no args, returns 1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Subtracts the second and all subsequent arguments from the first.\n"
 "  With one arg, negates it."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Divides the first arg by each of the following arguments, in turn.\n"
 "  With one arg, returns reciprocal."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns NUMBER + 1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns NUMBER - 1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns number (or number/divisor) as an integer, rounded toward 0.\n"
 "  The second returned value is the remainder."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the greatest integer not greater than number, or number/divisor.\n"
 "  The second returned value is (mod number divisor)."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the smallest integer not less than number, or number/divisor.\n"
 "  The second returned value is the remainder."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Rounds number (or number/divisor) to nearest integer.\n"
 "  The second returned value is the remainder."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns second result of TRUNCATE."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns second result of FLOOR."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Same as TRUNCATE, but returns first value as a float."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Same as FLOOR, but returns first value as a float."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Same as CEILING, but returns first value as a float."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Same as ROUND, but returns first value as a float."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if all of its arguments are numerically equal, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if no two of its arguments are numerically equal, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if its arguments are in strictly increasing order, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if its arguments are in strictly decreasing order, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if arguments are in strictly non-decreasing order, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns T if arguments are in strictly non-increasing order, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the greatest of its arguments."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the least of its arguments."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Return T if OBJ1 and OBJ2 represent the same object, otherwise NIL."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the bit-wise or of its arguments.  Args must be integers."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the bit-wise exclusive or of its arguments.  Args must be integers."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the bit-wise and of its arguments.  Args must be integers."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the bit-wise equivalence of its arguments.  Args must be integers."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the complement of the logical AND of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the complement of the logical OR of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the logical AND of (LOGNOT integer1) and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the logical AND of integer1 and (LOGNOT integer2)."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the logical OR of (LOGNOT integer1) and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the logical OR of integer1 and (LOGNOT integer2)."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the bit-wise logical not of integer."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
+msgid "Returns the complement of the AND of integer1 and integer2"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the complement of the OR of integer1 and integer2"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the AND of (LOGNOT integer1) and integer2"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the AND of integer1 and (LOGNOT integer2)"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the OR of (LOGNOT integer1) and integer2"
+msgstr ""
+
+#: src/code/numbers.lisp
+msgid "Returns the OR of integer1 and (LOGNOT integer2)"
+msgstr ""
+
+#: src/code/numbers.lisp
 msgid ""
 "Count the number of 1 bits if INTEGER is positive, and the number of 0 bits\n"
 "  if INTEGER is negative."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Predicate which returns T if logand of integer1 and integer2 is not zero."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Predicate returns T if bit index of integer is a 1.  The least\n"
 "significant bit of INTEGER is bit 0."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Shifts integer left by count places preserving sign.  - count shifts right."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the number of significant bits in the absolute value of integer."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns a byte specifier which may be used by other byte functions."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the size part of the byte specifier bytespec."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns the position part of the byte specifier bytespec."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Extract the specified byte from integer, and right justify result."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if any of the specified bits in integer are 1's."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Extract the specified byte from integer,  but do not right justify result."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns new integer with newbyte in specified position, newbyte is right "
 "justified."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns new integer with newbyte in specified position, newbyte is not right "
 "justified."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return 0."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return -1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return integer1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return complement of integer1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return complement of integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logand of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logior of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logxor of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logeqv of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Boole function op, makes BOOLE return log nand of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return lognor of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Boole function op, makes BOOLE return logandc1 of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Boole function op, makes BOOLE return logandc2 of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logorc1 of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Boole function op, makes BOOLE return logorc2 of integer1 and integer2."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Bit-wise boolean function on two integers.  Function chosen by OP:\n"
 "\t0\tBOOLE-CLR\n"
@@ -4443,53 +4651,53 @@ msgid ""
 "\t15\tBOOLE-ORC2"
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the greatest common divisor of the arguments, which must be\n"
 "  integers.  Gcd with no arguments is defined to be 0."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the least common multiple of one or more integers.  LCM of no\n"
 "  arguments is defined to be 1."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T iff X is a positive prime integer."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid ""
 "Returns the root of the nearest integer less than n which is a perfect\n"
 "   square."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number = 0, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number > 0, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number < 0, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number is odd, NIL otherwise."
 msgstr ""
 
-#: target:code/numbers.lisp
+#: src/code/numbers.lisp
 msgid "Returns T if number is even, NIL otherwise."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid "Unknown float trap kind: ~S."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid ""
 "This function sets options controlling the floating-point hardware.  If a\n"
 "  keyword is not supplied, then the current value is preserved.  Possible\n"
@@ -4523,11 +4731,11 @@ msgid ""
 "   currently in effect."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid "Unknown rounding mode: ~S."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid ""
 "This function returns a list representing the state of the floating point\n"
 "  modes.  The list is in the same format as the keyword arguments to\n"
@@ -4538,18 +4746,18 @@ msgid ""
 "op)."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid ""
 "Current-Float-Trap Trap-Name*\n"
 "  Return true if any of the named traps are currently trapped, false\n"
 "  otherwise."
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid "SIGFPE with no exceptions currently enabled?"
 msgstr ""
 
-#: target:code/float-trap.lisp
+#: src/code/float-trap.lisp
 msgid ""
 "Execute BODY with the floating point exceptions listed in TRAPS\n"
 "  masked (disabled).  TRAPS should be a list of possible exceptions\n"
@@ -4559,53 +4767,53 @@ msgid ""
 "  their testing within, and restored on exit."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid "Return true if the float X is denormalized."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid "Return true if the float X is an infinity (+ or -)."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid "Return true if the float X is a NaN (Not a Number)."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid "Return true if the float X is a trapping NaN (Not a Number)."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns a non-negative number of significant digits in it's float argument.\n"
 "  Will be less than FLOAT-DIGITS if denormalized or zero."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns a floating-point number that has the same sign as\n"
 "   float1 and, if float2 is given, has the same absolute value\n"
 "   as float2."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns a non-negative number of radix-b digits used in the\n"
 "   representation of it's argument.  See Common Lisp: The Language\n"
 "   by Guy Steele for more details."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns (as an integer) the radix b of its floating-point\n"
 "   argument."
 msgstr ""
 
-#: target:code/irrat.lisp target:code/float.lisp
+#: src/code/irrat.lisp src/code/float.lisp
 msgid "Can't decode NAN or infinity: ~S."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns three values:\n"
 "   1) an integer representation of the significand.\n"
@@ -4619,7 +4827,7 @@ msgid ""
 "   3) -1 or 1 (i.e. the sign of the argument.)"
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns three values:\n"
 "   1) a floating-point number representing the significand.  This is always\n"
@@ -4628,27 +4836,27 @@ msgid ""
 "   3) -1.0 or 1.0 (i.e. the sign of the argument.)"
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss\n"
 "  of precision or overflow."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Converts any REAL to a float.  If OTHER is not provided, it returns a\n"
 "  SINGLE-FLOAT if NUMBER is not already a FLOAT.  If OTHER is provided, the\n"
 "  result is the same float format as OTHER."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "RATIONAL produces a rational number for any real numeric argument.  This is\n"
 "  more efficient than RATIONALIZE, but it assumes that floating-point is\n"
 "  completely accurate, giving a result that isn't as pretty."
 msgstr ""
 
-#: target:code/float.lisp
+#: src/code/float.lisp
 msgid ""
 "Converts any REAL to a RATIONAL.  Floats are converted to a simple rational\n"
 "  representation exploiting the assumption that floats are only accurate to\n"
@@ -4656,39 +4864,39 @@ msgid ""
 "      (= x (float (rationalize x) x))"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return e raised to the power NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "The absolute value of ~S exceeds limit ~S."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Continue with calculation"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Continue with calculation, update limit"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Returns BASE raised to the POWER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the logarithm of NUMBER in the base BASE, which defaults to e."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the square root of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Returns the absolute value of the number."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Returns the angle part of the polar representation of a complex number.\n"
 "  For complex numbers, this is (atan (imagpart number) (realpart number)).\n"
@@ -4696,75 +4904,75 @@ msgid ""
 "  numbers this is PI."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the sine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the cosine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the tangent of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Argument to CIS is complex: ~S"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the arc sine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the arc cosine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic sine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic cosine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic tangent of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic arc sine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic arc cosine of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid "Return the hyperbolic arc tangent of NUMBER."
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Compute 2^N * X without compute 2^N first (use properties of the\n"
 "underlying floating-point format"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Same as logb but X is not infinity and non-zero and not a NaN, so\n"
 "that we can always return an integer"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Compute an integer N such that 1 <= |2^(-N) * x| < 2.\n"
 "For the special cases, the following values are used:\n"
@@ -4775,342 +4983,342 @@ msgid ""
 "   0              -infinity\n"
 msgstr ""
 
-#: target:code/irrat.lisp
+#: src/code/irrat.lisp
 msgid ""
 "Create complex number with real part X and imaginary part Y such that\n"
 "it has the same type as Z.  If Z has type (complex rational), the X\n"
 "and Y are coerced to single-float."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Principle square root of Z\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute log(2^j*z).\n"
 "\n"
 "This is for use with J /= 0 only when |z| is huge."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Log of Z = log |Z| + i * arg Z\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid "Compute atanh z = (log(1+z) - log(1-z))/2"
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid "Compute tanh z = sinh z / cosh z"
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute acos z = pi/2 - asin z\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute asin z = asinh(i*z)/i\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute asinh z = log(z + sqrt(1 + z*z))\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute atan z = atanh (i*z) / i\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp target:code/irrat.lisp
+#: src/code/irrat-dd.lisp src/code/irrat.lisp
 msgid ""
 "Compute tan z = -i * tanh(i * z)\n"
 "\n"
 "Z may be any number, but the result is always a complex."
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "log(most-positive-double-double-float)"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "log(least-positive-double-double-float"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "log(2)"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Log base 2 of e"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "log2(e)-1"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Pi"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Pi/2"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Pi/4"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Sqrt(1/2)"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "exp(x) - 1"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "396 (hex) digits of 2/pi"
 msgstr ""
 
-#: target:code/irrat-dd.lisp
+#: src/code/irrat-dd.lisp
 msgid "Overflow"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid ""
 "~S uses lambda-list keyword naming convention, but is not a recognized "
 "lambda-list keyword."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &optional in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &rest in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &more in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &key in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &allow-other-keys in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Misplaced &aux in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Found garbage in lambda-list when expecting a keyword: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "&rest not followed by required variable."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Illegal function name: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Special form is an illegal function name: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid ""
 "Defining as a SETF function a name that already has a SETF macro:~\n"
 "       ~%  ~S"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Assume redefinition is compatible and allow it"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Redefining slot accessor ~S for structure type ~S"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "~S previously defined as a macro."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Unknown optimization quality ~S in ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Malformed optimization quality specifier ~S in ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid ""
 "DECLAIM Declaration*\n"
 "  Do a declaration for the global environment."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp
 msgid "Malformed PROCLAIM spec: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp
 msgid "Variable name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Nihil ex nihil, can't declare ~S special."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Veritas aeterna, can't declare ~S special."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Can't declare ~S special, it is a keyword."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Proceed anyway."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Trying to declare ~S special, which is ~A."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "a constant"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "an alien variable"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "a symbol macro"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp
 msgid "Declared functional type is not a function type: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Ignoring FTYPE declaration for slot accesor:~%  ~S"
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Declaration to be RECOGNIZED is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/proclaim.lisp
+#: src/compiler/proclaim.lisp
 msgid "Declaration already names a type: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp
+#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp
 msgid "Unrecognized proclamation: ~S."
 msgstr ""
 
-#: target:code/unidata.lisp
+#: src/code/unidata.lisp
 msgid "The Unicode data file is broken."
 msgstr ""
 
-#: target:code/unidata.lisp
+#: src/code/unidata.lisp
 msgid "Unicode data file is for Unicode ~D.~D.~D"
 msgstr ""
 
-#: target:code/unidata.lisp
+#: src/code/unidata.lisp
 msgid "No data in file."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "The upper exclusive bound on values produced by CHAR-CODE."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "The upper exclusive bound on the value of a Unicode codepoint"
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "This is the alist of (character-name . character) for characters with\n"
 "  long names.  The first name in this list for a given character is used\n"
 "  on typeout and is the preferred form for input."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns the integer code of CHAR."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns the integer code of CHAR.  This is the same as char-code, as\n"
 "   CMU Common Lisp does not implement character bits or fonts."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns the character with the code CODE."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Coerces its argument into a character object if possible.  Accepts\n"
 "  characters, strings and symbols of length 1."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "String is not of length one: ~S"
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Symbol name is not of length one: ~S"
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "~S cannot be coerced to a character."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Given a character object, char-name returns the name for that\n"
 "  object (a symbol)."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Given an argument acceptable to string, name-char returns a character\n"
 "  object whose name is that symbol, if one exists, otherwise NIL."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object.  Standard-char-p returns T if the\n"
 "   argument is a standard character -- one of the 95 ASCII printing "
@@ -5118,230 +5326,230 @@ msgid ""
 "   or <return>."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Return T if and only if THING is a standard-char.  Differs from\n"
 "  standard-char-p in that THING doesn't have to be a character."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object.  Graphic-char-p returns T if the\n"
 "  argument is a printing character, otherwise returns NIL."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object.  Alpha-char-p returns T if the\n"
 "  argument is an alphabetic character; otherwise NIL."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object; upper-case-p returns T if the\n"
 "  argument is an upper-case character, NIL otherwise."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object; lower-case-p returns T if the \n"
 "  argument is a lower-case character, NIL otherwise."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object; title-case-p returns T if the\n"
 "  argument is a title-case character, NIL otherwise."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "The argument must be a character object.  Both-case-p returns T if the\n"
 "  argument is an alphabetic character and if the character exists in\n"
 "  both upper and lower case.  For ASCII, this is the same as Alpha-char-p."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "If char is a digit in the specified radix, returns the fixnum for\n"
 "  which that digit stands, else returns NIL.  Radix defaults to 10\n"
 "  (decimal)."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Given a character-object argument, alphanumericp returns T if the\n"
 "  argument is either numeric or alphabetic."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns T if all of its arguments are the same character."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns T if no two of its arguments are the same character."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns T if its arguments are in strictly increasing alphabetic order."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns T if its arguments are in strictly decreasing alphabetic order."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly non-decreasing alphabetic order."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly non-increasing alphabetic order."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if all of its arguments are the same character.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if no two of its arguments are the same character.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly increasing alphabetic order.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly decreasing alphabetic order.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly non-decreasing alphabetic order.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "Returns T if its arguments are in strictly non-increasing alphabetic order.\n"
 "   Case is ignored."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns CHAR converted to upper-case if that is possible."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns CHAR converted to title-case if that is possible."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid "Returns CHAR converted to lower-case if that is possible."
 msgstr ""
 
-#: target:code/char.lisp
+#: src/code/char.lisp
 msgid ""
 "All arguments must be integers.  Returns a character object that\n"
 "  represents a digit of the given weight in the specified radix.  Returns\n"
 "  NIL if no such character exists."
 msgstr ""
 
-#: target:pcl/cmucl-documentation.lisp target:code/misc.lisp
+#: src/code/misc.lisp
 msgid ""
 "Returns the documentation string of Doc-Type for X, or NIL if\n"
 "  none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n"
 "  SETF, and T."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "~S is not the name of a structure type."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid ""
 "If X is an atom, see if it is present in *FEATURES*.  Also\n"
 "  handle arbitrary combinations of atoms using NOT, AND, OR."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Unknown operator in feature expression: ~S."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string describing the implementation type."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string describing the implementation version."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid " Unicode"
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string giving the name of the local machine."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "The value of SOFTWARE-TYPE.  Set in FOO-os.lisp."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string describing the supporting software."
 msgstr ""
 
-#: target:code/misc.lisp
-msgid "Unknown"
+#: src/code/misc.lisp
+msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
 msgstr ""
 
-#: target:code/misc.lisp
-msgid "The value of SHORT-SITE-NAME.  Set in library:site-init.lisp."
+#: src/code/misc.lisp
+msgid "Unknown"
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string with the abbreviated site name."
 msgstr ""
 
-#: target:code/misc.lisp
-msgid "Site name not initialized"
+#: src/code/misc.lisp
+msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
 msgstr ""
 
-#: target:code/misc.lisp
-msgid "The value of LONG-SITE-NAME.  Set in library:site-init.lisp."
+#: src/code/misc.lisp
+msgid "Site name not initialized"
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Returns a string with the long form of the site name."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid ""
 "With a file name as an argument, dribble opens the file and\n"
 "   sends a record of further I/O to that file.  Without an\n"
 "   argument, it closes the dribble file, and quits logging."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid "Not currently dribbling."
 msgstr ""
 
-#: target:code/misc.lisp
+#: src/code/misc.lisp
 msgid ""
 "Default implementation of ed.  This does nothing.  If hemlock is\n"
 "  loaded, ed can be used to edit a file"
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "This function can be used as the default value for keyword arguments that\n"
 "  must be always be supplied.  Since it is known by the compiler to never\n"
@@ -5354,11 +5562,11 @@ msgid ""
 "  corresponding to required arguments."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "A required keyword argument was not supplied."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "FILE-COMMENT String\n"
 "  When COMPILE-FILE sees this form at top-level, it places the constant "
@@ -5370,11 +5578,11 @@ msgid ""
 "  etc."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "See listen.  Any whitespace in the input stream will be flushed."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Does what one might expect, saving the old values and setting the "
 "generalized\n"
@@ -5384,7 +5592,7 @@ msgid ""
 "  and the once-only evaluation of subforms."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Like letf*, but evaluates all the implicit subforms and new values of all\n"
 "  the implied setfs before altering any values.  However, the store forms\n"
@@ -5392,17 +5600,17 @@ msgid ""
 "  protects to protect the environment."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Causes the output of the indenting Stream to indent More spaces.  More is\n"
 "  evaluated twice."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Just like dolist, but with one-dimensional arrays."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Iterate Name ({(Var Initial-Value)}*) Declaration* Form*\n"
 "  This is syntactic sugar for Labels.  It creates a local function Name "
@@ -5413,11 +5621,11 @@ msgid ""
 "  of the call is return from the macro."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Malformed iterate variable spec: ~S."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Collect ({(Name [Initial-Value] [Function])}*) {Form}*\n"
 "  Collect some values somehow.  Each of the collections specifies a bunch "
@@ -5451,11 +5659,11 @@ msgid ""
 "  position, including macros and lambdas."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Malformed collection specifier: ~S."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Once-Only ({(Var Value-Expression)}*) Form*\n"
 "  Create a Let* which evaluates each Value-Expression, binding a temporary\n"
@@ -5465,23 +5673,23 @@ msgid ""
 "  temporary variable."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Malformed Once-Only binding spec: ~S."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Ill-formed ~S -- possibly illegal old style DO?"
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "~S step variable is not a symbol: ~S"
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "~S is an illegal form for a ~S varlist."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
 "  Like DO, but has no implicit NIL block.  Each Var is initialized in "
@@ -5496,13 +5704,13 @@ msgid ""
 "  of the DO."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*\n"
 "   Iterate over the entries in a hash-table."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "DEFINE-HASH-CACHE Name ({(Arg-Name Test-Function)}*) {Key Value}*\n"
 "  Define a hash cache that associates some number of argument values to a\n"
@@ -5551,62 +5759,62 @@ msgid ""
 "      specified name.  Default PROGN."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Number of default values ~S differs from :VALUES ~D."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid "Bad arg spec: ~S."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*\n"
 "  Some syntactic sugar for defining a function whose values are cached by\n"
 "  DEFINE-HASH-CACHE."
 msgstr ""
 
-#: target:code/extensions.lisp
+#: src/code/extensions.lisp
 msgid ""
 "Return an EQ hash of X.  The value of this hash for any given object can "
 "(of\n"
 "  course) change at arbitary times."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "A list of all the command line arguments after --"
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "A list of cmd-switch's representing the arguments used to invoke\n"
 "  this process."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "The string name that was used to invoke this process."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "A list of words between the utility name and the first switch."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "A list of strings obtained from the command line that invoked this process."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "An Alist of (\"argument-name\" . demon-function)"
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "When True runs lisp with its input coming from standard-input.\n"
 "   If an error is detected returns error code 1, otherwise 0."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "Accepts the name of a switch as a string and returns the value of the\n"
 "   switch.  If no value was specified, then any following words are "
@@ -5616,17 +5824,17 @@ msgid ""
 "   specified, then nil is returned."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "When set, invoking switch demons complains about illegal switches that have\n"
 "   not been defined with DEFSWITCH."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "~S is an illegal switch"
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid ""
 "Associates function with the switch name in *command-switch-demons*.  Name\n"
 "   is a simple-string that does not begin with a hyphen, unless the switch "
@@ -5638,11 +5846,11 @@ msgid ""
 "   switches.  This can be inhibited with *complain-about-illegal-switches*."
 msgstr ""
 
-#: target:code/commandline.lisp
+#: src/code/commandline.lisp
 msgid "a symbol or function"
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Returns information about the symbol VAR in the lexical environment ENV.\n"
 "Three values are returned:\n"
@@ -5656,7 +5864,7 @@ msgid ""
 "  3) An a-list containing information about any declarations that apply."
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Returns information about declarations named by the symbol DECLARATION-"
 "NAME.\n"
@@ -5671,11 +5879,11 @@ msgid ""
 "     A list of the declaration names the have been proclaimed as valid."
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid "Unsupported declaration ~S."
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Process a macro in the same way that DEFMACRO or MACROLET would.\n"
 "Three values are returned:\n"
@@ -5684,7 +5892,7 @@ msgid ""
 "  3) An environment"
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Returns information about the function name FUNCTION in the lexical "
 "environment ENV.\n"
@@ -5698,7 +5906,7 @@ msgid ""
 "  3) An a-list containing information about the declarations that apply."
 msgstr ""
 
-#: target:code/env-access.lisp
+#: src/code/env-access.lisp
 msgid ""
 "Return a new environment containing information in ENV that is augmented\n"
 "by the specified parameters:\n"
@@ -5711,97 +5919,89 @@ msgid ""
 "  :DECLARE      a list of declaration specifiers"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "increments dfixnum v by dfixnum i"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "dfixnum became too big ~a + ~a"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "increments dfixnum v by i (max half fixnum)"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "not a half-fixnum: ~a"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "decrement dfixnum v by dfixnum i"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "dfixnum became negative ~a - ~a (~a/~a)"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "decrement dfixnum v by half-fixnum i"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid ""
 "increments dfixnum by an interger which may be bigger than fixnum.\n"
 "   May cons"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "returns a new dfixnum from number i"
 msgstr ""
 
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "increments a pair of halffixnums by another pair"
 msgstr ""
 
-#: target:code/profile.lisp target:code/dfixnum.lisp
-msgid "dfixnum became too big ~a/~a + ~a/~a"
-msgstr ""
-
-#: target:code/dfixnum.lisp
+#: src/code/dfixnum.lisp
 msgid "decrement dfixnum pair by another pair"
 msgstr ""
 
-#: target:code/profile.lisp target:code/dfixnum.lisp
-msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
-msgstr ""
-
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~2&Summary of spaces: ~(~{~A ~}~)~%"
 msgstr ""
 
-#: target:code/room.lisp
-msgid "~%Summary total:~%    ~:D bytes, ~:D objects.~%"
-msgstr ""
-
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~%~A:~%    ~:D bytes, ~:D object"
 msgid_plural "~%~A:~%    ~:D bytes, ~:D objects"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
+msgid "~%Summary total:~%    ~:D bytes, ~:D objects.~%"
+msgstr ""
+
+#: src/code/room.lisp
 msgid "~2&Breakdown for ~(~A~) space:~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~13:D bytes for ~9:D other object.~%"
 msgid_plural "  ~13:D bytes for ~9:D other objects.~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~13:D bytes for ~9:D ~(~A~) object.~%"
 msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects.~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~13:D bytes for ~9:D ~(~A~) object (space total.)~%"
 msgid_plural "  ~13:D bytes for ~9:D ~(~A~) objects (space total.)~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid ""
 "Print out information about the heap memory in use.  :Print-Spaces is a "
 "list\n"
@@ -5817,27 +6017,27 @@ msgid ""
 "  be combined as OTHER."
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "Print info about how much code and no-ops there are in Space."
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "Bogus type: ~D"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~:D words allocated for descriptor objects.~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~:D bytes data/~:D words header for non-descriptor objects.~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/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 "
@@ -5845,117 +6045,117 @@ msgid ""
 "  largest usage."
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~32A: ~7:D bytes, ~5D object.~%"
 msgid_plural "  ~32A: ~7:D bytes, ~5D objects.~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  Other types: ~:D bytes, ~D: object~:P.~%"
 msgid_plural "  Other types: ~:D bytes, ~D: object~:P.~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "  ~:(~A~) instance total: ~:D bytes, ~:D object.~%"
 msgid_plural "  ~:(~A~) instance total: ~:D bytes, ~:D objects.~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "In ~A space:~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~D bytes at #x~X~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "No source for ~S"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~%Package ~A: ~32T~9:D bytes, ~9:D object.~%"
 msgid_plural "~%Package ~A: ~32T~9:D bytes, ~9:D objects.~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~30@A: ~9:D bytes, ~9:D object.~%"
 msgid_plural "~30@A: ~9:D bytes, ~9:D objects.~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/room.lisp
+#: src/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
+#: src/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
+#: src/code/room.lisp
 msgid "~8:D: Other~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/code/room.lisp
 msgid "~8:D: Total~%"
 msgstr ""
 
-#: target:code/room.lisp
+#: src/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
+#: src/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
+#: src/code/gc.lisp
 msgid "Oh no.  The current dynamic space is missing!"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Dynamic Space Usage:    ~13:D bytes (out of ~4:D MB).~%"
 msgstr "동적 공간 사용량 :    ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Read-Only Space Usage:  ~13:D bytes (out of ~4:D MB).~%"
 msgstr "동적 공간 사용량 :    ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Static Space Usage:     ~13:D bytes (out of ~4:D MB).~%"
 msgstr "동적 공간 사용량 :    ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Control Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
 msgstr "컨트롤 스택 사용:     ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Binding Stack Usage:    ~13:D bytes (out of ~4:D MB).~%"
 msgstr "바인딩 스택 사용:    ~13:D 바이트 (~4:D 메가바이트의) 아웃.~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "The current dynamic space is ~D.~%"
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Garbage collection is currently ~:[enabled~;DISABLED~].~%"
 msgstr "가비지 컬렉션은 현재 ~:[활성화~;비활성화~]되어있습니다.~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Prints to *STANDARD-OUTPUT* information about the state of internal\n"
 "  storage and its management.  The optional argument controls the\n"
@@ -5972,7 +6172,7 @@ msgstr ""
 "  금액입니다. 또한 VM:MEMORY-USAGE 및보기 양질의 보고서를 제어\n"
 "  VM:INSTANCE-USAGE."
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "No way man!  The optional argument to ROOM must be T, NIL, ~\n"
 "\t\t or :DEFAULT.~%What do you think you are doing?"
@@ -5980,17 +6180,17 @@ msgstr ""
 "말도 안돼 남자! ROOM에 선택적 인수 T, NIL,되어야합니다 ~\n"
 "\t\t또는 :DEFAULT.~% 왜 당신이 뭘 생각하는거야?"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "resetting GC counters"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Returns the number of bytes consed since the first time this function\n"
 "  was called.  The first time it is called, it returns zero."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "This number specifies the minimum number of bytes of dynamic space\n"
 "   that must be consed before the next gc will occur."
@@ -5998,7 +6198,7 @@ msgstr ""
 "바이트 처음부터이 기능을 consed의 수를 반환\n"
 "  라고했다. 그것이라고 처음으로, 0을 반환합니다."
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "The total CPU time spend doing garbage collection (as reported by\n"
 "   GET-INTERNAL-RUN-TIME.)"
@@ -6006,19 +6206,19 @@ msgstr ""
 "총 CPU 시간 (로에 의해보고되는 쓰레기를 수거하고 지출\n"
 "   GET-INTERNAL-RUN-TIME.)"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "A list of functions that are called before garbage collection occurs.\n"
 "  The functions should take no arguments."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "A list of functions that are called after garbage collection occurs.\n"
 "  The functions should take no arguments."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Should be bound to a function or NIL.  If it is a function, this\n"
 "  function should take one argument, the current amount of dynamic\n"
@@ -6026,7 +6226,7 @@ msgid ""
 "  continue and non-NIL if it should be inhibited.  Use with caution."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "When non-NIL, causes the functions bound to *GC-NOTIFY-BEFORE* and\n"
 "  *GC-NOTIFY-AFTER* to be called before and after a garbage collection\n"
@@ -6035,7 +6235,7 @@ msgid ""
 "  annoyingly."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "~&; [GC threshold exceeded with ~:D bytes in use.  ~\n"
 "             Commencing GC.]~%"
@@ -6043,22 +6243,22 @@ msgstr ""
 "~&; [GC 문턱은 ~:D 바이트로 사용중인 초과했다.  ~\n"
 "             시작 GC.]~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "This function bound to this variable is invoked before GC'ing (unless\n"
 "  *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in\n"
 "  bytes).  It should notify the user that the system is going to GC."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "~&; [GC completed with ~:D bytes retained and ~:D bytes freed.]~%"
 msgstr "~&; [유지되는 ~:D의 바이트 및 해방되는 ~:D의 바이트로 완료되는 GC.]~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "~&; [GC will next occur when at least ~:D bytes are in use.]~%"
 msgstr "~&; [GC는 다음 적어도 ~:D의 바이트가 사용중인 일 때 일어날 것이다.]~%"
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "The function bound to this variable is invoked after GC'ing (unless\n"
 "  *GC-VERBOSE* is NIL) with the amount of dynamic usage (in bytes) now\n"
@@ -6067,32 +6267,24 @@ msgid ""
 "  finished GC'ing."
 msgstr ""
 
-#: target:code/gc.lisp
-msgid "Attempt to set GC trigger to something bogus: ~S"
-msgstr ""
-
-#: target:code/gc.lisp
-msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A"
-msgstr ""
-
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~\n"
 "\t       integer.  Resetting it to ~D."
 msgstr ""
 
-#: target:code/gc.lisp
-msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%"
+#: src/code/gc.lisp
+msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A"
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Initiates a garbage collection.  The optional argument, VERBOSE-P,\n"
 "  which defaults to the value of the variable *GC-VERBOSE* controls\n"
 "  whether or not GC statistics are printed."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Initiates a garbage collection.  The keyword :VERBOSE, which\n"
 "   defaults to the value of the variable *GC-VERBOSE* controls whether or\n"
@@ -6100,21 +6292,21 @@ msgid ""
 "   controls the number of generations to garbage collect."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Return the amount of memory that will be allocated before the next garbage\n"
 "   collection is initiated.  This can be set with SETF."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Enables the garbage collector."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid "Disables the garbage collector."
 msgstr ""
 
-#: target:code/gc.lisp
+#: src/code/gc.lisp
 msgid ""
 "Return some GC statistics for the specified GENERATION.  The\n"
 "  statistics are the number of bytes allocated in this generation; the\n"
@@ -6124,7 +6316,7 @@ msgid ""
 "  generation.  See the gencgc source code for more info."
 msgstr ""
 
-#: target:code/purify.lisp
+#: src/code/purify.lisp
 msgid ""
 "This function optimizes garbage collection by moving all currently live\n"
 "   objects into non-collected storage.  ROOT-STRUCTURES is an optional list "
@@ -6143,19 +6335,19 @@ msgid ""
 "   supplied, then environment compaction is inhibited."
 msgstr ""
 
-#: target:code/purify.lisp
+#: src/code/purify.lisp
 msgid "[Doing purification: "
 msgstr ""
 
-#: target:code/purify.lisp
+#: src/code/purify.lisp
 msgid "Done.]"
 msgstr ""
 
-#: target:code/scavhook.lisp
+#: src/code/scavhook.lisp
 msgid "Returns T if OBJECT is a scavenger-hook, and NIL if not."
 msgstr ""
 
-#: target:code/scavhook.lisp
+#: src/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"
@@ -6163,17 +6355,17 @@ msgid ""
 "   to be funcalled."
 msgstr ""
 
-#: target:code/scavhook.lisp
+#: src/code/scavhook.lisp
 msgid "Returns the VALUE being monitored by SCAVHOOK.  Can be setf."
 msgstr ""
 
-#: target:code/scavhook.lisp
+#: src/code/scavhook.lisp
 msgid ""
 "Returns the FUNCTION invoked when the monitored value is moved.  Can be\n"
 "   setf."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "This is a list of functions which are called before creating a saved core\n"
 "  image.  These functions are executed in the child process which has no "
@@ -6181,7 +6373,7 @@ msgid ""
 "  so they cannot do anything that tries to talk to the outside world."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "This is a list of functions which are called when a saved core image starts\n"
 "  up.  The system itself should be initialized at this point, but "
@@ -6189,19 +6381,19 @@ msgid ""
 "  might not be."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "An alist mapping environment variables (as keywords) to either values"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Non-NIL if environment-init has been called"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "This is true if and only if the lisp was started with the -edit switch."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "Saves a CMU Common Lisp core image in the file of the specified name.  The\n"
 "  following keywords are defined:\n"
@@ -6257,19 +6449,19 @@ msgid ""
 "  will always be in batch-mode, regardless of any command-line switches."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Directory ~S does not exist"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Skip remaining initializations."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Error in batch processing:~%~A~%"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "Determines what PRINT-HERALD prints (the system startup banner.)  This is a\n"
 "   database which can be augmented by each loaded system.  The format is a\n"
@@ -6284,155 +6476,155 @@ msgid ""
 "   functions are called with an output stream argument."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ", running on "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "With core: "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Dumped on: "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid " on "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "See <http://www.cons.org/cmucl/> for support information."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Loaded subsystems:"
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "    Unicode "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "with Unicode version "
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid ""
 "Print some descriptive information about the Lisp system version and\n"
 "   configuration."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Unrecognized *HERALD-ITEMS* entry: ~S."
 msgstr ""
 
-#: target:code/save.lisp
+#: src/code/save.lisp
 msgid "Change *PACKAGE* to the USER package and try again."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Terminal I/O stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Default input stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Default output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Error output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Query I/O stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Trace output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Interactive debugging stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not an input stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not an output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not a character input stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not a character output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not a binary input stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "~S is not a binary input stream ~\n"
 "                          or does not support multi-byte read operations."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is not a binary output stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is closed."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~S is an unsupported Gray stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp target:code/stream.lisp
+#: src/pcl/gray-streams.lisp src/code/stream.lisp
 msgid "Returns non-nil if the given Stream can perform input operations."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp target:code/stream.lisp
+#: src/pcl/gray-streams.lisp src/code/stream.lisp
 msgid "Returns non-nil if the given Stream can perform output operations."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Return true if Stream is not closed."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Returns a type specifier for the kind of object returned by the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Return true if Stream does I/O on a terminal or other interactive device."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Can't set interactive flag on ~S."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Returns the external format used by the given Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Closes the given Stream.  No more I/O may be performed, but inquiries\n"
 "  may still be made.  If :Abort is non-nil, an attempt is made to clean\n"
 "  up the side effects of having created the stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "With one argument returns the current position within the file\n"
 "   File-Stream is open to.  If the second argument is supplied, then\n"
@@ -6440,59 +6632,59 @@ msgid ""
 "   be :start or :end for the start and end of the file, respectively."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "This function returns the length of the file that File-Stream is open to."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a line of text read from the Stream as a string, discarding the\n"
 "  newline character."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Inputs a character from Stream and returns it."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Puts the Character back on the front of the input Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Nothing to unread."
 msgstr ""
 
-#: target:code/stream.lisp
-msgid "Impossible case reached in PEEK-CHAR"
-msgstr ""
-
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Peeks at the next character in the input Stream.  See manual for details."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>"
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
+msgid "Impossible case reached in PEEK-CHAR"
+msgstr ""
+
+#: src/code/stream.lisp
 msgid "Returns T if a character is available on the given Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Returns the next character from the Stream if one is available, or nil."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Clears any buffered input associated with the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Returns the next byte of the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Reads Numbytes bytes into the Buffer starting at Start, returning the "
 "number\n"
@@ -6506,126 +6698,126 @@ msgid ""
 "      read is less than Count and eof has not been hit."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Outputs the Character to the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Outputs a new line to the Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Outputs a new line to the Stream if it is not positioned at the beginning "
 "of\n"
 "   a line.  Returns T if it output a new line, nil otherwise."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Outputs the String to the given Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Outputs the String to the given Stream, followed by a newline character."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns the number of characters on the current line of output of the given\n"
 "  Stream, or Nil if that information is not availible."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns the number of characters that will fit on a line of output on the\n"
 "  given Stream, or Nil if that information is not available."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Attempts to ensure that all output sent to the Stream has reached its\n"
 "   destination, and only then returns."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Attempts to force any buffered output to be sent."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Clears the given output Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Outputs the Integer to the binary Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns an output stream which sends its output to all of the given\n"
 "streams."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a stream which performs its operations on the stream which is the\n"
 "   value of the dynamic variable named by Symbol."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a bidirectional stream which gets its input from Input-Stream and\n"
 "   sends its output to Output-Stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a stream which takes its input from each of the Streams in turn,\n"
 "   going on to the next at EOF."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns an echo stream that takes input from Input-stream and sends\n"
 "output to Output-stream"
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a bidirectional stream which gets its input from Input-Stream and\n"
 "   sends its output to Output-Stream.  In addition, all input is echoed to\n"
 "   the output stream"
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns an input stream which will supply the characters of String between\n"
 "  Start and End in order."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns an Output stream which will accumulate all output given to it for\n"
 "   the benefit of the function Get-Output-Stream-String."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a string of all the characters sent to a stream made by\n"
 "   Make-String-Output-Stream since the last call to this function."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Dumps the characters buffer up in the In-Stream to the Out-Stream as\n"
 "  Get-Output-Stream-String would return them."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Returns an output stream which indents its output by some amount."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Returns a stream that sends all output to the stream TARGET, but modifies\n"
 "   the case of letters, depending on KIND, which should be one of:\n"
@@ -6638,7 +6830,7 @@ msgid ""
 "        case and everything else to lower case."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "This takes a stream and waits for text or a command to appear on it.  If\n"
 "   text appears before a command, this returns nil, and otherwise it "
@@ -6646,7 +6838,7 @@ msgid ""
 "   a command."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Destructively modify SEQ by reading elements from STREAM.\n"
 "\n"
@@ -6669,23 +6861,19 @@ msgid ""
 "\t    less than END because the end of file was reached."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "The stream is not open."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "The stream is not open for input."
 msgstr ""
 
-#: target:code/stream.lisp
-msgid "Trying to read characters from a binary stream."
-msgstr ""
-
-#: target:code/stream.lisp
-msgid "Trying to read binary data from a text stream."
+#: src/code/stream.lisp
+msgid "Trying to read characters from a binary stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid ""
 "Writes the elements of the Seq bounded by Start and End to Stream.\n"
 "\n"
@@ -6700,82 +6888,82 @@ msgid ""
 "  SEQ:\ta proper SEQUENCE\n"
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "The stream is not open for output."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Trying to output an element of unproper type to a stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Trying to output a string to a binary stream."
 msgstr ""
 
-#: target:code/stream.lisp
+#: src/code/stream.lisp
 msgid "Trying to output binary data to a text stream."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "If true, all objects will printed readably.  If readably printing is\n"
 "  impossible, an error will be signalled.  This overrides the value of\n"
 "  *PRINT-ESCAPE*."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Flag which indicates that slashification is on.  See the manual"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Flag which indicates that pretty printing is to be used"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "The output base for integers and rationals."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "This flag requests to verify base when printing rationals."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "How many levels deep to print.  Unlimited if null."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "How many elements to print on each level.  Unlimited if null."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Whether to worry about circular list structures. See the manual."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "What kind of case the printer should use by default"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Whether the array should print it's guts out"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "If true, symbols with no home package are printed with a #: prefix.\n"
 "  If false, no prefix is printed."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "The maximum number of lines to print.  If NIL, unlimited."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "The position of the right margin in ems.  If NIL, try to determine this\n"
 "   from the stream in use."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "If the remaining space between the current column and the right margin\n"
 "   is less than this, then print using ``miser-style'' output.  Miser\n"
@@ -6783,13 +6971,13 @@ msgid ""
 "   turned off.  If NIL, never use miser mode."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "The pprint-dispatch-table that controls how to pretty print objects.  See\n"
 "   COPY-PPRINT-DISPATH, PPRINT-DISPATCH, and SET-PPRINT-DISPATCH."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Bind the reader and printer control variables to values that enable READ\n"
 "   to reliably read the results of PRINT.  These values are:\n"
@@ -6804,6 +6992,7 @@ msgid ""
 "       *PRINT-LEVEL*\t\t\tNIL\n"
 "       *PRINT-LINES*\t\t\tNIL\n"
 "       *PRINT-MISER-WIDTH*\t\tNIL\n"
+"       *PRINT-PPRINT-DISPATCH*          The standard pprint dispatch table\n"
 "       *PRINT-PRETTY*\t\t\tNIL\n"
 "       *PRINT-RADIX*\t\t\tNIL\n"
 "       *PRINT-READABLY*\t\t\tT\n"
@@ -6815,63 +7004,61 @@ msgid ""
 "       *READTABLE*\t\t\tthe standard readtable."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Outputs OBJECT to the specified stream, defaulting to *standard-output*"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Outputs a mostly READable printed representation of OBJECT on the specified\n"
 "  stream."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Outputs an asthetic but not READable printed representation of OBJECT on "
 "the\n"
 "  specified stream."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Outputs a terpri, the mostly READable printed represenation of OBJECT, and \n"
 "  space to the stream."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Prettily outputs the Object preceded by a newline."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Returns the printed representation of OBJECT as a string."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Returns the printed representation of OBJECT as a string with \n"
 "   slashification on."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Returns the printed representation of OBJECT as a string with\n"
-"  slashification off."
+"  slashification off and readability off."
 msgstr ""
 
-#: target:compiler/byte-comp.lisp target:compiler/dyncount.lisp
-#: target:compiler/knownfun.lisp target:compiler/new-assem.lisp
-#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp
-#: target:compiler/node.lisp target:compiler/sset.lisp
-#: target:compiler/backend.lisp target:compiler/macros.lisp
-#: target:code/print.lisp
+#: src/compiler/byte-comp.lisp src/compiler/dyncount.lisp
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/meta-vmdef.lisp src/compiler/vop.lisp src/compiler/node.lisp
+#: src/compiler/sset.lisp src/compiler/backend.lisp src/code/print.lisp
 msgid "~S cannot be printed readably."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Determines whether or not the character is considered whitespace."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Check to see if OBJECT is a circular reference, and return something non-"
 "NIL\n"
@@ -6884,49 +7071,49 @@ msgid ""
 "   non-NIL when ASSIGN is T, then you must call HANDLE-CIRCULARITY on it."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Handle the results of CHECK-FOR-CIRCULARITY.  If this returns T then\n"
 "   you should go ahead and print the object.  If it returns NIL, then\n"
 "   you should blow it off."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Attempt to use CHECK-FOR-CIRCULARITY when circularity ~\n"
 "\t       checking has not been initiated."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "The current level we are printing at, to be compared against *PRINT-LEVEL*.\n"
 "   See the macro DESCEND-INTO for a handy interface to depth abbreviation."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Automatically handle *print-level* abbreviation.  If we are too deep, then\n"
 "   a # is printed to STREAM and BODY is ignored."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*\n"
 "   is NIL) by outputting \"...\" and returning from the block named NIL."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "The current pretty printer.  Should be either a function that takes two\n"
 "   arguments (the object and the stream) or NIL to indicate that there is\n"
 "   no pretty printer installed."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Output OBJECT to STREAM observing all printer control variables."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Output OBJECT to STREAM observing all printer control variables except\n"
 "   for *PRINT-PRETTY*.  Note: if *PRINT-PRETTY* is non-NIL, then the pretty\n"
@@ -6934,166 +7121,166 @@ msgid ""
 "   itself."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Invalid *PRINT-CASE* value: ~S"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Invalid READTABLE-CASE value: ~S"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Outputs the printed representation of any array in either the #< or #A\n"
 "   form."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Obsolete Instance"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unprintable Instance"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "~A is not a reasonable value for *Print-Base*."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Compute a list of pairs (2^i . r^{2^i}), stopping with the largest r^{2^i}\n"
 "greater than n."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
+msgid "overflow in digit-to-char"
+msgstr ""
+
+#: src/code/print.lisp
 msgid ""
 "Convert digit into a character representation.  We use 0..9, a..z for\n"
 "10..35, and A..Z for 36..52."
 msgstr ""
 
-#: target:code/print.lisp
-msgid "overflow in digit-to-char"
-msgstr ""
-
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Print a fixnum N to stream S, maybe with leading zeros.  This isn't\n"
 "ever-so efficient, but we probably don't need to care."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Use the power list (see power-list) PL to split N roughly in half; then\n"
 "print the left and right halves using (cdr PL).  Make sure we count the\n"
 "leading zeroes correctly."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Primary fast bignum-printing interface.  Prints integer N to stream S in\n"
 "radix-R.  If you have a power-list then pass it in as PL."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Minimum power of 10 that allows the float printer to use free format,\n"
 "   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
 "   in the ANSI CL standard."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ""
 "Maximum power of 10 that allows the float printer to use free format,\n"
 "   instead of exponential format.  See section 22.1.3.1.3: Printing Floats\n"
 "   in the ANSI CL standard."
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Convert a DD number to a lisp rational"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Print out a double-double to a string"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Weak Pointer: "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Broken Weak Pointer"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Bogus Code Object"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Code Object"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Return PC Object"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "FDEFINITION object for "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Function "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Interpreted Function ~S"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Byte Compiled Function"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Byte Compiled Closure"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Closure Over "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unknown Function"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Value Cell "
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unknown Pointer Object, type="
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unbound Marker"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Unknown Immediate Object, lowtag="
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid ", type="
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Continue anyway"
 msgstr ""
 
-#: target:code/print.lisp
+#: src/code/print.lisp
 msgid "Cannot find ~S, so unicode support is not available"
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Insert an annotation into the pretty-printing stream STREAM.\n"
 "HANDLER is a function, and RECORD is an arbitrary datum.  The\n"
@@ -7109,18 +7296,18 @@ msgid ""
 "with the arguments RECORD, STREAM and nil."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "Insert ANNOTATION into the queue of annotations in STREAM."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Insert all annotations in STREAM from the queue of pending\n"
 "operations into the queue of annotations.  When END is non-nil, \n"
 "stop before reaching the queued-op END."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Dequeue the next annotation from the queue of annotations of STREAM\n"
 "and return it.  Return nil if there are no more annotations.  When\n"
@@ -7128,22 +7315,22 @@ msgid ""
 "this, also return nil."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output the buffer of STREAM up to (excluding) the buffer index END.\n"
 "When annotations are present, invoke them at the right positions."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Invoke all annotations in STREAM up to (including) the buffer index END."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "Output-partial-line called when nothing can be output."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Group some output into a logical block.  STREAM-SYMBOL should be either a\n"
 "   stream, T (for *TERMINAL-IO*), or NIL (for *STANDARD-OUTPUT*).  The "
@@ -7151,11 +7338,11 @@ msgid ""
 "   control variable *PRINT-LEVEL* is automatically handled."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "Cannot specify both a prefix and a per-line-prefix."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Cause the closest enclosing use of PPRINT-LOGICAL-BLOCK to return\n"
 "   if it's list argument is exhausted.  Can only be used inside\n"
@@ -7163,13 +7350,13 @@ msgid ""
 "   PPRINT-LOGICAL-BLOCK is supplied."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "PPRINT-EXIT-IF-LIST-EXHAUSTED must be lexically inside ~\n"
 "\t  PPRINT-LOGICAL-BLOCK."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Return the next element from LIST argument to the closest enclosing\n"
 "   use of PPRINT-LOGICAL-BLOCK, automatically handling *PRINT-LENGTH*\n"
@@ -7178,11 +7365,11 @@ msgid ""
 "   is poped, but the *PRINT-LENGTH* testing still happens."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "PPRINT-POP must be lexically inside PPRINT-LOGICAL-BLOCK."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output a conditional newline to STREAM (which defaults to\n"
 "   *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do\n"
@@ -7204,7 +7391,7 @@ msgid ""
 "   next line.  (See PPRINT-INDENT.)"
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Specify the indentation to use in the current logical block if STREAM\n"
 "   (which defaults to *STANDARD-OUTPUT*) is a pretty-printing stream\n"
@@ -7217,7 +7404,7 @@ msgid ""
 "   break.  The indention value is silently truncated to an integer."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "If STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing\n"
 "   stream, perform tabbing based on KIND, otherwise do nothing.  KIND can\n"
@@ -7233,7 +7420,7 @@ msgid ""
 "       of the current section, not the start of the line."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output LIST to STREAM putting :FILL conditional newlines between each\n"
 "   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
@@ -7241,7 +7428,7 @@ msgid ""
 "   can be used with the ~/.../ format directive."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output LIST to STREAM putting :LINEAR conditional newlines between each\n"
 "   element.  If COLON? is NIL (defaults to T), then no parens are printed\n"
@@ -7250,7 +7437,7 @@ msgid ""
 "   can be used with the ~/.../ format directive."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid ""
 "Output LIST to STREAM tabbing to the next column that is an even multiple\n"
 "   of TABSIZE (which defaults to 16) between each element.  :FILL style\n"
@@ -7260,45 +7447,45 @@ msgid ""
 "   the ~/.../ format directive."
 msgstr ""
 
-#: target:code/pprint.lisp
+#: src/code/pprint.lisp
 msgid "CONS PPRINT dispatch ignored w/o compiler loaded:~%  ~S"
 msgstr ""
 
-#: target:pcl/env.lisp target:pcl/methods.lisp target:pcl/std-class.lisp
-#: target:pcl/defclass.lisp target:code/format.lisp
-#: target:code/pprint-loop.lisp target:code/pprint.lisp
+#: src/pcl/env.lisp src/pcl/methods.lisp src/pcl/std-class.lisp
+#: src/pcl/defclass.lisp src/code/format.lisp src/code/pprint-loop.lisp
+#: src/code/pprint.lisp
 msgid "No more arguments."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "~:[~;Error in format: ~]~\n"
 "\t      ~?~@[~%  ~A~%  ~V@T^~]"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "A justification directive cannot be in the same format string~%~\n"
 "                         as ~~W, ~~I, ~~:T, or a logical-block directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "String ended before directive was found."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many colons supplied."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many at-signs supplied."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No matching closing slash."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "Provides various facilities for formatting output.\n"
 "  CONTROL-STRING contains a string to be output, possibly with embedded\n"
@@ -7327,267 +7514,246 @@ msgid ""
 "  details."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Unknown format directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Unknown directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many parameters, expected no more than ~D"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many parameters, expected no more than 0"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Table of ordinal ones-place digits in English"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Table of ordinal tens-place digits in English"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Number too large to print in old Roman numerals: ~:D"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Number too large to print in Roman numerals: ~:D"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No previous argument."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify the colon modifier with this directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify either colon or atsign for this directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify both colon and atsign for this directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify the at-sign modifier."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify both colon and at-sign."
 msgstr ""
 
-#: target:code/format.lisp
-msgid ""
-"Index ~D out of bounds.  Should have been ~\n"
-"\t\t\t\t    between 0 and ~D."
-msgstr ""
-
-#: target:code/format.lisp
-msgid ""
-"Index ~D out of bounds.  Should have been ~\n"
-"\t\t\t\tbetween 0 and ~D."
-msgstr ""
-
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "Index ~D out of bounds.  Should have been ~\n"
 "\t\t\t\t   between 0 and ~D."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "Index ~D out of bounds.  Should have been ~\n"
 "\t\t\t       between 0 and ~D."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify the colon modifier."
 msgstr ""
 
-#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp
-#: target:pcl/low.lisp target:code/format.lisp
+#: src/pcl/seal.lisp src/pcl/method-slot-access-optimization.lisp
+#: src/pcl/low.lisp src/code/format.lisp
 msgid "~A~%while processing indirect format string:"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding close paren."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding open paren."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding close bracket."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Cannot specify both the colon and at-sign modifiers."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Can only specify one section"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Must specify exactly two sections."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "~~; not contained within either ~~[...~~] or ~~<...~~>."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding open bracket."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding close brace."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No corresponding open brace."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "~D illegal directive found inside justification block"
 msgid_plural "~D illegal directives found inside justification block"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No parameters can be supplied with ~~<...~~:>."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid ""
 "Cannot include format directives inside the ~\n"
 "\t\t\t       ~:[suffix~;prefix~] segment of ~~<...~~:>"
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Too many segments for ~~<...~~:>."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "Malformed ~~/ directive."
 msgstr ""
 
-#: target:code/format.lisp
+#: src/code/format.lisp
 msgid "No package named ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "The list of packages to use by default of no :USE argument is supplied\n"
 "   to MAKE-PACKAGE or other package creation forms."
 msgstr ""
 
-#: target:code/package.lisp
-msgid ""
-"Standard structure for the description of a package.  Consists of \n"
-"   a list of all hash tables, the name of the package, the nicknames of\n"
-"   the package, the use-list for the package, the used-by- list, hash-\n"
-"   tables for the internal and external symbols, and a list of the\n"
-"   shadowing symbols."
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The ~A package, ~D/~D internal, ~D/~D external"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The ~A package"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "deleted package"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The current package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~&~@<Attempt to modify the locked package ~A, by ~3i~:_~?~:>"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "redefining function ~A"
 msgstr ""
 
-#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+#: src/code/macros.lisp src/code/defstruct.lisp src/code/package.lisp
 msgid "Ignore the lock and continue"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Disable package's definition-lock, then continue"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Disable all package locks, then continue"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Bogus ~A name: ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Can't do anything to a deleted package: ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Given PACKAGE-SPECIFIER, a package, symbol or string, return the\n"
 "  parent package.  If there is not a parent, signal an error."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The parent of ~a does not exist."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "There is no parent of ~a."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Given PACKAGE-SPECIFIER, a package, symbol or string, return all the\n"
 "  packages which are in the hierarchy 'under' the given package.  If\n"
 "  :recurse is nil, then only return the immediate children of the package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Find the package having the specified name."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Make this package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "#<Package-Hashtable: Size = ~D, Free = ~D, Deleted = ~D>"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*\n"
 "   Executes the FORMs at least once for each symbol accessible in the given\n"
 "   PACKAGE with VAR bound to the current symbol."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*\n"
 "   Executes the FORMs once for each external symbol in the given PACKAGE "
@@ -7595,14 +7761,14 @@ msgid ""
 "   VAR bound to the current symbol."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*\n"
 "   Executes the FORMs once for each symbol in every package with VAR bound\n"
 "   to the current symbol."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Within the lexical scope of the body forms, MNAME is defined via macrolet\n"
 "   such that successive invocations of (mname) will return the symbols,\n"
@@ -7610,23 +7776,19 @@ msgid ""
 "   any of :inherited :external :internal."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "~@<~S does not name a package ~:>"
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Must supply at least one of :internal, ~\n"
 "\t                             :external, or :inherited."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "~S is not one of :internal, :external, ~\n"
 "\t\t                       or :inherited."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Defines a new package called PACKAGE.  Each of OPTIONS should be one of the\n"
 "   following:\n"
@@ -7642,65 +7804,65 @@ msgid ""
 "   All options except :SIZE and :DOCUMENTATION can be used multiple times."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Bogus DEFPACKAGE option: ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Can't specify :SIZE twice."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Bogus :SIZE, must be a positive integer: ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Can't specify :DOCUMENTATION twice."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Parameters ~S and ~S must be disjoint ~\n"
 "\t                             but have common elements ~%   ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A is a nick-name for the package ~A"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A also shadows the following symbols:~%  ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A previously used the following packages:~%  ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A also exports the following symbols:~%  ~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~A does not contain a symbol ~A"
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Ignore this nickname."
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is a package name, so it cannot be a nickname for ~S."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Redefine this nickname."
+#: src/code/package.lisp
+msgid "Ignore this nickname."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is already a nickname for ~S."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
+msgid "Redefine this nickname."
+msgstr ""
+
+#: src/code/package.lisp
 msgid ""
 "Makes a new package having the specified Name and Nicknames.  The\n"
 "  package will inherit all external symbols from each package in\n"
@@ -7709,15 +7871,15 @@ msgid ""
 "  will ultimately be present in the package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Leave existing package alone."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "A package named ~S already exists"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Sets *PACKAGE* to package with given NAME, creating the package if\n"
 "   it does not exist.  If the package already exists then it is modified\n"
@@ -7727,47 +7889,47 @@ msgid ""
 "   list."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Old-style IN-PACKAGE."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "The package named ~S doesn't exist."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Changes the name and nicknames for a package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "A package named ~S already exists."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Delete the PACKAGE-OR-NAME from the package system data structures."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Return NIL"
+#: src/code/package.lisp
+msgid "No package of name ~S."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "No package of name ~S."
+#: src/code/package.lisp
+msgid "Return NIL"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Remove dependency in other packages."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Returns a list of all existing packages."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Returns a symbol having the specified name, creating it if necessary."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Returns the symbol NAME in PACKAGE.  If such a symbol is found\n"
 "  then the second value is :internal, :external or :inherited to indicate\n"
@@ -7775,116 +7937,112 @@ msgid ""
 "  are NIL."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "interning symbol ~A"
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Makes SYMBOL no longer present in PACKAGE.  If SYMBOL was present\n"
 "  then T is returned, otherwise NIL.  If PACKAGE is SYMBOL's home\n"
 "  package, then it is made uninterned."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "uninterning symbol ~A"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Disable package's lock then continue"
 msgstr ""
 
-#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp
+#: src/code/macros.lisp src/code/defstruct.lisp src/code/package.lisp
 msgid "Unlock all packages, then continue"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "prompt for a symbol to shadowing-import."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Uninterning symbol ~S causes name conflict among these symbols:~%~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Symbol to shadowing-import: "
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is not a symbol."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is not one of the conflicting symbols."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is neither a symbol nor a list of symbols."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Exports SYMBOLS from PACKAGE, checking that no name conflicts result."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Exporting these symbols from the ~A package:~%~S~%~\n"
 "\t      results in name conflicts with these packages:~%~{~A ~}"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Unintern conflicting symbols."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Skip exporting conflicting symbols."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Import these symbols into the ~A package."
+#: src/code/package.lisp
+msgid "These symbols are not accessible in the ~A package:~%~S"
 msgstr ""
 
-#: target:code/package.lisp
-msgid "These symbols are not accessible in the ~A package:~%~S"
+#: src/code/package.lisp
+msgid "Import these symbols into the ~A package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Makes SYMBOLS no longer exported from PACKAGE."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "unexporting symbols ~A"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "~S is not accessible in the ~A package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Make SYMBOLS accessible as internal symbols in PACKAGE.  If a symbol\n"
 "  is already accessible then it has no effect.  If a name conflict\n"
 "  would result from the importation, then a correctable error is signalled."
 msgstr ""
 
-#: target:code/package.lisp
-msgid "Import these symbols with Shadowing-Import."
-msgstr ""
-
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Importing these symbols into the ~A package ~\n"
 "\t\tcauses a name conflict:~%~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
+msgid "Import these symbols with Shadowing-Import."
+msgstr ""
+
+#: src/code/package.lisp
 msgid ""
 "Import SYMBOLS into PACKAGE, disregarding any name conflict.  If\n"
 "  a symbol of the same name is present, then it is uninterned.\n"
 "  The symbols are added to the Package-Shadowing-Symbols."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Make an internal symbol in PACKAGE with the same name as each of the\n"
 "  specified SYMBOLS, adding the new symbols to the Package-Shadowing-"
@@ -7894,74 +8052,74 @@ msgid ""
 "  not already present."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Add all the PACKAGES-TO-USE to the use list for PACKAGE so that\n"
 "  the external symbols of the used packages are accessible as internal\n"
 "  symbols in PACKAGE."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Unintern the conflicting symbols in the ~2*~A package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Use'ing package ~A results in name conflicts for these symbols:~%~S"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Remove PACKAGES-TO-UNUSE from the use list for PACKAGE."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "Return a list of all symbols in the system having the specified name."
 msgstr ""
 
-#: target:code/describe.lisp target:code/package.lisp
+#: src/code/describe.lisp src/code/package.lisp
 msgid "special variable"
 msgstr ""
 
-#: target:code/describe.lisp target:code/package.lisp
+#: src/code/describe.lisp src/code/package.lisp
 msgid "constant"
 msgstr ""
 
-#: target:code/describe.lisp target:code/package.lisp
+#: src/code/describe.lisp src/code/package.lisp
 msgid "undefined variable"
 msgstr ""
 
-#: target:code/describe.lisp target:code/package.lisp
+#: src/code/describe.lisp src/code/package.lisp
 msgid "symbol macro"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "alien variable"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "value: "
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "macro"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "special operator"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "function"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "class"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid "type"
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Call FUN with each symbol that contains STRING.\n"
 "  If PACKAGE is supplied then only use symbols present in\n"
@@ -7969,7 +8127,7 @@ msgid ""
 "  symbols exported from the specified package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Briefly describe all symbols which contain the specified STRING.\n"
 "  If PACKAGE is supplied then only describe symbols present in\n"
@@ -7977,60 +8135,54 @@ msgid ""
 "  external symbols in the specified package."
 msgstr ""
 
-#: target:code/package.lisp
+#: src/code/package.lisp
 msgid ""
 "Identical to APROPOS, except that it returns a list of the symbols\n"
 "  found instead of describing them."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Float format for 1.0E1"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Variable bound to current readtable."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Reader error ~@[at ~D ~]on ~S:~%~?"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Unexpected EOF on ~S ~A."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/code/reader.lisp
 msgid "Value of *package* at the start of the last read or Nil."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Undefined read-macro character ~S"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "A copy is made of from-readtable and place into to-readtable."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/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"
@@ -8039,156 +8191,156 @@ msgid ""
 "   returns T."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/code/reader.lisp
 msgid "Bind *read-buffer* to a fresh buffer and execute Body."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "If true, only warn when there is an extra close paren, otherwise error."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/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
+#: src/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
+#: src/code/reader.lisp
 msgid "Nothing appears before . in list."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Nothing appears after . in list."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "More than one object follows . in list."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid ""
 "Ignoring unmatched close parenthesis~\n"
 "\t\t  ~@[ at file position ~D~]."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Unmatched close parenthesis."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "after escape character"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "inside extended token"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "invalid constituent"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Suppresses most interpreting of the reader when T"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/code/reader.lisp
 msgid "impossible!"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "dot context error"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "too many dots"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "too many colons in ~S"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "after reading a colon"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "package ~S not found"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Use symbol anyway."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "The symbol ~S is not external in the ~A package."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Symbol ~S not found in the ~A package."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
+msgid "This function is just an fsm that recognizes numbers and symbols."
+msgstr ""
+
+#: src/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
+#: src/code/reader.lisp
+msgid "after escape"
+msgstr ""
+
+#: src/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
+#: src/code/reader.lisp
 msgid ""
 "Holds the mapping of base to 'safe' number of digits to read for a fixnum."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Holds the largest fixnum power of the base for make-integer."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/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"
@@ -8197,27 +8349,27 @@ msgid ""
 "the end of the stream."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Internal error in floating point reader."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Underflow"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Floating-point number not representable"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "Invalid ratio: ~S/~S"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "No dispatch function defined for ~S."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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"
@@ -8225,47 +8377,55 @@ msgid ""
 "   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
+#: src/code/reader.lisp
 msgid "Dispatch Sub-Char must not be a decimal digit: ~S"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "~S is not a dispatch character."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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 ""
+
+#: src/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
+#: src/code/reader.lisp
 msgid "inside dispatch character"
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "No dispatch table for dispatch char."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/code/reader.lisp
 msgid "A resource of string streams for Read-From-String."
 msgstr ""
 
-#: target:code/reader.lisp
+#: src/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
+#: src/code/reader.lisp
+msgid "There are no digits in this string: ~S"
+msgstr ""
+
+#: src/code/reader.lisp
+msgid "There's junk in this string: ~S."
+msgstr ""
+
+#: src/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"
@@ -8273,149 +8433,141 @@ msgid ""
 "  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/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Numeric argument ignored in #~D~A."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Unrecognized character name: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Ill-formed vector: #~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Vector longer than specified length: #~S~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Escape character appeared after #*"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "You have to give a little bit for non-zero #* bit-vectors."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Illegal element given for bit-vector: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Bit vector is longer than specified length #~A*~A"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Symbol following #: contains a package marker: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "If false, then the #. read macro is disabled."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Attempt to read #. while *READ-EVAL* is bound to NIL."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Radix missing in #R."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Illegal radix for #R: ~D."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "#~A (base ~D) value is not a rational: ~S."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid ""
 "#~DA axis ~D is empty, but axis ~\n"
 "\t\t\t\t          ~D is non-empty."
 msgstr ""
 
-#: target:code/sharpm.lisp
-msgid "Non-list following #S"
-msgstr ""
-
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Non-list following #S: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Structure type is not a symbol: ~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "~S is not a defined structure type."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "The ~S structure does not have a default constructor."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
+msgid "Non-list following #S"
+msgstr ""
+
+#: src/code/sharpm.lisp
 msgid "Missing label for #=."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Multiply defined label: #~D="
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Have to tag something more than just #~D#."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Missing label for ##."
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "reference to undefined label #~D#"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Illegal complex number format: #C~S"
 msgstr ""
 
-#: target:code/sharpm.lisp
+#: src/code/sharpm.lisp
 msgid "Illegal sharp character ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid "How deep we are into backquotes"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ",@ after backquote in ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ",. after backquote in ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid "Comma not inside a backquote."
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ",@ after dot in ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ",. after dot in ~S"
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid ""
 "Given a lisp form containing the magic functions BACKQ-LIST, BACKQ-LIST*,\n"
 "  BACKQ-APPEND, etc. produced by the backquote reader macro, will return a\n"
@@ -8428,60 +8580,69 @@ msgid ""
 "  level of parentheses should be added."
 msgstr ""
 
-#: target:code/backq.lisp
+#: src/code/backq.lisp
 msgid "### illegal dotted backquote form ###"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Make an object set for use by a RPC/xevent server.  Name is for\n"
 "      descriptive purposes only."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "You lose, object: ~S"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
-"Return the handler function in Object-Set for the operation specified by\n"
-"   Message-ID, if none, NIL is returned."
+"Return as multiple values the object and object-set mapped to by xwindow."
+msgstr ""
+
+#: src/code/serve-event.lisp
+msgid "Add a new xwindow/object/object-set association."
+msgstr ""
+
+#: src/code/serve-event.lisp
+msgid "Remove xwindow and its associated object/object-set pair."
 msgstr ""
 
-#: target:code/serve-event.lisp
-msgid "Sets the handler function for an object set operation."
+#: src/code/serve-event.lisp
+msgid ""
+"Return the handler function in Object-Set for the operation specified by\n"
+"   Message-ID, if none, NIL is returned."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "#<Handler for ~A on ~:[~;BOGUS ~]descriptor ~D: ~S>"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "List of all the currently active handlers for file descriptors"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Arange to call FUNCTION whenever FD is usable. DIRECTION should be\n"
 "  either :INPUT or :OUTPUT. The value returned should be passed to\n"
 "  SYSTEM:REMOVE-FD-HANDLER when it is no longer needed."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Invalid direction ~S, must be either :INPUT or :OUTPUT"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Removes HANDLER from the list of active handlers."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Remove any handers refering to FD. This should only be used when attempting\n"
 "  to recover from a detected inconsistency."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Establish a handler with SYSTEM:ADD-FD-HANDLER for the duration of BODY.\n"
 "   DIRECTION should be either :INPUT or :OUTPUT, FD is the file descriptor "
@@ -8490,29 +8651,29 @@ msgid ""
 msgstr ""
 
 #.  This needs more work.
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
+msgid "~S ~[have~;has a~:;have~] bad file descriptor."
+msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors."
+msgstr[0] ""
+msgstr[1] ""
+
+#: src/code/serve-event.lisp
 msgid "Remove bogus handlers."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Retry bogus handlers."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Go on, leaving handlers marked as bogus."
 msgstr ""
 
-#: target:code/serve-event.lisp
-msgid "~S ~[have~;has a~:;have~] bad file descriptor."
-msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors."
-msgstr[0] ""
-msgstr[1] ""
-
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Timeout is not a real number or NIL: ~S"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or\n"
 "  :OUTPUT. TIMEOUT, if supplied, is the number of seconds to wait before "
@@ -8520,11 +8681,11 @@ msgid ""
 "  up."
 msgstr ""
 
-#: target:code/time.lisp target:code/serve-event.lisp
+#: src/code/time.lisp src/code/serve-event.lisp
 msgid "Syscall ~A failed: ~A"
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "This is an alist mapping displays to user functions to be called when\n"
 "   SYSTEM:SERVE-EVENT notices input on a display connection.  Do not modify\n"
@@ -8532,7 +8693,7 @@ msgid ""
 "   should be represented here only once."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "SERVE-ALL-EVENTS calls SERVE-EVENT with the specified timeout.  If\n"
 "  SERVE-EVENT does something (returns T) it loops over SERVE-EVENT with "
@@ -8541,7 +8702,7 @@ msgid ""
 "  SERVE-EVENT did something and NIL if not."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid ""
 "Receive on all ports and Xevents and dispatch to the appropriate handler\n"
 "  function.  If timeout is specified, server will wait the specified time "
@@ -8550,51 +8711,51 @@ msgid ""
 "  Server returns T if something happened and NIL otherwise."
 msgstr ""
 
-#: target:code/serve-event.lisp
+#: src/code/serve-event.lisp
 msgid "Event-listen was true, but handler didn't handle: ~%~S"
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Attempting unimplemented external-format I/O."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Nonsensical argument (~S) to DEFINE-EXTERNAL-FORMAT."
 msgstr ""
 
-#: target:code/extfmts.lisp
-msgid "External-format aliases file ends early."
+#: src/code/extfmts.lisp
+msgid "Bad entry in external-format aliases file: ~S => ~S."
 msgstr ""
 
-#: target:code/extfmts.lisp
-msgid "Bad entry in external-format aliases file: ~S => ~S."
+#: src/code/extfmts.lisp
+msgid "External-format aliases file ends early."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "External-format aliasing depth exceeded."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "~S is a Composing-External-Format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "~S is not a Composing-External-Format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "~S is not a valid external format name."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "External format ~S not found."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Attempting I/O through void external-format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Convert String to octets using the specified External-format.  The\n"
 "   string is bounded by Start (defaulting to 0) and End (defaulting to\n"
@@ -8602,7 +8763,7 @@ msgid ""
 "   there.  If not, a new buffer is created."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Octets-to-string converts an array of octets in Octets to a string\n"
 "  according to the specified External-format.  The array of octets is\n"
@@ -8620,7 +8781,7 @@ msgid ""
 "  external format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Encode the given String using External-Format and return a new\n"
 "  string.  The characters of the new string are the octets of the\n"
@@ -8628,7 +8789,7 @@ msgid ""
 "  code-char.  This is the inverse to String-Decode"
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Decode String using the given External-Format and return the new\n"
 "  string.  The input string is treated as if it were an array of\n"
@@ -8636,7 +8797,7 @@ msgid ""
 "  the inverse of String-Encode."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid ""
 "Change the external format of the standard streams to Terminal.\n"
 "  The standard streams are sys::*stdin*, sys::*stdout*, and\n"
@@ -8647,37 +8808,37 @@ msgid ""
 "  set to the specified format."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Can't find external-format ~S."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "Change it anyway."
 msgstr ""
 
-#: target:code/extfmts.lisp
+#: src/code/extfmts.lisp
 msgid "The external-format for encoding filenames is already set."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "List of available buffers.  Each buffer is an sap pointing to\n"
 "  bytes-per-buffer of memory."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Number of bytes per buffer."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "The maximum supported byte size for a stream element-type."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Timeout ~(~A~)ing ~S."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "List of all available output routines. Each element is a list of the\n"
 "  element-type output, the kind of buffering, the function name, and the "
@@ -8685,80 +8846,80 @@ msgid ""
 "  of bytes per element."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Write would have blocked, but SERVER told us to go."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "While writing ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "Output THING to stream.  THING can be any kind of vector or a sap.  If "
 "THING\n"
 "  is a SAP, END must be supplied (as length won't work)."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Just go on as if nothing happened..."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "~S called with :END before :START!"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "List of all available input routines. Each element is a list of the\n"
 "  element-type input, the function name, and the number of bytes per element."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error reading ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Could not find any input routine for ~S"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Could not find any output routine for ~S buffered ~S."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Element sizes for input (~S:~S) and output (~S:~S) differ?"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Input type (~S) and output type (~S) are unrelated?"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Go on as if nothing bad happened."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Could not restore ~S to its original contents: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "~s is not a stream associated with a file."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error fstating ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error lseek'ing ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Invalid position given to file-position: ~S"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "Create a stream for the given unix file descriptor.\n"
 "  If input is non-nil, allow input operations.\n"
@@ -8773,15 +8934,15 @@ msgid ""
 "  Name is used to identify the stream when printed."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "File descriptor must be opened either for input or output."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "** Closed ~A~%"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "This is a string that OPEN tacks on the end of a file namestring to produce\n"
 "   a name for the :if-exists :rename-and-delete and :rename options.  Also,\n"
@@ -8789,60 +8950,60 @@ msgid ""
 "   namestring."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Enter new value for ~*~S"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "~S is invalid for ~S. Must be one of~{ ~S~}"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Enter new value for ~S: "
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Try to rename it anyway."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "File ~S is not writable."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Use :SUPERSEDE instead."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Could not rename ~S to ~S: ~A."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Cannot open ~S for output: Is a directory."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Cannot find ~S: ~A"
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 #, fuzzy
 msgid "Return NIL."
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error opening ~S, ~A."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Error creating ~S, path does not exist."
 msgstr ""
 
-#: target:pcl/braid.lisp target:code/fd-stream.lisp
+#: src/pcl/braid.lisp src/code/fd-stream.lisp
 msgid "Try again."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "Return a stream which reads from or writes to Filename.\n"
 "  Defined keywords:\n"
@@ -8855,262 +9016,262 @@ msgid ""
 "  See the manual for details."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/pcl/std-class.lisp src/pcl/boot.lisp src/pcl/defs.lisp
+#: src/pcl/defclass.lisp src/code/fd-stream.lisp
+msgid "Odd-length property list in REMF."
+msgstr ""
+
+#: src/code/fd-stream.lisp
 msgid "Do it anyway."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Can't create simple-streams with an element-type."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "Unable to open streams of class ~S."
 msgstr ""
 
-#: target:pcl/std-class.lisp target:pcl/boot.lisp target:pcl/defs.lisp
-#: target:pcl/defclass.lisp target:code/macros.lisp target:code/fd-stream.lisp
-msgid "Odd-length property list in REMF."
-msgstr ""
-
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "The stream connected to the controlling terminal or NIL if there is none."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "The stream connected to the standard input (file descriptor 0)."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "The stream connected to the standard output (file descriptor 1)."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "The stream connected to the standard error output (file descriptor 2)."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid "This is called in BEEP to feep the user.  It takes a stream."
 msgstr ""
 
-#: target:code/fd-stream.lisp
+#: src/code/fd-stream.lisp
 msgid ""
 "Return the delta in Stream's FILE-POSITION that would be caused by writing\n"
 "   Object to Stream.  Non-trivial only in implementations that support\n"
 "   international character sets."
 msgstr ""
 
-#: target:code/fd-stream-extfmt.lisp
-msgid "Loading simple-streams should redefine this"
+#: src/code/fd-stream-extfmt.lisp
+msgid "Don't know how to set external-format for ~S."
 msgstr ""
 
-#: target:code/fd-stream-extfmt.lisp
-msgid "Don't know how to set external-format for ~S."
+#: src/code/fd-stream-extfmt.lisp
+msgid "Loading simple-streams should redefine this"
 msgstr ""
 
-#: target:code/fd-stream-extfmt.lisp
+#: src/code/fd-stream-extfmt.lisp
 msgid "Setting external-format on Gray streams not supported."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "When non-nil, attempt to load \"library:<host>.translations\" to resolve\n"
 "   an otherwise undefined logical host."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "A path specification, either a string, file-stream or pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Convert thing (a pathname, string or stream) into a pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Construct a filled in pathname by completing the unspecified components\n"
 "   from the defaults."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "~S is not allowed as a directory component."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Makes a new pathname from the component arguments.  Note that host is\n"
 "a host-structure or string."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Silly argument for a unix ~A: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Silly argument for a unix PATHNAME-NAME: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Illegal pathname: ~\n"
 "                                Directory with ~S immediately followed by ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for the pathname's host."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for pathname's device."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for the pathname's directory list."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for the pathname's name."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Accessor for the pathname's version."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Parse error in namestring: ~?~%  ~A~%  ~V@T^"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "When Host arg is not supplied, Defaults arg must ~\n"
 "\t\t  have a non-null PATHNAME-HOST."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Host in namestring: ~S~@\n"
 "\t\t    does not match explicit host argument: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Converts pathname, a pathname designator, into a pathname structure,\n"
 "   for a physical pathname, returns the printed representation. Host may be\n"
 "   a physical host structure or host namestring."
 msgstr ""
 
-#: target:code/pathname.lisp
-msgid ""
-"A LIST representing a pathname host is not ~\n"
-"                              supported in this implementation:~%  ~S"
-msgstr ""
-
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Hosts do not match: ~S and ~S."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Can't figure out the file associated with stream:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
+msgid ""
+"A LIST representing a pathname host is not ~\n"
+"                              supported in this implementation:~%  ~S"
+msgstr ""
+
+#: src/code/pathname.lisp
 msgid "Construct the full (name)string form of the pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Cannot determine the namestring for pathnames with no ~\n"
 "\t\t  host:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Returns a string representation of the name of the host in the pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Cannot determine the namestring for pathnames with no host:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Returns a string representation of the directories used in the pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Returns a string representation of the name used in the pathname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Returns an abbreviated pathname sufficent to identify the pathname relative\n"
 "   to the defaults."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Predicate for determining whether pathname contains any wildcards."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Pathname matches the wildname template?"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Not enough wildcards in FROM pattern to match ~\n"
 "\t\t       TO pattern:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Can't substitute this into the middle of a word:~\n"
 "\t\t\t  ~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Pathname components from Source and From args to TRANSLATE-PATHNAME~@\n"
 "\t  did not match:~%  ~S ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 ":WILD-INFERIORS not paired in from and to ~\n"
 "\t\t\t   patterns:~%  ~S ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Use the source pathname to translate the from-wildname's wild and\n"
 "   unspecified elements into a completed to-pathname based on the to-"
 "wildname."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "~S doesn't match ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Search-list ~a not defined."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Clear the current definition for the search-list NAME.  Returns T if such\n"
 "   a definition existed, and NIL if not."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Clear the definition for all search-lists.  Only use this if you know\n"
 "   what you are doing."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "~S doesn't start with a search-list."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Return the expansions for the search-list starting PATHNAME.  If PATHNAME\n"
 "   does not start with a search-list, then an error is signaled.  If\n"
@@ -9118,30 +9279,30 @@ msgid ""
 "   The expansion for a search-list can be set with SETF."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Search list ~S has not been defined yet."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Returns T if the search-list starting PATHNAME is currently defined, and\n"
 "   NIL otherwise.  An error is signaled if PATHNAME does not start with a\n"
 "   search-list."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "That would result in a circularity:~%  ~\n"
 "\t\t     ~A~{ -> ~A~} -> ~A"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Search-lists cannot expand into pathnames that have ~\n"
 "\t\t       a name, type, or ~%version specified:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Execute BODY with VAR bound to each successive possible expansion for\n"
 "   PATHNAME and then return RESULT.  Note: if PATHNAME does not contain a\n"
@@ -9150,107 +9311,107 @@ msgid ""
 "   VAR is *not* bound inside of RESULT."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Undefined search list: ~A"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Logical namestring character ~\n"
 "\t\t\t     is not alphanumeric or hyphen:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Logical host not yet defined: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Double asterisk inside of logical ~\n"
 "\t\t\t\t     word: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Illegal character for logical pathname:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
-msgid "Expecting ~A, got ~:[nothing~;~:*~S~]."
-msgstr ""
-
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a host name"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a directory name"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a file name"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Expecting a dot, got ~S."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a file type"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "a positive integer, * or NEWEST"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
+msgid "Expecting ~A, got ~:[nothing~;~:*~S~]."
+msgstr ""
+
+#: src/code/pathname.lisp
 msgid ""
 "Expected a positive integer, ~\n"
 "\t\t\t\t\t    got ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Extra stuff after end of file name."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Converts the pathspec argument to a logical-pathname and returns it."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Logical namestring does not specify a host:~%  ~S"
 msgstr ""
 
-#: target:code/filesys.lisp target:code/pathname.lisp
+#: src/code/filesys.lisp src/code/pathname.lisp
 msgid "Invalid directory component: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Invalid keyword: ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Logical pathname translation is not a two-list:~%  ~S"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Return the (logical) host object argument's list of translations."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Set the translations list for the logical host argument.\n"
 "   Return translations."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Clobber search-list host with logical pathname host"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "~S names a CMUCL search-list"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ""
 "Search for a logical pathname named host, if not already defined. If "
 "already\n"
@@ -9260,29 +9421,29 @@ msgid ""
 "   successfully, T is returned, else error."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid ";; Loading pathname translations from ~A~%"
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "Translates pathname to a physical pathname, which is returned."
 msgstr ""
 
-#: target:code/pathname.lisp
+#: src/code/pathname.lisp
 msgid "No translation for ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Remove any occurrences of \\ from the string because we've already\n"
 "   checked for whatever may have been backslashed."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Backslash in bad place."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "If non-NIL, Unix shell-style wildcards are ignored when parsing\n"
 "  pathname namestrings.  They are also ignored when computing\n"
@@ -9291,59 +9452,59 @@ msgid ""
 "  printing pathnames."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "``['' with no corresponding ``]''"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~A already names a logical host"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Invalid pattern piece: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ":BACK cannot be represented in namestrings."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a directory separator in a pathname name: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a dot in a pathname name without a pathname type: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Invalid value for a pathname name: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify the type without a file: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a directory separator in a pathname type: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a dot in a pathname type: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot specify a version without a file: ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~S cannot be represented relative to ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Cannot supply a type without a name:~%  ~S"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Convert PATHNAME into a string that can be used with UNIX system calls.\n"
 "   Search-lists and wild-cards are expanded. If optional argument\n"
@@ -9352,83 +9513,83 @@ msgid ""
 "   unless an executable version of PATHNAME exists."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~S is ambiguous:~{~%  ~A~}"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Return the pathname for the actual file described by the pathname\n"
 "  An error of type file-error is signalled if no such file exists,\n"
 "  or the pathname is wild."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Bad place for a wild pathname."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "The file ~S does not exist."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Return a pathname which is the truename of the file if it exists, NIL\n"
 "  otherwise. An error of type file-error is signalled if pathname is wild."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Rename File to have the specified New-Name.  If file is a stream open to a\n"
 "  file, then the associated file is renamed."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~S can't be created."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Failed to rename ~A to ~A: ~A"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Delete the specified file."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~S doesn't exist."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Could not delete ~A: ~A."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Delete old versions of files matching the given Pathname,\n"
 "optionally keeping some of the most recent old versions."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Returns the home directory of the logged in user as a pathname.\n"
 "  This is obtained from the logical name \"home:\"."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Return file's creation date, or NIL if it doesn't exist.\n"
 " An error of type file-error is signalled if file is a wild pathname"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Returns the file author as a string, or nil if the author cannot be\n"
 " determined.  Signals an error of type file-error if file doesn't exist,\n"
 " or file is a wild pathname."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Returns a list of pathnames, one for each file that matches the given\n"
 "   pathname.  Supplying :ALL as nil causes this to ignore Unix dot files.  "
@@ -9444,7 +9605,7 @@ msgid ""
 "   not followed."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Like Directory, but prints a terse, multi-column directory listing\n"
 "   instead of returning a list of pathnames.  When :all is supplied and\n"
@@ -9453,131 +9614,131 @@ msgid ""
 "   information is output one file per line."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Directory of ~A:~%"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Couldn't stat ~A -- ~A.~%"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Return a list of all files which are possible completions of Pathname.\n"
 "   We look in the directory specified by Defaults as well as looking down\n"
 "   the search list."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "File-writable accepts a pathname and returns T if the current\n"
 "  process can write it, and NIL otherwise."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Returns the pathname for the default directory.  This is the place where\n"
 "  a file will be written if no directory is specified.  This may be changed\n"
 "  with setf."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid ""
 "Tests whether the directories containing the specified file\n"
 "  actually exist, and attempts to create them if they do not.\n"
 "  Portable programs should avoid using the :MODE keyword argument."
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "~&Creating directory: ~A~%"
 msgstr ""
 
-#: target:code/filesys.lisp
+#: src/code/filesys.lisp
 msgid "Can't create directory ~A."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The default for the :IF-SOURCE-NEWER argument to load."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The source file types which LOAD recognizes."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "A list of the object file types recognized by LOAD."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "A list of the object file types recognized by LOAD for logical pathnames."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The default for the :VERBOSE argument to Load."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The default for the :PRINT argument to Load."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The TRUENAME of the file that LOAD is currently loading."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The defaulted pathname that LOAD is currently loading."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Count of the number of recursive loads."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "~A was compiled for fasl-file version ~X, ~\n"
 "                     but this is version ~X"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "List of free fop tables for the fasloader."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The fop stack (we only need one!)."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Vector indexed by a FaslOP that yields the FOP's name."
 msgstr ""
 
-#: target:code/load.lisp
-msgid "Losing FOP!"
-msgstr ""
-
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "Vector indexed by a FaslOP that yields a function of 0 arguments which\n"
 "  will perform the operation."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
+msgid "Losing FOP!"
+msgstr ""
+
+#: src/code/load.lisp
 msgid "Loading ~S.~%"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Loading stuff from ~S.~%"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Attempt to load an empty FASL FILE:~%  ~S"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Bad FASL file format."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "Loads the file named by Filename into the Lisp environment.  The file type\n"
 "   (a.k.a extension) is defaulted if missing.  These options are defined:\n"
@@ -9620,149 +9781,145 @@ msgid ""
 "   types that we use for defaulting when none is specified."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Return NIL from load of ~S."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "~S does not exist."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "See if it exists now."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Prompt for a new name."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "New name: "
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Load it as a source file."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "File has a fasl file type, but no fasl file header:~%  ~S"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "Loading object file ~A,~@\n"
 "\t\t  which is older than the presumed source:~%  ~A."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "Loading source file ~A,~@\n"
 "\t\t  which is newer than the presumed object file:~%  ~A."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Compile of source failed, cannot load object."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid ""
 "Object file ~A is~@\n"
 "\t\t       older than the presumed source:~%  ~A."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "load source file"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "load object file"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Fop-End-Header was executed???"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Fasl table of improper size.  Bug!"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Fasl stack not empty.  Bug!"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "The package ~S does not exist."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Losing i-vector element size: ~S"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Load ~A anyway"
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "~A was compiled for a ~A, but this is a ~A"
 msgstr ""
 
-#: target:compiler/dfo.lisp target:code/load.lisp
+#: src/compiler/dfo.lisp src/code/load.lisp
 msgid "Top-Level Form"
 msgstr ""
 
-#: target:compiler/generic/core.lisp target:code/load.lisp
+#: src/compiler/generic/core.lisp src/code/load.lisp
 msgid "Unaligned function object, offset = #x~X."
 msgstr ""
 
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "~S defined~%"
 msgstr ""
 
-#: target:compiler/generic/core.lisp target:code/load.lisp
-msgid "Unknown foreign symbol: ~S"
-msgstr ""
-
-#: target:code/load.lisp
+#: src/code/load.lisp
 msgid "Cannot load assembler code."
 msgstr ""
 
-#: target:compiler/generic/core.lisp target:code/load.lisp
+#: src/compiler/generic/core.lisp src/code/load.lisp
 msgid "Undefined assembler routine: ~S"
 msgstr ""
 
-#: target:code/foreign-linkage.lisp
+#: src/code/foreign-linkage.lisp
 msgid "~A is not defined as a foreign symbol"
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "This is a list of module names that have been loaded into Lisp so far.\n"
 "   It is used by PROVIDE and REQUIRE."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid "*load-verbose* is bound to this before loading files."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid "See function documentation for REQUIRE"
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "Defines a module by registering the files that need to be loaded when\n"
 "   the module is required.  If name is a symbol, its print name is used\n"
 "   after downcasing it."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "Adds a new module name to *modules* indicating that it has been loaded.\n"
 "   Module-name may be any valid string designator.  All comparisons are\n"
 "   done using string=, i.e. module names are case-sensitive."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "Loads a module when it has not been already.  Pathname, if supplied,\n"
 "   is a single pathname or list of pathnames to be loaded if the module\n"
@@ -9788,15 +9945,15 @@ msgid ""
 "   which defaults to t."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid "Don't know how to load ~A"
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid "Coerce a string designator to a module name."
 msgstr ""
 
-#: target:code/module.lisp
+#: src/code/module.lisp
 msgid ""
 "Derive a default pathname to try to load for an undefined module\n"
 "named module-name.  The default pathname is constructed from the\n"
@@ -9805,19 +9962,19 @@ msgid ""
 "each, separately, converted from :case :common to :case :local."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Keywords that you can put in a lambda-list, supposing you should want\n"
 "  to do such a thing."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "The exclusive upper bound on the number of arguments which may be passed\n"
 "  to a function, including rest args."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "The exclusive upper bound on the number of parameters which may be specifed\n"
 "  in a given lambda list.  This is actually the limit on required and "
@@ -9825,13 +9982,13 @@ msgid ""
 "  parameters.  With &key and &aux you can get more."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "The exclusive upper bound on the number of multiple-values that you can\n"
 "  have."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "This variable controls whether assignments to unknown variables at top-"
 "level\n"
@@ -9844,53 +10001,53 @@ msgid ""
 "      NIL   -- Never declare the variable, giving warnings on each use."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Evaluates its single arg in a null lexical environment, returns the\n"
 "  result or results."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Wrong number of args to FUNCTION:~% ~S."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "~S is a macro."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "~S is a special operator."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Wrong number of args to QUOTE:~% ~S."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Odd number of args to SETQ:~% ~S."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Declaring ~S special."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:code/eval.lisp
+#: src/compiler/ir1tran.lisp src/code/eval.lisp
 msgid "Bad Eval-When situation list: ~S."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Attempt to evaluation a complex expression:~%     ~S~@\n"
 "\t  This expression must be compiled, but the compiler is not loaded."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~\n"
 "\t  ~%     ~S~%"
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Given a function, return three values:\n"
 "   1] A lambda expression that could be used to define the function, or NIL "
@@ -9904,11 +10061,11 @@ msgid ""
 "      any object, CMU CL always returns a valid function name or a string."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "If the symbol globally names a special form, returns T, otherwise NIL."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "The value of this variable must be a function that can take three\n"
 "  arguments, a macro expander function, the macro form to be expanded,\n"
@@ -9918,28 +10075,28 @@ msgid ""
 "  FUNCALL."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Invoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to\n"
 "   a function."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "If SYMBOL names a macro in ENV, returns the expansion function,\n"
 "   else returns NIL.  If ENV is unspecified or NIL, use the global\n"
 "   environment only."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "~S names a special form."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Cannot funcall macro functions."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "If form is a macro (or symbol macro), expands it once.  Returns two values,\n"
 "   the expanded form and a T-or-NIL flag indicating whether the form was, "
@@ -9949,7 +10106,7 @@ msgid ""
 "   to the null environment."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Repetitively call MACROEXPAND-1 until the form can no longer be expanded.\n"
 "   Returns the final resultant form, and T if it was expanded.  ENV is the\n"
@@ -9957,7 +10114,7 @@ msgid ""
 "   environment."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "If NAME names a compiler-macro, returns the expansion function,\n"
 "   else returns NIL.  Note: if the name is shadowed in ENV by a local\n"
@@ -9965,27 +10122,27 @@ msgid ""
 "   set with SETF."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "If FORM is a function call for which a compiler-macro has been defined,\n"
 "   invoke the expander function using *macroexpand-hook* and return the\n"
 "   results and T.  Otherwise, return the original form and NIL."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Repetitively call COMPILER-MACROEXPAND-1 until the form can no longer be\n"
 "   expanded.  ENV is the lexical environment to expand in, or NIL (the\n"
 "   default) for the null environment."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "True of any Lisp object that has a constant value: types that eval to\n"
 "  themselves, keywords, constants, and list whose car is QUOTE."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid ""
 "Applies FUNCTION to a list of arguments produced by evaluating ARGS in\n"
 "  the manner of LIST*.  That is, a list is made of the values of all but "
@@ -9995,77 +10152,205 @@ msgid ""
 "  list."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Calls Function with the given Arguments."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Returns all of its arguments, in order, as values."
 msgstr ""
 
-#: target:code/eval.lisp
+#: src/code/eval.lisp
 msgid "Returns all of the elements of List, in order, as values."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid "A list of unix signal structures."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid "~S is not a valid signal name or number."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Return the name of the signal as a string.  Signal should be a valid\n"
 "  signal number or a keyword of the standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Return a string describing signal.  Signal should be a valid signal\n"
 "  number or a keyword of the standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Return the number of the given signal.  Signal should be a valid\n"
 "  signal number or a keyword of the standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
+msgid "Check"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Hangup"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Interrupt"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Quit"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Illegal instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Trace trap"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Iot instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "C abort()"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Emt instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Floating point exception"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Kill"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Bus error"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Segmentation violation"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Bad argument to system call"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Write on a pipe with no one to read it"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Alarm clock"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Software termination signal"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Urgent condition present on socket"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Stop"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Stop signal generated from keyboard"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Continue after stop"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Child status has changed"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Background read attempted from control terminal"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Background write attempted to control terminal"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "I/O is possible on a descriptor"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Cpu time limit exceeded"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "File size limit exceeded"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Virtual time alarm"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Profiling timer alarm"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Window size change"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "User defined signal 1"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "User defined signal 2"
+msgstr ""
+
+#: src/code/signal.lisp
 msgid "Returns a mask given a set of signals."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-kill sends the signal signal to the process with process \n"
 "   id pid.  Signal should be a valid signal number or a keyword of the\n"
 "   standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-killpg sends the signal signal to the all the process in process\n"
 "  group PGRP.  Signal should be a valid signal number or a keyword of\n"
 "  the standard UNIX signal name."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-sigblock cause the signals specified in mask to be\n"
 "   added to the set of signals currently being blocked from\n"
 "   delivery.  The macro sigmask is provided to create masks."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-sigpause sets the set of masked signals to its argument\n"
 "   and then waits for a signal to arrive, restoring the previous\n"
 "   mask upon its return."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Unix-sigsetmask sets the current set of masked signals (those\n"
 "   being blocked from delivery) to the argument.  The macro sigmask\n"
@@ -10073,91 +10358,87 @@ msgid ""
 "   mask is returned."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid "Enable all the default signals that Lisp knows how to deal with."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid "Execute BODY in a context impervious to interrupts."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "Allow interrupts while executing BODY.  As interrupts are normally allowed,\n"
 "  this is only useful inside a WITHOUT-INTERRUPTS."
 msgstr ""
 
-#: target:code/signal.lisp
+#: src/code/signal.lisp
 msgid ""
 "With-enabled-interrupts ({(interrupt function)}*) {form}*\n"
 "   Establish function as a handler for the Unix signal interrupt which\n"
 "   should be a number between 1 and 31 inclusive."
 msgstr ""
 
-#: target:code/interr.lisp
-msgid "~S isn't one of the required args."
-msgstr ""
-
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Unknown error:~{ ~S~})"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Invalid number of arguments: ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Attempt to use VALUES-LIST on a dotted-list:~%  ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Attempt to THROW to a tag that does not exist: ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Function with declared result type NIL returned:~%  ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Invalid array index, ~D for ~S.  Array has no elements."
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "Invalid array index, ~D for ~S.  Should have greater than or equal to 0."
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Invalid array index, ~D for ~S.  Should have been less than ~D"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Undefined foreign symbol: ~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "The maximum number of nested errors allowed.  Internal errors are\n"
 "   double-counted."
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "The current number of nested errors."
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Unknown internal error, ~D?  args=~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid "Internal error ~D: ~A.  args=~S"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "~2&~@<A control stack overflow has occurred: ~\n"
 "            the program has entered the yellow control stack guard zone.  ~\n"
@@ -10165,14 +10446,14 @@ msgid ""
 "            enter the red control stack guard zone while debugging.~@:>~2%"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "~2&~@<Fatal control stack overflow.  You have entered~%~\n"
 "           the red control stack guard zone while debugging.~%~\n"
 "           Returning to Top-Level.~@:>~2%"
 msgstr ""
 
-#: target:code/interr.lisp
+#: src/code/interr.lisp
 msgid ""
 "~2&~@<Imminent dynamic space overflow has occurred:~%~\n"
 "            Only a small amount of dynamic space is available now.~%~\n"
@@ -10181,171 +10462,171 @@ msgid ""
 "            warning if you run out of space while debugging.~@:>~%"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "All debug-conditions inherit from this type.  These are serious conditions\n"
 "    that must be handled, but they are not programmer errors."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "There is absolutely no debugging information available."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "No debugging information available."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "The system could not return values from a frame with debug-function since\n"
 "    it lacked information about returning values."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "~&Cannot return values from ~:[frame~;~:*~S~] since ~\n"
 "\t\t\tthe debug information lacks details about returning ~\n"
 "\t\t\tvalues here."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "The debug-function has no debug-block information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S has no debug-block information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "The debug-function has no debug-variable information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S has no debug-variable information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "The debug-function has no lambda-list since argument debug-variables are\n"
 "    unavailable."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S has no lambda-list information available."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S has :invalid or :unknown value in ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S names more than one valid variable in ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "All programmer errors from using the interface for building debugging\n"
 "    tools inherit from this type."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&Unhandled debug-condition:~%~A"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&Invalid use of an unknown code-location -- ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&~S not in ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Invalid control stack pointer."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~&Form was preprocessed for ~S,~% but called on ~S:~%  ~S"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the name of the debug-variable.  The name is the name of the symbol\n"
 "   used as an identifier when writing the code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the package name of the debug-variable.  This is the package name "
 "of\n"
 "   the symbol used as an identifier when writing the code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the integer that makes debug-variable's name and package name "
 "unique\n"
 "   with respect to other debug-variable's in the same function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the frame immediately above frame on the stack.  When frame is\n"
 "   the top of the stack, this returns nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the debug-function for the function whose call frame represents."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the code-location where the frame's debug-function will continue\n"
 "   running when program execution returns to this frame.  If someone\n"
 "   interrupted this frame, the result could be an unknown code-location."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "#<Compiled-Frame ~S~:[~;, interrupted~]>"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "#<~A-Debug-Function ~S>"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the list of possible code-locations where execution may continue\n"
 "   when the basic-block represented by debug-block completes its execution."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns whether debug-block represents elsewhere code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the breakpoint's function the system calls when execution "
 "encounters\n"
 "   the breakpoint, and it is active.  This is SETF'able."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns the breakpoint's what specification."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns the breakpoint's kind specification."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the debug-function representing information about the function\n"
 "   corresponding to the code-location."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the number of top-level forms processed by the compiler before\n"
 "   compiling this source.  If this source is uncompiled, this is zero.  "
@@ -10357,7 +10638,7 @@ msgid ""
 "   zero -- the compiler saw no other top-level forms before it."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns an indication of the type of source.  The following are the "
 "possible\n"
@@ -10367,7 +10648,7 @@ msgid ""
 "      :stream  from a non-file stream."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the actual source in some sense represented by debug-source, which\n"
 "   is related to DEBUG-SOURCE-FROM:\n"
@@ -10376,19 +10657,19 @@ msgid ""
 "      :stream  some descriptive string that's otherwise useless."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the universal time someone created the source.  This may be nil if\n"
 "   it is unavailable."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the time someone compiled the source.  This is nil if the source\n"
 "   is uncompiled."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This function returns the file position of each top-level form as an array\n"
 "   if debug-source is from a :file.  If DEBUG-SOURCE-FROM is :lisp or :"
@@ -10396,74 +10677,66 @@ msgid ""
 "   this returns nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns whether object is a debug-source."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the top frame of the control stack as it was before calling this\n"
 "   function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Flush all of the frames above FRAME, and renumber all the frames below\n"
 "   FRAME."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the frame immediately below frame on the stack.  When frame is\n"
 "   the bottom of the stack, this returns nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "When set, the debugger foregoes making interpreted-frames, so you can\n"
 "   debug the functions that manifest the interpreter."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Zero or more than one ~A variable in ~\n"
 "\t\t\t   EVAL::INTERNAL-APPLY-LOOP?"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Return a string describing the foreign function near ADDRESS"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Foreign function call land"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Return t if COMPONENT contains code from assembly routines."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Return the name of the assembly routine at offset PC in COMPONENT.\n"
 "The result is a symbol or nil if the routine cannot be found."
 msgstr ""
 
-#: target:code/debug-int.lisp
-msgid "no debug info: ~A:~A"
-msgstr ""
-
-#: target:code/debug-int.lisp
-msgid "find the PC"
-msgstr ""
-
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns an a-list mapping catch tags to code-locations.  These are\n"
 "   code-locations at which execution would continue with frame as the top\n"
 "   frame if someone threw to the corresponding tag."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Executes the forms in a context with block-var bound to each debug-block in\n"
 "   debug-function successively.  Result is an optional form to execute for\n"
@@ -10472,7 +10745,7 @@ msgid ""
 "   debug-function lacks debug-block information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Executes body in a context with var bound to each debug-variable in\n"
 "   debug-function.  This returns the value of executing result (defaults to\n"
@@ -10482,35 +10755,35 @@ msgid ""
 "   preserved argument information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the Common Lisp function associated with the debug-function.  This\n"
 "   returns nil if the function is unavailable or is non-existent as a user\n"
 "   callable function object."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the name of the function represented by debug-function.  This may\n"
 "   be a string or a cons; do not assume it is a symbol."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns a debug-function that represents debug information for function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the kind of the function which is one of :optional, :external,\n"
 "   :top-level, :cleanup, nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns whether there is any variable information for debug-function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns a list of debug-variables in debug-function having the same name\n"
 "   and package as symbol.  If symbol is uninterned, then this returns a list "
@@ -10522,7 +10795,7 @@ msgid ""
 "   knows about its arguments."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns a list of debug-variables in debug-function whose names contain\n"
 "    name-prefix-string as an intial substring.  The result of this function "
@@ -10532,7 +10805,7 @@ msgid ""
 "    example, possibly debug-function only knows about its arguments."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns a list representing the lambda-list for debug-function.  The list\n"
 "   has the following structure:\n"
@@ -10553,17 +10826,17 @@ msgid ""
 "   condition when there is no argument list information."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Malformed arguments description."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns whether basic-code-location is unknown.  It returns nil when the\n"
 "   code-location is known."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the debug-block containing code-location if it is available.  Some\n"
 "   debug policies inhibit debug-block information, and if none is "
@@ -10571,11 +10844,11 @@ msgid ""
 "   then this signals a no-debug-blocks condition."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns the code-location's debug-source."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the number of top-level forms before the one containing\n"
 "   code-location as seen by the compiler in some compilation unit.  A\n"
@@ -10583,18 +10856,18 @@ msgid ""
 "   debug-sources."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Unknown code location?  It should be known."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the number of the form corresponding to code-location.  The form\n"
 "   number is derived by a walking the subforms of a top-level form in\n"
 "   depth-first order."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Return the kind of CODE-LOCATION, one of:\n"
 "     :interpreted, :unknown-return, :known-return, :internal-error,\n"
@@ -10602,48 +10875,40 @@ msgid ""
 "     :non-local-entry"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Returns whether obj1 and obj2 are the same place in the code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Executes forms in a context with code-var bound to each code-location in\n"
 "   debug-block.  This returns the value of executing result (defaults to "
 "nil)."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "??? Can't get name of debug-block's function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the symbol from interning DEBUG-VARIABLE-NAME in the package named\n"
 "   by DEBUG-VARIABLE-PACKAGE."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the value stored for debug-variable in frame.  If the value is not\n"
 "   :valid, then this signals an invalid-value error."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns the value stored for debug-variable in frame.  The value may be\n"
 "   invalid.  This is SETF'able."
 msgstr ""
 
-#: target:code/debug-int.lisp
-msgid "Local non-descriptor register access?"
-msgstr ""
-
-#: target:code/debug-int.lisp
-msgid "Local interior register access?"
-msgstr ""
-
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Returns three values reflecting the validity of debug-variable's value\n"
 "   at basic-code-location:\n"
@@ -10652,14 +10917,14 @@ msgid ""
 "      :unknown  The value's availability is unknown."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This returns a table mapping form numbers to source-paths.  A source-path\n"
 "   indicates a descent into the top-level-form form, going directly to the\n"
 "   subform corressponding to the form number."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Form is a top-level form, and path is a source-path into it.  This returns\n"
 "   the form indicated by the source-path.  Context is the number of "
@@ -10671,11 +10936,11 @@ msgid ""
 "   immediately before the form indicated by path."
 msgstr ""
 
-#: target:code/debug.lisp target:code/debug-int.lisp
+#: src/code/debug.lisp src/code/debug-int.lisp
 msgid "Source path no longer exists."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Return a function of one argument that evaluates form in the lexical\n"
 "   context of the basic-code-location loc.  PREPROCESS-FOR-EVAL signals a\n"
@@ -10687,23 +10952,23 @@ msgid ""
 "   ambiguous-variable-name, and frame-function-mismatch"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Evaluate Form in the lexical context of Frame's current code location,\n"
 "   returning the results of the evaluation."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Find and return the debug catch tag for a given frame, if it exists."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Evaluate Form in the lexical context of Frame's current code location,\n"
 "   returning from the current frame the results of the evaluation."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This creates and returns a breakpoint.  When program execution encounters\n"
 "   the breakpoint, the system calls hook-function.  Hook-function takes the\n"
@@ -10737,27 +11002,27 @@ msgid ""
 "      This signals an error if what is an unknown code-location."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Cannot make a breakpoint at an unknown code location -- ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Breakpoints in interpreted code are currently unsupported."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 ":FUNCTION-END breakpoints are currently unsupported ~\n"
 "\t\t       for the known return convention."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 ":function-end breakpoints are currently unsupported ~\n"
 "\t     for interpreted-debug-functions."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This takes a function-end-cookie and a frame, and it returns whether the\n"
 "   cookie is still valid.  A cookie becomes invalid when the frame that\n"
@@ -10771,7 +11036,7 @@ msgid ""
 "   series of cookies is valid."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This causes the system to invoke the breakpoint's hook-function until the\n"
 "   next call to DEACTIVATE-BREAKPOINT or DELETE-BREAKPOINT.  The system "
@@ -10779,29 +11044,29 @@ msgid ""
 "   breakpoint hook functions in the opposite order that you activate them."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Cannot activate a deleted breakpoint -- ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "I don't know how you made this, but they're unsupported -- ~S"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "This stops the system from invoking the breakpoint's hook-function."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This returns the user maintained info associated with breakpoint.  This\n"
 "   is SETF'able."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "This returns whether breakpoint is currently active."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This frees system storage and removes computational overhead associated "
 "with\n"
@@ -10810,19 +11075,15 @@ msgid ""
 "   never become active again."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Unknown breakpoint in ~S at offset ~S."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Breakpoint that nobody wants?"
 msgstr ""
 
-#: target:code/debug-int.lisp
-msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
-msgstr ""
-
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "Make a bogus LRA object that signals a breakpoint trap when returned to.  "
 "If\n"
@@ -10833,7 +11094,7 @@ msgid ""
 "   the PC offset for the trap instruction."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "The editor calls this remotely in the slave to set breakpoints.  Package is\n"
 "   the string name of a package or nil, and name-str is a string "
@@ -10849,44 +11110,44 @@ msgid ""
 "   the top-level form."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "Editor installed breakpoint."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "We don't currently support breakpoints in interpreted code."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "~%Cannot set breakpoints for editor when source file no ~\n"
 "\t\t    longer exists:~%  ~A."
 msgstr ""
 
-#: target:code/debug-int.lisp
-msgid ""
-"Cannot set breakpoints for editor when ~\n"
-"\t\t\t\t   there is no start positions map."
-msgstr ""
-
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "~%While setting a breakpoint for the editor, noticed ~\n"
 "\t\t\tsource file has been modified since compilation:~%  ~A~@\n"
 "\t\t\tUsing form offset instead of character position.~%"
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
+msgid ""
+"Cannot set breakpoints for editor when ~\n"
+"\t\t\t\t   there is no start positions map."
+msgstr ""
+
+#: src/code/debug-int.lisp
 msgid ""
 "The editor calls this in the slave with a remote-object representing a\n"
 "   code-location to set a breakpoint."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "The editor calls this remotely in the slave to delete a breakpoint."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid ""
 "This returns a code-location before the body of a function and after all\n"
 "   the arguments are in place.  If this cannot determine that location due "
@@ -10894,184 +11155,115 @@ msgid ""
 "   a lack of debug information, it returns nil."
 msgstr ""
 
-#: target:code/debug-int.lisp
+#: src/code/debug-int.lisp
 msgid "~S code location at ~D"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "*PRINT-LEVEL* is bound to this value when debug prints a function call.  If\n"
 "  null, use *PRINT-LEVEL*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "*PRINT-LENGTH* is bound to this value when debug prints a function call.  "
 "If\n"
 "  null, use *PRINT-LENGTH*."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "default value for the verbose argument to print-frame-call.  If set to >= 2, "
 "source will be printed for all frames"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "This is T while in the debugger."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Pushes and pops/exits inside the debugger change this."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid ""
-"If this is bound before the debugger is invoked, it is used as the stack\n"
-"   top by the debugger."
-msgstr ""
-
-#: target:code/debug.lisp
-msgid ""
-"This is a function of no arguments that prints the debugger prompt\n"
-"   on *debug-io*."
-msgstr ""
-
-#: target:code/debug.lisp
-msgid ""
-"\n"
-"The prompt is right square brackets, the number indicating how many\n"
-"  recursive command loops you are in.\n"
-"Debug commands do not affect * and friends, but evaluation in the debug "
-"loop\n"
-"  do affect these variables.\n"
-"Any command may be uniquely abbreviated.\n"
-"\n"
-"Getting in and out of DEBUG:\n"
-"  Q        throws to top level.\n"
-"  GO       calls CONTINUE which tries to proceed with the restart "
-"'continue.\n"
-"  RESTART  invokes restart numbered as shown (prompt if not given).\n"
-"  ERROR    prints the error condition and restart cases.\n"
-"  FLUSH    toggles *flush-debug-errors*, which is initially t.\n"
-" \n"
-"  The name of any restart, or its number, is a valid command, and is the "
-"same\n"
-"    as using RESTART to invoke that restart.\n"
-"\n"
-"Changing frames:\n"
-"  U  up frame        D  down frame       T  top frame       B  bottom frame\n"
-"\n"
-"  F n   goes to frame n.\n"
-"\n"
-"Inspecting frames:\n"
-"  BACKTRACE [n]  shows n frames going down the stack.\n"
-"  L [prefix]     lists locals starting with the given prefix in current "
-"function.\n"
-"  P              displays current function call.\n"
-"  PP             verbose display of current function, with source.\n"
-"  SOURCE [n]     displays frame's source form with n levels of enclosing "
-"forms.\n"
-"  VSOURCE [n]    displays frame's source form without any ellipsis.\n"
-"  DESCRIBE       describe the current function.\n"
-"\n"
-"Breakpoints and steps:\n"
-"  LIST-LOCATIONS [{function | :c}]  list the locations for breakpoints.\n"
-"    Specify :c for the current frame.  Abbreviation: LL\n"
-"  LIST-BREAKPOINTS                  list the active breakpoints.\n"
-"    Abbreviations: LB, LBP\n"
-"  DELETE-BREAKPOINT [n]             remove breakpoint n or all breakpoints.\n"
-"    Abbreviations: DEL, DBP    \n"
-"  BREAKPOINT {n | :end | :start} [:break form] [:function function]\n"
-"    [{:print form}*] [:condition form]    set a breakpoint.\n"
-"    Abbreviations: BR, BP\n"
-"  STEP [n]                          step to the next location or step n "
-"times.\n"
-"\n"
-"Actions on frames:\n"
-"  DEBUG-RETURN expression\n"
-"    returns expression's values from the current frame, exiting the "
-"debugger.\n"
-"    Abbreviations: R\n"
-"\n"
-"Variables:\n"
-"  (DEBUG:VAR name [id])   Returns variable's value if possible.  If "
-"multiple\n"
-"                          variables with the same name exist, use id to "
-"select\n"
-"                          one\n"
-"  (DEBUG:ARG n)           Returns the n'th argument's value if possible.\n"
-"                          Argument zero is the first argument.\n"
-"\n"
-"See the CMU Common Lisp User's Manual for more information.\n"
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
+msgid ""
+"If this is bound before the debugger is invoked, it is used as the stack\n"
+"   top by the debugger."
+msgstr ""
+
+#: src/code/debug.lisp
+msgid ""
+"This is a function of no arguments that prints the debugger prompt\n"
+"   on *debug-io*."
+msgstr ""
+
+#: src/code/debug.lisp
 msgid ""
 "When true, the LIST-LOCATIONS command only displays block start locations.\n"
 "   Otherwise, all locations are displayed."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "If true, list the code location type in the LIST-LOCATIONS command."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%Unknown location: using block start.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&~S: ~S in ~S"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&~S: FUNCTION-START in ~S"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&~S: FUNCTION-END in ~S"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%Return values: ~S"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&*Step (to a breakpoint)*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "*Step*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&*Breakpoint hit*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Error in main-hook-function: unknown breakpoint"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Cannot step, in elsewhere code~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "Currently only compiled code can be stepped.~%~\n"
 "                Trying to compile the passed form resulted in ~\n"
 "                the following error:~%  ~A"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~2&Stepping the form~%  ~S~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&using the debugger.  Type HELP for help.~2%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "STEP implements a debugging paradigm wherein the programmer is allowed\n"
 "   to step through the evaluation of a form.  We use the debugger's "
@@ -11084,7 +11276,7 @@ msgid ""
 "   error is signalled."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "Show a listing of the call stack going down from the current frame.  In the\n"
 "   debugger, the current frame is indicated by the prompt.  Count is how "
@@ -11092,39 +11284,39 @@ msgid ""
 "   frames to show."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "unavaliable-rest-arg"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "lambda-list-unavailable"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "error printing object {~X}"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "unused-arg"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "unavailable-arg"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%Source: "
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Error finding source: ~A"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Unable to display error condition~@[: ~A~]"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "This is either nil or a function of two arguments, a condition and the "
 "value\n"
@@ -11136,86 +11328,70 @@ msgid ""
 "   around the invocation."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~2&~A~%   [Condition of type ~S]~2&"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "The CMU Common Lisp debugger.  Type h for help."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&Restarts:~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~2&Debug  (type H for help)~2%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while\n"
 "   executing in the debugger.  The 'flush' command toggles this."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "When non-NIL, becomes the system *READTABLE* in the debugger\n"
 "   read-eval-print loop"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "When non-NIL, print the current frame when entering the debugger."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~&Error flushed ..."
+#: src/code/debug.lisp
+msgid "Unknown stream-command -- ~S."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Return to debug level ~D."
+#: src/code/debug.lisp
+msgid "Ambiguous debugger command: ~S."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Unknown stream-command -- ~S."
+#: src/code/debug.lisp
+msgid "~&Your command, ~S, is ambiguous:~%"
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Ambiguous debugger command: ~S."
+#: src/code/debug.lisp
+msgid "Return to debug level ~D."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~&Your command, ~S, is ambiguous:~%"
+#: src/code/debug.lisp
+msgid "~&Error flushed ..."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "When set (the default), evaluations in the debugger's command loop occur\n"
 "   relative to the current frame's environment without the need of debugger\n"
 "   forms that explicitly control this kind of evaluation."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Setting * to NIL -- was unbound marker."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "No known valid variables match ~S."
-msgstr ""
-
-#: target:code/debug.lisp
-msgid "Specification ambiguous:~%~{   ~A~%~}"
-msgstr ""
-
-#: target:code/debug.lisp
-msgid "Invalid variable ID, ~D, should have been one of ~S."
-msgstr ""
-
-#: target:code/debug.lisp
-msgid "Specify variable ID to disambiguate ~S.  Use one of ~S."
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "Returns a variable's value if possible.  Name is a simple-string or symbol.\n"
 "   If it is a simple-string, it is an initial substring of the variable's "
@@ -11238,7 +11414,23 @@ msgid ""
 "   information.  This is SETF'able."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
+msgid "No known valid variables match ~S."
+msgstr ""
+
+#: src/code/debug.lisp
+msgid "Specification ambiguous:~%~{   ~A~%~}"
+msgstr ""
+
+#: src/code/debug.lisp
+msgid "Invalid variable ID, ~D, should have been one of ~S."
+msgstr ""
+
+#: src/code/debug.lisp
+msgid "Specify variable ID to disambiguate ~S.  Use one of ~S."
+msgstr ""
+
+#: src/code/debug.lisp
 msgid ""
 "Returns the n'th argument's value if possible.  Argument zero is the first\n"
 "   argument in a frame's default printed representation.  Count keyword/"
@@ -11246,67 +11438,63 @@ msgid ""
 "   pairs as separate arguments."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "No argument values are available."
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Unused arguments have no values."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Invalid argument value."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Argument specification out of range -- ~S."
+#: src/code/debug.lisp
+msgid "No argument values are available."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Unused rest-arg before n'th argument."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Invalid rest-arg before n'th argument."
+#: src/code/debug.lisp
+msgid "Argument specification out of range -- ~S."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Invoking debugger command while outside the debugger."
+#: src/code/debug.lisp
+msgid "Invalid rest-arg before n'th argument."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Unknown debug command name -- ~S"
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~&Top of stack."
+#: src/code/debug.lisp
+msgid "Invoking debugger command while outside the debugger."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~&Bottom of stack."
+#: src/code/debug.lisp
+msgid "~&Top of stack."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Frame number: "
+#: src/code/debug.lisp
+msgid "~&Bottom of stack."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "You are here."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Bottom of stack encountered."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Top of stack encountered."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "debug-return: "
+#: src/code/debug.lisp
+msgid "Frame number: "
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "~@<can't find a tag for this frame ~\n"
 "                   ~2I~_(hint: try increasing the DEBUG optimization quality "
@@ -11314,129 +11502,133 @@ msgid ""
 "                   and recompiling)~:@>"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
+msgid "debug-return: "
+msgstr ""
+
+#: src/code/debug.lisp
 msgid "No restart named continue."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Restart: "
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "~S is invalid as a restart name.~%"
+#: src/code/debug.lisp
+msgid "No such restart."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "No such restart."
+#: src/code/debug.lisp
+msgid "~S is invalid as a restart name.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "This controls how many lines the debugger's help command prints before\n"
 "   printing a prompting line to continue with output."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: "
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "No local variables ~@[starting with ~A ~]~\n"
 "\t               in function."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "All variables ~@[starting with ~A ~]currently ~\n"
 "\t               have invalid values."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "No variable information available."
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "No start positions map."
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Source file no longer exists:~%  ~A."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~%; File: ~A~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "~%; File has been modified since compilation:~%;   ~A~@\n"
 "\t\t ; Using form offset instead of character position.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
+msgid "No start positions map."
+msgstr ""
+
+#: src/code/debug.lisp
 msgid "Couldn't continue."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "::FUNCTION-START "
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid " *Active*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid " *Continue here*"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&::FUNCTION-END *Active* "
 msgstr ""
 
-#: target:code/debug.lisp
-msgid "Location number, :start, or :end: "
-msgstr ""
-
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Note: previous breakpoint removed.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "~&Added."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
+msgid "Location number, :start, or :end: "
+msgstr ""
+
+#: src/code/debug.lisp
 msgid "Breakpoint ~S removed.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Breakpoint doesn't exist."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "All breakpoints deleted.~%"
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Errors now flushed."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Errors now create nested debug levels."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid "Can't figure out the function for this frame."
 msgstr ""
 
-#: target:code/debug.lisp
+#: src/code/debug.lisp
 msgid ""
 "The debugger's EDIT-SOURCE command only works in slave Lisps ~\n"
 "\t    connected to a Hemlock editor."
 msgstr ""
 
-#: target:code/query.lisp
+#: src/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"
@@ -11444,28 +11636,28 @@ msgid ""
 "   enter any other characters."
 msgstr ""
 
-#: target:code/query.lisp
+#: src/code/query.lisp
 msgid "Type \"y\" for yes or \"n\" for no. "
 msgstr ""
 
-#: target:code/query.lisp
+#: src/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
+#: src/code/query.lisp
 msgid "Type \"yes\" for yes or \"no\" for no. "
 msgstr ""
 
-#: target:code/rand-mt19937.lisp
+#: src/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
+#: src/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"
@@ -11473,84 +11665,84 @@ msgid ""
 "  the universal time or /dev/urandom if available."
 msgstr ""
 
-#: target:code/rand-mt19937.lisp
+#: src/code/rand-mt19937.lisp
 msgid "Argument is not a RANDOM-STATE, T or NIL: ~S"
 msgstr ""
 
-#: target:code/rand-mt19937.lisp
+#: src/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
+#: src/code/rand-mt19937.lisp
 msgid "Argument is not a positive integer or a positive float: ~S"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "This is bound to the returned values when evaluating :BREAK-AFTER and\n"
 "   :PRINT-AFTER forms."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "If the trace indentation exceeds this value, then indentation restarts at\n"
 "   0."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "The default value for the :ENCAPSULATE option to trace."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "List of package names.  Encapsulate functions from these packages\n"
 "   by default.  This should at least include the packages of functions\n"
 "   used by TRACE, directly or indirectly."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Can't trace special form ~S."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Breaking ~A traced call to ~S:"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "~S returned"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Function ~S already TRACE'd, retracing it."
 msgstr ""
 
-#: target:code/ntrace.lisp
-msgid "Tracing shared code for ~S:~%  ~S"
-msgstr ""
-
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "~S name is not a defined global function: ~S"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Can't use encapsulation to trace anonymous function ~S."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Can't use encapsulation to trace local flet/labels function ~S."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
+msgid "Tracing shared code for ~S:~%  ~S"
+msgstr ""
+
+#: src/code/ntrace.lisp
 msgid "Missing argument to ~S TRACE option."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Unknown TRACE option: ~S"
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "TRACE {Option Global-Value}* {Name {Option Value}*}*\n"
 "   TRACE is a debugging tool that prints information when specified "
@@ -11649,64 +11841,169 @@ msgid ""
 "   -ALL forms are evaluated in the null environment."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid "Function is not TRACE'd -- ~S."
 msgstr ""
 
-#: target:code/ntrace.lisp
+#: src/code/ntrace.lisp
 msgid ""
 "Removes tracing from the specified functions.  With no args, untraces all\n"
 "   functions."
 msgstr ""
 
-#: target:code/sort.lisp
+#: src/code/profile.lisp
+msgid "List of functions that are currently being timed."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid "A list of profiled functions which weren't called."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"If the number of profiled functions that were not called is less than\n"
+"this, the functions are listed.  If NIL, then always list the functions."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)"
+msgstr ""
+
+#: src/code/profile.lisp
+msgid "dfixnum became too big ~a/~a + ~a/~a"
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Ensure that a profile fwrapper for functions with NREQ required\n"
+"   arguments and optional arguments according to OPTIONALS-P exists.\n"
+"   Return the name of that fwrapper."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid "Return the profile FWRAPPER object on function NAME, if any."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Return the PROFILE-INFO for function NAME.\n"
+"   Signal an error if NAME is not profiled."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"PROFILE Name*\n"
+"   Wraps profiling code around the named functions.  As in TRACE, the names "
+"are\n"
+"   not evaluated.  If a function is already profiled, then unprofile and\n"
+"   reprofile (useful to notice function redefinition.)  If a name is "
+"undefined,\n"
+"   then we give a warning and ignore it.\n"
+"\n"
+"   CLOS methods can be profiled by specifying names of the form\n"
+"   (METHOD <name> <qualifier>* (<specializer>*)), like in TRACE.\n"
+"\n"
+"   :METHODS Function-Form is a way of specifying that all methods of a\n"
+"   generic functions should be profiled.  The Function-Form is\n"
+"   evaluated immediately, and the methods of the resulting generic\n"
+"   function are profiled.\n"
+"\n"
+"   If :CALLERS T appears, subsequent names have counts of the most\n"
+"   common calling functions recorded.\n"
+"\n"
+"   See also UNPROFILE, REPORT-TIME and RESET-TIME."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"PROFILE-ALL\n"
+"\n"
+" Wraps profiling code around all functions in PACKAGE, which defaults\n"
+" to *PACKAGE*. If a function is already profiled, then unprofile and\n"
+" reprofile (useful to notice function redefinition.)  If a name is\n"
+" undefined, then we give a warning and ignore it.  If CALLERS-P is T\n"
+" names have counts of the most common calling functions recorded.\n"
+"\n"
+" When called with arguments :METHODS T, profile all methods of all\n"
+" generic function having names in the given package.  Generic functions\n"
+" themselves, that is, their dispatch functions, are left alone.\n"
+"\n"
+" See also UNPROFILE, REPORT-TIME and RESET-TIME. "
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Unwraps the profiling code around the named functions.  Names defaults to\n"
+"  the list of all currently profiled functions."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Resets the time counter for the named functions.  Names defaults to the "
+"list\n"
+"  of all currently profiled functions."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Reports the time spent in the named functions.  Names defaults to the list\n"
+"  of all currently profiled functions."
+msgstr ""
+
+#: src/code/profile.lisp
+msgid ""
+"Reports the time spent in the named functions.  Names defaults to the list\n"
+"  of all currently profiled functions.  Uses printfunction."
+msgstr ""
+
+#: src/code/sort.lisp
 msgid ""
 "Destructively sorts sequence.  Predicate should returns non-Nil if\n"
 "   Arg1 is to precede Arg2."
 msgstr ""
 
-#: target:code/sort.lisp
+#: src/code/sort.lisp
 msgid "~S is not a sequence."
 msgstr ""
 
-#: target:code/sort.lisp
+#: src/code/sort.lisp
 msgid ""
 "The sequences Sequence1 and Sequence2 are destructively merged into\n"
 "   a sequence of type Result-Type using the Predicate to order the elements."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "The number of internal time units that fit into a second.  See\n"
 "  Get-Internal-Real-Time and Get-Internal-Run-Time."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Return the real time in the internal time format.  This is useful for\n"
 "  finding elapsed time.  See Internal-Time-Units-Per-Second."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Return the run time in the internal time format.  This is useful for\n"
 "  finding CPU usage."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Returns a single integer for the current time of\n"
 "   day in universal time format."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Returns nine values specifying the current time as follows:\n"
 "   second, minute, hour, date, month, year, day of week (0 = Monday), T\n"
 "   (daylight savings times) or NIL (standard time), and timezone."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Converts a universal-time to decoded time format returning the following\n"
 "   nine values: second, minute, hour, date, month, year, day of week (0 =\n"
@@ -11714,23 +12011,23 @@ msgid ""
 "   Completely ignores daylight-savings-time when time-zone is supplied."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "The time values specified in decoded format are converted to \n"
 "   universal time, which is returned."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid "Evaluates the Form and prints timing information on *Trace-Output*."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "TIME form in a non-null environment, forced to interpret.~@\n"
 "\t       Compiling entire form will produce more accurate times."
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "Evaluation took:~%  ~\n"
 "\t\t     ~S seconds of real time~%  ~\n"
@@ -11738,7 +12035,7 @@ msgid ""
 "\t\t     ~S seconds of system run time~%  "
 msgstr ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid ""
 "~:D ~A cycle~%  ~\n"
 "\t\t     ~@[[Run times include ~S seconds GC run time]~%  ~]"
@@ -11748,439 +12045,439 @@ msgid_plural ""
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid "~S page fault and~%  "
 msgid_plural "~S page faults and~%  "
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/time.lisp
+#: src/code/time.lisp
 msgid "~:D byte consed.~%"
 msgid_plural "~:D bytes consed.~%"
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/weak.lisp
+#: src/code/weak.lisp
 msgid "Allocates and returns a weak pointer which points to OBJECT."
 msgstr ""
 
-#: target:code/weak.lisp
+#: src/code/weak.lisp
 msgid ""
 "If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.\n"
 "   If the referent of WEAK-POINTER has been garbage collected, returns\n"
 "   the values NIL and NIL."
 msgstr ""
 
-#: target:code/weak.lisp
+#: src/code/weak.lisp
 msgid "Updates WEAK-POINTER to point to a new object."
 msgstr ""
 
-#: target:code/final.lisp
+#: src/code/final.lisp
 msgid ""
 "Arrange for FUNCTION to be called when there are no more references to\n"
 "   OBJECT.  FUNCTION takes no arguments."
 msgstr ""
 
-#: target:code/final.lisp
+#: src/code/final.lisp
 msgid "Cancel any finalization registers for OBJECT."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Depth of recursive descriptions allowed."
 msgstr "허용되는 재귀적인 묘사의 깊이."
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "If non-nil, descriptions may provide interpretations of information and\n"
 "  pointers to additional information.  Normally nil."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "*print-level* gets bound to this inside describe.  If null, use\n"
 "  *print-level*"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "*print-length* gets bound to this inside describe.  If null, use\n"
 "  *print-length*."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Number of spaces that sets off each line of a recursive description."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Used to tell whether we are doing a recursive describe."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Used to implement recursive description cutoff.  Don't touch."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "An output stream used by Describe for indenting and stuff."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "List of all objects describe within the current top-level call to describe."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "The last object passed to describe."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Prints a description of the object X."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "*describe-level* should be a nonnegative integer - ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is a ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its code is #x~4,'0x."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its name is ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a ~:[high (leading)~;low (trailing)~] surrogate character."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is a ~(~A~) of type ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is a ~:[~;displaced ~]vector of length ~D."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It has a fill pointer, currently ~d"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It has no fill pointer."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is ~:[an~;a displaced~] array of rank ~A"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~%Its dimensions are ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its element type is specialized to ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is adjustable."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is static."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a prime number."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a composite number."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its components are ~S and ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~S is an ~A hash table."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its size is ~D buckets."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its rehash-size is ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its rehash-threshold is ~S."
 msgstr ""
 
-#: target:pcl/env.lisp target:code/describe.lisp
+#: src/pcl/env.lisp src/code/describe.lisp
 msgid "~&It currently holds ~d entries."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is weak ~A table."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~d symbols total: ~d internal and ~d external."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~@(~A documentation:~)~&  ~A"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its ~(~A~) argument types are:~%  ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its result type is:~%  ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid ""
 "~&It is currently declared ~(~A~);~\n"
 "\t\t ~:[no~;~] expansion is available."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~@(~@[~A ~]arguments:~%~)"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "  There are no arguments."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its closure environment is:"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its definition is:~%  ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&On ~A it was compiled from:"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~A~%  Created: "
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&  Comment: ~A"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "  There is no argument information available."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Macro-function: ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Function: ~S"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~S is a function."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is an unknown type of function."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~A is an ~A symbol in the ~A package."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~A is an uninterned symbol."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&~@<It is an alien at #x~8,'0X of type ~3I~:_~S.~:>~%"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~@<Its current value is ~3I~:_~S.~:>"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a ~A with expansion: ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a ~A; its value is ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is a ~A; no current value."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its declared type is ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Special form"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Structure"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Type"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "Setf macro"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Documentation on the ~(~A~):~%~A"
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It names a class ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It names a PCL class ~A."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It names a type specifier."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&Its ~S property is ~S."
 msgstr ""
 
-#: target:code/describe.lisp
+#: src/code/describe.lisp
 msgid "~&It is defined in:~&~A"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%That slot is unbound.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%This object contains nothing to inspect.~%~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%Enter a VALID number (~:[0-~D~;0~]).~%~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%Bottom of Stack.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~%Returning to INSPECTOR.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "TTY-Inspector Help:"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  R           -  recompute current object."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  D           -  redisplay current object."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  U           -  Move upward through the object stack."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  <number>    -  Inspect this slot."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  Q, E        -  Quit TTY-INSPECTOR."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "  ?, H, Help  -  Show this help."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Unbound"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~s is a symbol.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Value"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Function"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Plist"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Package"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~s is an instance of ~s.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "- (slot is unbound)"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "~s is a ~(~A~).~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Function ~s.~@[~%Argument List: ~a~]."
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Object is a ~:[~;displaced ~]vector of length ~d.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Object is a LIST of length ~d.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Object is a CONS.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid ""
 "Object is ~:[a displaced~;an~] array of ~a.~%~\n"
 "                       Its dimensions are ~s.~%"
 msgstr ""
 
-#: target:code/tty-inspect.lisp
+#: src/code/tty-inspect.lisp
 msgid "Object is an atom.~%"
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid ""
 "Format-Universal-Time formats a string containing the time and date\n"
 "   given by universal-time in a common manner.  The destination is any\n"
@@ -12196,27 +12493,27 @@ msgid ""
 "   printing of the obvious part of the time/date."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Not a valid format destination."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Universal-Time should be an integer."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Timezone should be a rational between -24 and 24."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Timezone is not a second (1/3600) multiple."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Unrecognized :style keyword value."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid ""
 "Format-Decoded-Time formats a string containing decoded-time\n"
 "   expressed in a humanly-readable manner.  The destination is any\n"
@@ -12230,79 +12527,79 @@ msgid ""
 "   parts of the string."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Seconds should be an integer between 0 and 59."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Minutes should be an integer between 0 and 59."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Hours should be an integer between 0 and 23."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Day should be an integer between 1 and 31."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Month should be an integer between 1 and 12."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Hours should be an non-negative integer."
 msgstr ""
 
-#: target:code/format-time.lisp
+#: src/code/format-time.lisp
 msgid "~A: Timezone should be an integer between 0 and 32."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid ""
 "If t, an error will be signalled if parse-time is unable\n"
 "   to determine the time/date format of the string."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "\"~A\" is not a recognized word or abbreviation."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid ""
 "Can't parse time/date string.~%>>> ~A~\n"
 "\t\t\t\t   ~%~VT^-- Bogus character encountered here."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Unrecognized symbol: ~A"
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "~D is not an AM hour, dummy."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "~A isn't AM/PM - this shouldn't happen."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Invalid number of days (~D) for month ~D in ~D"
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Ignore."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Specified day (~@(~A~)) doesn't match actual day (~@(~A~))"
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "Unrecognized symbol in form list: ~A."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid ""
 "Tries very hard to make sense out of the argument time-string and\n"
 "   returns a single integer representing the universal time if\n"
@@ -12315,33 +12612,33 @@ msgid ""
 "   are 00:00:00 on the current date, current time-zone."
 msgstr ""
 
-#: target:code/parse-time.lisp
+#: src/code/parse-time.lisp
 msgid "\"~A\" is not a recognized time/date format."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Return any available status information on child processed. "
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "List of process structures for all active processes."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/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
+#: src/code/run-program.lisp
 msgid "Wait for PROC to quit running for some reason.  Returns PROC."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "TIOCPGRP ioctl failed: ~S"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/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"
@@ -12350,42 +12647,42 @@ msgid ""
 "   in the foreground."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Returns T if the process is still alive, NIL otherwise."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid ""
 "Close all streams connected to PROC and stop maintaining the status slot."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/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
+#: src/code/run-program.lisp
 msgid ""
 "List of file descriptors to close when RUN-PROGRAM returns in the parent."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "List of handlers installed by RUN-PROGRAM."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Returns the master fd, the slave fd, and the name of the tty"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not find a pty."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not UNIX:UNIX-DUP ~D: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/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"
@@ -12446,71 +12743,78 @@ msgid ""
 "        process changes.  The function takes the process as an argument."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "All args to program must be simple strings -- ~S."
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "No such program: ~S"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not fork child process: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not select on sub-process: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not read input from sub-process: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not open \"/dev/null\": ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not create pipe: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Direction must be either :INPUT or :OUTPUT, not ~S"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not duplicate file descriptor: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Could not open a temporary file in /tmp"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Cound not create pipe: ~A"
 msgstr ""
 
-#: target:code/run-program.lisp
+#: src/code/run-program.lisp
 msgid "Invalid option to run-program: ~S"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
+msgid ""
+"If not NIL, this must be a list of two things:\n"
+"a LET-like macro, and a SETQ-like macro, which perform LOOP-style "
+"destructuring."
+msgstr ""
+
+#: src/code/loop.lisp
 msgid "LOOP-BODY called with non-synched before- and after-loop lists."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~?~%Current LOOP context:~{ ~S~}."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "LOOP couldn't verify that ~S is a subtype of the required type ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Specified data type ~S is not a subtype of ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "Causes the iteration to terminate \"normally\", the same as implicit\n"
 "termination by an iteration driving clause, or by use of WHILE or\n"
@@ -12518,226 +12822,226 @@ msgid ""
 "collected result will be returned as the value of the LOOP."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where LOOP keyword expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S is an unknown keyword in LOOP macro."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "LOOP source code ran out when another token was expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Compound form expected, but found ~A."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "LOOP code ran out where a form was expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "LOOP clause is providing a value for the iteration,~@\n"
 "\t        however one was already established by a ~S clause."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a conditional."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "This LOOP clause is not permitted with anonymous collectors."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "This anonymous collection LOOP clause is not permitted with aggregate "
 "booleans."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern "
 "expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where a LOOP keyword or LOOP type keyword expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Destructuring type pattern ~S contains unrecognized type keyword ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Destructuring type pattern ~S doesn't match variable pattern ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Duplicated LOOP iteration variable ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Duplicated variable ~S in LOOP parallel binding."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Bad variable ~S somewhere in LOOP."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Variable ~S has already been used"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Invalid LOOP variable passed in: ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where keyword expected getting LOOP clause after ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S does not introduce a LOOP clause that can follow ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S is an invalid name for your LOOP."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "The NAMED ~S clause occurs too late."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Value accumulation recipient name, ~S, is not a symbol."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Variable ~S cannot be used in INTO clause"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "Incompatible kinds of LOOP value accumulation specified for collecting~@\n"
 "\t\t    ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "Unequal datatypes specified in different LOOP value accumulations~@\n"
 "\t\t   into ~S: ~S and ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Iteration in LOOP follows body code."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S is an unknown keyword in FOR or AS clause in LOOP."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Use of QUOTE around stepping function in LOOP will be left verbatim."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where ITS or EACH expected in LOOP iteration path syntax."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Unrecognizable LOOP iteration path syntax.  Missing EACH or THE?"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S found where a LOOP iteration path name was expected."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "~S is not the name of a LOOP iteration path."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "\"Inclusive\" iteration is not possible with the ~S LOOP iteration path."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Unused USING variables: ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "Value passed back by LOOP iteration path function for path ~S has invalid "
 "length."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "A ~S prepositional phrase occurs multiply for some LOOP clause."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Preposition ~S used when some other preposition has subsumed it."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "The variable substitution for ~S occurs twice in a USING phrase,~@\n"
 "\t\t        with ~S and ~S."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid ""
 "~S invalid preposition in sequencing or sequence path.~@\n"
 "\t       Invalid prepositions specified in iteration path descriptor or "
 "something?"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Conflicting stepping directions in LOOP sequencing path"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Missing OF or IN phrase in sequence path"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Don't know where to start stepping."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Too many prepositions!"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Missing OF or IN in ~S iteration path."
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Unknown preposition ~S"
 msgstr ""
 
-#: target:code/loop.lisp
+#: src/code/loop.lisp
 msgid "Destructuring is not valid for package symbol iteration."
 msgstr ""
 
-#: target:code/stream-vector-io.lisp
+#: src/code/stream-vector-io.lisp
 msgid "endian-swap ~a is illegal for element-type of vector ~a"
 msgstr ""
 
-#: target:code/stream-vector-io.lisp
+#: src/code/stream-vector-io.lisp
 msgid ""
 "Read from Stream into Vector.  The Start and End indices of Vector\n"
 "  is in octets, and must be an multiple of the octets per element of\n"
@@ -12745,11 +13049,11 @@ msgid ""
 "  endian swapping to be done. "
 msgstr ""
 
-#: target:code/stream-vector-io.lisp
+#: src/code/stream-vector-io.lisp
 msgid "Wrong vector type ~a for read-vector on stream ~a."
 msgstr ""
 
-#: target:code/stream-vector-io.lisp
+#: src/code/stream-vector-io.lisp
 msgid ""
 "Write Vector to Stream.  The Start and End indices of Vector is in\n"
 "  octets, and must be an multiple of the octets per element of the\n"
@@ -12757,61 +13061,33 @@ msgid ""
 "  endian swapping to be done. "
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Could not create temporary file ~S: ~A"
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid "Not enough memory left."
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Make sure the header starts with the ELF magic value."
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Return the `osabi' field in the padding of the ELF file."
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Given a file type number, determine whether the file is executable."
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Make sure the header starts with the mach-o magic value."
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ";;; Loading object file...~%"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "Could not open ~S: ~A"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "~A is not an ELF file."
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "~A is not a ~A executable, it's a ~A executable."
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "~A is not executable."
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ""
 "Parse symbol table file created by load-foreign script.  Modified\n"
 "to skip undefined symbols which don't have an address."
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ";;; Parsing symbol table...~%"
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ""
 "Load-foreign loads a list of C object files into a running Lisp.  The files\n"
 "  argument should be a single file or a list of files.  The files may be\n"
@@ -12828,369 +13104,345 @@ msgid ""
 "  the linker.  The default is the environment passed to Lisp."
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ";;; Running library:load-foreign.csh...~%"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid ""
-"Object file is wrong format, so can't load-foreign:~\n"
-"\t\t  ~%  ~S"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid ""
-"Object file is not relocatable, so can't load-foreign:~\n"
-"\t\t  ~%  ~S"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "Could not run library:load-foreign.csh"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid "library:load-foreign.csh failed:~%~A"
-msgstr ""
-
-#: target:code/foreign.lisp
-msgid ";;; Done.~%"
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Lazy function call binding"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Immediate function call binding"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Mask of binding time value"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ""
 "If set the symbols of the loaded object and its dependencies are\n"
 "   made visible as if the object were linked directly into the program"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
+msgid ""
+"Load C object files into the running Lisp. The FILES argument\n"
+"should be a single file or a list of files. The files may be specified\n"
+"as namestrings or as pathnames. The LIBRARIES argument should be a\n"
+"list of library files as would be specified to ld. They will be\n"
+"searched in the order given. The default is just \"-lc\", i.e., the C\n"
+"library. The BASE-FILE argument is used to specify a file to use as\n"
+"the starting place for defined symbols. The default is the C start up\n"
+"code for Lisp. The ENV argument is the Unix environment variable\n"
+"definitions for the invocation of the linker. The default is the\n"
+"environment passed to Lisp."
+msgstr ""
+
+#: src/code/foreign.lisp
 msgid "Can't open global symbol table: ~S"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Can't open object ~S: ~S"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Couldn't open library ~S: ~S"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Reloaded library ~S~%"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Ignore library and continue"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Try reloading again"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Choose new library path"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Enter new library path: "
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ""
-"Load C object files into the running Lisp. The FILES argument\n"
-"should be a single file or a list of files. The files may be specified\n"
-"as namestrings or as pathnames. The LIBRARIES argument should be a\n"
-"list of library files as would be specified to ld. They will be\n"
-"searched in the order given. The default is just \"-lc\", i.e., the C\n"
-"library. The BASE-FILE argument is used to specify a file to use as\n"
-"the starting place for defined symbols. The default is the C start up\n"
-"code for Lisp. The ENV argument is the Unix environment variable\n"
-"definitions for the invocation of the linker. The default is the\n"
-"environment passed to Lisp."
+#: src/code/foreign.lisp
+msgid ";;; Opening as shared library ~A ...~%"
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid ";;; Opening as shared library ~A ...~%"
+#: src/code/foreign.lisp
+msgid ";;; Done.~%"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ";;; Trying as object file ~A...~%"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid ";;; Running ~A...~%"
 msgstr ""
 
-#: target:code/foreign.lisp
-msgid "File does not exist: ~A."
-msgstr ""
-
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "Could not run ~A"
 msgstr ""
 
-#: target:code/foreign.lisp
+#: src/code/foreign.lisp
 msgid "~A failed:~%~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/foreign.lisp
+msgid "File does not exist: ~A."
+msgstr ""
+
+#: src/code/internet.lisp
 msgid "AList of socket kinds and protocol values."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Invalid kind (~S) for internet domain sockets."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid ""
 "Return a host-entry for the given host. The host may be an address\n"
 "  string or an IP address in host order."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error creating socket: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error connecting socket to [~A]: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error binding socket to path ~a: ~a"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error listening to socket: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error accepting a connection: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "bind Socket to (local) Host and Port"
 msgstr ""
 
-#: target:code/internet.lisp
-msgid "Unknown host: ~S."
+#: src/code/internet.lisp
+msgid "Error binding socket to port ~A: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
-msgid "Error binding socket to port ~A: ~A"
+#: src/code/internet.lisp
+msgid "Unknown host: ~S."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "The host may be an address string or an IP address in host order."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error connecting socket to [~A:~A]: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Get an integer value socket option."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Set an integer value socket option."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error ~S setting socket option on socket ~D."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error closing socket: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Return the peer host address and port in host order."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error ~s getting peer host and port on FD ~d."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error ~s getting socket host and port on FD ~d."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Ignore it"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error recving oob data on ~A: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "No oob handler defined for ~S on ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Got a SIGURG, but couldn't find any out-of-band data."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Remove any handlers for CHAR on FD."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Remove all handlers for FD."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error sending ~S OOB to across ~A: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid ""
 "A packaging of the unix recvfrom call.  Returns three values:\n"
 "bytecount, source address as integer, and source port.  bytecount\n"
 "can of course be negative, to indicate faults."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "A packaging of the unix sendto call.  Return value like sendto"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid ""
 "A packaging of the unix shutdown call.  An error is signaled if shutdown "
 "fails."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Error on shutdown of socket: ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid ""
 "Return a network stream.  HOST may be an address string or an integer\n"
 "IP address."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "Unknown host format: ~S."
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "network connection to ~A"
 msgstr ""
 
-#: target:code/internet.lisp
+#: src/code/internet.lisp
 msgid "network connection from ~D.~D.~D.~D:~D"
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "The wire the form we are currently evaluating came across."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Unique identifier for this host."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Unique identifier for this process."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Hash table mapping local objects to the corresponding remote id."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Hash table mapping remote id's to the curresponding local object."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Next available id for remote objects."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "There is a problem with ~A."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Received EOF on ~A."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Error ~A ~A: ~A."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Returns T iff the given remote object is defined locally."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Returns T iff the two objects refer to the same (eq) object in the same\n"
 "  process."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Return the associated value for the given remote object. It is an error if\n"
 "  the remote object was not created in this process or if\n"
 "  FORGET-REMOTE-TRANSLATION has been called on this remote object."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "~S is defined is a different process."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Use the value of NIL"
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "No value for ~S -- FORGET-REMOTE-TRANSLATION was called to early."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Convert the given local object to a remote object."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Forget the translation from the given local to the corresponding remote\n"
 "object. Passing that remote object to remote-object-value will new return "
 "NIL."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Return T iff anything is in the input buffer or available on the socket."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "listening to"
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Read data off the socket, filling the input buffer. The buffer is cleared\n"
 "first. If fill-input-buffer returns, it is guarenteed that there will be at\n"
@@ -13198,15 +13450,15 @@ msgid ""
 "is signaled."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "reading"
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Return the next byte from the wire."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Read a number off the wire. Numbers are 4 bytes in network order.\n"
 "The optional argument controls weather or not the number should be "
@@ -13214,96 +13466,92 @@ msgid ""
 "signed (defaults to T)."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and\n"
 "   return it."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Reads a string from the wire. The first four bytes spec the size."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Reads the next object from the wire and returns it."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Attempt to read symbol, ~A, of wire into non-existent ~\n"
 "\t\t       package, ~A."
 msgstr ""
 
-#: target:code/wire.lisp
-msgid "writing"
-msgstr ""
-
-#: target:code/wire.lisp
-msgid "Not everything wrote."
-msgstr ""
-
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Send any info still in the output buffer down the wire and clear it. "
 "Nothing\n"
 "harmfull will happen if called when the output buffer is empty."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
+msgid "writing"
+msgstr ""
+
+#: src/code/wire.lisp
+msgid "Not everything wrote."
+msgstr ""
+
+#: src/code/wire.lisp
 msgid "Output the given (8-bit) byte on the wire."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Output the given (32-bit) number on the wire."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Outputs an arbitrary integer, but less effeciently than WIRE-OUTPUT-NUMBER."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Output the given string. First output the length using WIRE-OUTPUT-NUMBER,\n"
 "then output the bytes."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid ""
 "Output the given object on the given wire. If cache-it is T, enter this\n"
 "object in the cache for future reference."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Error: Cannot output objects of type ~s across a wire."
 msgstr ""
 
-#: target:code/wire.lisp
+#: src/code/wire.lisp
 msgid "Send the function and args down the wire as a funcall."
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/code/remote.lisp
 msgid "AList of wire . remote-wait structs"
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/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
+#: src/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
+#: src/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 "
@@ -13311,7 +13559,7 @@ msgid ""
 "  instead of returning."
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/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 "
@@ -13322,51 +13570,47 @@ msgid ""
 "   DESTROY-REQUEST-SERVER accepts to kill the request server."
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/code/remote.lisp
 msgid "Quit accepting connections to the given request server."
 msgstr ""
 
-#: target:code/remote.lisp
+#: src/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/setf-funs.lisp
-msgid "Hairy setf expander for function ~S."
-msgstr ""
-
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "Controls compiling DEFSTRUCT :print-function and :print-method\n"
 "   options according to ANSI spec. MUST be NIL to compile CMUCL & PCL"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Allocate a new instance with LENGTH data slots."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Given an instance, return its length."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Return the value from the INDEXth slot of INSTANCE.  This is SETFable."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Set the INDEXth slot of INSTANCE to NEW-VALUE."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Class not yet defined or was undefined: ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Class is not a structure class: ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "DEFSTRUCT {Name | (Name Option*)} {Slot | (Slot [Default] {Key Value}*)}\n"
 "   Define the structure type Name.  Instances are created by MAKE-<name>, "
@@ -13401,110 +13645,110 @@ msgid ""
 "       If true, no setter function is defined for this slot."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "defining structure ~A"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Disable package's definition lock then continue"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Defstruct already names a declaration: ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Can't have more than one :INCLUDE option."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "~S is a bad :TYPE for Defstruct."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "The Defstruct option :NAMED takes no arguments."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Unknown DEFSTRUCT option~%  ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Unrecognized DEFSTRUCT option: ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Can't specify :OFFSET unless :TYPE is specified."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Silly to specify :PRINT-FUNCTION with :TYPE."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Silly to specify :MAKE-LOAD-FORM-FUN with :TYPE."
 msgstr ""
 
-#: target:code/defstruct.lisp
-msgid ""
-"Keyword slot name indicates probable syntax ~\n"
-"\t\t      error in DEFSTRUCT -- ~S."
-msgstr ""
-
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Duplicate slot name ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Slot ~S must be read-only in subtype ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
+msgid ""
+"Keyword slot name indicates probable syntax ~\n"
+"\t\t      error in DEFSTRUCT -- ~S."
+msgstr ""
+
+#: src/code/defstruct.lisp
 msgid ":TYPE option mismatch between structures ~S and ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ":TYPE'd defstruct ~S not found for inclusion."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "(:CONSTRUCTOR NIL) combined with other :CONSTRUCTORs."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "~@<Non-overwritten accessor ~S does not access ~\n"
 "                        slot with name ~S (accessing an inherited slot ~\n"
 "                        instead).~:@>"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Obsolete structure accessor function called."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Structure for accessor ~S is not a ~S:~% ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Structure for setter ~S is not a ~S:~% ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "New-Value for setter ~S is not a ~S:~% ~S."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Structure for copier is not a ~S:~% ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "Shouldn't happen!  Some strange thing in LAYOUT-INFO:~\n"
 "\t\t    ~%  ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "Incompatibly redefining slots of structure class ~S~@\n"
 "\t  Make sure any uses of affected accessors are recompiled:~@\n"
@@ -13513,165 +13757,149 @@ msgid ""
 "\t  ~@[  These slots were deleted:~%    ~S~%~]"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "Redefining class ~S incompatibly with the current ~\n"
 "\t\tdefinition."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Invalidate already loaded code and instances, use new definition."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Previously loaded ~S accessors will no longer work."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid ""
 "Any old ~S instances will be in a bad way.~@\n"
 "\t       I hope you know what you're doing..."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Removing old subclasses of ~S:~%  ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Return a copy of Structure with the same (EQL) slot values."
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Copying an obsolete structure:~%  ~S"
 msgstr ""
 
-#: target:code/defstruct.lisp
+#: src/code/defstruct.lisp
 msgid "Structures of type ~S cannot be dumped as constants."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "A list of tests that do argument counting at expansion time."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Let bindings that are done to make lambda-list parsing possible."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Let bindings that the user has explicitly supplied."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Unsupplied optional and keyword arguments get this value defaultly."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ""
 "Returns as multiple-values a parsed body, any local-declarations that\n"
 "   should be made where this body is inserted, and a doc-string if there is\n"
 "   one."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "&Whole must appear first in ~S lambda-list."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "&environment not valid with ~S."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "&environment only valid at top level of lambda-list."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Invalid ~a"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Ignore extra noise."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ""
 "More than variable, initform, and suppliedp ~\n"
 "\t\t\t    in &optional binding - ~S"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Non-symbol in lambda-list - ~S."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Illegal optional variable name: ~S"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ""
 "Takes a non-keyword symbol, symbol, and returns the corresponding keyword."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Illegal or ill-formed ~A argument in ~A~@[ ~S~]."
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Error while parsing arguments to ~A in ~S:~%"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Error while parsing arguments to ~A ~S:~%"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Bogus sublist:~%  ~S~%to satisfy lambda-list:~%  ~:S~%"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ""
 "Invalid number of elements in:~%  ~:S~%~\n"
 "\t     to satisfy lambda-list:~%  ~:S~%"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Expected at least ~D"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Expected exactly ~D"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid "Expected between ~D and ~D"
 msgstr ""
 
-#: target:code/defmacro.lisp
+#: src/code/defmacro.lisp
 msgid ", but got ~D."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
-msgid "Type not defined yet."
-msgstr ""
-
-#: target:compiler/globaldb.lisp
-msgid "~S is not a defined info class."
-msgstr ""
-
-#: target:compiler/globaldb.lisp
-msgid "~S is not a defined info type."
-msgstr ""
-
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "Define-Info-Class Class\n"
 "  Define a new class of global information."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
-msgid "Out of INFO type numbers!"
-msgstr ""
-
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "Define-Info-Type Class Type default Type-Spec\n"
 "  Define a new type of global information for Class.  Type is the symbol "
@@ -13687,23 +13915,39 @@ msgid ""
 "  value of Info will also be true."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
+msgid "Type not defined yet."
+msgstr ""
+
+#: src/compiler/globaldb.lisp
+msgid "~S is not a defined info class."
+msgstr ""
+
+#: src/compiler/globaldb.lisp
+msgid "~S is not a defined info type."
+msgstr ""
+
+#: src/compiler/globaldb.lisp
+msgid "Out of INFO type numbers!"
+msgstr ""
+
+#: src/compiler/globaldb.lisp
 msgid "Redefine it."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "Changing type number for ~A ~A."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "Go for it."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "Reusing type number for ~A ~A."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "Return the information of the specified Type and Class for Name.\n"
 "   The second value is true if there is any such information recorded.  If\n"
@@ -13712,11 +13956,11 @@ msgid ""
 "   is NIL."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "Set the global information for Name."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "DO-INFO (Env &Key Name Class Type Value) Form*\n"
 "  Iterate over all the values stored in the Info-Env Env.  Name is bound to\n"
@@ -13724,32 +13968,32 @@ msgid ""
 "  (represented as strings), and Value is bound to the entry's value."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "Return a new compact info environment that holds the same information as\n"
 "  Env."
 msgstr ""
 
-#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+#: src/compiler/knownfun.lisp src/compiler/globaldb.lisp
 msgid "No info environment?"
 msgstr ""
 
-#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp
+#: src/compiler/knownfun.lisp src/compiler/globaldb.lisp
 msgid "Cannot modify this environment: ~S."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid "0 is not a legal INFO name."
 msgstr ""
 
-#: target:compiler/globaldb.lisp
+#: src/compiler/globaldb.lisp
 msgid ""
 "Clear the information of the specified Type and Class for Name in the\n"
 "  current environment, allowing any inherited info to become visible.  We\n"
 "  return true if there was any info."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "This function is to parse the declarations and doc-string out of the body "
 "of\n"
@@ -13764,91 +14008,87 @@ msgid ""
 "  and the doc-string, or NIL if none."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "defining macro ~A"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Disable the package's definition-lock then continue"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Define a compiler-macro for NAME."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:code/macros.lisp
+#: src/compiler/ir1tran.lisp src/code/macros.lisp
 msgid "Symbol macro name is not a symbol: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Symbol macro name already declared special: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Symbol macro name already declared constant: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Syntax like DEFMACRO, but defines a new type."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~S -- Type name not a symbol."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "defining type ~A"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Disable package's definition-lock then continue"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Deftype already names a declaration: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Illegal to redefine standard type: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
-msgid "Redefining class ~S to be a DEFTYPE."
-msgstr ""
-
-#: target:code/macros.lisp
-msgid "Setf expander for ~S cannot be called with ~S args."
+#: src/code/macros.lisp
+msgid "Redefining class ~S to be a DEFTYPE."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Syntax like DEFMACRO, but creates a Setf-Expansion generator.  The body\n"
 "  must be a form that returns the five magical values."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Obsolete, use define-setf-expander."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Defining setf macro for destruct slot accessor; redefining as ~\n"
 "\t        a normal function:~%  ~S"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Defining setf macro for ~S, but ~S is fbound."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "For defining global constants at top level.  The DEFCONSTANT says that the\n"
 "  value is constant and may be compiled into code.  If the variable already "
@@ -13858,15 +14098,15 @@ msgid ""
 "  argument is an optional documentation string for the variable."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Go ahead and change the value."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Constant ~S being redefined."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "For defining global variables at top level.  Declares the variable\n"
 "  SPECIAL and, optionally, initializes it.  If the variable already has a\n"
@@ -13874,7 +14114,7 @@ msgid ""
 "  documentation string for the variable."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Defines a parameter that is not normally changed by the program,\n"
 "  but that may be changed without causing an error.  Declares the\n"
@@ -13882,33 +14122,33 @@ msgid ""
 "  an optional documentation string for the parameter."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "First arg is a predicate.  If it is non-null, the rest of the forms are\n"
 "  evaluated as a PROGN."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "First arg is a predicate.  If it is null, the rest of the forms are\n"
 "  evaluated as a PROGN."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Cond clause is not a list: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Varlist is not a list of symbols: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Evaluates FORM and returns the Nth value (zero based).  This involves no\n"
 "  consing when N is a trivial constant integer."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Returns five values needed by the SETF machinery: a list of temporary\n"
 "   variables, a list of values with which to fill them, a list of "
@@ -13916,32 +14156,32 @@ msgid ""
 "   for the new values, the setting function, and the accessing function."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Obsolete: use GET-SETF-EXPANSION."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Obsolete: use GET-SETF-EXPANSION and handle multiple store values."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "GET-SETF-METHOD used for a form with multiple store ~\n"
 "\t      variables:~%  ~S"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Associates a SETF update function or macro with the specified access\n"
 "  function or macro.  The format is complex.  See the manual for\n"
 "  details."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Ill-formed DEFSETF for ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Takes pairs of arguments like SETQ.  The first is a place and the second\n"
 "  is the value that is supposed to go into that place.  Returns the last\n"
@@ -13949,11 +14189,11 @@ msgid ""
 "  knows a corresponding setting form."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Odd number of args to SETF."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "This is to SETF as PSETQ is to SETQ.  Args are alternating place\n"
 "  expressions and values to go into those places.  All of the subforms and\n"
@@ -13961,11 +14201,11 @@ msgid ""
 "  updated.  Returns NIL."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Odd number of args to PSETF."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "One or more SETF-style place expressions, followed by a single\n"
 "   value expression.  Evaluates all of the expressions in turn, then\n"
@@ -13973,7 +14213,7 @@ msgid ""
 "   returning the value of the leftmost."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Takes any number of SETF-style place expressions.  Evaluates all of the\n"
 "   expressions in turn, then assigns to each place the value of the form to\n"
@@ -13981,33 +14221,33 @@ msgid ""
 "   Returns NIL."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Creates a new read-modify-write macro like PUSH or INCF."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Non-symbol &rest arg in definition of ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Illegal stuff after &rest arg in Define-Modify-Macro."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~S not allowed in Define-Modify-Macro lambda list."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Illegal stuff in lambda list of Define-Modify-Macro."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Takes an object and a location holding a list.  Conses the object onto\n"
 "  the list, returning the modified list.  OBJ is evaluated before PLACE."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Takes an object and a location holding a list.  If the object is already\n"
 "  in the list, does nothing.  Else, conses the object onto the list.  "
@@ -14015,25 +14255,25 @@ msgid ""
 "  NIL.  If there is a :TEST keyword, this is used for the comparison."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The argument is a location holding a list.  Pops one item off the front\n"
 "  of the list and returns it."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The first argument is some location holding a number. This number is\n"
 "  incremented by the second argument, DELTA, which defaults to 1."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The first argument is some location holding a number. This number is\n"
 "  decremented by the second argument, DELTA, which defaults to 1."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Place may be any place expression acceptable to SETF, and is expected\n"
 "  to hold a property list or ().  This list is destructively altered to\n"
@@ -14041,18 +14281,18 @@ msgid ""
 "  property was present, NIL if not."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Setf of Apply is only defined for function args like #'symbol."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The first argument is a byte specifier.  The second is any place form\n"
 "  acceptable to SETF.  Replaces the specified byte of the number in this\n"
 "  place with bits from the low-order end of the new value."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The first argument is a byte specifier.  The second is any place form\n"
 "  acceptable to SETF.  Replaces the specified byte of the number in this "
@@ -14060,27 +14300,27 @@ msgid ""
 "  with bits from the corresponding position in the new value."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~S -- Bad clause in ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "No default clause allowed in ~S: ~S"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "T and OTHERWISE may not be used as key designators for ~A"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Bad style to use T or OTHERWISE in ECASE or CCASE"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Supply a new value for ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "CASE Keyform {({(Key*) | Key} Form*)}*\n"
 "  Evaluates the Forms in the first clause with a Key EQL to the value\n"
@@ -14088,7 +14328,7 @@ msgid ""
 "  a default clause."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "CCASE Keyform {({(Key*) | Key} Form*)}*\n"
 "  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
@@ -14096,14 +14336,14 @@ msgid ""
 "  signalled."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "ECASE Keyform {({(Key*) | Key} Form*)}*\n"
 "  Evaluates the Forms in the first clause with a Key EQL to the value of\n"
 "  Keyform.  If none of the keys matches then an error is signalled."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "TYPECASE Keyform {(Type Form*)}*\n"
 "  Evaluates the Forms in the first clause for which TYPEP of Keyform\n"
@@ -14111,7 +14351,7 @@ msgid ""
 "  clause is a default clause."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "CTYPECASE Keyform {(Type Form*)}*\n"
 "  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
@@ -14119,7 +14359,7 @@ msgid ""
 "  is true.  If no form is satisfied then a correctable error is signalled."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "ETYPECASE Keyform {(Type Form*)}*\n"
 "  Evaluates the Forms in the first clause for which TYPEP of Keyform and "
@@ -14127,7 +14367,7 @@ msgid ""
 "  is true.  If no form is satisfied then an error is signalled."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Signals an error if the value of test-form is nil.  Continuing from this\n"
 "   error using the CONTINUE restart will allow the user to alter the value "
@@ -14135,50 +14375,50 @@ msgid ""
 "   some locations known to SETF, starting over with test-form.  Returns nil."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "The assertion ~S failed."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Retry assertion"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid " with new value for ~{~S~^, ~}."
 msgid_plural " with new values for ~{~S~^, ~}."
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The old value of ~S is ~S.~\n"
 "\t\t  ~%Do you want to supply a new value? "
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "~&Type a form to be evaluated:~%"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Signals an error of type type-error if the contents of place are not of the\n"
 "   specified type.  If an error is signaled, this can only return if\n"
 "   STORE-VALUE is invoked.  It will store into place and start over."
 msgstr ""
 
-#: target:code/macros.lisp
-msgid "The value of ~S is ~S, which is not ~A."
+#: src/code/macros.lisp
+msgid "Supply a new value of ~S."
 msgstr ""
 
-#: target:code/macros.lisp
-msgid "The value of ~S is ~S, which is not of type ~S."
+#: src/code/macros.lisp
+msgid "The value of ~S is ~S, which is not ~A."
 msgstr ""
 
-#: target:code/macros.lisp
-msgid "Supply a new value of ~S."
+#: src/code/macros.lisp
+msgid "The value of ~S is ~S, which is not of type ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The file whose name is Filespec is opened using the Open-args and\n"
 "  bound to the variable Var. If the call to open is unsuccessful, the\n"
@@ -14186,27 +14426,27 @@ msgid ""
 "  terminate, normally or otherwise, the file is closed."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "The form stream should evaluate to a stream.  VAR is bound\n"
 "   to the stream and the forms are evaluated as an implicit\n"
 "   progn.  The stream is closed upon exit."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Binds the Var to an input stream that returns characters from String and\n"
 "  executes the body.  See manual for details."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "If STRING is specified, it must be a string with a fill pointer;\n"
 "   the output is incrementally appended to the string (as if by use of\n"
 "   VECTOR-PUSH-EXTEND)."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "DO ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
 "  Iteration construct.  Each Var is initialized in parallel to the value of "
@@ -14222,7 +14462,7 @@ msgid ""
 "  used as an laternate exit mechanism."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "DO* ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n"
 "  Iteration construct.  Each Var is initialized sequentially (like LET*) to "
@@ -14236,7 +14476,7 @@ msgid ""
 "  allowing RETURN to be used as an laternate exit mechanism."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "PSETQ {var value}*\n"
 "   Set the variables to the values, like SETQ, except that assignments\n"
@@ -14244,21 +14484,21 @@ msgid ""
 "   forms have been evaluated."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "variable ~S in PSETQ is not a SYMBOL"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Unknown declaration context: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "Context declaration spec should have context and at ~\n"
 "\t  least one DECLARE form:~%  ~S"
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid ""
 "WITH-COMPILATION-UNIT ({Key Value}*) Form*\n"
 "  This form affects compilations that take place within its dynamic extent.  "
@@ -14327,15 +14567,72 @@ msgid ""
 "\t    etc."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Odd number of key/value pairs: ~S."
 msgstr ""
 
-#: target:code/macros.lisp
+#: src/code/macros.lisp
 msgid "Ignoring unknown option: ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/code/intl.lisp
+msgid ""
+"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n"
+"  Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Encountered illegal token: ="
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Encountered illegal token: ~C"
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Expected : in ?: construct"
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Expected close-paren."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Unexpected token: ~S."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Expecting end of expression.  ~S."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid ""
+"Look up STRING in the current message domain and return its translation."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "Look up the singular or plural form of a message in the current domain."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid ""
+"Look up STRING in the specified message domain and return its translation."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid ""
+"Look up the singular or plural form of a message in the specified domain."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "_@ is a reserved reader macro prefix."
+msgstr ""
+
+#: src/code/intl.lisp
+msgid "~&Dumping ~D messages for domain ~S~%"
+msgstr ""
+
+#: src/compiler/macros.lisp
 msgid ""
 "Policy Node Condition*\n"
 "  Test whether some conditions apply to the current compiler policy for "
@@ -14355,11 +14652,11 @@ msgid ""
 "  conversion."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Can't funcall the SYMBOL-FUNCTION of special forms."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Def-IR1-Translator Name (Lambda-List Start-Var Cont-Var {Key Value}*)\n"
 "                      [Doc-String] Form*\n"
@@ -14373,12 +14670,7 @@ msgid ""
 "          The function kind to associate with Name (default :special-form)."
 msgstr ""
 
-#: target:compiler/ir2tran.lisp target:compiler/ltv.lisp
-#: target:compiler/ir1tran.lisp target:compiler/macros.lisp
-msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A."
-msgstr ""
-
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Def-Source-Transform Name Lambda-List Form*\n"
 "  Define a macro-like source-to-source transformation for the function "
@@ -14402,14 +14694,14 @@ msgid ""
 "  parameters, then the Policy macro should be used to determine when to pass."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Def-Primitive-Translator Name Lambda-List Form*\n"
 "  Define a function that converts a use of (%PRIMITIVE Name ...) into Lisp\n"
 "  code.  Lambda-List is a defmacro style lambda list."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)\n"
 "               Declaration* [Doc-String] Form*\n"
@@ -14492,11 +14784,11 @@ msgid ""
 "              byte-code or both (default :native.)"
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Can't specify both DEFUN-ONLY and EVAL-NAME."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Defknown Name Arg-Types Result-Type [Attributes] {Key Value}* \n"
 "  Declare the function Name to be a known function.  We construct a type\n"
@@ -14553,11 +14845,11 @@ msgid ""
 "  optimizers that the function might have."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Function cannot have both good and bad attributes: ~S"
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Defoptimizer (Function Kind) (Lambda-List [Node-Var] Var*)\n"
 "                Declaration* Form*\n"
@@ -14584,7 +14876,7 @@ msgid ""
 "  argument."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Blocks (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*\n"
 "  Iterate over the blocks in a component, binding Block-Var to each block "
@@ -14600,25 +14892,25 @@ msgid ""
 "  If supplied, Result-Form is the value to return."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Losing Ends value: ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Blocks-Backwards (Block-Var Component [Ends] [Result-Form]) {Declaration}"
 "* {Form}*\n"
 "  Like Do-Blocks, only iterate over the blocks in reverse order."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Uses (Node-Var Continuation [Result]) {Declaration}* {Form}*\n"
 "  Iterate over the uses of Continuation, binding Node to each one "
 "succesively."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Nodes (Node-Var Cont-Var Block {Key Value}*) {Declaration}* {Form}*\n"
 "  Iterate over the nodes in Block, binding Node-Var to the each node and\n"
@@ -14628,13 +14920,13 @@ msgid ""
 "  not supplied, this is an error.)"
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Do-Nodes-Backwards (Node-Var Cont-Var Block) {Declaration}* {Form}*\n"
 "  Like Do-Nodes, only iterates in reverse order."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "With-IR1-Environment Node Form*\n"
 "  Bind the IR1 context variables so that IR1 conversion can be done after "
@@ -14642,7 +14934,7 @@ msgid ""
 "  main conversion pass has finished."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "LEXENV-FIND Name Slot {Key Value}*\n"
 "  Look up Name in the lexical environment namespace designated by Slot,\n"
@@ -14650,11 +14942,11 @@ msgid ""
 "  may be used to determine the name equality predicate."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "If true, defprinter print functions print each slot on a separate line."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Defprinter Name Slot-Desc*\n"
 "  Define some kind of reasonable defstruct structure-print function.  Name\n"
@@ -14679,15 +14971,36 @@ msgid ""
 "  Stream."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Losing Defprinter option: ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Unknown attribute name: ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute test function.  See\n"
+"\t    Def-Boolean-Attribute."
+msgstr ""
+
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute setter.  See\n"
+"\t    Def-Boolean-Attribute."
+msgstr ""
+
+#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
+#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp
+msgid ""
+"Automagically generated boolean attribute creation function.  See\n"
+"\t    Def-Boolean-Attribute."
+msgstr ""
+
+#: src/compiler/macros.lisp
 msgid ""
 "Def-Boolean-Attribute Name Attribute-Name*\n"
 "  Define a new class of boolean attributes, with the attributes havin the\n"
@@ -14706,59 +15019,41 @@ msgid ""
 "      Return a set of the named attributes."
 msgstr ""
 
-#: target:compiler/macros.lisp
-msgid ""
-"Automagically generated boolean attribute test function.  See\n"
-"\t    Def-Boolean-Attribute."
-msgstr ""
-
-#: target:compiler/macros.lisp
-msgid ""
-"Automagically generated boolean attribute setter.  See\n"
-"\t    Def-Boolean-Attribute."
-msgstr ""
-
-#: target:compiler/macros.lisp
-msgid ""
-"Automagically generated boolean attribute creation function.  See\n"
-"\t    Def-Boolean-Attribute."
-msgstr ""
-
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Returns the union of all the sets of boolean attributes which are its\n"
 "  arguments."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Returns the intersection of all the sets of boolean attributes which are "
 "its\n"
 "  arguments."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Returns true if the attributes present in Attr1 are indentical to those in\n"
 "  Attr2."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "~S is not the name of an event."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Return the number of times that Event has happened."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Return the function that is called when Event happens.  If this is null,\n"
 "  there is no action.  The function is passed the node to which the event\n"
 "  happened, or NIL if there is no relevant node.  This may be set with SETF."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Return the non-negative integer which represents the level of significance\n"
 "  of the event Name.  This is used to determine whether to print a message "
@@ -14766,7 +15061,7 @@ msgid ""
 "  the event happens.  This may be set with SETF."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Defevent Name Description\n"
 "  Define a new kind of event.  Name is a symbol which names the event and\n"
@@ -14776,13 +15071,13 @@ msgid ""
 "  whether to print a Note when the event happens."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "This variable is a non-negative integer specifying the lowest level of\n"
 "  event that will print a Note when it occurs."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Event Name Node\n"
 "  Note that the event with the specified Name has happened.  Node is "
@@ -14790,7 +15085,7 @@ msgid ""
 "  to determine the node to which the event happened."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Print a listing of events and their counts, sorted by the count.  Events\n"
 "  that happened fewer than Min-Count times will not be printed.  Stream is "
@@ -14798,20 +15093,19 @@ msgid ""
 "  stream to write to."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Find Element in a null-terminated List linked by the accessor function\n"
 "  Next.  Key, Test and Test-Not are the same as for generic sequence\n"
 "  functions."
 msgstr ""
 
-#: target:compiler/debug.lisp target:compiler/pack.lisp
-#: target:compiler/represent.lisp target:compiler/copyprop.lisp
-#: target:compiler/life.lisp target:compiler/macros.lisp
+#: src/compiler/debug.lisp src/compiler/pack.lisp src/compiler/represent.lisp
+#: src/compiler/copyprop.lisp src/compiler/life.lisp src/compiler/macros.lisp
 msgid "Silly to supply both :Test and :Test-Not."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Return the position of Element (or NIL if absent) in a null-terminated List\n"
 "  linked by the accessor function Next.  Key, Test and Test-Not are the same "
@@ -14819,13 +15113,13 @@ msgid ""
 "  for generic sequence functions."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Map Function over the elements in a null-terminated List linked by the\n"
 "  accessor function Next, returning a list of the results."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Deletef-In Next Place Item\n"
 "  Delete Item from a null-terminated list linked by the accessor function "
@@ -14833,203 +15127,288 @@ msgid ""
 "  that is stored in Place.  Item must appear exactly once in the list."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Push Item onto a list linked by the accessor function Next that is stored "
 "in\n"
 "  Place."
 msgstr ""
 
-#: target:compiler/debug-dump.lisp target:compiler/checkgen.lisp
-#: target:compiler/ir1util.lisp target:compiler/meta-vmdef.lisp
-#: target:compiler/macros.lisp
-msgid "Shouldn't happen?"
-msgstr ""
-
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid "Redefining modular version ~S of ~S for width ~S."
 msgstr ""
 
-#: target:compiler/macros.lisp
+#: src/compiler/macros.lisp
 msgid ""
 "Lambda list keyword ~S is not supported for ~\n"
 "              modular function lambda lists."
 msgstr ""
 
-#: target:compiler/generic/vm-macs.lisp
+#: src/compiler/generic/vm-macs.lisp
 msgid "No more slots can follow a :rest-p slot."
 msgstr ""
 
-#: target:compiler/generic/vm-macs.lisp
+#: src/compiler/generic/vm-macs.lisp
 msgid ""
 "Number of slots used by each ~S~\n"
 "\t\t\t\t  ~@[~* including the header~]."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid ""
 "Machine specific support routine ~S ~\n"
 "\t\t\t\t  undefined for ~S"
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "Unknown VM support routine: ~A"
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "The backend for the machine we are running on. Do not change this."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "The backend we are attempting to compile."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "The backend we are using to compile with."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "Compute the *FEATURES* list to use with BACKEND."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid ""
 "Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid "Same as EXT:FEATUREP, except use the features found in *BACKEND*."
 msgstr ""
 
-#: target:compiler/backend.lisp
+#: src/compiler/backend.lisp
 msgid ""
 "Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/x86/parms.lisp
+msgid "Number of bits per word where a word holds one lisp descriptor."
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid ""
+"Number of bits per byte where a byte is the smallest addressable object."
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bits needed to represent a character"
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bytes needed to represent a character"
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bits to shift between word addresses and byte addresses."
+msgstr ""
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bytes in a word."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
 msgid "Number of bits at the low end of a pointer used for type information."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "Mask to extract the low tag bits from a pointer."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid ""
 "Exclusive upper bound on the value of the low tag bits from a\n"
 "  pointer."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "Number of bits used in the header word of a data block for typeing."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "Mask to extract the type from a header word."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "most-positive-fixnum in the target architecture."
 msgstr ""
 
-#: target:compiler/generic/objdef.lisp
+#: src/compiler/generic/objdef.lisp
 msgid "most-negative-fixnum in the target architecture."
 msgstr ""
 
-#: target:compiler/generic/interr.lisp
-msgid "Unknown internal error: ~S"
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each CONS."
 msgstr ""
 
-#: target:compiler/bit-util.lisp
-msgid "local-tn-limit not a vm:word-bits multiple."
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each RATIO including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each SINGLE-FLOAT including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each DOUBLE-FLOAT including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each COMPLEX including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each FDEFN including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each VALUE-CELL including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each SAP including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each WEAK-POINTER including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each SCAVENGER-HOOK including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each BINDING."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each UNWIND-BLOCK."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each CATCH-BLOCK."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each SYMBOL including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each COMPLEX-SINGLE-FLOAT including the header."
 msgstr ""
 
-#: target:compiler/pack.lisp target:compiler/generic/vm-tran.lisp
-#: target:compiler/life.lisp target:compiler/bit-util.lisp
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each COMPLEX-DOUBLE-FLOAT including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
+msgid "Number of slots used by each DOUBLE-DOUBLE-FLOAT including the header."
+msgstr ""
+
+#: src/compiler/generic/objdef.lisp
 msgid ""
-"Argument and/or result bit arrays not the same length:~\n"
-"\t\t\t ~%  ~S~%  ~S  ~%  ~S"
+"Number of slots used by each COMPLEX-DOUBLE-DOUBLE-FLOAT including the "
+"header."
 msgstr ""
 
-#: target:compiler/ctype.lisp
-msgid "Function has an odd number of arguments in the keyword portion."
+#: src/compiler/generic/interr.lisp
+msgid "Unknown internal error: ~S"
 msgstr ""
 
-#: target:compiler/ctype.lisp
-msgid "Can't tell whether the result is a ~S."
+#: src/compiler/bit-util.lisp
+msgid "local-tn-limit not a vm:word-bits multiple."
 msgstr ""
 
-#: target:compiler/ctype.lisp
-msgid "The result is a ~S, not a ~S."
+#: src/compiler/pack.lisp src/compiler/life.lisp src/compiler/bit-util.lisp
+msgid ""
+"Argument and/or result bit arrays not the same length:~\n"
+"\t\t\t ~%  ~S~%  ~S  ~%  ~S"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 #, fuzzy
 msgid "Function called with ~R argument, but wants exactly ~R."
 msgid_plural "Function called with ~R arguments, but wants exactly ~R."
 msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
 msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 #, fuzzy
 msgid "Function called with ~R argument, but wants at least ~R."
 msgid_plural "Function called with ~R arguments, but wants at least ~R."
 msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
 msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 #, fuzzy
 msgid "Function called with ~R argument, but wants at most ~R."
 msgid_plural "Function called with ~R arguments, but wants at most ~R."
 msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
 msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
+msgid "Function has an odd number of arguments in the keyword portion."
+msgstr ""
+
+#: src/compiler/ctype.lisp
+msgid "Can't tell whether the result is a ~S."
+msgstr ""
+
+#: src/compiler/ctype.lisp
+msgid "The result is a ~S, not a ~S."
+msgstr ""
+
+#: src/compiler/ctype.lisp
 msgid "Can't tell whether the ~:R argument is a ~S."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument is a ~S, not a ~S."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument never returns a value."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument is not a constant."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid ""
 "Can't tell whether the ~:R argument is a ~\n"
 "\t\t             constant ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument is not a constant ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The ~:R argument (in keyword position) is not a constant."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "The value of ~S is not a constant"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "~S is not a known argument keyword."
 msgstr ""
 
-#: target:compiler/ctype.lisp
-#, fuzzy
-msgid ""
-"Function previously called with an odd number of arguments in ~\n"
-"\t      the keyword portion."
-msgstr "현재의 역동적인 공간은 ~D입니다.~%"
-
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 #, fuzzy
 msgid "Function previously called with ~R argument, but wants at least ~R."
 msgid_plural ""
@@ -15037,7 +15416,7 @@ msgid_plural ""
 msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
 msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 #, fuzzy
 msgid "Function previously called with ~R argument, but wants at most ~R."
 msgid_plural ""
@@ -15045,115 +15424,120 @@ msgid_plural ""
 msgstr[0] "현재의 역동적인 공간은 ~D입니다.~%"
 msgstr[1] "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
+#, fuzzy
+msgid ""
+"Function previously called with an odd number of arguments in ~\n"
+"\t      the keyword portion."
+msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
+#: src/compiler/ctype.lisp
 msgid "Can't tell whether previous ~? argument type ~S is a ~S."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "~:(~?~) argument should be a ~S but was a ~S in a previous call."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Function previously called with unknown argument keyword ~S."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid ""
 "Definition's declared type for variable ~A:~%  ~S~@\n"
 "\t\t   conflicts with this type from ~A:~%  ~S"
 msgstr ""
 
-#.  Translate FIXED above appropriately.
-#: target:compiler/ctype.lisp
+#. updated to allow better translations.
+#: src/compiler/ctype.lisp
+msgid "Definition has ~R ~A arg, but ~A has ~R."
+msgid_plural "Definition has ~R ~A args, but ~A has ~R."
+msgstr[0] ""
+msgstr[1] ""
+
+#: src/compiler/ctype.lisp
 msgid "fixed"
 msgstr ""
 
-#.  Translate OPTIONAL above appropriately.
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "optional"
 msgstr ""
 
-#. updated to allow better translations.
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid ""
 "Definition ~:[doesn't have~;has~] ~A, but ~\n"
 "\t\t~A ~:[doesn't~;does~]."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "keyword args"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "rest args"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Defining a ~S keyword not present in ~A."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Definition lacks the ~S keyword present in ~A."
 msgstr ""
 
-#: target:compiler/ctype.lisp
-msgid "Definition has ~R ~A arg, but ~A has ~R."
-msgid_plural "Definition has ~R ~A args, but ~A has ~R."
-msgstr[0] ""
-msgstr[1] ""
-
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Definition has no ~A, but the ~A did."
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "optional args"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "rest arg"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid "Definition has ~R arg, but the ~A has ~R."
 msgid_plural "Definition has ~R args, but the ~A has ~R."
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:compiler/ctype.lisp
-msgid "previous declaration"
-msgstr ""
-
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid ""
 "The result type from ~A:~%  ~S~@\n"
 "\t   conflicts with the definition's result type assertion:~%  ~S"
 msgstr ""
 
-#: target:compiler/ctype.lisp
+#: src/compiler/ctype.lisp
 msgid ""
 "Assignment to argument: ~S~%  ~\n"
 "\t\t\t       prevents use of assertion from function ~\n"
 "\t\t\t       type ~A:~%  ~S~%"
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/ctype.lisp
+msgid "previous declaration"
+msgstr ""
+
+#: src/compiler/vmdef.lisp
 msgid "~S is not a defined template."
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/vmdef.lisp
 msgid "~S is not a defined storage class."
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/vmdef.lisp
 msgid "~S is not a defined storage base."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp target:compiler/vmdef.lisp
+#: src/compiler/meta-vmdef.lisp src/compiler/vmdef.lisp
 msgid "~S is not a defined primitive type."
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/vmdef.lisp
 msgid ""
 "NOTE-THIS-LOCATION VOP Kind\n"
 "  Note that the current code location is an interesting (to the debugger)\n"
@@ -15164,7 +15548,7 @@ msgid ""
 "  that the live set is computed."
 msgstr ""
 
-#: target:compiler/vmdef.lisp
+#: src/compiler/vmdef.lisp
 msgid ""
 "NOTE-NEXT-INSTRUCTION VOP Kind\n"
 "   Similar to NOTE-THIS-LOCATION, except the use the location of the next\n"
@@ -15172,7 +15556,7 @@ msgid ""
 "   it."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-Storage-Base Name Kind {Key Value}*\n"
 "  Define a storage base having the specified Name.  Kind may be :Finite,\n"
@@ -15184,15 +15568,15 @@ msgid ""
 "      :Unbounded SB."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Size specification meaningless in a ~S SB."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Size not specified in a ~S SB."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-Storage-Class Name Number Storage-Base {Key Value}*\n"
 "  Define a storage class Name that uses the named Storage-Base.  Number is "
@@ -15238,31 +15622,27 @@ msgid ""
 "      SC by a move function."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Alignment is not a power of two: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "SC element ~D out of bounds for ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ":Locations is meaningless in a ~S SB."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Reserve-Locations not a subset of Locations."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Meaningless to specify alternate or constant SCs in a ~S SB."
 msgstr ""
 
-#: target:compiler/x86/vm.lisp target:compiler/meta-vmdef.lisp
-msgid "Redefining SC number ~D from ~S to ~S."
-msgstr ""
-
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-Move-Function (Name Cost) lambda-list ({(From-SC*) (To-SC*)}*) form*\n"
 "  Define the function Name and note it as the function used for moving "
@@ -15276,11 +15656,11 @@ msgid ""
 "  DEFINE-VOP."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed SCs spec: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-Move-VOP Name {:Move | :Move-Argument} {(From-SC*) (To-SC*)}*\n"
 "  Make Name be the VOP used to move values in the specified From-SCs to the\n"
@@ -15289,11 +15669,11 @@ msgid ""
 "  an extra argument, which is the frame pointer of the frame to move into."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown kind ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Def-Primitive-Type Name (SC*) {Key Value}*\n"
 "   Define a primitive type Name.  Each SC specifies a Storage Class that "
@@ -15306,13 +15686,13 @@ msgid ""
 "      (defaults to Name.)"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "DEF-PRIMITIVE-TYPE-ALIAS Name Result\n"
 "  Define name to be an alias for Result in VOP operand type restrictions."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Primitive-Type-VOP Vop (Kind*) Type*\n"
 "  Annotate all the specified primitive Types with the named VOP under each "
@@ -15324,171 +15704,170 @@ msgid ""
 "      checking that the value is of this type in the process."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown kind: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Operand ~S isn't one of these kinds: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "~S is not an operand to ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "~S is not the name of a defined VOP."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "~:R argument missing: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Extra junk at end of ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "~:R argument is not a ~S: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed time specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown phase in time specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Cannot target a ~S operand: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/debug-dump.lisp src/compiler/checkgen.lisp
+#: src/compiler/ir1util.lisp src/compiler/meta-vmdef.lisp
+msgid "Shouldn't happen?"
+msgstr ""
+
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "No move function defined to ~:[save~;load~] SC ~S~\n"
 "\t\t\t  ~:[to~;from~] from SC ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Can't tell whether to ~:[save~;load~] with ~S~@\n"
 "\t\t\t\t or ~S when operand is in SC ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "SC ~S has no alternate~:[~; or constant~] SCs, yet it is~@\n"
 "\t          mentioned in the restriction for operand ~S."
 msgstr ""
 
-#: target:compiler/x86/nlx.lisp target:compiler/meta-vmdef.lisp
-msgid ""
-"Load TN allocated, but no move function?~@\n"
-"\t           VM definition inconsistent, recompile and try again."
-msgstr ""
-
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed operand specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "More operand isn't last: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Can only specify :FROM in a result: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Can only specify :TO in an argument: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown keyword in operand specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Cannot specify :TARGET in a :MORE operand."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Cannot specify :LOAD-IF in a :MORE operand."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed temporary spec: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed options list: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Odd number of arguments in keyword options: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Temporary spec allocates no temps:~%  ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Bad temporary name: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Must specify exactly one SC for a temporary."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown temporary option: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Temporary lifetime doesn't begin before it ends: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Must specifiy :SC for all temporaries: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Malformed option specification: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Unknown option specifier: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "No move function defined to move ~:[from~;to~] SC ~\n"
 "\t              ~S~%~:[to~;from~] alternate or constant SC ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Bad thing to be a operand type: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Bad PRIMITIVE-TYPE name in ~S: ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Can't include primitive-type ~\n"
 "\t\t\t\t             alias ~S in a :OR restriction: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Can't :CONSTANT for a result."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Bad :CONSTANT argument type spec: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "In the ~A ~:[result~;argument~] to VOP ~S,~@\n"
 "\t            none of the SCs allowed by the operand type ~S can ~\n"
@@ -15497,28 +15876,28 @@ msgid ""
 "\t\t    [* type operand must allow T's SCs.]~]"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "~:[Result~;Argument~] ~A to VOP ~S~@\n"
 "\t         has SC restriction ~S which is ~\n"
 "\t\t not allowed by the operand type:~%  ~S"
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
-msgid "Can't use :CONSTANT on VOP more args."
-msgstr ""
-
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Expected ~D ~:[result~;argument~] type: ~S."
 msgid_plural "Expected ~D ~:[result~;argument~] types: ~S."
 msgstr[0] ""
 msgstr[1] ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
+msgid "Can't use :CONSTANT on VOP more args."
+msgstr ""
+
+#: src/compiler/meta-vmdef.lisp
 msgid "Expected ~D variant values: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Define-VOP (Name [Inherits]) Spec*\n"
 "  Define the symbol Name to be a Virtual OPeration in the compiler.  If\n"
@@ -15697,14 +16076,14 @@ msgid ""
 "      frame."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Emit-Template Node Block Template Args Results [Info]\n"
 "  Call the emit function for Template, linking the result in at the end of\n"
 "  Block."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "VOP Name Node Block Arg* Info* Result*\n"
 "  Emit the VOP (or other template) Name at the end of the IR2-Block Block,\n"
@@ -15723,15 +16102,15 @@ msgid ""
 "  codegen info."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Cannot use VOP with variable operand count templates."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Called with ~D operands, but was expecting ~D."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "VOP* Name Node Block (Arg* More-Args) (Result* More-Results) Info*\n"
 "  Like VOP, but allows for emission of templates with arbitrary numbers of\n"
@@ -15751,19 +16130,19 @@ msgid ""
 "  arguments."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Too many fixed arguments."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Too many fixed results."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Expected ~D info args."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "SC-Case TN {({(SC-Name*) | SC-Name | T} Form*)}*\n"
 "  Case off of TN's SC.  The first clause containing TN's SC is evaulated,\n"
@@ -15774,37 +16153,27 @@ msgid ""
 "  clause matches, then an error is signalled."
 msgstr ""
 
-#: target:assembly/x86/arith.lisp target:assembly/x86/array.lisp
-#: target:assembly/x86/assem-rtns.lisp target:compiler/x86/type-vops.lisp
-#: target:compiler/x86/pred.lisp target:compiler/x86/print.lisp
-#: target:compiler/x86/nlx.lisp target:compiler/x86/values.lisp
-#: target:compiler/x86/subprim.lisp target:compiler/x86/static-fn.lisp
-#: target:compiler/x86/system.lisp target:compiler/x86/sap.lisp
-#: target:compiler/meta-vmdef.lisp
-msgid "Unknown SC to SC-Case for ~S:~%  ~S"
-msgstr ""
-
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "Illegal SC-Case clause: ~S."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid "T case is not last in SC-Case."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "SC-Is TN SC*\n"
 "  Returns true if TNs SC is any of the named SCs, false otherwise."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "Do-IR2-Blocks (Block-Var Component [Result]) Form*\n"
 "  Iterate over the IR2 blocks in component, in emission order."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "DO-LIVE-TNS (TN-Var Live Block [Result]) Form*\n"
 "  Iterate over all the TNs live at some point, with the live set represented "
@@ -15812,24 +16181,24 @@ msgid ""
 "  a local conflicts bit-vector and the IR2-Block containing the location."
 msgstr ""
 
-#: target:compiler/meta-vmdef.lisp
+#: src/compiler/meta-vmdef.lisp
 msgid ""
 "DO-ENVIRONMENT-IR2-BLOCKS (Block-Var Env [Result]) Form*\n"
 "  Iterate over all the IR2 blocks in the environment Env, in emit order."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "The width of the column in which instruction-names are printed.\n"
 "  NIL means use the default.  A value of zero gives the effect of not\n"
 "  aligning the arguments at all."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "The column in which end-of-line comments for notes are started."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Specify global disassembler params for C:*TARGET-BACKEND*.\n"
 "  Keyword arguments include:\n"
@@ -15845,7 +16214,7 @@ msgid ""
 "      instruction, or NIL to use the default."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "DEFINE-ARGUMENT-TYPE Name {Key Value}*\n"
 "  Define a disassembler argument type NAME (which can then be referenced in\n"
@@ -15878,7 +16247,7 @@ msgid ""
 "      value."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*\n"
 "  Define an instruction format NAME for the disassembler's use.  LENGTH is\n"
@@ -15942,94 +16311,94 @@ msgid ""
 "      label.  If this is a function, it is called to filter the value."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "~d bits is not a byte-multiple"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Return ADDRESS aligned *upward* to a SIZE byte boundary."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return\n"
 "  OLD-CONS, otherwise return (cons CAR CDR)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "A simple (one list arg) mapcar that avoids consing up a new list\n"
 "  as long as the results of calling FUN on the elements of LIST are\n"
 "  eq to the original."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Can't dump functions, so function ref form must be quoted: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown argument ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "~s must not have multiple values"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown arg-form kind ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Cannot label a multiple-field argument ~\n"
 "\t\t\t      unless using a function: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Bogus!  Can't use the :printed value of an arg!"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "number of constants doesn't match number of fields ~\n"
 "\t\t\t  in: (~s :constant~{ ~s~})"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Can't compare differently sized fields: ~\n"
 "\t\t          (~s :same-as ~s)"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Bogus test-form: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the first non-keyword symbol in a depth-first search of TREE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Illegal printer: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown printer element: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "First arg to :USING must be a string or #'function"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "No suitable choice found in ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns a version of the disassembly-template PRINTER with compile-time\n"
 "  tests (e.g. :constant without a value), and any :CHOOSE operators "
@@ -16039,94 +16408,86 @@ msgid ""
 "  which every field reference refers to a valid arg."
 msgstr ""
 
-#: target:compiler/disassem.lisp
-msgid "~&; Using cached function ~s~%"
-msgstr ""
-
-#: target:compiler/disassem.lisp
-msgid "~&; Making new function ~s~%"
-msgstr ""
-
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown argument type: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "~@<In arg ~s:  ~3i~:_~\n"
 "          Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "~@<In arg ~s:  ~3i~:_~\n"
 "\t\t\t\t     Field ~s doesn't fit in an ~\n"
 "\t\t\t\t     instruction-format ~d bits wide.~:>"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Generate a form to specify global disassembler params.  See the\n"
 "  documentation for SET-DISASSEM-PARAMS for more info."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Generate a form to define a disassembler argument type.  See\n"
 "  DEFINE-ARGUMENT-TYPE for more info."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Generate a form to define an instruction format.  See\n"
 "  DEFINE-INSTRUCTION-FORMAT for more info."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Field ~s in arg ~s overlaps some other field"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Unknown instruction format ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns non-NIL if the instruction SPECIAL is a more specific version of\n"
 "  GENERAL (i.e., the same instruction, but with more constraints)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns an integer corresponding to the specifivity of the instruction INST."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Order the list of instructions INSTS with more specific (more constant\n"
 "  bits, or same-as argument constains) ones first.  Returns the ordered list."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Instructions either aren't related or conflict in some way:~% ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given a list of instructions INSTS, Sees if one of these instructions is a\n"
 "  more general form of all the others, in which case they are put into its\n"
 "  specializers list, and it is returned.  Otherwise an error is signaled."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Multiple specializing masters: ~s"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns non-NIL if all constant-bits in INST match CHUNK."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given an instruction object, INST, and a bit-pattern, CHUNK, picks the\n"
 "  most specific instruction on INST's specializer list who's constraints "
@@ -16134,13 +16495,13 @@ msgid ""
 "  met by CHUNK.  If none do, then INST is returned."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns the instruction object within INST-SPACE corresponding to the\n"
 "  bit-pattern CHUNK, or NIL if there isn't one."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns an instruction-space object corresponding to the list of\n"
 "  instructions INSTS.  If the optional parameter INITIAL-MASK is supplied, "
@@ -16148,114 +16509,114 @@ msgid ""
 "  bits it has set are used."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Prints a nicely formatted version of INST-SPACE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Print the inst space for the specified backend"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Converts a word-offset NUM to a byte-offset."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Converts a byte-offset NUM to a word-offset."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Get the value of the property called NAME in DSTATE.  Also setf'able."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the absolute address of the current instruction in DSTATE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the absolute address of the next instruction in DSTATE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Offset of FUNCTION from the start of its code-component's instruction area."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Offset of FUNCTION from the start of its code-component."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the length of the instruction area in CODE-COMPONENT."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the address of the instruction area in CODE-COMPONENT."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the first function in CODE-COMPONENT."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Possible ~A header word"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Print the function-header (entry-point) pseudo-instruction at the current\n"
 "  location in DSTATE to STREAM."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Iterate through the instructions in SEGMENT, calling FUNCTION\n"
 "  for each instruction, with arguments of CHUNK, STREAM, and DSTATE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Make an initial non-printing disassembly pass through DSTATE, noting any\n"
 "  addresses that are referenced by instructions in this segment."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If any labels in DSTATE have been added since the last call to this\n"
 "  function, give them label-numbers, enter them in the hash-table, and make\n"
 "  sure the label list is in sorted order."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Get the instruction-space from PARAMS, creating it if necessary."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Print the current address in DSTATE to STREAM, plus any labels that\n"
 "  correspond to it, and leave the cursor in the instruction column."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Print a newline to STREAM, inserting any pending notes in DSTATE as\n"
 "  end-of-line comments.  If there is more than one note, a separate line\n"
 "  will be used for each one."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Make a disassembler-state object."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Return a memory segment located at the system-area-pointer returned by\n"
 "  SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.\n"
@@ -16265,39 +16626,39 @@ msgid ""
 "  object), and :HOOKS (a list of offs-hook objects)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Code-header ~s: size: ~s, trace-table-offset: ~s~%"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "The source file ~s no longer seems to exist"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "No start positions map"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Source file ~s has been modified; ~@\n"
 "\t\t\t\t\t Using form offset instead of file index"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Bogus form-number in form!  The source file has probably ~@\n"
 "\t\t  been changed too much to cope with"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Return the vector of debug-variables currently associated with DSTATE."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given the OFFSET of a location within the location-group called LG-NAME,\n"
 "  see if there's a current mapping to a source variable in DSTATE, and if "
@@ -16305,57 +16666,49 @@ msgid ""
 "  return the offset of that variable in the current debug-variable vector."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Return a new vector which has the same contents as the old one VEC, plus\n"
 "  new cells (for a total size of NEW-LEN).  The additional elements are\n"
 "  initailized to INITIAL-ELEMENT."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns a STORAGE-INFO struction describing the object-to-source\n"
 "  variable mappings from DEBUG-FUNCTION."
 msgstr ""
 
-#: target:compiler/disassem.lisp
-msgid ";;; At offset ~d: ~s~%"
-msgstr ""
-
-#: target:compiler/disassem.lisp
-msgid ";;; SET: ~s[~d]~%"
-msgstr ""
-
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Add hooks to track to track the source code in SEGMENT during\n"
 "  disassembly.  SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE\n"
 "  structure, in which case it is used to cache forms from files."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "No-arg-parsing entry point"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "~s entry point"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Return the PC of FUNCTION's header."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "If non-NIL, disassemble flets/labels too"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns a list of the segments of memory containing machine code\n"
 "  instructions for FUNCTION."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns a list of the segments of memory containing machine code\n"
 "  instructions for the code-component CODE.  If START-OFFS and/or LENGTH is\n"
@@ -16363,13 +16716,13 @@ msgid ""
 "  constrained to lie within the code-segment)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Return the address of the instructions for function and its length.\n"
 "  The length is computed using a heuristic, and so may not be accurate."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns two values:  the amount by which the last instruction in the\n"
 "  segment goes past the end of the segment, and the offset of the end of "
@@ -16378,7 +16731,7 @@ msgid ""
 "  perfectly, this will return 0 and 0."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Computes labels for all the memory segments in SEGLIST and adds them to\n"
 "  DSTATE.  It's important to call this function with all the segments "
@@ -16386,29 +16739,29 @@ msgid ""
 "  interested in, so it can find references from one to another."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Disassemble the machine code instructions in SEGMENT to STREAM."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassemble the machine code instructions in each memory segment in\n"
 "  SEGMENTS in turn to STREAM."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Disassemble the machine code instructions for FUNCTION."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Cannot compile a lexical closure"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Can't make a compiled function from ~S"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassemble the machine code associated with OBJECT, which can be a\n"
 "  function, a lambda expression, or a symbol with a function definition.  "
@@ -16418,7 +16771,7 @@ msgid ""
 "  disassemble."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassembles the given area of memory starting at ADDRESS and LENGTH long.\n"
 "  Note that if CODE-COMPONENT is NIL and this memory could move during a "
@@ -16426,29 +16779,29 @@ msgid ""
 "  you'd better disable it around the call to this function."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid " Address ~x not in the code component ~s."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassemble the machine code instructions associated with\n"
 "  CODE-COMPONENT (this may include multiple entry points)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Disassemble the machine code instructions associated with\n"
 "  ASSEM-SEGMENT (of type new-assem:segment)."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a\n"
 "symbol object that we know about."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given ADDRESS, try and figure out if which slot of which symbol is being\n"
 "  refered to.  Of course we can just give up, so it's not a big deal...\n"
@@ -16456,7 +16809,7 @@ msgid ""
 "  slot."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Given a BYTE-OFFSET from NIL, try and figure out if which slot of which\n"
 "  symbol is being refered to.  Of course we can just give up, so it's not a "
@@ -16464,28 +16817,28 @@ msgid ""
 "  deal...  Returns two values, the symbol and the access function."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Returns the lisp object located BYTE-OFFSET from NIL."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns two values; the lisp-object located at BYTE-OFFSET in the constant\n"
 "  area of the code-object in the current segment and T, or NIL and NIL if\n"
 "  there is no code-object in the current segment."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid "Build an address-name hash-table from the name-address hash"
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Returns the name of the primitive lisp assembler routine or foreign\n"
 "  symbol located at ADDRESS, or NIL if there isn't one."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Store NOTE (which can be either a string or a function with a single\n"
 "  stream argument) to be printed as an end-of-line comment after the "
@@ -16493,21 +16846,21 @@ msgid ""
 "  instruction is disassembled."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Store a note about the lisp constant located BYTE-OFFSET bytes from the\n"
 "  current code-component, to be printed as an end-of-line comment after the\n"
 "  current instruction is disassembled."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "Store a note about the lisp constant located at ADDR in the\n"
 "  current code-component, to be printed as an end-of-line comment after the\n"
 "  current instruction is disassembled."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
 "  is a valid slot in a symbol, store a note describing which symbol and "
@@ -16516,7 +16869,7 @@ msgid ""
 "  disassembled.  Returns non-NIL iff a note was recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
 "  is a valid lisp object, store a note describing which symbol and slot, to\n"
@@ -16524,7 +16877,7 @@ msgid ""
 "  disassembled.  Returns non-NIL iff a note was recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If ADDRESS is the address of a primitive assembler routine or\n"
 "  foreign symbol, store a note describing which one, to be printed as\n"
@@ -16533,7 +16886,7 @@ msgid ""
 "  note of the address is also made."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If NIL-BYTE-OFFSET is the offset of static function, store a note\n"
 "  describing which one, to be printed as an end-of-line comment after\n"
@@ -16541,7 +16894,7 @@ msgid ""
 "  was recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If there's a valid mapping from OFFSET in the storage class SC-NAME to a\n"
 "  source variable, make a note of the source-variable name, to be printed "
@@ -16550,7 +16903,7 @@ msgid ""
 "  Returns non-NIL iff a note was recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "If there's a valid mapping from OFFSET in the storage-base called SB-NAME\n"
 "  to a source variable, make a note equating ASSOC-WITH with the\n"
@@ -16559,7 +16912,7 @@ msgid ""
 "  recorded."
 msgstr ""
 
-#: target:compiler/disassem.lisp
+#: src/compiler/disassem.lisp
 msgid ""
 "When called from an error break instruction's :DISASSEM-CONTROL (or\n"
 "  :DISASSEM-PRINTER) function, will correctly deal with printing the\n"
@@ -16581,81 +16934,29 @@ msgid ""
 "       return-values."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Set up the assembler."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Execute BODY (as a progn) without scheduling any of the instructions\n"
 "   generated inside it.  DO NOT throw or return-from out of it."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
-msgid "~&~S reads ~S[~D for ~D]~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "~&~S writes ~S[~D for ~D]~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "~&Queuing ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "  reads ~S~%  writes ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "~&Scheduling pending instructions...~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Flushing ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Queued branches: ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Initially emittable: ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Initially delayed: ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Filling branch delay slot with ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Emitting ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Emitting a NOP.~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
-msgid "Now emittable: ~S~%"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Emit BYTE to SEGMENT."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Output AMOUNT zeros (in bytes) to SEGMENT."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Attempt to emit ~S for the second time."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Note that the instruction stream has to be back-patched when label "
 "positions\n"
@@ -16671,7 +16972,7 @@ msgid ""
 "   ended up."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Note that the instruction stream here depends on the actual positions of\n"
 "   various labels, so can't be output until label positions are known.  "
@@ -16693,140 +16994,132 @@ msgid ""
 "   just like a BACK-PATCH.  (See EMIT-BACK-PATCH.)"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "~S emitted ~D bytes, but claimed it's max was ~D"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "~S shrunk by ~D bytes, but claimed that it ~\n"
 "\t\t\t    preserve ~D bits of alignment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Chooser ~S passed, but not before emitting ~D bytes."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Alignment ~S needs more space now?  It was ~D, ~\n"
 "\t\t\t    and is ~D now."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "~S emitted ~D bytes, but claimed it's was ~D"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Execute BODY (as a progn) with SEGMENT as the current segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Duplicate nested labels: ~S"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Emit the specified instruction to the current segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Unknown instruction: ~S"
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Emit LABEL at this location in the current segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Emit an alignment restriction to the current segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Return the current position for LABEL.  Chooser maybe-shrink functions\n"
 "   should supply IF-AFTER and DELTA to assure correct results."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Append OTHER-SEGMENT to the end of SEGMENT.  Don't use OTHER-SEGMENT\n"
 "   for anything after this."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Does any final processing of SEGMENT and returns the total number of bytes\n"
 "   covered by this segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Call FUNCTION on all the output accumulated in SEGMENT.  FUNCTION is called\n"
 "   zero or more times with two arguments: a SAP and a number of bytes."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Releases any output buffers held on to by segment."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
-msgid "~D isn't an even multiple of ~D"
-msgstr ""
-
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid ""
 "Byte spec ~S either overlaps another byte spec, or ~\n"
 "\t\t    extends past the end."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "There are holes."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
+msgid "~D isn't an even multiple of ~D"
+msgstr ""
+
+#: src/compiler/new-assem.lisp
 msgid "Can only specify one emitter per instruction."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Can only specify delay once per instruction."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
+#: src/compiler/new-assem.lisp
 msgid "Can only specify :vop-var once."
 msgstr ""
 
-#: target:compiler/new-assem.lisp
-msgid "You can't use INST without an ASSEMBLE inside emitters."
-msgstr ""
-
-#: target:compiler/alloc.lisp
+#: src/compiler/alloc.lisp
 msgid ""
 "defallocators {((name lambda-list [real-lambda-list]) thread-slot\n"
 "                   (deinit-form*)\n"
 "\t\t   (reinit-form*))}*"
 msgstr ""
 
-#: target:compiler/alloc.lisp
-msgid "~S already deallocated!"
-msgstr ""
-
-#: target:compiler/knownfun.lisp
+#: src/compiler/knownfun.lisp
 msgid "optimize"
 msgstr ""
 
-#: target:compiler/knownfun.lisp
+#: src/compiler/knownfun.lisp
 msgid "~S is not a known function."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default value for the :Block-Compile argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default value for the :Byte-Compile argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-"
 "level\n"
@@ -16834,39 +17127,39 @@ msgid ""
 "   (the default.)  When true, we decide to byte-compile."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Whether loop analysis should be done or not."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Whether the compiler should record cross-reference information."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default for the :VERBOSE argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default for the :PRINT argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "The default for the :PROGRESS argument to COMPILE-FILE."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The defaulted pathname of the file currently being compiled, or NIL if not\n"
 "  compiling."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The TRUENAME of the file currently being compiled, or NIL if not\n"
 "  compiling."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The user supplied source-info for the current compilation.  \n"
 "This is the :source-info argument to COMPILE-FROM-STREAM and will be\n"
@@ -16874,40 +17167,36 @@ msgid ""
 "in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The upper limit on the number of times that we will consecutively do IR1\n"
 "  optimization that doesn't introduce any new code.  A finite limit is\n"
 "  necessary, since type inference may take arbitrarily long to converge."
 msgstr ""
 
-#: target:compiler/main.lisp
-msgid "*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceeded."
-msgstr ""
-
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~|~%Disassembly of code for ~S~2%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~:[~;Byte ~]Compiling ~A: "
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Undefined ~(~A~) ~S~@[ ~A~]"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~D more use~:P of undefined ~(~A~) ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~\n"
 "\t\t~%  ~{~<~%  ~1:;~S~>~^ ~}"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "~2&; Compilation unit ~:[finished~;aborted~].~\n"
 "      ~[~:;~:*~&;   ~D fatal error~:P~]~\n"
@@ -16916,100 +17205,87 @@ msgid ""
 "      ~[~:;~:*~&;   ~D note~:P~]~2%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~|~%;;;; Component: ~S~2%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~%~|~%;;;; IR2 component: ~S~2%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Entries:~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~4TL~D: ~S~:[~; [Closure]~]~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Read error at ~D:~% \"~A/\\~A\"~%~A"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Unable to recover from read error."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A"
 msgstr ""
 
-#: target:compiler/main.lisp
-#, fuzzy
-msgid "Skip this form."
-msgstr "현재의 역동적인 공간은 ~D입니다.~%"
-
-#: target:compiler/main.lisp
-msgid "Attempt to load a file having a compile-time read error."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp target:compiler/main.lisp
+#: src/compiler/ir1tran.lisp src/compiler/main.lisp
 msgid "(during macroexpansion)~%~A"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Bad FILE-COMMENT form: ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Ignoring extra file comment:~%  ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~&; Comment: ~A~2&"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp target:compiler/main.lisp
-msgid "Execution of a form compiled with errors:~% ~S"
-msgstr ""
-
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "EVAL-WHEN form is too short: ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "MACROLET form is too short: ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Load Time Value of ~S"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "(while making load form for ~S)~%~A"
 msgstr ""
 
-#: target:compiler/main.lisp
-msgid "Creation Form for ~A"
+#: src/compiler/main.lisp
+msgid "Circular references in creation form for ~S"
 msgstr ""
 
-#: target:compiler/main.lisp
-msgid "Circular references in creation form for ~S"
+#: src/compiler/main.lisp
+msgid "Creation Form for ~A"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Init Form~:[~;s~] for ~{~A~^, ~}"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~2&Fatal error, aborting compilation...~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Can't compile with no source files."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Similar to COMPILE-FILE, but compiles text from Stream into the current "
 "lisp\n"
@@ -17032,19 +17308,19 @@ msgid ""
 "        If true, then may compile to interpreted byte code."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~2&; Python version ~A, VM version ~A on ~A.~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "; Compiling: ~A ~A~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~&; Compilation ~:[aborted after~;finished in~] ~A.~&"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Compiles Source, producing a corresponding .FASL file.  Source may be a "
 "list\n"
@@ -17105,23 +17381,23 @@ msgid ""
 "      The external format to use when opening the source file"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~2&; ~A written.~%"
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Can't :LOAD with no output file."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~S was defined in a non-null environment."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "Can't find a definition for ~S."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Compiles the function (or macro-function) whose name is NAME.  If\n"
 "  DEFINITION is supplied, it should be a lambda expression which will\n"
@@ -17131,37 +17407,37 @@ msgid ""
 "  is Nil, the compiled code object is returned."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Attempt to replace Name's definition with an interpreted version of that\n"
 "  definition.  If no interpreted definition is to be found, then signal an\n"
 "  error."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid "~S is already interpreted."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "Return a pathname describing what file COMPILE-FILE would write to given\n"
 "   these arguments."
 msgstr ""
 
-#: target:compiler/main.lisp
+#: src/compiler/main.lisp
 msgid ""
 "The ~A parameter is a ~S, which is an invalid value ~@\n"
 "            to COMPILE-FILE-PATHNAME."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "If true, argument and result type information derived from compilation of\n"
 "  DEFUNs is used when compiling calls to that function.  If false, only\n"
 "  information from FTYPE proclamations will be used."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "If NIL, never trust dynamic-extent declarations.\n"
 "\n"
@@ -17173,171 +17449,167 @@ msgid ""
 "   otherwise they are not trusted."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Can't find slot ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Found macro name ~S ~A."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Found special-form name ~S ~A."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Cannot dump objects of type ~S into fasl files."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~S has already ended."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~S already has successors."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~S is already a predecessor of ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Misplaced declaration."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Illegal function call."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Attempt to reference undumpable constant."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Reading an ignored variable: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~&dynamic-extent args ~:s in ~s~%"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Conflicting type declarations ~\n"
 "\t\t\t\t   ~S and ~S for ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Can't declare type of Alien variable: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Declaring symbol-macro ~S special."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Ignored variable ~S is being declared special."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Ignoring ~A declaration not at ~\n"
 "\t\t\t\t   definition of local function:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Unrecognizable function or variable name: ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Ignoring free ignore declaration for ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Ignore declaration for unknown variable ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Declaring special variable ~S to be ignored."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "If true, processing of the VALUES declaration is inhibited."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "No type specified in FTYPE declaration: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Abbreviated type declaration: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Unrecognized declaration: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed declaration specifier ~S in ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Declaring an alien variable to be special: ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Declaring a constant to be special: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Lambda-variable is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Repeated variable in lambda-list: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Name of lambda-variable is a constant: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Multiple uses of keyword ~S in lambda-list."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Found a ~S when expecting a lambda expression:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Expecting a lambda, but form begins with ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Lambda-list absent or not a list:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "ir1-convert-lambda: called by: ~S, parent-form: ~S~%"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Arg specifier is too long: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Malformed keyword arg specifier: ~S."
+#: src/compiler/ir1tran.lisp
+msgid "Malformed &aux binding specifier: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Malformed &aux binding specifier: ~S."
+#: src/compiler/ir1tran.lisp
+msgid "Malformed keyword arg specifier: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Progn Form*\n"
 "  Evaluates each Form in order, returing the values of the last form.  With "
@@ -17345,14 +17617,22 @@ msgid ""
 "  forms, returns NIL."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir2tran.lisp src/compiler/ltv.lisp src/compiler/ir1tran.lisp
+msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "If Predicate Then [Else]\n"
 "  If Predicate evaluates to non-null, evaluate Then and returns its values,\n"
 "  otherwise evaluate Else and return its values.  Else defaults to NIL."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid "Block name is not a symbol: ~S."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Block Name Form*\n"
 "  Evaluate the Forms as a PROGN.  Within the lexical scope of the body,\n"
@@ -17360,11 +17640,11 @@ msgid ""
 "  result of Value-Form."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Block name is not a symbol: ~S."
+#: src/compiler/ir1tran.lisp
+msgid "Return for unknown block: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Return-From Block-Name Value-Form\n"
 "  Evaluate the Value-Form, returning its values from the lexically "
@@ -17373,19 +17653,15 @@ msgid ""
 "  extent of the BLOCK."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Return for unknown block: ~S."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Repeated tagbody tag: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Illegal tagbody statement: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Tagbody {Tag | Statement}*\n"
 "  Define tags for used with GO.  The Statements are evaluated in order\n"
@@ -17398,7 +17674,11 @@ msgid ""
 "  body."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid "Go to nonexistent tag: ~S."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Go Tag\n"
 "  Transfer control to the named Tag in the lexically enclosing TAGBODY.  "
@@ -17406,34 +17686,30 @@ msgid ""
 "  is constrained to be used only within the dynamic extent of the TAGBODY."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Go to nonexistent tag: ~S."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Bad compiler-let binding spec: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "EVAL-WHEN (Situation*) Form*\n"
 "  Evaluate the Forms in the specified Situations, any of :COMPILE-TOPLEVEL,\n"
 "  :LOAD-TOPLEVEL, :EXECUTE."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Macro name ~S is not a symbol."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Local macro ~S has argument list that is not a list: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Local macro ~S is too short to be a legal definition."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "MACROLET ({(Name Lambda-List Form*)}*) Body-Form*\n"
 "  Evaluate the Body-Forms in an environment with the specified local macros\n"
@@ -17441,58 +17717,62 @@ msgid ""
 "  destructuring lambda list, and the Forms evaluate to the expansion."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
-"Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*\n"
-"   Establish the specified compiler options for the (lexical) duration of\n"
-"   the body.  The Value-Forms are evaluated at compile time."
+"Bogus binding for ~\n"
+"\t\t\t\t\t\t     COMPILER-OPTION-BIND: ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
-"Bogus binding for ~\n"
-"\t\t\t\t\t\t     COMPILER-OPTION-BIND: ~S"
+"Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*\n"
+"   Establish the specified compiler options for the (lexical) duration of\n"
+"   the body.  The Value-Forms are evaluated at compile time."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Lisp error during evaluation of info args:~%~A"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "%Primitive name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Undefined primitive name: ~A."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Primitive called with ~R argument~:P, ~\n"
 "\t    \t\t         but wants at least ~R."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Primitive called with ~R argument~:P, ~\n"
 "\t\t\t\t but wants exactly ~R."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "%Primitive used with a conditional template."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "%Primitive used with an unknown values template."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "QUOTE Value\n"
 "  Return Value without evaluating it."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid "Illegal function name: ~S"
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "FUNCTION Name\n"
 "  Return the lexically apparent definition of the function Name.  Name may "
@@ -17500,63 +17780,59 @@ msgid ""
 "  be a lambda."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid "Illegal function name: ~S"
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Might be a symbol, so must call FDEFINITION at runtime."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid ""
-"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n"
-"  Define the Names as symbol macros with the given Expansions.  Within the\n"
-"  body, references to a Name will effectively be replaced with the Expansion."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed symbol macro binding: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Repeated name in SYMBOL-MACROLET: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid ""
+"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n"
+"  Define the Names as symbol macros with the given Expansions.  Within the\n"
+"  body, references to a Name will effectively be replaced with the Expansion."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid "Name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "New proclaimed type ~S for ~S conflicts with old type ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Attempt to proclaim constant ~S to be special."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed TYPE proclamation: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed FUNCTION proclamation: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed FTYPE proclamation: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed ~S binding spec: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "LET ({(Var [Value]) | Var}*) Declaration* Form*\n"
 "  During evaluation of the Forms, Bind the Vars to the result of evaluating "
@@ -17566,14 +17842,14 @@ msgid ""
 "  evaluated."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "LOCALLY Declaration* Form*\n"
 "   Sequentially evaluates a body of Form's in a lexical environment\n"
 "   where the given Declaration's have effect."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "LET* ({(Var [Value]) | Var}*) Declaration* Form*\n"
 "  Similar to LET, but the variables are bound sequentially, allowing each "
@@ -17581,11 +17857,11 @@ msgid ""
 "  form to reference any of the previous Vars."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Malformed ~S definition spec: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "FLET ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
 "  Evaluate the Body-Forms with some local function definitions.   The "
@@ -17595,7 +17871,7 @@ msgid ""
 "  the lexically apparent function definition in the enclosing environment."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "LABELS ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n"
 "  Evaluate the Body-Forms with some local function definitions.  The "
@@ -17605,18 +17881,18 @@ msgid ""
 "  each other."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Type ~S in ~S declaration conflicts with enclosing assertion:~%   ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "THE Type Form\n"
 "  Assert that Form evaluates to the specified type (which may be a VALUES\n"
 "  type.)"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Truly-The Type Value\n"
 "  Like the THE special form, except that it believes whatever you tell it.  "
@@ -17626,34 +17902,34 @@ msgid ""
 "  can prove the assertion is wrong."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
-msgid ""
-"SETQ {Var Value}*\n"
-"  Set the variables to the values.  If more than one pair is supplied, the\n"
-"  assignments are done sequentially.  If Var names a symbol macro, SETF the\n"
-"  expansion."
-msgstr ""
-
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Odd number of args to SETQ: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Attempt to set constant ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Setting an ignored variable: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
+msgid ""
+"SETQ {Var Value}*\n"
+"  Set the variables to the values.  If more than one pair is supplied, the\n"
+"  assignments are done sequentially.  If Var names a symbol macro, SETF the\n"
+"  expansion."
+msgstr ""
+
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Throw Tag Form\n"
 "  Do a non-local exit, return the values of Form from the CATCH whose tag\n"
 "  evaluates to the same thing as Tag."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Catch Tag Form*\n"
 "  Evaluates Tag and instantiates it as a catcher while the body forms are\n"
@@ -17664,7 +17940,7 @@ msgid ""
 "  and the thrown values will be returned."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "Unwind-Protect Protected Cleanup*\n"
 "  Evaluate the form Protected, returning its values.  The cleanup forms are\n"
@@ -17673,125 +17949,125 @@ msgid ""
 "  due to normal completion or a non-local exit such as THROW)."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "MULTIPLE-VALUE-CALL Function Values-Form*\n"
 "  Call Function, passing all the values of each Values-Form as arguments,\n"
 "  values from the first Values-Form making up the first argument, etc."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid ""
 "MULTIPLE-VALUE-PROG1 Values-Form Form*\n"
 "  Evaluate Values-Form and then the Forms, but return all the values of\n"
 "  Values-Form."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Macro name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Defining ~S to be a macro when it was ~(~A~) to be a function."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Attempt to redefine special form ~S as a macro."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "~&; Converted ~S.~%"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Attempt to define a compiler-macro for special form ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Constant name is not a symbol: ~S."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Can't change T."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Nihil ex nihil (Can't change NIL)."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Can't change the value of keywords."
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Redefining constant ~S as:~%  ~S"
 msgstr ""
 
-#: target:compiler/ir1tran.lisp
+#: src/compiler/ir1tran.lisp
 msgid "Redefining ~(~A~) ~S to be a constant."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Return the TLF-NUMBER and FORM-NUMBER encoded as fixnum."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Return the tlf-number and form-number from an encoded FIXNUM."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Return a source-location for the call site."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Deleting unused function~:[.~;~:*~%  ~S~]"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Block is already deleted."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Variable ~S defined but never used."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Deleting unreachable code."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "If CONT is a call to FUN with NUM-ARGS args, change those arguments\n"
 "   to feed directly to the continuation-dest of CONT, which must be\n"
 "   a combination."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "An upper limit on the number of inline function calls that will be expanded\n"
 "   in any given code object (single function or block compilation.)"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "*Inline-Expansion-Limit* (~D) exceeded, ~\n"
 "\t\t\t     probably trying to~%  ~\n"
 "\t\t\t     inline a recursive function."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "The value for *Print-Level* when printing compiler error messages."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "The value for *Print-Length* when printing compiler error messages."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "The value for *Print-Lines* when printing compiler error messages."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "The maximum number of enclosing non-original source forms (i.e. from\n"
 "  macroexpansion) that we print in full.  For additional enclosing forms, "
@@ -17799,7 +18075,7 @@ msgid ""
 "  print only the CAR."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "DEF-SOURCE-CONTEXT Name Lambda-List Form*\n"
 "   This macro defines how to extract an abbreviated source context from the\n"
@@ -17809,11 +18085,11 @@ msgid ""
 "   list of subforms suitable for a \"~{~S ~}\" format string."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Compiler-Error with no bailout."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "This is the function called by the compiler to specially note a\n"
 "warning, comment, or error. The function must take five arguments: the\n"
@@ -17823,27 +18099,27 @@ msgid ""
 "these can be NIL if unavailable or inapplicable."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "[Last message occurs ~D times]"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "~2&File: ~A"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "In:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "replace form with call to ERROR."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "ignore it."
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid ""
 "If non-null, then an upper limit on the number of unknown function or type\n"
 "  warnings that the compiler will print for any given name in a single\n"
@@ -17852,21 +18128,21 @@ msgid ""
 "  a missing definition (as opposed to a typo in the use.)"
 msgstr ""
 
-#: target:compiler/ir1util.lisp
+#: src/compiler/ir1util.lisp
 msgid "Lisp error during ~A:~%~A"
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "New inferred type ~S conflicts with old type:~\n"
 "\t\t~%  ~S~%*** Bug?"
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid "The return value of ~A should not be discarded."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "This function is used to throw out of an IR1 transform, aborting this\n"
 "  attempt to transform the call, but admitting the possibility that this or\n"
@@ -17875,14 +18151,14 @@ msgid ""
 "  format arguments for an efficiency note."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "This function is used to throw out of an IR1 transform and force a normal\n"
 "  call to the function at run time.  No further optimizations will be\n"
 "  attempted."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "This function is used to throw out of an IR1 transform, and delay the\n"
 "  transform on the node until later. The reasons specifies when the "
@@ -17893,113 +18169,101 @@ msgid ""
 "  propagation."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
 "\t     at least ~R."
 msgstr ""
 
-#: target:compiler/ir1opt.lisp
+#: src/compiler/ir1opt.lisp
 msgid ""
 "MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n"
 "\t     at most ~R."
 msgstr ""
 
-#: target:compiler/ir1final.lisp
+#: src/compiler/ir1final.lisp
 msgid "Unable to ~A because:~%~6T~?"
 msgstr ""
 
-#: target:compiler/ir1final.lisp
+#: src/compiler/ir1final.lisp
 msgid ""
 "Unable to ~A due to type uncertainty:~@\n"
 "\t                      ~{~6T~?~^~&~}"
 msgstr ""
 
-#: target:compiler/ir1final.lisp
+#: src/compiler/ir1final.lisp
 msgid ""
 "The result type from previous declaration:~%  ~S~@\n"
 "\t\t\t\t  conflicts with the result type:~%  ~S"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
-msgid "Element-Type is not constant."
+#: src/compiler/array-tran.lisp
+msgid "Default initial element ~s is not a ~s."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Cannot open-code creation of ~S"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
-msgid "Default initial element ~s is not a ~s."
+#: src/compiler/array-tran.lisp
+msgid "Element-Type is not constant."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Element-type not constant; cannot open code array creation"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Dimension list not constant; cannot open code array creation"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Dimension list contains something other than an integer: ~S"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Array rank not known at compile time: ~S"
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Axis not constant."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Array dimensions unknown, must call array-dimension at runtime."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Array has dimensions ~S, ~D is too large."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Can't tell if array is simple."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Vector length unknown, must call length at runtime."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid "Can't tell the rank at compile time."
 msgstr ""
 
-#: target:compiler/array-tran.lisp
+#: src/compiler/array-tran.lisp
 msgid ""
 "Array type ambiguous; must call ~\n"
 "\t              array-has-fill-pointer-p at runtime."
 msgstr ""
 
-#: target:compiler/srctran.lisp target:compiler/seqtran.lisp
-msgid "open code"
-msgstr ""
-
-#: target:compiler/seqtran.lisp
-msgid "convert to EQ test"
-msgstr ""
-
-#: target:compiler/seqtran.lisp
+#: src/compiler/seqtran.lisp
 msgid "Item might be a number"
 msgstr ""
 
-#: target:compiler/seqtran.lisp
-msgid "inline expand"
-msgstr ""
-
-#: target:compiler/seqtran.lisp
+#: src/compiler/seqtran.lisp
 msgid "Specified output type ~S is not a sequence type"
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid ""
 "Define-Type-Predicate Name Type\n"
 "  Establish an association between the type predicate Name and the\n"
@@ -18007,446 +18271,412 @@ msgid ""
 "  purposes of optimization."
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid "Can't open-code test of non-constant type."
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid "Can't open-code test of unknown type ~S."
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid ""
 "Can't compile TYPEP of anonymous or undefined ~\n"
 "\t\t\tclass:~%  ~S"
 msgstr ""
 
-#: target:compiler/typetran.lisp
+#: src/compiler/typetran.lisp
 msgid "Illegal type specifier for Typep: ~S."
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "use inline fixnum operations"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "use inline (unsigned-byte 32) operations"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
-msgid "use inline (signed-byte 32) operations"
-msgstr ""
-
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Shouldn't happen"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Can't open-code float to rational comparison."
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "~S doesn't have a precise float representation."
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid ""
 "Unable to avoid inline argument range check~@\n"
 "                      because the argument range (~s) was not within 2^~D"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid ""
 "Unable to avoid inline argument range check~@\n"
 "                   because the argument range (~s) was not within 2^~D"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Float zero bound ~s not correctly canonicalised?"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
+msgid "Compute fl(a*b) and err(a*b)"
+msgstr ""
+
+#: src/compiler/float-tran.lisp
+msgid ""
+"Compute fl(a*a) and err(a*b).  This is a more efficient\n"
+"  implementation of two-prod"
+msgstr ""
+
+#: src/compiler/float-tran.lisp
 msgid "Computes fl(a+b) and err(a+b), assuming |a| >= |b|"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Computes fl(a+b) and err(a+b)"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Add the double-double A0,A1 to the double-double B0,B1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Compute fl(a-b) and err(a-b), assuming |a| >= |b|"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Compute fl(a-b) and err(a-b)"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Subtract the double-double B0,B1 from A0,A1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Compute double-double = double - double-double"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Subtract the double B from the double-double A0,A1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid ""
 "Split the double-float number a into a-hi and a-lo such that a =\n"
 "  a-hi + a-lo and a-hi contains the upper 26 significant bits of a and\n"
 "  a-lo contains the lower 26 bits."
 msgstr ""
 
-#: target:compiler/float-tran.lisp
-msgid "Compute fl(a*b) and err(a*b)"
-msgstr ""
-
-#: target:compiler/float-tran.lisp
-msgid ""
-"Compute fl(a*a) and err(a*b).  This is a more efficient\n"
-"  implementation of two-prod"
-msgstr ""
-
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Multiply the double-double A0,A1 with B0,B1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Add the double-double A0,A1 to the double B"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Divide the double-double A0,A1 by B0,B1"
 msgstr ""
 
-#: target:compiler/float-tran.lisp
+#: src/compiler/float-tran.lisp
 msgid "Square"
 msgstr ""
 
-#: target:compiler/saptran.lisp
+#: src/compiler/saptran.lisp
 msgid "FOREIGN-SYMBOL-ADDRESS flavor ~S is not :CODE or :DATA"
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Function doesn't have fixed argument count."
 msgstr ""
 
-#: target:compiler/srctran.lisp
-msgid "convert NTHCDR to CAxxR"
-msgstr ""
-
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Unknown bound type in make-interval!"
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "This shouldn't happen!"
 msgstr ""
 
-#: target:compiler/srctran.lisp
-msgid "convert to inline logical ops"
-msgstr ""
-
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "BOOLE code is not a constant."
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "~S illegal control arg to BOOLE."
 msgstr ""
 
-#: target:compiler/srctran.lisp
-msgid "convert x*2^k to shift"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert division by 2^k to shift"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert remainder mod 2^k to LOGAND"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "fold identity operations"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "fold identity operation"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert (- 0 x) to negate"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert (* x 0) to 0."
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "fold zero arg"
-msgstr ""
-
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Unexpected types: ~s ~s~%"
 msgstr ""
 
-#: target:compiler/srctran.lisp
-msgid "recode as multiplication or sqrt"
-msgstr ""
-
-#: target:compiler/srctran.lisp
-msgid "convert to simpler equality predicate"
-msgstr ""
-
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Operands might not be the same type."
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "~s: too few args (~d), need at least ~d"
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "~s: too many args (~d), wants at most ~d"
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid "Control string is not a constant."
 msgstr ""
 
-#: target:compiler/srctran.lisp
+#: src/compiler/srctran.lisp
 msgid ""
 "When non-NIL, the compiler will generate code utilizing modular\n"
 "  arithmetic.  Set to NIL to disable this, if you don't want modular\n"
 "  arithmetic in some cases."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid ""
 "Couldn't inline expand because expansion ~\n"
 "\t\t\t\t   calls this let-converted local function:~\n"
 "\t\t\t\t   ~%  ~S"
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Function called with ~R argument~:P, but wants exactly ~R."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Function called with ~R argument~:P, but wants at least ~R."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Function called with ~R argument~:P, but wants at most ~R."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Can't local-call functions with &MORE args."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 #, fuzzy
 msgid ""
 "Function called with odd number of ~\n"
 "\t  \t\t     arguments in keyword portion."
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Non-constant keyword in keyword call."
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "non-constant :ALLOW-OTHER-KEYS value"
 msgstr ""
 
-#: target:compiler/locall.lisp
+#: src/compiler/locall.lisp
 msgid "Function called with unknown argument keyword ~S."
 msgstr ""
 
-#: target:compiler/checkgen.lisp
-msgid "~:[A possible~;The~] binding of ~S"
-msgstr ""
-
-#: target:compiler/checkgen.lisp
+#: src/compiler/checkgen.lisp
 msgid "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
 msgstr ""
 
-#: target:compiler/checkgen.lisp
+#: src/compiler/checkgen.lisp
 msgid "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
 msgstr ""
 
-#: target:compiler/checkgen.lisp
+#: src/compiler/checkgen.lisp
+msgid "~:[A possible~;The~] binding of ~S"
+msgstr ""
+
+#: src/compiler/checkgen.lisp
 msgid "Type assertion too complex to check:~% ~S."
 msgstr ""
 
-#: target:compiler/constraint.lisp
+#: src/compiler/constraint.lisp
 msgid ""
 "*** Unreachable code in constraint ~\n"
 "\t\t\t  propagation...  Bug?"
 msgstr ""
 
-#: target:compiler/tn.lisp
+#: src/compiler/tn.lisp
 msgid ""
 "Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*\n"
 "  Iterate over all packed TNs allocated in Component."
 msgstr ""
 
-#: target:compiler/tn.lisp
+#: src/compiler/tn.lisp
 msgid "SC ~S has no :unbounded :save-p NIL alternate SC."
 msgstr ""
 
-#: target:compiler/life.lisp
+#: src/compiler/life.lisp
 msgid "More operand ~S used more than once in its VOP."
 msgstr ""
 
-#: target:compiler/debug-dump.lisp
+#: src/compiler/debug-dump.lisp
 msgid ""
 "Extract the namestring from FILE-INFO for the DEBUG-SOURCE.  \n"
 "Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;\n"
 "otherwise the truename."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "Make a fixnum out of NUM.  (i.e. shift by two bits if it will fit.)"
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "~D is too big for a fixnum."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "Returns the byte offset of the static symbol Symbol."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "~S is not a static symbol."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "Given a byte offset, Offset, returns the appropriate static symbol."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "Byte offset, ~D, is not correct."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid ""
 "Return the (byte) offset from NIL to the start of the fdefn object\n"
 "   for the static function NAME."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid "~S isn't a static function."
 msgstr ""
 
-#: target:compiler/generic/utils.lisp
+#: src/compiler/generic/utils.lisp
 msgid ""
 "Given a byte offset, Offset, returns the appropriate static function\n"
 "   symbol."
 msgstr ""
 
-#: target:compiler/generic/primtype.lisp
+#: src/compiler/x86/vm.lisp
+msgid "Redefining SC number ~D from ~S to ~S."
+msgstr ""
+
+#: src/compiler/generic/primtype.lisp
 msgid ""
 "An a-list for mapping simple array element types to their\n"
 "  corresponding primitive types."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/x86/type-vops.lisp src/compiler/x86/pred.lisp
+#: src/compiler/x86/print.lisp src/compiler/x86/nlx.lisp
+#: src/compiler/x86/values.lisp src/compiler/x86/subprim.lisp
+#: src/compiler/x86/static-fn.lisp src/compiler/x86/system.lisp
+#: src/compiler/x86/sap.lisp
+msgid "Unknown SC to SC-Case for ~S:~%  ~S"
+msgstr ""
+
+#: src/compiler/x86/nlx.lisp
+msgid ""
+"Load TN allocated, but no move function?~@\n"
+"\t           VM definition inconsistent, recompile and try again."
+msgstr ""
+
+#: src/compiler/aliencomp.lisp
 msgid "Slot is not constant, so cannot open code access."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "~S doesn't have a slot named ~S"
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Too many indices for pointer deref: ~D"
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Unknown element size."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Unknown element alignment."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Incorrect number of indices."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Element size unknown."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Element alignment unknown."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "~S not either a pointer or array type."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Info not constant; can't open code."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
-msgid "Local Alien Info isn't constant?"
-msgstr ""
-
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Aliens of type ~S cannot be represented immediately."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
-msgid "This should be dead-code eleminated."
+#: src/compiler/aliencomp.lisp
+msgid "Local Alien Info isn't constant?"
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "This shouldn't happen."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Alien type not constant; cannot open code."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid ""
 "Could not optimize away %SAP-ALIEN: forced to do runtime ~@\n"
 "\t    allocation of alien-value structure."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Type not constant at compile time; can't open code."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Can't tell function type at compile time."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Wrong number of arguments.  Expected ~D, got ~D."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "Something is broken."
 msgstr ""
 
-#: target:compiler/aliencomp.lisp
+#: src/compiler/aliencomp.lisp
 msgid "No unique move-arg-vop for moves in SC ~S."
 msgstr ""
 
-#: target:compiler/ltv.lisp
+#: src/compiler/ltv.lisp
+msgid "(during EVAL of LOAD-TIME-VALUE)~%~A"
+msgstr ""
+
+#: src/compiler/ltv.lisp
 msgid ""
 "Arrange for FORM to be evaluated at load-time and use the value produced\n"
 "   as if it were a constant.  If READ-ONLY-P is non-NIL, then the resultant\n"
@@ -18454,134 +18684,129 @@ msgid ""
 "   storage."
 msgstr ""
 
-#: target:compiler/ltv.lisp
-msgid "(during EVAL of LOAD-TIME-VALUE)~%~A"
-msgstr ""
-
-#: target:compiler/gtn.lisp
+#: src/compiler/gtn.lisp
 msgid ""
 "Return value count mismatch prevents known return ~\n"
 "\t\t       from these functions:~\n"
 "\t\t       ~{~%  ~A~}"
 msgstr ""
 
-#: target:compiler/gtn.lisp
+#: src/compiler/gtn.lisp
 msgid ""
 "Return type not fixed values, so can't use known return ~\n"
 "\t\t      convention:~%  ~S"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid ""
 "Unable to check type assertion in unknown-values ~\n"
 "\t                context:~% ~S"
 msgstr ""
 
-#: target:compiler/represent.lisp target:compiler/ir2tran.lisp
-#: target:compiler/ltn.lisp
+#: src/compiler/represent.lisp src/compiler/ir2tran.lisp src/compiler/ltn.lisp
 msgid "Neither CONT nor TN supplied."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "~S has :MORE results with :TRANSLATE."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid ""
 "This is the maximum number of possible optimization alternatives will be\n"
 "  mentioned in a particular efficiency note.  NIL means no limit."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid ""
 "This is the minumum cost difference between the chosen implementation and\n"
 "  the next alternative that justifies an efficiency note."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "This shouldn't happen!  Bug?"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Template guard failed."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Template is not safe, yet we were counting on it."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Argument types invalid."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Argument primitive types:~%  ~S"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Argument type assertions:~%  ~S"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Conditional in a non-conditional context."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Result types invalid."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "etc."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Unable to do ~A (cost ~D) because:"
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid ""
 "Can't trust output type assertion under safe ~\n"
 "\t\t       policy."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Forced to do ~A (cost ~D)."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Forced to do full call."
 msgstr ""
 
-#: target:compiler/ltn.lisp
+#: src/compiler/ltn.lisp
 msgid "Recursive known function definition."
 msgstr ""
 
-#: target:compiler/ir2tran.lisp
+#: src/compiler/ir2tran.lisp
 msgid ""
 "Always perform stack clearing if non-NIL, independent of the\n"
 "compilation policy"
 msgstr ""
 
-#: target:compiler/ir2tran.lisp
+#: src/compiler/ir2tran.lisp
 msgid ""
 "If non-NIL and the compilation policy allows, stack clearing is enabled."
 msgstr ""
 
-#: target:compiler/ir2tran.lisp
+#: src/compiler/ir2tran.lisp
 msgid "~@<~2I~_~S ~_not found in ~_~S~:>"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid "Couldn't find REF?"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "Representation selection flamed out for no obvious reason.~@\n"
 "\t          Try again after recompiling the VM definition."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "~S is not valid as the ~:R ~:[result~;argument~] to the~@\n"
 "\t        ~S VOP, since the TN's primitive type ~S allows SCs:~%  ~S~@\n"
@@ -18591,13 +18816,13 @@ msgid ""
 "\t\ttime.  Recompile.~%Compilation order may be incorrect.~]"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "Representation selection flamed out for no ~\n"
 "\t\t             obvious reason."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "~S is not valid as the ~:R ~:[result~;argument~] to VOP:~\n"
 "\t        ~%  ~S~%Primitive type: ~S~@\n"
@@ -18612,225 +18837,390 @@ msgid ""
 "\t\ttime.  Recompile.~%Compilation order may be incorrect.~]"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "No :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~\n"
 "          ~S (SC ~S.)"
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "No move function defined to load SC ~S from constant ~\n"
 "\t             SC ~S."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "No move function defined to load SC ~S from alternate ~\n"
 "\t             SC ~S."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "No move function defined to save SC ~S to alternate ~\n"
 "\t             SC ~S."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid "<return value>"
 msgstr ""
 
-#: target:compiler/represent.lisp
-msgid "Couldn't fine op?  Bug!"
-msgstr ""
-
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid ""
 "Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~\n"
 "\t       The ~:R ~:[result~;argument~] of ~A."
 msgstr ""
 
-#: target:compiler/represent.lisp
+#: src/compiler/represent.lisp
 msgid "Doing ~A (cost ~D)~@[ from ~S~]~@[ to ~S~]."
 msgstr ""
 
-#: target:compiler/generic/vm-tran.lisp
-msgid ""
-"Argument and result bit arrays not the same length:~\n"
-"\t     \t     ~%  ~S~%  ~S"
+#: src/compiler/represent.lisp
+msgid "Couldn't fine op?  Bug!"
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid "Returns the number of bytes used by the code object header."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "The size of the Name'd SB in the currently compiled component.  Useful\n"
 "  mainly for finding the size for allocating stack frames."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "Return the TN that is used to hold the number stack frame-pointer in VOP's\n"
 "  function.  Returns NIL if no number stack frame was allocated."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "Return the TN that is used to hold the number stack frame-pointer in the\n"
 "  function designated by 2env.  Returns NIL if no number stack frame was\n"
 "  allocated."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "Return the TN used for passing the return PC in a local call to the "
 "function\n"
 "  designated by 2env."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid ""
 "Set to NIL to inhibit assembly-level optimization.  For compiler debugging,\n"
 "  rather than policy control."
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid "In the ~A segment:~%"
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid "~|~%Assembly code for ~S~2%"
 msgstr ""
 
-#: target:compiler/codegen.lisp
+#: src/compiler/codegen.lisp
 msgid "Missing generator for ~S.~%"
 msgstr ""
 
-#: target:compiler/debug.lisp
+#: src/compiler/debug.lisp
 msgid ""
 "This variable is bound to the format arguments when an error is signalled\n"
 "  by Barf or Burp."
 msgstr ""
 
-#: target:compiler/debug.lisp
+#: src/compiler/debug.lisp
 msgid ""
 "Action taken by the Burp function when a possible compiler bug is detected.\n"
 "  One of :Warn, :Error or :None."
 msgstr ""
 
-#: target:compiler/debug.lisp
+#: src/compiler/debug.lisp
 msgid ""
 "Return a list of a the TNs that conflict with TN.  Sort of, kind of.  For\n"
 "  debugging use only.  Probably doesn't work on :COMPONENT TNs."
 msgstr ""
 
-#: target:compiler/debug.lisp
+#: src/compiler/debug.lisp
 msgid "Return the Nth VOP in the IR2-Block pointed to by Thing."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "Compiler bug: ~S not a legal fasload operator."
+#: src/compiler/xref.lisp
+msgid "Reinitialize the cross-reference database."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "Tried to output ~D bytes, but only ~D made it."
+#: src/compiler/xref.lisp
+msgid ""
+"Return a list of those program contexts where a globally-defined\n"
+"function may be called at runtime."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "This object cannot be dumped into a fasl file:~% ~S"
+#: src/compiler/xref.lisp
+msgid ""
+"Return a list of those program contexts where GLOBAL-VARIABLE\n"
+"may be referenced at runtime."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "~S already dumped?"
+#: src/compiler/xref.lisp
+msgid ""
+"Return a list of those program contexts where GLOBAL-VARIABLE may\n"
+"be bound at runtime."
+msgstr ""
+
+#: src/compiler/xref.lisp
+msgid ""
+"Return a list of those program contexts where GLOBAL-VARIABLE may\n"
+"be set at runtime."
+msgstr ""
+
+#: src/compiler/dyncount.lisp
+msgid "When T, emit extra code to collect dynamic statistics about vop usages."
+msgstr ""
+
+#: src/compiler/dyncount.lisp
+msgid "Holds the TN for the counts vector."
+msgstr ""
+
+#: src/compiler/dump.lisp
+msgid "Compiler bug: ~S not a legal fasload operator."
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "Warning: dumping ~s as 0l0~%"
+#: src/compiler/dump.lisp
+msgid "Tried to output ~D bytes, but only ~D made it."
+msgstr ""
+
+#: src/compiler/dump.lisp
+msgid "This object cannot be dumped into a fasl file:~% ~S"
 msgstr ""
 
-#: target:compiler/dump.lisp
-msgid "Unable to dump long-float"
+#: src/compiler/dump.lisp
+msgid "~S already dumped?"
 msgstr ""
 
-#: target:compiler/dump.lisp
+#: src/compiler/dump.lisp
 msgid "Attempt to dump invalid structure:~%  ~S~%How did this happen?"
 msgstr ""
 
-#: target:compiler/dump.lisp
+#: src/compiler/dump.lisp
 msgid "Dumping reference to obsolete class: ~S"
 msgstr ""
 
-#: target:compiler/generic/core.lisp
+#: src/compiler/generic/core.lisp
+msgid "Unknown foreign symbol: ~S"
+msgstr ""
+
+#: src/compiler/generic/core.lisp
 msgid "Unresolved forward reference."
 msgstr ""
 
-#: target:compiler/generic/core.lisp
+#: src/compiler/generic/core.lisp
 msgid "#<Code Instruction Stream for ~S>"
 msgstr ""
 
-#: target:compiler/generic/core.lisp
+#: src/compiler/generic/core.lisp
 msgid "Writing ~D bytes to ~S would cause it to overflow."
 msgstr ""
 
-#: target:compiler/generic/core.lisp
+#: src/compiler/generic/core.lisp
 msgid "Writing another byte to ~S would cause it to overflow."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/generic/new-genesis.lisp
+msgid "Rounds number up to be an integral multiple of size."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Handle on Nil."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Number of bits in the low half of the descriptor"
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Alignment requirement for spaces in the target.\n"
+"  Must be at least (ash 1 descriptor-low-bits"
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Return a descriptor for a block of LENGTH bytes out of SPACE.  The free\n"
+"  pointer is boosted as necessary.  If any additional memory is needed, we\n"
+"  vm_allocate it.  The descriptor returned is a pointer of type LOWTAG."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Return the lowtag bits for DES."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Return the bits of DES."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Return a SAP pointing to the piece of memory DES refers to.  The lowtag\n"
+"  bits of DES are ignored."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Handle on the trap object."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Head of list of functions to be called when the Lisp starts up."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Used by normal loader."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Write VALUE (a descriptor) INDEX words from ADDRESS (also a descriptor)."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Write VALUE (a descriptor) at ADDRESS (also a descriptor)."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Return the value (as a descriptor) INDEX words from ADDRESS (a descriptor)."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Return the value at ADDRESS (a descriptor)."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Allocate LENGTH words in SPACE and return a new descriptor of type LOWTAG\n"
+"  pointing to them."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Allocate LENGTH units of ELEMENT-SIZE bits plus a header word in SPACE and\n"
+"  return an ``other-pointer'' descriptor to them.  Initialize the header "
+"word\n"
+"  with the resultant length and TYPE."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Allocate LENGTH units of ELEMENT-SIZE plus a header plus a length slot in\n"
+"  SPACE and return an ``other-pointer'' descriptor to them.  Initialize the\n"
+"  header word with TYPE and the length slot with LENGTH."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Copy string into the CORE and return a descriptor to it."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Copy the bignum to the core."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Makes a number pair of TYPE (ratio or complex) and fills it in."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Copy the given number to the core, or flame out if we can't deal with it."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Allocate a cons cell in SPACE and fill it in with CAR and CDR."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Generates code to push the THING onto the given cold load LIST."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Initializes the cold load symbol-hacking data structures."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "FOP functions for cold loading."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid "Loads the file named by FileName into the cold load image being built."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Return the version number from the symbol table file Filename.\n"
+"  Value is 0 if Filename is null or the file doesn't exist."
+msgstr ""
+
+#: src/compiler/generic/new-genesis.lisp
+msgid ""
+"Builds a kernel Lisp image from the .FASL files specified in the given\n"
+"  File-List and writes it to a file named by Core-Name."
+msgstr ""
+
+#: src/compiler/eval-comp.lisp
 msgid "Fatal error, aborting evaluation."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/eval-comp.lisp
 msgid "Wrong argument count, wanted ~D and got ~D."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/eval-comp.lisp
 msgid "Wrong number of arguments passed -- ~S."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/eval-comp.lisp
 msgid "Function called with odd number of keyword arguments."
 msgstr ""
 
-#: target:compiler/eval-comp.lisp
+#: src/compiler/eval-comp.lisp
 msgid "Unknown keyword argument -- ~S."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "[PUSH: growing stack.]~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "pushing ~D.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "Attempt to pop empty eval stack."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "popping ~D --> ~S.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "[EXTEND: growing stack.]~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "extending to ~D.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "shrinking to ~D.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "setting top to ~D.~%"
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid ""
 "If the interpreted function cache has more functions than this come GC "
 "time,\n"
@@ -18838,180 +19228,180 @@ msgid ""
 "  *INTERPRETED-FUNCTION-CACHE-THRESHOLD*."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid ""
 "If an interpreted function goes uncalled for more than this many GCs, then\n"
 "  it is eligible for flushing from the cache."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid ""
 "Clear all entries in the eval function cache.  This allows the internal\n"
 "  representation of the functions to be reclaimed, and also lazily forces\n"
 "  macroexpansions to be recomputed."
 msgstr ""
 
-#: target:compiler/eval.lisp
+#: src/compiler/eval.lisp
 msgid "C::%UNKNOWN-VALUES should never be in interpreter's IR1."
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "Unknown XOP ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "Unknown inline function: ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "Can't find ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~|~%;;;; Byte component ~S~2%"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid ";;; Functions:~%"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~%;;;Disassembly:~2%"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "<bogus index>"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "Entry point, frame-size=~D~%"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-local ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-arg ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-const ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-sys-const ~S"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-int ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "push-neg-int ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "pop-local ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "pop-n ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~:[~;named-~]call, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~:[~;named-~]tail-call, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "~:[~;named-~]multiple-call, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "local call ~D, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "local tail-call ~D, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "local multiple-call ~D, ~D args"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "return, ~D vals"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "branch ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "if-true ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "if-false ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "if-eq ~D"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "xop ~A~@[ ~D~]"
 msgstr ""
 
-#: target:compiler/byte-comp.lisp
+#: src/compiler/byte-comp.lisp
 msgid "inline ~A"
 msgstr ""
 
-#: target:pcl/init.lisp target:pcl/defclass.lisp target:pcl/macros.lisp
+#: src/pcl/init.lisp src/pcl/defclass.lisp src/pcl/macros.lisp
 msgid "Malformed plist in doplist, odd number of elements."
 msgstr ""
 
-#: target:pcl/macros.lisp
+#: src/pcl/macros.lisp
 msgid "~@<~S is not a legal class name.~@:>"
 msgstr ""
 
-#: target:pcl/macros.lisp
+#: src/pcl/macros.lisp
 msgid "No class named ~S."
 msgstr ""
 
-#: target:pcl/macros.lisp
+#: src/pcl/macros.lisp
 msgid "~S is not a legal class name."
 msgstr ""
 
-#: target:pcl/macros.lisp
+#: src/pcl/macros.lisp
 msgid ""
 "Returns the PCL class metaobject named by SYMBOL. An error of type\n"
 "   SIMPLE-ERROR is signaled if the class does not exist unless ERRORP\n"
 "   is NIL in which case NIL is returned. SYMBOL cannot be a keyword."
 msgstr ""
 
-#: target:pcl/low.lisp
+#: src/pcl/low.lisp
 msgid "Set the name of a compiled function object and return the function."
 msgstr ""
 
-#: target:pcl/low.lisp
+#: src/pcl/low.lisp
 msgid ""
 "PCL debugging aid that breaks into the debugger each time\n"
 "`compile-lambda' is invoked."
 msgstr ""
 
-#: target:pcl/low.lisp
+#: src/pcl/low.lisp
 msgid ""
 "If true (the default), then `compile-lambda' will try to silence\n"
 "the compiler as completely as possible.  Currently this means that\n"
 "`*compile-print*' will be bound to nil during compilation."
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid ""
 "~@<The declaration ~S is not understood by ~S. ~\n"
 "                               Please put ~S on one of the lists ~S, ~S, or "
@@ -19021,53 +19411,57 @@ msgid ""
 "                               argument).~@:>"
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid "~@<Invalid slot access specifier ~s in ~s.~@:>"
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid "~@<Invalid slot access declaration ~s.~@:>"
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid "~@<Invalid auto-compile specifier ~s in ~s.~@:>"
 msgstr ""
 
-#: target:pcl/info.lisp
+#: src/pcl/info.lisp
 msgid "~@<Invalid auto-compile declaration ~s.~@:>"
 msgstr ""
 
-#: target:pcl/fin.lisp
+#: src/pcl/fin.lisp
 msgid ""
 "~@<Attempt to funcall a funcallable instance without first ~\n"
 "          setting its function.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
+msgid "Defclass already names a declaration: ~S."
+msgstr ""
+
+#: src/pcl/defclass.lisp
 msgid "~S is not a legal defclass option."
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid ""
 "~@<The value of the ~s option (~s) is not a legal ~\n"
 "\t        class name.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid "~@<~S is not a legal slot specification.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid ""
 "~@<In the class definintion of ~s, the slot specification ~s ~\n"
 "                 is obsolete.  Convert it to ~s.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid "~@<~S is not a class in *early-class-definitions*.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid ""
 "~@<More than one early class defines a slot with the ~\n"
 "                    name ~S.  This can't work because the bootstrap ~\n"
@@ -19075,55 +19469,59 @@ msgid ""
 "                    slots.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid "Discard it."
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid ""
 "~@<The defclass option ~S is not supported by ~\n"
 "                                 the bootstrap object system.~@:>"
 msgstr ""
 
-#: target:pcl/defclass.lisp
+#: src/pcl/defclass.lisp
 msgid "Slot ~S not found in class ~S"
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid ""
 "~@<Trying to load (or compile) PCL in an environment in which it ~\n"
 "            has already been loaded.  This doesn't work, you will have to ~\n"
 "            get a fresh lisp (reboot) and then load PCL.~@:>"
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid "Try loading (or compiling) PCL anyways."
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
+msgid "Obsolete, don't use."
+msgstr ""
+
+#: src/pcl/defs.lisp
 msgid "~@<~S is not a legal specializer type.~@:>"
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid "~@<~s is neither a type nor a specializer.~@:>"
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid "Bad argument to type-class."
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid "~s is not a type."
 msgstr ""
 
-#: target:pcl/defs.lisp
+#: src/pcl/defs.lisp
 msgid ""
 "For class slots, the class defininig the slot.\n"
 "For inherited class slots, this is the superclass from which the slot\n"
 "was inherited."
 msgstr ""
 
-#: target:pcl/fngen.lisp
+#: src/pcl/fngen.lisp
 msgid ""
 "Flush cached emf functions.  If GF is supplied, it should be a\n"
 "   generic function metaobject or the name of a generic function, and\n"
@@ -19131,137 +19529,137 @@ msgid ""
 "   function.  If GF is not supplied, all cached emfs are flushed."
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Wrapper ~S"
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Unknown wrapper state"
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid ""
 "~@<PCL cannot handle the specializer ~S ~\n"
 "                                (meta-specializer ~S).~@:>"
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Line is reserved."
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid ""
 "~@<Bad cache ~S: Value at location ~D is ~D ~\n"
 "                               lines from its home, limit is ~D.~@:>"
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Attempt to fill a reserved cache line."
 msgstr ""
 
-#: target:pcl/cache.lisp
+#: src/pcl/cache.lisp
 msgid "Transfering something into a reserved cache line."
 msgstr ""
 
-#: target:pcl/dlisp.lisp
+#: src/pcl/dlisp.lisp
 msgid "Every metatype is T."
 msgstr ""
 
-#: target:pcl/dlisp.lisp
+#: src/pcl/dlisp.lisp
 msgid "Can't do a slot reg for this metatype."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~~@<Generic function ~a: ~?.~~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Invalid generic function parameter name ~a"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "Optional and key parameters of generic functions ~\n"
 "                   may not have default values or supplied-p ~\n"
 "                   parameters: ~<~s~>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~s is not allowed in generic function lambda lists"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~~@<Generic function ~~s: ~?.~~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "The option ~s appears more than once"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Declaration specifier ~s is not allowed"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "Argument precedence order must list all ~\n"
 "                           required parameters and only those: ~s"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "Duplicate parameter names in argument ~\n"
 "                           precedence order: ~s"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Special operators cannot be made generic functions"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Unsupported option ~s"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "If true, allow inlining of methods in effective methods."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<Defining method ~s ~s ~s using inline slot access in a ~\n"
 "                   non-null lexical environment means that it cannot be ~\n"
 "                   automatically recompiled.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "The method-lambda argument to make-method-function, ~S,~\n"
 "            is not a lambda form"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "Assignment to method parameter~p ~{~s~^, ~} ~\n"
 "                           might prevent CLOS optimizations"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Wrong number of args."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "1 or 2 args expected."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "1 arg expected."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<The set of methods ~s applicable to argument~p ~\n"
 "                ~{~s~^, ~} to call-next-method is different from ~\n"
@@ -19269,11 +19667,11 @@ msgid ""
 "                method argument~p ~{~s~^, ~}.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "When true, compile interpreted method functions."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~&~@<At the time the method with qualifiers ~S and ~\n"
 "               specializers ~S on the generic function ~S ~\n"
@@ -19283,381 +19681,381 @@ msgid ""
 "               may mean that this method was compiled improperly.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<~S already names an ordinary function or a macro.  ~\n"
 "\tIf you want to replace it with a generic function, you should remove ~\n"
 "        the existing definition beforehand.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<Discard the existing definition of ~S.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<The lambda-list ~S is incompatible with ~\n"
 "                      existing methods of ~S.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~~@<Attempt to add the method ~~S to the generic ~\n"
 "                           function ~~S, but ~?.~~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "more"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "fewer"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "the method has ~A required arguments than the ~\n"
 "                 generic function"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "the method has ~S optional arguments than the ~\n"
 "                 generic function"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "the method and generic function differ in whether ~\n"
 "                 they accept rest or keyword arguments"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "the method does not accept each of the keyword ~\n"
 "                   arguments ~S"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<The function ~S is not already defined.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<~S should be on the list ~S.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<The function of the funcallable instance ~S ~\n"
 "\t\t\t has not been set.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<No way to determine the lambda list~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<The ~s argument (~S) was neither a class nor a ~\n"
 "                    symbol naming a class.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~S is not an early-method."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Early add-method didn't get a funcallable instance."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Early add-method didn't get an early method."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Early remove-method didn't get a funcallable instance."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Early remove-method didn't get an early method."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "Can't get early method."
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~@<Qualifiers must be non-null atoms: ~s~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid ""
 "~@<~S used as a specializer, ~\n"
 "                             but is not the name of a class.~@:>"
 msgstr ""
 
-#: target:pcl/boot.lisp
+#: src/pcl/boot.lisp
 msgid "~S is not a legal specializer."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Set to true to activate the inline slot access optimization."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "When true, check slot values against specified slot types."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "When true, optimize slot access through slot reader/writer functions."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Cannot optimize slot access to"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "The class is not a standard class"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "The class doesn't contain a slot with name ~s"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Slot ~s is a class slot"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "There are non-standard accessors for slot ~s"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid ""
 "Slot ~s is not at the same location ~\n"
 "                               in the class and all of its subclasses"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Auto-compiling method ~s."
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid ""
 "Methods may need to be recompiled for the changed ~\n"
 "                    class layout of"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "The class is not defined at compile time"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid ""
 "~s has a method that is not a standard ~\n"
 "                                    slot accessor"
 msgstr ""
 
-#: target:pcl/method-slot-access-optimization.lisp
+#: src/pcl/method-slot-access-optimization.lisp
 msgid "Methods of ~s access different slots"
 msgstr ""
 
-#: target:pcl/slots-boot.lisp
+#: src/pcl/slots-boot.lisp
 msgid "~@<~S is not a standard-class.~@:>"
 msgstr ""
 
-#: target:pcl/slots-boot.lisp
+#: src/pcl/slots-boot.lisp
 msgid ""
 "~@<Slot ~S in class ~S ~\n"
 "                       does not have standard allocation.~@:>"
 msgstr ""
 
-#: target:pcl/slots-boot.lisp
+#: src/pcl/slots-boot.lisp
 msgid ""
 "~@<Slot ~S in class ~S ~\n"
 "                      does not have standard allocation.~@:>"
 msgstr ""
 
-#: target:pcl/slots-boot.lisp
+#: src/pcl/slots-boot.lisp
 msgid ""
 "~@<The wrapper for class ~S does not have ~\n"
 "                               the slot ~S.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp target:pcl/combin.lisp
+#: src/pcl/defcombin.lisp src/pcl/combin.lisp
 msgid "has more than one qualifier"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid "has an invalid qualifier"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid ""
 "~@<~s was called outside the dynamic scope ~\n"
 "            of a method combination function (inside the body of ~\n"
 "            ~s or a method on the generic function ~s).~@:>"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid "~@<~S used outside of a effective method form.~@:>"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid ""
 "~@<Invalid keyword argument~p ~{~s~^, ~}.  ~\n"
 "               Valid keywords are: ~{~s~^, ~}.~@:>"
 msgstr ""
 
-#: target:pcl/combin.lisp
+#: src/pcl/combin.lisp
 msgid "Invalid keyword argument ~s"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~@<Slot ~s of class ~s is unbound in object ~s~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid ""
 "~@<Cannot get standard value of slot ~s of class ~s ~\n"
 "                in object ~s~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~&Name ~S  caching cost ~D  dispatch cost ~D~%"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid ""
 "Precompute effective methods at method load time if the generic\n"
 "   function has less than this number of methods.  If zero,\n"
 "   no effective methods are precomputed at method load time."
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~@<The function ~S requires at least ~D arguments.~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~<The function ~S requires at least ~D arguments.~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid ""
 "~@<Vicious metacircle:  The computation of an ~\n"
 "\t   effective method of ~s for arguments of types ~s uses ~\n"
 "\t   the effective method being computed.~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "This can't happen."
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~@<~s cannot handle the second argument ~s.~@:>"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~&There are ~4d dfuns of type ~s"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "~&DFUN constructor caching is ~A."
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "enabled"
 msgstr ""
 
-#: target:pcl/dfun.lisp
+#: src/pcl/dfun.lisp
 msgid "disabled"
 msgstr ""
 
-#: target:pcl/ctor.lisp
+#: src/pcl/ctor.lisp
 msgid "~@<Not a property list: ~S.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<The function of the funcallable instance ~S ~\n"
 "                 has not been set.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<Slot allocation ~S is not supported ~\n"
 "                          in bootstrap.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid "The standard method combination."
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "In *built-in-classes*: ~S has ~S as a superclass,~%~\n"
 "                but ~S is not itself a class in *built-in-classes*."
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid "~@<~S is not the name of a class.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<No matching method for the generic function ~\n"
 "                             ~S, when called with arguments ~S.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid "Retry call to ~S."
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid "~@<In method ~S: No next method for arguments ~S.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<Generic function ~S: ~\n"
 "                             No primary method given arguments ~S~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<In a call to ~s with arguments ~:s: ~\n"
 "              The method ~s has invalid qualifiers for method ~\n"
 "              combination ~s.~@:>"
 msgstr ""
 
-#: target:pcl/braid.lisp
+#: src/pcl/braid.lisp
 msgid ""
 "~@<In a call to ~s with arguments ~:s: ~\n"
 "              The methods ~{~s~^, ~} have invalid qualifiers for ~\n"
 "              method combination ~s.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "~@<The slot ~S is unbound in the object ~S.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "is not a symbol and so cannot be bound"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "is a keyword and so cannot be bound"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "cannot be bound"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "is a constant and so cannot be bound"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid ""
 "~@<The slot ~s has neither ~s nor ~s ~\n"
 "                           allocation, so it can't be read by the default ~s "
@@ -19665,13 +20063,13 @@ msgid ""
 "                           method.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid ""
 "~@<The slot ~s has neither ~s nor ~s allocation, ~\n"
 "               so it can't be written by the default ~s method.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid ""
 "~@<The slot ~s has neither ~s nor ~s ~\n"
 "                           allocation, so it can't be read by the default ~s "
@@ -19679,241 +20077,241 @@ msgid ""
 "\t\t\t   method.~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "Structure slots cannot be unbound."
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "Condition slots cannot be unbound."
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid ""
 "~~@<When attempting to ~A, the slot ~S is missing ~\n"
 "                from the object ~S.~~@:>"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "read the slot's value (slot-value)"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "set the slot's value to ~S (setf of slot-value)"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "test to see if slot is bound (slot-boundp)"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "make the slot unbound (slot-makunbound)"
 msgstr ""
 
-#: target:pcl/slots.lisp
+#: src/pcl/slots.lisp
 msgid "~@<Can't allocate an instance of class ~S.~@:>"
 msgstr ""
 
-#: target:pcl/init.lisp
+#: src/pcl/init.lisp
 msgid ""
 "~@<Invalid initialization argument~P ~2I~_~\n"
 "                         ~<~{~S~^, ~}~@:> ~I~_in call for class ~S.~:>"
 msgstr ""
 
-#: target:pcl/seal.lisp
+#: src/pcl/seal.lisp
 msgid "~@<Invalid sealing specifier ~s.~@:>"
 msgstr ""
 
-#: target:pcl/seal.lisp
+#: src/pcl/seal.lisp
 msgid "~s is sealed wrt ~a"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid ""
 "~~@<While computing the class precedence list ~\n"
 "                of the class ~A: ~?.~~@:>"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "named ~S"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "The class ~A is a forward referenced class"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid ""
 "The class ~A is a forward referenced class. ~\n"
 "                      The class ~A is ~A."
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "a direct superclass of the class ~A"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid ""
 "reached from the class ~A by following~@\n"
 "                                  the direct superclass chain through: ~A~\n"
 "                                  ~%  ending at the class ~A"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "~{~%  the class ~A,~}"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid ""
 "It is not possible to compute the class precedence list because ~\n"
 "       there ~A in the local precedence relations.  ~\n"
 "       ~A because:~{~%  ~A~}."
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "are circularities"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "is a circularity"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "These arise"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "This arises"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "the class ~A appears in the supers of the class ~A"
 msgstr ""
 
-#: target:pcl/cpl.lisp
+#: src/pcl/cpl.lisp
 msgid "the class ~A follows the class ~A in the supers of the class ~A"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "Instance"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<Structure slots must have ~s allocation.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<~S doesn't seem to have a method function.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<Attempt to reinitialize the method ~S.  ~\n"
 "          Method objects cannot be reinitialized.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<When initializing the method ~S, ~\n"
 "                   the ~S initialization argument was ~S, ~\n"
 "                   which ~A.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "is not a string or NULL"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "is not a function"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "Contains ~S which ~A"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "is not a non-null atom"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "is neither a class object nor an eql specializer"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "The value of the ~s initarg, ~s, ~A."
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~~@<When initializing the generic-function ~S: ~\n"
 "                               The ~S initialization argument was ~A.  ~\n"
 "                               It must be ~A.~~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<~S does not name a generic function.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<There is no method for the generic function ~S ~\n"
 "                   matching argument specifiers ~S.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<No method on ~S with qualifiers ~S and ~\n"
 "           specializers ~S.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<No method on ~S with qualifiers ~S and ~\n"
 "            specializers ~S.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<The generic function ~s takes ~d required argument~p.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<The method ~S is already part of the generic ~\n"
 "            function ~S.  It can't be added to another generic ~\n"
 "            function until it is removed from the first one.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<Method ~s contains invalid qualifiers for ~\n"
 "                        the standard method combination.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid ""
 "~@<Method ~s contains invalid qualifiers for ~\n"
 "                          the method combination ~s.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "~@<Generic function ~S requires at least ~D arguments.~@:>"
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "In get-accessor-method-function."
 msgstr ""
 
-#: target:pcl/methods.lisp
+#: src/pcl/methods.lisp
 msgid "The key for the last case arg to mcase was not T."
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid ""
 "~@<Invalid options to a short method combination type.  ~\n"
 "            The method combination type ~S accepts one option which ~\n"
 "            must be either ~s or ~s.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid ""
 "~@<The method ~S ~A.  ~\n"
 "                    The method combination type ~S was defined with the ~\n"
@@ -19922,95 +20320,95 @@ msgid ""
 "\t\t    ~s.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "has no qualifiers"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "has an illegal qualifier"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid ""
 "~@<More than one method of type ~S ~\n"
 "                                     with the same specializers.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "No ~S methods."
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid ""
 "~@<In the method group specifier ~S, ~\n"
 "                   ~S isn't a valid qualifier pattern.~@:>"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "methods matching one of the patterns: ~{~S, ~} ~S"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "methods matching the pattern: ~S"
 msgstr ""
 
-#: target:pcl/defcombin.lisp
+#: src/pcl/defcombin.lisp
 msgid "Invalid parameter specifier: ~s"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~%~S is an instance of class ~S:"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~% The following slots have :INSTANCE allocation:"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~% The following slots have :CLASS allocation:"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~% The following slots have allocation as shown:"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~A is a generic function.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Its lambda-list is:~%  ~S~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Generic function documentation:~%  ~s~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Its methods are:~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "    Method documentation: ~s~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&~@<~S is a class, it is an instance of ~S.~@:>~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Its proper name is ~S.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "Its name is ~S, but this is not a proper name.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "It has no name (the name is NIL).~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid ""
 "The direct superclasses are: ~:S, and the direct~%~\n"
 "           subclasses are: ~:S.  The class is ~:[not ~;~]finalized.  ~\n"
@@ -20018,71 +20416,63 @@ msgid ""
 "           There are ~D methods specialized for this class."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&Its direct slots are:~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "  ~a, documentation ~s~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&~S is a ~S.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "It has ~D internal and ~D external symbols (~D total).~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "It uses the packages ~{~S~^, ~}.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "It is used by the packages ~{~S~^, ~}.~%"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&~S is an ~a hash table."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&Its size is ~d buckets."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&Its rehash-size is ~d."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~&Its rehash-threshold is ~d."
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~@<Default ~s method for ~s called.~@>"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~@<Can't dump wrapper for anonymous class ~S.~@:>"
 msgstr ""
 
-#: target:pcl/env.lisp
+#: src/pcl/env.lisp
 msgid "~@<Can't use anonymous or undefined class as constant: ~S~:@>"
 msgstr ""
 
-#: target:pcl/cmucl-documentation.lisp
-msgid "Invalid function name ~s"
-msgstr ""
-
-#: target:pcl/cmucl-documentation.lisp
-msgid "~@<~S is not the name of a structure type.~@:>"
-msgstr ""
-
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 #, fuzzy
 msgid ""
 "Returns a type specifier for the kind of object returned by the\n"
@@ -20090,21 +20480,21 @@ msgid ""
 "  which returns CHARACTER."
 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Return true if Stream is not closed.  A default method is provided\n"
 "  by class FUNDAMENTAL-STREAM which returns true if CLOSE has not been\n"
 "  called on the stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Closes the given Stream.  No more I/O may be performed, but\n"
 "  inquiries may still be made.  If :Abort is non-nil, an attempt is made\n"
 "  to clean up the side effects of having created the stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This reads one character from the stream.  It returns either a\n"
 "  character object, or the symbol :EOF if the stream is at end-of-file.\n"
@@ -20112,14 +20502,14 @@ msgid ""
 "  method for this function."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Un-does the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.\n"
 "  Returns NIL.  Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM\n"
 "  must define a method for this function."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This is used to implement READ-CHAR-NO-HANG.  It returns either a\n"
 "  character, or NIL if no input is currently available, or :EOF if\n"
@@ -20129,14 +20519,14 @@ msgid ""
 "  their own method."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Used to implement PEEK-CHAR; this corresponds to peek-type of NIL.\n"
 "  It returns either a character or :EOF.  The default method calls\n"
 "  STREAM-READ-CHAR and STREAM-UNREAD-CHAR."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Used by LISTEN.  Returns true or false.  The default method uses\n"
 "  STREAM-READ-CHAR-NO-HANG and STREAM-UNREAD-CHAR.  Most streams should \n"
@@ -20144,7 +20534,7 @@ msgid ""
 "  always be more efficient than the default method."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Used by READ-LINE.  A string is returned as the first value.  The\n"
 "  second value is true if the string was terminated by end-of-file\n"
@@ -20152,24 +20542,24 @@ msgid ""
 "  calls to STREAM-READ-CHAR."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Implements CLEAR-INPUT for the stream, returning NIL.  The default\n"
 "  method does nothing."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid "Implements READ-SEQUENCE for the stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Writes character to the stream and returns the character.  Every\n"
 "  subclass of FUNDAMENTAL-CHARACTER-OUTPUT-STREAM must have a method\n"
 "  defined for this function."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This function returns the column number where the next character\n"
 "  will be written, or NIL if that is not meaningful for this stream.\n"
@@ -20180,11 +20570,11 @@ msgid ""
 "  always return NIL."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid "Return the stream line length or Nil."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This is a predicate which returns T if the stream is positioned at\n"
 "  the beginning of a line, else NIL.  It is permissible to always return\n"
@@ -20200,7 +20590,7 @@ msgid ""
 "  either STREAM-START-LINE-P or STREAM-FRESH-LINE."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "This is used by WRITE-STRING.  It writes the string to the stream,\n"
 "  optionally delimited by start and end, which default to 0 and NIL.\n"
@@ -20209,13 +20599,13 @@ msgid ""
 "  STREAM-WRITE-CHAR."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Writes an end of line, as for TERPRI.  Returns NIL.  The default\n"
 "  method does (STREAM-WRITE-CHAR stream #NEWLINE)."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Outputs a new line to the Stream if it is not positioned at the\n"
 "  begining of a line.  Returns T if it output a new line, nil\n"
@@ -20223,26 +20613,26 @@ msgid ""
 "  STREAM-START-LINE-P and STREAM-TERPRI."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Attempts to ensure that all output sent to the Stream has reached\n"
 "  its destination, and only then returns false. Implements\n"
 "  FINISH-OUTPUT.  The default method does nothing."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Attempts to force any buffered output to be sent. Implements\n"
 "  FORCE-OUTPUT.  The default method does nothing."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Clears the given output Stream. Implements CLEAR-OUTPUT.  The\n"
 "  default method does nothing."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Writes enough blank space so that the next character will be\n"
 "  written at the specified column.  Returns true if the operation is\n"
@@ -20252,26 +20642,30 @@ msgid ""
 "  #SPACE character; it returns NIL if STREAM-LINE-COLUMN returns NIL."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid "Implements WRITE-SEQUENCE for the stream."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Used by READ-BYTE; returns either an integer, or the symbol :EOF\n"
 "  if the stream is at end-of-file."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid ""
 "Implements WRITE-BYTE; writes the integer to the stream and\n"
 "  returns the integer as the result."
 msgstr ""
 
-#: target:pcl/gray-streams.lisp
+#: src/pcl/gray-streams.lisp
 msgid "    Gray Streams Protocol Support"
 msgstr ""
 
+#, fuzzy
+#~ msgid "Skip this form."
+#~ msgstr "현재의 역동적인 공간은 ~D입니다.~%"
+
 #, fuzzy
 #~ msgid ""
 #~ "Function previously called with ~R argument~:P, but wants at least ~R."
-- 
GitLab