From 08ce8e1e70b935bc0a6413765b775e4c7247b7f9 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Mon, 19 Jul 2010 21:46:43 +0000
Subject: [PATCH] Update from current sources.

---
 .../en@piglatin/LC_MESSAGES/cmucl-bsd-os.po   |   8 +
 .../en@piglatin/LC_MESSAGES/cmucl-linux-os.po |  10 +-
 .../LC_MESSAGES/cmucl-sparc-svr4.po           |  46 +-
 .../en@piglatin/LC_MESSAGES/cmucl-sparc-vm.po | 363 ++++----
 .../en@piglatin/LC_MESSAGES/cmucl-sunos-os.po |  10 +-
 .../LC_MESSAGES/cmucl-unix-glibc2.po          | 828 +++++++++---------
 .../en@piglatin/LC_MESSAGES/cmucl-x86-vm.po   |  92 +-
 i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po  |  98 +--
 i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po    |   8 +
 i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po  |  10 +-
 .../locale/ko/LC_MESSAGES/cmucl-sparc-svr4.po |  46 +-
 i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po  | 363 ++++----
 i18n/locale/ko/LC_MESSAGES/cmucl-sunos-os.po  |  10 +-
 .../ko/LC_MESSAGES/cmucl-unix-glibc2.po       | 828 +++++++++---------
 i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po    |  74 +-
 i18n/locale/ko/LC_MESSAGES/cmucl.po           |  77 +-
 16 files changed, 1468 insertions(+), 1403 deletions(-)

diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po
index f5e1dd82c..9889342e3 100644
--- a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-bsd-os.po
@@ -32,3 +32,11 @@ msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
 #: src/code/bsd-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr "Etpagesizegay ailedfay: ~Away"
+
+#: src/code/signal.lisp
+msgid "Emt instruction"
+msgstr "Emtway instructionway"
+
+#: src/code/signal.lisp
+msgid "Bad argument to system call"
+msgstr "Adbay argumentway otay ystemsay allcay"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po
index 361f07628..195f35b87 100644
--- a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-linux-os.po
@@ -15,16 +15,20 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
-#: target:code/linux-os.lisp
+#: src/code/linux-os.lisp
 msgid "Returns a string describing version of the supporting software."
 msgstr ""
 "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
 "oftwaresay."
 
-#: target:code/linux-os.lisp
+#: src/code/linux-os.lisp
 msgid "Unix system call getrusage failed: ~A."
 msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
 
-#: target:code/linux-os.lisp
+#: src/code/linux-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr "Etpagesizegay ailedfay: ~Away"
+
+#: src/code/signal.lisp
+msgid "Stack fault on coprocessor"
+msgstr "Tacksay aultfay onway oprocessorcay"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-svr4.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-svr4.po
index 46dc84b19..110df4990 100644
--- a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-svr4.po
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-svr4.po
@@ -15,28 +15,64 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "Returns a string describing the type of the local machine."
 msgstr ""
 "Eturnsray away ingstray escribingday ethay ypetay ofway ethay ocallay "
 "achinemay."
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "Returns a string describing the version of the local machine."
 msgstr ""
 "Eturnsray away ingstray escribingday ethay ersionvay ofway ethay ocallay "
 "achinemay."
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "Unaligned instruction?  offset=#x~X."
 msgstr "Unalignedway instructionway?  offsetway=#x~X."
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "Can't deal with CALL fixups, yet."
 msgstr "Ancay't ealday ithway CALL ixupsfay, etyay."
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "XRS ID invalid but attempting to access double-float register ~d!"
 msgstr ""
 "XRS ID invalidway utbay attemptingway otay accessway oubleday-oatflay "
 "egisterray ~d!"
+
+#: src/code/signal.lisp
+msgid "Emt instruction"
+msgstr "Emtway instructionway"
+
+#: src/code/signal.lisp
+msgid "Bad argument to system call"
+msgstr "Adbay argumentway otay ystemsay allcay"
+
+#: src/code/signal.lisp
+msgid "Process's lwps are blocked"
+msgstr "Ocesspray's wpslay areway ockedblay"
+
+#: src/code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr "onay ebugday infoway: ~Away:~Away"
+
+#: src/code/debug-int.lisp
+msgid "find the PC"
+msgstr "indfay ethay PC"
+
+#: src/code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr "Ocallay onnay-escriptorday egisterray accessway?"
+
+#: src/code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr "Ocallay interiorway egisterray accessway?"
+
+#: src/code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr "Eakpointbray atthay obodynay antsway?"
+
+#: src/code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr "BREAKPOINT-DO-DISPLACED-INST eturnedray?"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-vm.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-vm.po
index 22427ae19..90e1c652d 100644
--- a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-vm.po
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sparc-vm.po
@@ -15,48 +15,48 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bits per word where a word holds one lisp descriptor."
 msgstr ""
 "Umbernay ofway itsbay erpay ordway erewhay away ordway oldshay oneway isplay "
 "escriptorday."
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid ""
 "Number of bits per byte where a byte is the smallest addressable object."
 msgstr ""
 "Umbernay ofway itsbay erpay ytebay erewhay away ytebay isway ethay "
 "mallestsay addressableway objectway."
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bits needed to represent a character"
 msgstr "Umbernay ofway itsbay eedednay otay epresentray away aracterchay"
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bytes needed to represent a character"
 msgstr "Umbernay ofway ytesbay eedednay otay epresentray away aracterchay"
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bits to shift between word addresses and byte addresses."
 msgstr ""
 "Umbernay ofway itsbay otay iftshay etweenbay ordway addressesway andway "
 "ytebay addressesway."
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bytes in a word."
 msgstr "Umbernay ofway ytesbay inway away ordway."
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bits at the low end of a pointer used for type information."
 msgstr ""
 "Umbernay ofway itsbay atway ethay owlay endway ofway away ointerpay usedway "
 "orfay ypetay informationway."
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Mask to extract the low tag bits from a pointer."
 msgstr "Askmay otay extractway ethay owlay agtay itsbay omfray away ointerpay."
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid ""
 "Exclusive upper bound on the value of the low tag bits from a\n"
 "  pointer."
@@ -65,27 +65,27 @@ msgstr ""
 "itsbay omfray away\n"
 "  ointerpay."
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of tag bits used for a fixnum"
 msgstr "Umbernay ofway agtay itsbay usedway orfay away ixnumfay"
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Mask to get the fixnum tag"
 msgstr "Askmay otay etgay ethay ixnumfay agtay"
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Maximum number of bits in a positive fixnum"
 msgstr "Aximummay umbernay ofway itsbay inway away ositivepay ixnumfay"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "~S isn't a register."
 msgstr "~S isnway't away egisterray."
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "~S isn't a floating-point register."
 msgstr "~S isnway't away oatingflay-ointpay egisterray."
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid ""
 "If non-NIL, print registers using the Lisp register names.\n"
 "Otherwise, use the Sparc register names"
@@ -94,30 +94,25 @@ msgstr ""
 "amesnay.\n"
 "Otherwiseway, useway ethay Arcspay egisterray amesnay"
 
-#: target:assembly/sparc/arith.lisp target:assembly/sparc/array.lisp
-#: target:assembly/sparc/assem-rtns.lisp target:compiler/sparc/type-vops.lisp
-#: target:compiler/sparc/pred.lisp target:compiler/sparc/array.lisp
-#: target:compiler/sparc/print.lisp target:compiler/sparc/nlx.lisp
-#: target:compiler/sparc/call.lisp target:compiler/sparc/alloc.lisp
-#: target:compiler/sparc/values.lisp target:compiler/sparc/cell.lisp
-#: target:compiler/sparc/c-call.lisp target:compiler/sparc/debug.lisp
-#: target:compiler/sparc/subprim.lisp target:compiler/sparc/arith.lisp
-#: target:compiler/sparc/static-fn.lisp target:compiler/sparc/memory.lisp
-#: target:compiler/sparc/char.lisp target:compiler/sparc/system.lisp
-#: target:compiler/sparc/sap.lisp target:compiler/sparc/float.lisp
-#: target:compiler/sparc/move.lisp target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/array.lisp src/compiler/sparc/call.lisp
+#: src/compiler/sparc/alloc.lisp src/compiler/sparc/cell.lisp
+#: src/compiler/sparc/c-call.lisp src/compiler/sparc/debug.lisp
+#: src/compiler/sparc/arith.lisp src/compiler/sparc/static-fn.lisp
+#: src/compiler/sparc/char.lisp src/compiler/sparc/system.lisp
+#: src/compiler/sparc/sap.lisp src/compiler/sparc/float.lisp
+#: src/compiler/sparc/move.lisp src/compiler/sparc/insts.lisp
 msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr "Unknownway SC otay SC-Asecay orfay ~S:~%  ~S"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "The Lisp names for the Sparc integer registers"
 msgstr "Ethay Isplay amesnay orfay ethay Arcspay integerway egistersray"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "The standard names for the Sparc integer registers"
 msgstr "Ethay tandardsay amesnay orfay ethay Arcspay integerway egistersray"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid ""
 "An alist for the disassembler indicating the target register and\n"
 "value used in a SETHI instruction.  This is used to make annotations\n"
@@ -129,75 +124,75 @@ msgstr ""
 "akemay annotationsway\n"
 "aboutway unctionfay addressesway andway egisterray aluesvay."
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Set pseudo-atomic flag"
 msgstr "Etsay seudopay-atomicway agflay"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Reset pseudo-atomic"
 msgstr "Esetray seudopay-atomicway"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Allocating ~D bytes"
 msgstr "Allocatingway ~D ytesbay"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Allocating bytes"
 msgstr "Allocatingway ytesbay"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Header word ~A, size ~D?"
 msgstr "Eaderhay ordway ~Away, izesay ~D?"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Reset pseudo-atomic flag"
 msgstr "Esetray seudopay-atomicway agflay"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "pseudo-atomic interrupted?"
 msgstr "seudopay-atomicway interruptedway?"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown branch condition: ~S~%Must be one of: ~S"
 msgstr "Unknownway anchbray onditioncay: ~S~%Ustmay ebay oneway ofway: ~S"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown fp-branch condition: ~S~%Must be one of: ~S"
 msgstr "Unknownway pfay-anchbray onditioncay: ~S~%Ustmay ebay oneway ofway: ~S"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown integer condition register:  ~S~%"
 msgstr "Unknownway integerway onditioncay egisterray:  ~S~%"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown branch prediction:  ~S~%Must be one of: ~S~%"
 msgstr "Unknownway anchbray edictionpray:  ~S~%Ustmay ebay oneway ofway: ~S~%"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown conditional move condition register:  ~S~%"
 msgstr "Unknownway onditionalcay ovemay onditioncay egisterray:  ~S~%"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown register condition:  ~S~%"
 msgstr "Unknownway egisterray onditioncay:  ~S~%"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Fixups aren't allowed."
 msgstr "Ixupsfay arenway't allowedway."
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Pseudo atomic interrupted trap?"
 msgstr "Seudopay atomicway interruptedway aptray?"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Allocation trap"
 msgstr "Allocationway aptray"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Use it anyway"
 msgstr "Useway itway anywayway"
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid ""
 "Immediate trap number ~A specified, but only trap numbers\n"
 "   16 to 31 are available to the application"
@@ -206,11 +201,11 @@ msgstr ""
 "umbersnay\n"
 "   16 otay 31 areway availableway otay ethay applicationway"
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Move SRC into DST unless they are location=."
 msgstr "Ovemay SRC intoway DST unlessway eythay areway ocationlay=."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Loads the type bits of a pointer into target independent of\n"
 "  byte-ordering issues."
@@ -219,30 +214,30 @@ msgstr ""
 "independentway ofway\n"
 "  ytebay-orderingway issuesway."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Jump to the lisp function FUNCTION.  LIP is an interior-reg temporary."
 msgstr ""
 "Umpjay otay ethay isplay unctionfay FUNCTION.  LIP isway anway interiorway-"
 "egray emporarytay."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Return to RETURN-PC."
 msgstr "Eturnray otay RETURN-PC."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Emit a return-pc header word.  LABEL is the label to use for this return-pc."
 msgstr ""
 "Emitway away eturnray-cpay eaderhay ordway.  LABEL isway ethay abellay otay "
 "useway orfay isthay eturnray-cpay."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Move the TN Reg-Or-Stack into Reg if it isn't already there."
 msgstr ""
 "Ovemay ethay TN Egray-Orway-Tacksay intoway Egray ifway itway isnway't "
 "alreadyway erethay."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Do stuff to 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"
@@ -262,19 +257,19 @@ msgstr ""
 "ATOMIC, andway esumablypray\n"
 "  initializesway ethay objectway."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "~S is less than the specified minimum of ~S"
 msgstr "~S isway esslay anthay ethay ecifiedspay inimummay ofway ~S"
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "~S is greater than the specified maximum of ~S"
 msgstr "~S isway eatergray anthay ethay ecifiedspay aximummay ofway ~S"
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "~S isn't an even multiple of ~S from ~S"
 msgstr "~S isnway't anway evenway ultiplemay ofway ~S omfray ~S"
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "The values ~S cover the entire range from ~\n"
 "\t\t\t ~S to ~S [step ~S]."
@@ -282,19 +277,19 @@ msgstr ""
 "Ethay aluesvay ~S overcay ethay entireway angeray omfray ~\n"
 "\t\t\t ~S otay ~S [tepsay ~S]."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Must supply at least on type for test-type."
 msgstr "Ustmay upplysay atway eastlay onway ypetay orfay esttay-ypetay."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "OTHER-POINTER-TYPE supersedes the use of ~S"
 msgstr "OTHER-POINTER-TYPE upersedessay ethay useway ofway ~S"
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "OTHER-IMMEDIATE-n-TYPE supersedes the use of ~S"
 msgstr "OTHER-IMMEDIATE-n-TYPE upersedessay ethay useway ofway ~S"
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Can't test for mix of function subtypes and normal ~\n"
 "\t\theader types."
@@ -302,11 +297,11 @@ msgstr ""
 "Ancay't esttay orfay ixmay ofway unctionfay ubtypessay andway ormalnay ~\n"
 "\t\teaderhay ypestay."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Cause an error.  ERROR-CODE is the error to cause."
 msgstr "Ausecay anway errorway.  ERROR-CODE isway ethay errorway otay ausecay."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Cause a continuable error.  If the error is continued, execution resumes at\n"
 "  LABEL."
@@ -315,7 +310,7 @@ msgstr ""
 "ontinuedcay, executionway esumesray atway\n"
 "  LABEL."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Generate-Error-Code Error-code Value*\n"
 "  Emit code for an error with the specified Error-Code and context Values."
@@ -324,7 +319,7 @@ msgstr ""
 "  Emitway odecay orfay anway errorway ithway ethay ecifiedspay Errorway-"
 "Odecay andway ontextcay Aluesvay."
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Generate-CError-Code Error-code Value*\n"
 "  Emit code for a continuable error with the specified Error-Code and\n"
@@ -338,15 +333,15 @@ msgstr ""
 "esumesray afterway\n"
 "  ethay GENERATE-CERROR-CODE ormfay."
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "fixnum untagging"
 msgstr "ixnumfay untaggingway"
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "constant load"
 msgstr "onstantcay oadlay"
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid ""
 "Load TN allocated, but no move function?~@\n"
 "\t           VM definition inconsistent, recompile and try again."
@@ -355,287 +350,287 @@ msgstr ""
 "\t           VM efinitionday inconsistentway, ecompileray andway ytray "
 "againway."
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "integer to untagged word coercion"
 msgstr "integerway otay untaggedway ordway oercioncay"
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "fixnum tagging"
 msgstr "ixnumfay aggingtay"
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "signed word to integer coercion"
 msgstr "ignedsay ordway otay integerway oercioncay"
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "unsigned word to integer coercion"
 msgstr "unsignedway ordway otay integerway oercioncay"
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "word integer move"
 msgstr "ordway integerway ovemay"
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "word integer argument move"
 msgstr "ordway integerway argumentway ovemay"
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "signed 64-bit word to integer coercion"
 msgstr "ignedsay 64-itbay ordway otay integerway oercioncay"
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "unsigned 64-bit word to integer coercion"
 msgstr "unsignedway 64-itbay ordway otay integerway oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "float move"
 msgstr "oatflay ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "float to pointer coercion"
 msgstr "oatflay otay ointerpay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "pointer to float coercion"
 msgstr "ointerpay otay oatflay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "float argument move"
 msgstr "oatflay argumentway ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single float move"
 msgstr "omplexcay inglesay oatflay ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double float move"
 msgstr "omplexcay oubleday oatflay ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long float move"
 msgstr "omplexcay onglay oatflay ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float move"
 msgstr "omplexcay oubleday-oubleday oatflay ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single float to pointer coercion"
 msgstr "omplexcay inglesay oatflay otay ointerpay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double float to pointer coercion"
 msgstr "omplexcay oubleday oatflay otay ointerpay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long float to pointer coercion"
 msgstr "omplexcay onglay oatflay otay ointerpay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float to pointer coercion"
 msgstr "omplexcay oubleday-oubleday oatflay otay ointerpay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "pointer to complex float coercion"
 msgstr "ointerpay otay omplexcay oatflay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "pointer to complex double-double float coercion"
 msgstr "ointerpay otay omplexcay oubleday-oubleday oatflay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single-float argument move"
 msgstr "omplexcay inglesay-oatflay argumentway ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-float argument move"
 msgstr "omplexcay oubleday-oatflay argumentway ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long-float argument move"
 msgstr "omplexcay onglay-oatflay argumentway ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float argument move"
 msgstr "omplexcay oubleday-oubleday oatflay argumentway ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float arithmetic"
 msgstr "inlineway oatflay arithmeticway"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float comparison"
 msgstr "inlineway oatflay omparisoncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float coercion"
 msgstr "inlineway oatflay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float truncate"
 msgstr "inlineway oatflay uncatetray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline ftruncate"
 msgstr "inlineway truncatefay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex single-float creation"
 msgstr "inlineway omplexcay inglesay-oatflay eationcray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex double-float creation"
 msgstr "inlineway omplexcay oubleday-oatflay eationcray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex long-float creation"
 msgstr "inlineway omplexcay onglay-oatflay eationcray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single float realpart"
 msgstr "omplexcay inglesay oatflay ealpartray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single float imagpart"
 msgstr "omplexcay inglesay oatflay imagpartway"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double float realpart"
 msgstr "omplexcay oubleday oatflay ealpartray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double float imagpart"
 msgstr "omplexcay oubleday oatflay imagpartway"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long float realpart"
 msgstr "omplexcay onglay oatflay ealpartray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long float imagpart"
 msgstr "omplexcay onglay oatflay imagpartway"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float arithmetic"
 msgstr "inlineway omplexcay oatflay arithmeticway"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float/float arithmetic"
 msgstr "inlineway omplexcay oatflay/oatflay arithmeticway"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float multiplication"
 msgstr "inlineway omplexcay oatflay ultiplicationmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float division"
 msgstr "inlineway omplexcay oatflay ivisionday"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex conjugate"
 msgstr "inlineway omplexcay onjugatecay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float/float comparison"
 msgstr "inlineway omplexcay oatflay/oatflay omparisoncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float comparison"
 msgstr "inlineway omplexcay oatflay omparisoncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float max"
 msgstr "inlineway oatflay axmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float min"
 msgstr "inlineway oatflay inmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline (signed-byte 32) max"
 msgstr "inlineway (ignedsay-ytebay 32) axmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline (unsigned-byte 32) max"
 msgstr "inlineway (unsignedway-ytebay 32) axmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline fixnum max"
 msgstr "inlineway ixnumfay axmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline (signed-byte 32) min"
 msgstr "inlineway (ignedsay-ytebay 32) inmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline (unsigned-byte 32) min"
 msgstr "inlineway (unsignedway-ytebay 32) inmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline fixnum min"
 msgstr "inlineway ixnumfay inmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float max/min"
 msgstr "inlineway oatflay axmay/inmay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double float move"
 msgstr "oubleday-oubleday oatflay ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double float to pointer coercion"
 msgstr "oubleday-oubleday oatflay otay ointerpay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "pointer to double-double float coercion"
 msgstr "ointerpay otay oubleday-oubleday oatflay oercioncay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double float argument move"
 msgstr "oubleday-oubleday oatflay argumentway ovemay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline double-double float creation"
 msgstr "inlineway oubleday-oubleday oatflay eationcray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double high part"
 msgstr "oubleday-oubleday ighhay artpay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double low part"
 msgstr "oubleday-oubleday owlay artpay"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex double-double float creation"
 msgstr "inlineway omplexcay oubleday-oubleday oatflay eationcray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float realpart"
 msgstr "omplexcay oubleday-oubleday oatflay ealpartray"
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float imagpart"
 msgstr "omplexcay oubleday-oubleday oatflay imagpartway"
 
-#: target:compiler/sparc/sap.lisp
+#: src/compiler/sparc/sap.lisp
 msgid "pointer to SAP coercion"
 msgstr "ointerpay otay SAP oercioncay"
 
-#: target:compiler/sparc/sap.lisp
+#: src/compiler/sparc/sap.lisp
 msgid "SAP to pointer coercion"
 msgstr "SAP otay ointerpay oercioncay"
 
-#: target:compiler/sparc/sap.lisp
+#: src/compiler/sparc/sap.lisp
 msgid "SAP move"
 msgstr "SAP ovemay"
 
-#: target:compiler/sparc/sap.lisp
+#: src/compiler/sparc/sap.lisp
 msgid "SAP argument move"
 msgstr "SAP argumentway ovemay"
 
-#: target:compiler/sparc/system.lisp
+#: src/compiler/sparc/system.lisp
 msgid ""
 "Read the instruction cycle counter available on UltraSparcs.  The\n"
 "64-bit counter is returned as two 32-bit unsigned integers.  The low 32-bit\n"
@@ -647,113 +642,113 @@ msgstr ""
 "integersway.  Ethay owlay 32-itbay\n"
 "esultray isway ethay irstfay aluevay."
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "character untagging"
 msgstr "aracterchay untaggingway"
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "character tagging"
 msgstr "aracterchay aggingtay"
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "character move"
 msgstr "aracterchay ovemay"
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "character arg move"
 msgstr "aracterchay argway ovemay"
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "inline comparison"
 msgstr "inlineway omparisoncay"
 
-#: target:compiler/sparc/static-fn.lisp
+#: src/compiler/sparc/static-fn.lisp
 msgid "Either too many args (~D) or too many results (~D).  Max = ~D"
 msgstr ""
 "Eitherway ootay anymay argsway (~D) orway ootay anymay esultsray (~D).  "
 "Axmay = ~D"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline fixnum arithmetic"
 msgstr "inlineway ixnumfay arithmeticway"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 32) arithmetic"
 msgstr "inlineway (ignedsay-ytebay 32) arithmeticway"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) arithmetic"
 msgstr "inlineway (unsignedway-ytebay 32) arithmeticway"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline 32-bit abs"
 msgstr "inlineway 32-itbay absway"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "safe inline fixnum arithmetic"
 msgstr "afesay inlineway ixnumfay arithmeticway"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 32) ASH"
 msgstr "inlineway (ignedsay-ytebay 32) ASH"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) ASH"
 msgstr "inlineway (unsignedway-ytebay 32) ASH"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline constant ASH"
 msgstr "inlineway onstantcay ASH"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "identity ASH not transformed away"
 msgstr "identityway ASH otnay ansformedtray awayway"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline ASH"
 msgstr "inlineway ASH"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline right ASH"
 msgstr "inlineway ightray ASH"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 32) integer-length"
 msgstr "inlineway (ignedsay-ytebay 32) integerway-engthlay"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) integer-length"
 msgstr "inlineway (unsignedway-ytebay 32) integerway-engthlay"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) logcount"
 msgstr "inlineway (unsignedway-ytebay 32) ogcountlay"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
 msgstr "Adbay izesay ecifiedspay orfay SIGNED-BYTE ypetay ecifierspay: ~S."
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline fixnum comparison"
 msgstr "inlineway ixnumfay omparisoncay"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 32) comparison"
 msgstr "inlineway (ignedsay-ytebay 32) omparisoncay"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) comparison"
 msgstr "inlineway (unsignedway-ytebay 32) omparisoncay"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "shift-towards-start"
 msgstr "iftshay-owardstay-tartsay"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "shift-towards-end"
 msgstr "iftshay-owardstay-endway"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid ""
 "Emit code to multiply MULTIPLIER with MULTIPLICAND, putting the result\n"
 "  in RESULT-HIGH and RESULT-LOW.  KIND is either :signed or :unsigned.\n"
@@ -765,43 +760,39 @@ msgstr ""
 "orway :unsignedway.\n"
 "  Otenay: ethay ifetimeslay ofway MULTIPLICAND andway RESULT-HIGH overlapway."
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 64) arithmetic"
 msgstr "inlineway (ignedsay-ytebay 64) arithmeticway"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 64) arithmetic"
 msgstr "inlineway (unsignedway-ytebay 64) arithmeticway"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 64) ASH"
 msgstr "inlineway (ignedsay-ytebay 64) ASH"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 64) comparison"
 msgstr "inlineway (ignedsay-ytebay 64) omparisoncay"
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 64) comparison"
 msgstr "inlineway (unsignedway-ytebay 64) omparisoncay"
 
-#: target:compiler/sparc/arith.lisp
-msgid "recode as shifts and adds"
-msgstr "ecoderay asway iftsshay andway addsway"
-
-#: target:compiler/sparc/c-call.lisp
+#: src/compiler/sparc/c-call.lisp
 msgid "Class not yet defined: ~S"
 msgstr "Assclay otnay etyay efinedday: ~S"
 
-#: target:compiler/sparc/c-call.lisp
+#: src/compiler/sparc/c-call.lisp
 msgid "Too many result values from c-call."
 msgstr "Ootay anymay esultray aluesvay omfray c-allcay."
 
-#: target:compiler/sparc/c-call.lisp
+#: src/compiler/sparc/c-call.lisp
 msgid "Method ~S not defined for ~S"
 msgstr "Ethodmay ~S otnay efinedday orfay ~S"
 
-#: target:compiler/sparc/c-call.lisp
+#: src/compiler/sparc/c-call.lisp
 msgid ""
 "Cons up a piece of code which calls call-callback with INDEX and a\n"
 "pointer to the arguments."
@@ -810,22 +801,22 @@ msgstr ""
 "ithway INDEX andway away\n"
 "ointerpay otay ethay argumentsway."
 
-#: target:compiler/sparc/call.lisp
+#: src/compiler/sparc/call.lisp
 msgid "more-arg-context"
 msgstr "oremay-argway-ontextcay"
 
-#: target:compiler/sparc/array.lisp
+#: src/compiler/sparc/array.lisp
 msgid "inline array access"
 msgstr "inlineway arrayway accessway"
 
-#: target:compiler/sparc/array.lisp
+#: src/compiler/sparc/array.lisp
 msgid "inline array store"
 msgstr "inlineway arrayway toresay"
 
-#: target:compiler/sparc/array.lisp
+#: src/compiler/sparc/array.lisp
 msgid "raw-bits VOP"
 msgstr "awray-itsbay VOP"
 
-#: target:compiler/sparc/array.lisp
+#: src/compiler/sparc/array.lisp
 msgid "setf raw-bits VOP"
 msgstr "etfsay awray-itsbay VOP"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sunos-os.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sunos-os.po
index 994d4610b..f803e9bee 100644
--- a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sunos-os.po
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-sunos-os.po
@@ -15,20 +15,16 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
-#: target:code/sunos-os.lisp
+#: src/code/sunos-os.lisp
 msgid "Version string for supporting software"
 msgstr "Ersionvay ingstray orfay upportingsay oftwaresay"
 
-#: target:code/sunos-os.lisp
+#: src/code/sunos-os.lisp
 msgid "Returns a string describing version of the supporting software."
 msgstr ""
 "Eturnsray away ingstray escribingday ersionvay ofway ethay upportingsay "
 "oftwaresay."
 
-#: target:code/sunos-os.lisp
-msgid "Unix system call getrusage failed: ~A."
-msgstr "Unixway ystemsay allcay etrusagegay ailedfay: ~Away."
-
-#: target:code/sunos-os.lisp
+#: src/code/sunos-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr "Etpagesizegay ailedfay: ~Away"
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
index 2ef4c096a..4e7716244 100644
--- a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-unix-glibc2.po
@@ -15,11 +15,11 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=2; plural=(n != 1);\n"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Class not yet defined: ~S"
 msgstr "Assclay otnay etyay efinedday: ~S"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Returns a string describing the error number which was returned by a\n"
 "  UNIX system call."
@@ -28,15 +28,11 @@ msgstr ""
 "eturnedray ybay away\n"
 "  UNIX ystemsay allcay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unknown error [~d]"
 msgstr "Unknownway errorway [~d]"
 
-#: target:code/unix-glibc2.lisp
-msgid "Syscall ~A failed: ~A"
-msgstr "Yscallsay ~Away ailedfay: ~Away"
-
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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."
@@ -46,23 +42,23 @@ msgstr ""
 "   amenay2.  NIL andway anway errorway odecay isway eturnedray ifway anway "
 "errorway occuredway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test for read permission"
 msgstr "Esttay orfay eadray ermissionpay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test for write permission"
 msgstr "Esttay orfay itewray ermissionpay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test for execute permission"
 msgstr "Esttay orfay executeway ermissionpay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test for presence of file"
 msgstr "Esttay orfay esencepray ofway ilefay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-fcntl manipulates file descriptors accoridng to the\n"
 "   argument CMD which can be one of the following:\n"
@@ -106,7 +102,7 @@ msgstr ""
 "   FEXCL           Errorway ifway alreadyway eatedcray.\n"
 "   "
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -152,7 +148,7 @@ msgstr ""
 "   away ermissionpay ofway argumentway MODE ifway ethay ilefay oesnday't "
 "existway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -164,7 +160,7 @@ msgstr ""
 "existway atway\n"
 "   oneway imetay.)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -176,7 +172,7 @@ msgstr ""
 "uponway uccessfulsay\n"
 "   ompletioncay, otherwiseway NIL andway anway errorway umbernay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -195,173 +191,181 @@ msgstr ""
 "\n"
 "   Isthay interfaceway isway ademay obsoleteway ybay UNIX-OPEN."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Open for reading"
 msgstr "Openway orfay eadingray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Open for writing"
 msgstr "Openway orfay itingwray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read-only flag."
 msgstr "Eadray-onlyway agflay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write-only flag."
 msgstr "Itewray-onlyway agflay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read-write flag."
 msgstr "Eadray-itewray agflay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Access mode mask."
 msgstr "Accessway odemay askmay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Create if nonexistant flag. (not fcntl)"
 msgstr "Eatecray ifway onexistantnay agflay. (otnay cntlfay)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Error if already exists. (not fcntl)"
 msgstr "Errorway ifway alreadyway existsway. (otnay cntlfay)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Don't assign controlling tty. (not fcntl)"
 msgstr "Onday't assignway ontrollingcay tytay. (otnay cntlfay)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Truncate flag. (not fcntl)"
 msgstr "Uncatetray agflay. (otnay cntlfay)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Append flag."
 msgstr "Appendway agflay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Non-blocking I/O"
 msgstr "Onnay-ockingblay Iway/O"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Synchronous writes (on ext2)"
 msgstr "Ynchronoussay iteswray (onway extway2)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Asynchronous I/O"
 msgstr "Asynchronousway Iway/O"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Duplicate a file descriptor"
 msgstr "Uplicateday away ilefay escriptorday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get file desc. flags"
 msgstr "Etgay ilefay escday. agsflay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set file desc. flags"
 msgstr "Etsay ilefay escday. agsflay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get file flags"
 msgstr "Etgay ilefay agsflay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set file flags"
 msgstr "Etsay ilefay agsflay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get lock"
 msgstr "Etgay ocklay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set lock"
 msgstr "Etsay ocklay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set lock, wait for release"
 msgstr "Etsay ocklay, aitway orfay eleaseray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set owner (for sockets)"
 msgstr "Etsay ownerway (orfay ocketssay)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get owner (for sockets)"
 msgstr "Etgay ownerway (orfay ocketssay)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "for f-getfl and f-setfl"
 msgstr "orfay f-etflgay andway f-etflsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "for fcntl and lockf"
 msgstr "orfay cntlfay andway ockflay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "old bsd flock (depricated)"
 msgstr "oldway sdbay ockflay (epricatedday)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Shared lock for bsd flock"
 msgstr "Aredshay ocklay orfay sdbay ockflay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Exclusive lock for bsd flock"
 msgstr "Exclusiveway ocklay orfay sdbay ockflay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Don't block. Combine with F-LOCK-SH or F-LOCK-EX"
 msgstr "Onday't ockblay. Ombinecay ithway F-LOCK-SH orway F-LOCK-EX"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Remove lock for bsd flock"
 msgstr "Emoveray ocklay orfay sdbay ockflay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "depricated stuff"
 msgstr "epricatedday tuffsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Rewind the group-file stream."
 msgstr "Ewindray ethay oupgray-ilefay eamstray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close the group-file stream."
 msgstr "Oseclay ethay oupgray-ilefay eamstray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read an entry from the group-file stream, opening it if necessary."
 msgstr ""
 "Eadray anway entryway omfray ethay oupgray-ilefay eamstray, openingway itway "
 "ifway ecessarynay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Size of control character vector."
 msgstr "Izesay ofway ontrolcay aracterchay ectorvay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "See errno."
 msgstr "Eesay errnoway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No problem."
 msgstr "Onay oblempray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Authoritative Answer Host not found."
 msgstr "Authoritativeway Answerway Osthay otnay oundfay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Non-Authoritative Host not found,or SERVERFAIL."
 msgstr "Onnay-Authoritativeway Osthay otnay oundfay,orway SERVERFAIL."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Non recoverable errors, FORMERR, REFUSED, NOTIMP."
 msgstr "Onnay ecoverableray errorsway, FORMERR, REFUSED, NOTIMP."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
+msgid "Valid name, no data record of requested type."
+msgstr "Alidvay amenay, onay ataday ecordray ofway equestedray ypetay."
+
+#: src/code/unix-glibc2.lisp
+msgid "No address, look for MX record."
+msgstr "Onay addressway, ooklay orfay MX ecordray."
+
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Open host data base files and mark them as staying open even after\n"
 "a later search if STAY_OPEN is non-zero."
@@ -370,12 +374,12 @@ msgstr ""
 "openway evenway afterway\n"
 "away aterlay earchsay ifway STAY_OPEN isway onnay-erozay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close host data base files and clear `stay open' flag."
 msgstr ""
 "Oseclay osthay ataday asebay ilesfay andway earclay `taysay openway' agflay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next entry from host data base file.  Open data base if\n"
 "necessary."
@@ -384,7 +388,7 @@ msgstr ""
 "asebay ifway\n"
 "ecessarynay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from host data base which address match ADDR with\n"
 "length LEN and type TYPE."
@@ -393,12 +397,12 @@ msgstr ""
 "ADDR ithway\n"
 "engthlay LEN andway ypetay TYPE."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return entry from host data base for host with NAME."
 msgstr ""
 "Eturnray entryway omfray osthay ataday asebay orfay osthay ithway NAME."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from host data base for host with NAME.  AF must be\n"
 "   set to the address type which as `AF_INET' for IPv4 or `AF_INET6'\n"
@@ -410,7 +414,7 @@ msgstr ""
 "orway `AF_INET6'\n"
 "   orfay Ipvway6."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Open network data base files and mark them as staying open even\n"
 "   after a later search if STAY_OPEN is non-zero."
@@ -419,13 +423,13 @@ msgstr ""
 "openway evenway\n"
 "   afterway away aterlay earchsay ifway STAY_OPEN isway onnay-erozay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close network data base files and clear `stay open' flag."
 msgstr ""
 "Oseclay etworknay ataday asebay ilesfay andway earclay `taysay openway' "
 "agflay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next entry from network data base file.  Open data base if\n"
 "   necessary."
@@ -434,7 +438,7 @@ msgstr ""
 "asebay ifway\n"
 "   ecessarynay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from network data base which address match NET and\n"
 "   type TYPE."
@@ -443,12 +447,12 @@ msgstr ""
 "NET andway\n"
 "   ypetay TYPE."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return entry from network data base for network with NAME."
 msgstr ""
 "Eturnray entryway omfray etworknay ataday asebay orfay etworknay ithway NAME."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Open service data base files and mark them as staying open even\n"
 "   after a later search if STAY_OPEN is non-zero."
@@ -457,13 +461,13 @@ msgstr ""
 "openway evenway\n"
 "   afterway away aterlay earchsay ifway STAY_OPEN isway onnay-erozay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close service data base files and clear `stay open' flag."
 msgstr ""
 "Oseclay ervicesay ataday asebay ilesfay andway earclay `taysay openway' "
 "agflay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next entry from service data base file.  Open data base if\n"
 "   necessary."
@@ -472,7 +476,7 @@ msgstr ""
 "asebay ifway\n"
 "   ecessarynay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from network data base for network with NAME and\n"
 "   protocol PROTO."
@@ -481,7 +485,7 @@ msgstr ""
 "andway\n"
 "   otocolpray PROTO."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from service data base which matches port PORT and\n"
 "   protocol PROTO."
@@ -490,7 +494,7 @@ msgstr ""
 "PORT andway\n"
 "   otocolpray PROTO."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Open protocol data base files and mark them as staying open even\n"
 "   after a later search if STAY_OPEN is non-zero."
@@ -499,13 +503,13 @@ msgstr ""
 "tayingsay openway evenway\n"
 "   afterway away aterlay earchsay ifway STAY_OPEN isway onnay-erozay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close protocol data base files and clear `stay open' flag."
 msgstr ""
 "Oseclay otocolpray ataday asebay ilesfay andway earclay `taysay openway' "
 "agflay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next entry from protocol data base file.  Open data base if\n"
 "   necessary."
@@ -514,28 +518,28 @@ msgstr ""
 "ataday asebay ifway\n"
 "   ecessarynay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return entry from protocol data base for network with NAME."
 msgstr ""
 "Eturnray entryway omfray otocolpray ataday asebay orfay etworknay ithway "
 "NAME."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return entry from protocol data base which number is PROTO."
 msgstr ""
 "Eturnray entryway omfray otocolpray ataday asebay ichwhay umbernay isway "
 "PROTO."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Establish network group NETGROUP for enumeration."
 msgstr "Establishway etworknay oupgray NETGROUP orfay enumerationway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Free all space allocated by previous `setnetgrent' call."
 msgstr ""
 "Eefray allway acespay allocatedway ybay eviouspray `etnetgrentsay' allcay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next member of netgroup established by last `setnetgrent' call\n"
 "   and return pointers to elements in HOSTP, USERP, and DOMAINP."
@@ -545,64 +549,64 @@ msgstr ""
 "   andway eturnray ointerspay otay elementsway inway HOSTP, USERP, andway "
 "DOMAINP."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test whether NETGROUP contains the triple (HOST,USER,DOMAIN)."
 msgstr ""
 "Esttay etherwhay NETGROUP ontainscay ethay ipletray (HOST,USER,DOMAIN)."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Socket address is intended for `bind'."
 msgstr "Ocketsay addressway isway intendedway orfay `indbay'."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Request for canonical name."
 msgstr "Equestray orfay anonicalcay amenay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid value for `ai_flags' field."
 msgstr "Invalidway aluevay orfay `aiway_agsflay' ieldfay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "NAME or SERVICE is unknown."
 msgstr "NAME orway SERVICE isway unknownway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Temporary failure in name resolution."
 msgstr "Emporarytay ailurefay inway amenay esolutionray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Non-recoverable failure in name res."
 msgstr "Onnay-ecoverableray ailurefay inway amenay esray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No address associated with NAME."
 msgstr "Onay addressway associatedway ithway NAME."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "ai_family not supported."
 msgstr "aiway_amilyfay otnay upportedsay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "ai_socktype not supported."
 msgstr "aiway_ocktypesay otnay upportedsay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "SERVICE not supported for ai_socktype."
 msgstr "SERVICE otnay upportedsay orfay aiway_ocktypesay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Address family for NAME not supported."
 msgstr "Addressway amilyfay orfay NAME otnay upportedsay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Memory allocation failure."
 msgstr "Emorymay allocationway ailurefay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "System error returned in errno."
 msgstr "Ystemsay errorway eturnedray inway errnoway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Translate name of a service location and/or a service name to set of\n"
 "   socket addresses."
@@ -611,12 +615,12 @@ msgstr ""
 "ervicesay amenay otay etsay ofway\n"
 "   ocketsay addressesway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Free `addrinfo' structure AI including associated storage."
 msgstr ""
 "Eefray `addrinfoway' ucturestray AI includingway associatedway toragesay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Create pseudo tty master slave pair with NAME and set terminal\n"
 "   attributes according to TERMP and WINP and return handles for both\n"
@@ -628,7 +632,7 @@ msgstr ""
 "andleshay orfay othbay\n"
 "   endsway inway AMASTER andway ASLAVE."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Create child process and establish the slave pseudo terminal as the\n"
 "   child's controlling terminal."
@@ -637,226 +641,226 @@ msgstr ""
 "erminaltay asway ethay\n"
 "   ildchay's ontrollingcay erminaltay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Rewind the password-file stream."
 msgstr "Ewindray ethay asswordpay-ilefay eamstray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close the password-file stream."
 msgstr "Oseclay ethay asswordpay-ilefay eamstray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read an entry from the password-file stream, opening it if necessary."
 msgstr ""
 "Eadray anway entryway omfray ethay asswordpay-ilefay eamstray, openingway "
 "itway ifway ecessarynay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "The calling process."
 msgstr "Ethay allingcay ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Terminated child processes."
 msgstr "Erminatedtay ildchay ocessespray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Minimum priority a process can have"
 msgstr "Inimummay ioritypray away ocesspray ancay avehay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Maximum priority a process can have"
 msgstr "Aximummay ioritypray away ocesspray ancay avehay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "WHO is a process ID"
 msgstr "WHO isway away ocesspray ID"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "WHO is a process group ID"
 msgstr "WHO isway away ocesspray oupgray ID"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "WHO is a user ID"
 msgstr "WHO isway away userway ID"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set scheduling algorithm and/or parameters for a process."
 msgstr ""
 "Etsay edulingschay algorithmway andway/orway arameterspay orfay away "
 "ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Retrieve scheduling algorithm for a particular purpose."
 msgstr ""
 "Etrieveray edulingschay algorithmway orfay away articularpay urposepay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get maximum priority value for a scheduler."
 msgstr "Etgay aximummay ioritypray aluevay orfay away edulerschay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get minimum priority value for a scheduler."
 msgstr "Etgay inimummay ioritypray aluevay orfay away edulerschay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the SCHED_RR interval for the named process."
 msgstr "Etgay ethay SCHED_RR intervalway orfay ethay amednay ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Signal mask to be sent at exit."
 msgstr "Ignalsay askmay otay ebay entsay atway exitway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if VM shared between processes."
 msgstr "Etsay ifway VM aredshay etweenbay ocessespray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if fs info shared between processes"
 msgstr "Etsay ifway sfay infoway aredshay etweenbay ocessespray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if open files shared between processe"
 msgstr "Etsay ifway openway ilesfay aredshay etweenbay ocessepray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if signal handlers shared."
 msgstr "Etsay ifway ignalsay andlershay aredshay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if pid shared."
 msgstr "Etsay ifway idpay aredshay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Open database for reading."
 msgstr "Openway atabaseday orfay eadingray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close database."
 msgstr "Oseclay atabaseday."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get next entry from database, perhaps after opening the file."
 msgstr ""
 "Etgay extnay entryway omfray atabaseday, erhapspay afterway openingway ethay "
 "ilefay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get shadow entry matching NAME."
 msgstr "Etgay adowshay entryway atchingmay NAME."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read shadow entry from STRING."
 msgstr "Eadray adowshay entryway omfray STRING."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protect password file against multi writers."
 msgstr "Otectpray asswordpay ilefay againstway ultimay iterswray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unlock password file."
 msgstr "Unlockway asswordpay ilefay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "These bits determine file type."
 msgstr "Esethay itsbay etermineday ilefay ypetay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "FIFO"
 msgstr "FIFO"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Character device"
 msgstr "Aracterchay eviceday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Directory"
 msgstr "Irectoryday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Block device"
 msgstr "Ockblay eviceday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Regular file"
 msgstr "Egularray ilefay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Symbolic link."
 msgstr "Ymbolicsay inklay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Socket."
 msgstr "Ocketsay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set user ID on execution."
 msgstr "Etsay userway ID onway executionway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set group ID on execution."
 msgstr "Etsay oupgray ID onway executionway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Save swapped text after use (sticky)."
 msgstr "Avesay wappedsay exttay afterway useway (tickysay)."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read by owner"
 msgstr "Eadray ybay ownerway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write by owner."
 msgstr "Itewray ybay ownerway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Execute by owner."
 msgstr "Executeway ybay ownerway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get terminal output speed."
 msgstr "Etgay erminaltay outputway eedspay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set terminal output speed."
 msgstr "Etsay erminaltay outputway eedspay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Bogus baud rate ~S"
 msgstr "Ogusbay audbay ateray ~S"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get terminal input speed."
 msgstr "Etgay erminaltay inputway eedspay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set terminal input speed."
 msgstr "Etsay erminaltay inputway eedspay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get terminal attributes."
 msgstr "Etgay erminaltay attributesway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set terminal attributes."
 msgstr "Etsay erminaltay attributesway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Send break"
 msgstr "Endsay eakbray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Wait for output for finish"
 msgstr "Aitway orfay outputway orfay inishfay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "See tcflush(3)"
 msgstr "Eesay cflushtay(3)"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Flow control"
 msgstr "Owflay ontrolcay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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 "
@@ -882,7 +886,7 @@ msgstr ""
 "   unctionfay ashesbay ogethertay otay ormfay ethay environmentway orfay "
 "ethay execway'edway ogrampray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -909,19 +913,19 @@ msgstr ""
 "\tx_okway     Executeway ermissionpay.\n"
 "\tf_okway     Esencepray ofway ilefay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "set the file pointer"
 msgstr "etsay ethay ilefay ointerpay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "increment the file pointer"
 msgstr "incrementway ethay ilefay ointerpay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "extend the file size"
 msgstr "extendway ethay ilefay izesay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -941,7 +945,7 @@ msgstr ""
 "   l_tndxay       Extendway ethay ilefay izesay.\n"
 "  "
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -956,7 +960,7 @@ msgstr ""
 "NIL andway anway errorway\n"
 "   umbernay ifway anway errorway occuredway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -968,7 +972,7 @@ msgstr ""
 "NIL andway anway\n"
 "   errorway isway eturnedray ifway ethay allcay isway unsuccessfulway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -989,7 +993,7 @@ msgstr ""
 "econdsay\n"
 "  ethay unixway errorway odecay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1007,7 +1011,7 @@ msgstr ""
 "Ermissionpay illway\n"
 "   ailfay ifway ethay allercay isway otnay ethay uperusersay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-fchown is like unix-chown, except that it accepts an integer\n"
 "   file descriptor instead of a file path name."
@@ -1016,7 +1020,7 @@ msgstr ""
 "acceptsway anway integerway\n"
 "   ilefay escriptorday insteadway ofway away ilefay athpay amenay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Given a file path string, unix-chdir changes the current working \n"
 "   directory to the one specified."
@@ -1025,7 +1029,7 @@ msgstr ""
 "urrentcay orkingway \n"
 "   irectoryday otay ethay oneway ecifiedspay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Put the absolute pathname of the current working directory in BUF.\n"
 "   If successful, return BUF.  If not, put an error message in\n"
@@ -1038,7 +1042,7 @@ msgstr ""
 "   BUF andway eturnray NULL.  BUF ouldshay ebay atway eastlay PATH_MAX "
 "ytesbay onglay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1050,7 +1054,7 @@ msgstr ""
 "ilefay escriptorday, NIL\n"
 "   andway anway errorway umbernay areway eturnedray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1068,7 +1072,7 @@ msgstr ""
 "ethay umbernay\n"
 "   assignedway otay ethay uplicateday."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-exit terminates the current process with an optional\n"
 "   error code.  If successful, the call doesn't return.  If\n"
@@ -1081,39 +1085,39 @@ msgstr ""
 "   unsuccessfulway, ethay allcay eturnsray NIL andway anway errorway "
 "umbernay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get file-specific configuration information about PATH."
 msgstr "Etgay ilefay-ecificspay onfigurationcay informationway aboutway PATH."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the value of the system variable NAME."
 msgstr "Etgay ethay aluevay ofway ethay ystemsay ariablevay NAME."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the value of the string-valued system variable NAME."
 msgstr ""
 "Etgay ethay aluevay ofway ethay ingstray-aluedvay ystemsay ariablevay NAME."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getpid returns the process-id of the current process."
 msgstr ""
 "Unixway-etpidgay eturnsray ethay ocesspray-idway ofway ethay urrentcay "
 "ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-getppid returns the process-id of the parent of the current process."
 msgstr ""
 "Unixway-etppidgay eturnsray ethay ocesspray-idway ofway ethay arentpay ofway "
 "ethay urrentcay ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getpgrp returns the group-id of the calling process."
 msgstr ""
 "Unixway-etpgrpgay eturnsray ethay oupgray-idway ofway ethay allingcay "
 "ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-setpgrp sets the process group on the process pid to\n"
 "   pgrp.  NIL and an error number are returned upon failure."
@@ -1123,7 +1127,7 @@ msgstr ""
 "   grppay.  NIL andway anway errorway umbernay areway eturnedray uponway "
 "ailurefay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1136,7 +1140,7 @@ msgstr ""
 "   oupgray eaderlay. NIL andway anway errorway umbernay areway eturnedray "
 "uponway ailurefay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Create a new session with the calling process as its leader.\n"
 "   The process group IDs of the session and the calling process\n"
@@ -1149,11 +1153,11 @@ msgstr ""
 "   areway etsay otay ethay ocesspray ID ofway ethay allingcay ocesspray, "
 "ichwhay isway eturnedray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return the session ID of the given process."
 msgstr "Eturnray ethay essionsay ID ofway ethay ivengay ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-getuid returns the real user-id associated with the\n"
 "   current process."
@@ -1162,28 +1166,28 @@ msgstr ""
 "ethay\n"
 "   urrentcay ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the effective user ID of the calling process."
 msgstr "Etgay ethay effectiveway userway ID ofway ethay allingcay ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getgid returns the real group-id of the current process."
 msgstr ""
 "Unixway-etgidgay eturnsray ethay ealray oupgray-idway ofway ethay urrentcay "
 "ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getegid returns the effective group-id of the current process."
 msgstr ""
 "Unixway-etegidgay eturnsray ethay effectiveway oupgray-idway ofway ethay "
 "urrentcay ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return nonzero iff the calling process is in group GID."
 msgstr ""
 "Eturnray onzeronay iffway ethay allingcay ocesspray isway inway oupgray GID."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1197,7 +1201,7 @@ msgstr ""
 "otay UID;\n"
 "   ifway otnay, ethay effectiveway userway ID isway etsay otay UID."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1209,7 +1213,7 @@ msgstr ""
 "umbernay isway eturnedray\n"
 "   ifway ethay allcay ailsfay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1223,7 +1227,7 @@ msgstr ""
 "otay GID;\n"
 "   ifway otnay, ethay effectiveway oupgray ID isway etsay otay GID."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1235,7 +1239,7 @@ msgstr ""
 "errorway umbernay isway\n"
 "   eturnedray ifway ethay allcay ailsfay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1247,7 +1251,7 @@ msgstr ""
 "andway anway errorway umbernay ifway itway\n"
 "   oesnday't orkway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get the value of the environment variable named Name.  If no such\n"
 "  variable exists, Nil is returned."
@@ -1256,7 +1260,7 @@ msgstr ""
 "Ifway onay uchsay\n"
 "  ariablevay existsway, Ilnay isway eturnedray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1271,7 +1275,7 @@ msgstr ""
 "erozay.  Otherwiseway,\n"
 "  ethay aluevay isway otnay angedchay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1284,11 +1288,11 @@ msgstr ""
 "  Ifway amenay oesday existway, ethay aluevay isway updatedway otay ethay "
 "ivengay aluevay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Removes the variable Name from the environment"
 msgstr "Emovesray ethay ariablevay Amenay omfray ethay environmentway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Accepts a Unix file descriptor and returns T if the device\n"
 "  associated with it is a terminal."
@@ -1297,7 +1301,7 @@ msgstr ""
 "eviceday\n"
 "  associatedway ithway itway isway away erminaltay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-link creates a hard link from the file with name1 to the\n"
 "   file with name2."
@@ -1306,7 +1310,7 @@ msgstr ""
 "amenay1 otay ethay\n"
 "   ilefay ithway amenay2."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1318,7 +1322,7 @@ msgstr ""
 "ifway ethay allcay\n"
 "   isway unsuccessfulway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1333,7 +1337,7 @@ msgstr ""
 "uccessfulsay, orway\n"
 "  NIL andway ethay Unixway errorway umbernay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-unlink removes the directory entry for the named file.\n"
 "   NIL and an error code is returned if the call fails."
@@ -1343,7 +1347,7 @@ msgstr ""
 "   NIL andway anway errorway odecay isway eturnedray ifway ethay allcay "
 "ailsfay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-rmdir attempts to remove the directory name.  NIL and\n"
 "   an error number is returned if an error occured."
@@ -1352,13 +1356,13 @@ msgstr ""
 "andway\n"
 "   anway errorway umbernay isway eturnedray ifway anway errorway occuredway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the tty-process-group for the unix file-descriptor FD."
 msgstr ""
 "Etgay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
 "FD."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get the tty-process-group for the unix file-descriptor FD.  If not "
 "supplied,\n"
@@ -1368,13 +1372,13 @@ msgstr ""
 "FD.  Ifway otnay uppliedsay,\n"
 "  FD efaultsday otay /evday/tytay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
 msgstr ""
 "Etsay ethay tytay-ocesspray-oupgray orfay ethay unixway ilefay-escriptorday "
 "FD otay PGRP."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Set the tty-process-group for the unix file-descriptor FD to PGRP.  If not\n"
 "  supplied, FD defaults to /dev/tty."
@@ -1383,11 +1387,11 @@ msgstr ""
 "FD otay PGRP.  Ifway otnay\n"
 "  uppliedsay, FD efaultsday otay /evday/tytay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return the login name of the user."
 msgstr "Eturnray ethay oginlay amenay ofway ethay userway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-uname returns the name and information about the current kernel. The\n"
 "  values returned upon success are: sysname, nodename, release, version,\n"
@@ -1400,13 +1404,17 @@ msgstr ""
 "  achinemay, andway omainnameday. Uponway ailurefay, 'ilnay andway ethay "
 "'errnoway areway eturnedray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr "Yscallsay ~Away ailedfay: ~Away"
+
+#: src/code/unix-glibc2.lisp
 msgid "Unix-gethostname returns the name of the host machine as a string."
 msgstr ""
 "Unixway-ethostnamegay eturnsray ethay amenay ofway ethay osthay achinemay "
 "asway away ingstray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-fsync writes the core image of the file described by\n"
 "   fd to disk."
@@ -1415,7 +1423,7 @@ msgstr ""
 "escribedday ybay\n"
 "   dfay otay iskday."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Revoke access permissions to all processes currently communicating\n"
 "  with the control terminal, and then send a SIGHUP signal to the process\n"
@@ -1427,13 +1435,13 @@ msgstr ""
 "ignalsay otay ethay ocesspray\n"
 "  oupgray ofway ethay ontrolcay erminaltay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Revoke the access of all descriptors currently open on FILE."
 msgstr ""
 "Evokeray ethay accessway ofway allway escriptorsday urrentlycay openway "
 "onway FILE."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Make PATH be the root directory (the starting point for absolute paths).\n"
 "   This call is restricted to the super-user."
@@ -1442,7 +1450,7 @@ msgstr ""
 "absoluteway athspay).\n"
 "   Isthay allcay isway estrictedray otay ethay upersay-userway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-gethostid returns a 32-bit integer which provides unique\n"
 "   identification for the host machine."
@@ -1451,7 +1459,7 @@ msgstr ""
 "uniqueway\n"
 "   identificationway orfay ethay osthay achinemay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1463,13 +1471,13 @@ msgstr ""
 "ifway anway errorway\n"
 "   occuredway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getpagesize returns the number of bytes in a system page."
 msgstr ""
 "Unixway-etpagesizegay eturnsray ethay umbernay ofway ytesbay inway away "
 "ystemsay agepay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-truncate truncates the named file to the length (in\n"
 "   bytes) specified by LENGTH.  NIL and an error number is returned\n"
@@ -1481,7 +1489,7 @@ msgstr ""
 "isway eturnedray\n"
 "   ifway ethay allcay isway unsuccessfulway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-ftruncate is similar to unix-truncate except that the first\n"
 "   argument is a file descriptor rather than a file name."
@@ -1491,7 +1499,7 @@ msgstr ""
 "   argumentway isway away ilefay escriptorday atherray anthay away ilefay "
 "amenay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return the maximum number of file descriptors\n"
 "   the current process could possibly have."
@@ -1499,23 +1507,23 @@ msgstr ""
 "Eturnray ethay aximummay umbernay ofway ilefay escriptorsday\n"
 "   ethay urrentcay ocesspray ouldcay ossiblypay avehay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unlock a locked region"
 msgstr "Unlockway away ockedlay egionray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Lock a region for exclusive use"
 msgstr "Ocklay away egionray orfay exclusiveway useway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test and lock a region for exclusive use"
 msgstr "Esttay andway ocklay away egionray orfay exclusiveway useway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test a region for othwer processes locks"
 msgstr "Esttay away egionray orfay othwerway ocessespray ockslay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-locks can lock, unlock and test files according to the cmd\n"
 "   which can be one of the following:\n"
@@ -1548,7 +1556,7 @@ msgstr ""
 "ybay unixway-cntlfay.\n"
 "   "
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-utimes sets the 'last-accessed' and 'last-updated'\n"
 "   times on a specified file.  NIL and an error number is\n"
@@ -1560,19 +1568,19 @@ msgstr ""
 "umbernay isway\n"
 "   eturnedray ifway ethay allcay isway unsuccessfulway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Don't block waiting."
 msgstr "Onday't ockblay aitingway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Report status of stopped children."
 msgstr "Eportray tatussay ofway toppedsay ildrenchay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Wait for cloned process."
 msgstr "Aitway orfay onedclay ocesspray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-ioctl performs a variety of operations on open i/o\n"
 "   descriptors.  See the UNIX Programmer's Manual for more\n"
@@ -1583,7 +1591,7 @@ msgstr ""
 "   escriptorsday.  Eesay ethay UNIX Ogrammerpray's Anualmay orfay oremay\n"
 "   informationway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Change uid used for file access control to UID, without affecting\n"
 "   other priveledges (such as who can send signals at the process)."
@@ -1593,7 +1601,7 @@ msgstr ""
 "   otherway iveledgespray (uchsay asway owhay ancay endsay ignalssay atway "
 "ethay ocesspray)."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Change gid used for file access control to GID, without affecting\n"
 "   other priveledges (such as who can send signals at the process)."
@@ -1603,31 +1611,31 @@ msgstr ""
 "   otherway iveledgespray (uchsay asway owhay ancay endsay ignalssay atway "
 "ethay ocesspray)."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "There is data to read."
 msgstr "Erethay isway ataday otay eadray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "There is urgent data to read."
 msgstr "Erethay isway urgentway ataday otay eadray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Writing now will not block."
 msgstr "Itingwray ownay illway otnay ockblay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Error condition."
 msgstr "Errorway onditioncay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Hung up."
 msgstr "Unghay upway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid polling request."
 msgstr "Invalidway ollingpay equestray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Canonical number of polling requests to read\n"
 "in at a time in poll."
@@ -1635,7 +1643,7 @@ msgstr ""
 "Anonicalcay umbernay ofway ollingpay equestsray otay eadray\n"
 "inway atway away imetay inway ollpay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 " Poll the file descriptors described by the NFDS structures starting at\n"
 "   FDS.  If TIMEOUT is nonzero and not -1, allow TIMEOUT milliseconds for\n"
@@ -1653,11 +1661,11 @@ msgstr ""
 "erozay ifway imedtay outway,\n"
 "   orway -1 orfay errorsway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the soft and hard limits for RESOURCE."
 msgstr "Etgay ethay oftsay andway ardhay imitslay orfay RESOURCE."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Set the current soft and hard maximum limits for RESOURCE.\n"
 "   Only the super-user can increase hard limits."
@@ -1666,7 +1674,7 @@ msgstr ""
 "RESOURCE.\n"
 "   Onlyway ethay upersay-userway ancay increaseway ardhay imitslay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Like call getrusage, but return only the system and user time, and returns\n"
 "   the seconds and microseconds as separate values."
@@ -1675,7 +1683,7 @@ msgstr ""
 "userway imetay, andway eturnsray\n"
 "   ethay econdssay andway icrosecondsmay asway eparatesay aluesvay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-getrusage returns information about the resource usage\n"
 "   of the process specified by who.  Who can be either the\n"
@@ -1693,7 +1701,7 @@ msgstr ""
 "umbernay\n"
 "   isway eturnedray ifway ethay allcay ailsfay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Function depends on CMD:\n"
 "  1 = Return the limit on the size of a file, in units of 512 bytes.\n"
@@ -1715,7 +1723,7 @@ msgstr ""
 "ocesspray ancay openway.\n"
 "  Eturnsray -1 onway errorsway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return the highest priority of any process specified by WHICH and WHO\n"
 "   (see above); if WHO is zero, the current process, process group, or user\n"
@@ -1731,7 +1739,7 @@ msgstr ""
 "   ioritypray.  Ioritiespray angeray omfray PRIO_MIN otay PRIO_MAX "
 "(aboveway)."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Set the priority of all processes specified by WHICH and WHO (see above)\n"
 "   to PRIO.  Returns 0 on success, -1 on errors."
@@ -1740,11 +1748,11 @@ msgstr ""
 "andway WHO (eesay aboveway)\n"
 "   otay PRIO.  Eturnsray 0 onway uccesssay, -1 onway errorsway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Perform the UNIX select(2) system call."
 msgstr "Erformpay ethay UNIX electsay(2) ystemsay allcay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1756,7 +1764,7 @@ msgstr ""
 "Eesay ethay UNIX\n"
 "   Ogrammerspray Anualmay orfay oremay informationway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "UNIX-STAT retrieves information about the specified\n"
 "   file returning them in the form of multiple values.\n"
@@ -1770,7 +1778,7 @@ msgstr ""
 "   ofway ethay aluesvay eturnedray.  Ifway ethay allcay ailsfay, enthay NIL\n"
 "   andway anway errorway umbernay isway eturnedray insteadway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "UNIX-FSTAT is similar to UNIX-STAT except the file is specified\n"
 "   by the file descriptor FD."
@@ -1779,7 +1787,7 @@ msgstr ""
 "ecifiedspay\n"
 "   ybay ethay ilefay escriptorday FD."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "UNIX-LSTAT is similar to UNIX-STAT except the specified\n"
 "   file must be a symbolic link."
@@ -1787,7 +1795,7 @@ msgstr ""
 "UNIX-LSTAT isway imilarsay otay UNIX-STAT exceptway ethay ecifiedspay\n"
 "   ilefay ustmay ebay away ymbolicsay inklay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1841,7 +1849,7 @@ msgstr ""
 "errorway umbernay\n"
 "  otherwiseway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1856,7 +1864,7 @@ msgstr ""
 "ifway ethay allcay\n"
 "   asway uccessfulsay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Set the file creation mask of the current process to MASK,\n"
 "   and return the old creation mask."
@@ -1865,7 +1873,7 @@ msgstr ""
 "MASK,\n"
 "   andway eturnray ethay oldway eationcray askmay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1877,7 +1885,7 @@ msgstr ""
 "uccesssay, otherwiseway\n"
 "   NIL andway anway errorway umbernay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Create a device file named PATH, with permission and special bits MODE\n"
 "  and device number DEV (which can be constructed from major and minor\n"
@@ -1889,18 +1897,18 @@ msgstr ""
 "ajormay andway inormay\n"
 "  eviceday umbersnay ithway ethay `akedevmay' acromay aboveway)."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Create a new FIFO named PATH, with permission bits MODE."
 msgstr ""
 "Eatecray away ewnay FIFO amednay PATH, ithway ermissionpay itsbay MODE."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return information about the filesystem on which FILE resides."
 msgstr ""
 "Eturnray informationway aboutway ethay ilesystemfay onway ichwhay FILE "
 "esidesray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Make the block special device PATH available to the system for swapping.\n"
 "  This call is restricted to the super-user."
@@ -1909,7 +1917,7 @@ msgstr ""
 "ystemsay orfay wappingsay.\n"
 "  Isthay allcay isway estrictedray otay ethay upersay-userway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Make the block special device PATH unavailable to the system for swapping.\n"
 "  This call is restricted to the super-user."
@@ -1918,11 +1926,11 @@ msgstr ""
 "ystemsay orfay wappingsay.\n"
 "  Isthay allcay isway estrictedray otay ethay upersay-userway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read or write system parameters."
 msgstr "Eadray orway itewray ystemsay arameterspay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Time used by the program so far (user time + system time).\n"
 "   The result / CLOCKS_PER_SECOND is program time in seconds."
@@ -1931,13 +1939,13 @@ msgstr ""
 "imetay).\n"
 "   Ethay esultray / CLOCKS_PER_SECOND isway ogrampray imetay inway econdssay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return the current time and put it in *TIMER if TIMER is not NULL."
 msgstr ""
 "Eturnray ethay urrentcay imetay andway utpay itway inway timer*ay ifway "
 "TIMER isway otnay NULL."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1952,7 +1960,7 @@ msgstr ""
 "oesnday't orkway, itway\n"
 "   eturnsray NIL andway ethay errnoway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
 "   three system timers (:real :virtual or :profile). On success,\n"
@@ -1967,7 +1975,7 @@ msgstr ""
 "   T, itway-intervalway-ecssay, itway-intervalway-usecway, itway-aluevay-"
 "ecssay, itway-aluevay-usecway."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1994,12 +2002,12 @@ msgstr ""
 "INTERVAL andway VALUE\n"
 "   otsslay asway inway unixway-etitimergay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Fill in TIMEBUF with information about the current time."
 msgstr ""
 "Illfay inway TIMEBUF ithway informationway aboutway ethay urrentcay imetay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Store the CPU time used by this process and all its\n"
 "   dead children (and their dead children) in BUFFER.\n"
@@ -2012,7 +2020,7 @@ msgstr ""
 "errorsway.\n"
 "   Allway imestay areway inway CLK_Ckthstay ofway away econdsay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Wait for a child to die.  When one does, put its status in *STAT_LOC\n"
 "   and return its process ID.  For errors, return (pid_t) -1."
@@ -2022,7 +2030,7 @@ msgstr ""
 "   andway eturnray itsway ocesspray ID.  Orfay errorsway, eturnray (idpay_t) "
 "-1."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Wait for a child matching PID to die.\n"
 "   If PID is greater than 0, match any process whose process ID is PID.\n"
@@ -2056,499 +2064,499 @@ msgstr ""
 "   etsay inway OPTIONS, eturnray tatussay orfay toppedsay ildrenchay; "
 "otherwiseway onday't."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Successful"
 msgstr "Uccessfulsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation not permitted"
 msgstr "Operationway otnay ermittedpay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No such file or directory"
 msgstr "Onay uchsay ilefay orway irectoryday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No such process"
 msgstr "Onay uchsay ocesspray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Interrupted system call"
 msgstr "Interruptedway ystemsay allcay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "I/O error"
 msgstr "Iway/O errorway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No such device or address"
 msgstr "Onay uchsay eviceday orway addressway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Arg list too long"
 msgstr "Argway istlay ootay onglay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Exec format error"
 msgstr "Execway ormatfay errorway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Bad file number"
 msgstr "Adbay ilefay umbernay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No children"
 msgstr "Onay ildrenchay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Try again"
 msgstr "Ytray againway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Out of memory"
 msgstr "Outway ofway emorymay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Permission denied"
 msgstr "Ermissionpay eniedday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Bad address"
 msgstr "Adbay addressway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Block device required"
 msgstr "Ockblay eviceday equiredray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Device or resource busy"
 msgstr "Eviceday orway esourceray usybay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File exists"
 msgstr "Ilefay existsway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Cross-device link"
 msgstr "Osscray-eviceday inklay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No such device"
 msgstr "Onay uchsay eviceday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Not a director"
 msgstr "Otnay away irectorday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Is a directory"
 msgstr "Isway away irectoryday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid argument"
 msgstr "Invalidway argumentway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File table overflow"
 msgstr "Ilefay abletay overflowway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many open files"
 msgstr "Ootay anymay openway ilesfay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Not a typewriter"
 msgstr "Otnay away ypewritertay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Text file busy"
 msgstr "Exttay ilefay usybay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File too large"
 msgstr "Ilefay ootay argelay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No space left on device"
 msgstr "Onay acespay eftlay onway eviceday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Illegal seek"
 msgstr "Illegalway eeksay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read-only file system"
 msgstr "Eadray-onlyway ilefay ystemsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many links"
 msgstr "Ootay anymay inkslay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Broken pipe"
 msgstr "Okenbray ipepay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Math argument out of domain"
 msgstr "Athmay argumentway outway ofway omainday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Math result not representable"
 msgstr "Athmay esultray otnay epresentableray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Resource deadlock would occur"
 msgstr "Esourceray eadlockday ouldway occurway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File name too long"
 msgstr "Ilefay amenay ootay onglay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No record locks available"
 msgstr "Onay ecordray ockslay availableway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Function not implemented"
 msgstr "Unctionfay otnay implementedway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Directory not empty"
 msgstr "Irectoryday otnay emptyway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many symbolic links encountered"
 msgstr "Ootay anymay ymbolicsay inkslay encounteredway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation would block"
 msgstr "Operationway ouldway ockblay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No message of desired type"
 msgstr "Onay essagemay ofway esiredday ypetay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Identifier removed"
 msgstr "Identifierway emovedray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Channel number out of range"
 msgstr "Annelchay umbernay outway ofway angeray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Level 2 not synchronized"
 msgstr "Evellay 2 otnay ynchronizedsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Level 3 halted"
 msgstr "Evellay 3 altedhay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Level 3 reset"
 msgstr "Evellay 3 esetray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Link number out of range"
 msgstr "Inklay umbernay outway ofway angeray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol driver not attached"
 msgstr "Otocolpray iverdray otnay attachedway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No CSI structure available"
 msgstr "Onay CSI ucturestray availableway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Level 2 halted"
 msgstr "Evellay 2 altedhay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid exchange"
 msgstr "Invalidway exchangeway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid request descriptor"
 msgstr "Invalidway equestray escriptorday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Exchange full"
 msgstr "Exchangeway ullfay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No anode"
 msgstr "Onay anodeway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid request code"
 msgstr "Invalidway equestray odecay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid slot"
 msgstr "Invalidway otslay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File locking deadlock error"
 msgstr "Ilefay ockinglay eadlockday errorway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Bad font file format"
 msgstr "Adbay ontfay ilefay ormatfay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Device not a stream"
 msgstr "Eviceday otnay away eamstray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No data available"
 msgstr "Onay ataday availableway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Timer expired"
 msgstr "Imertay expiredway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Out of streams resources"
 msgstr "Outway ofway eamsstray esourcesray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Machine is not on the network"
 msgstr "Achinemay isway otnay onway ethay etworknay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Package not installed"
 msgstr "Ackagepay otnay installedway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Object is remote"
 msgstr "Objectway isway emoteray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Link has been severed"
 msgstr "Inklay ashay eenbay everedsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Advertise error"
 msgstr "Advertiseway errorway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Srmount error"
 msgstr "Rmountsay errorway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Communication error on send"
 msgstr "Ommunicationcay errorway onway endsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol error"
 msgstr "Otocolpray errorway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Multihop attempted"
 msgstr "Ultihopmay attemptedway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "RFS specific error"
 msgstr "RFS ecificspay errorway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Not a data message"
 msgstr "Otnay away ataday essagemay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Value too large for defined data type"
 msgstr "Aluevay ootay argelay orfay efinedday ataday ypetay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Name not unique on network"
 msgstr "Amenay otnay uniqueway onway etworknay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File descriptor in bad state"
 msgstr "Ilefay escriptorday inway adbay tatesay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Remote address changed"
 msgstr "Emoteray addressway angedchay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Can not access a needed shared library"
 msgstr "Ancay otnay accessway away eedednay aredshay ibrarylay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Accessing a corrupted shared library"
 msgstr "Accessingway away orruptedcay aredshay ibrarylay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ".lib section in a.out corrupted"
 msgstr ".iblay ectionsay inway away.outway orruptedcay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Attempting to link in too many shared libraries"
 msgstr "Attemptingway otay inklay inway ootay anymay aredshay ibrarieslay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Cannot exec a shared library directly"
 msgstr "Annotcay execway away aredshay ibrarylay irectlyday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Illegal byte sequence"
 msgstr "Illegalway ytebay equencesay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Interrupted system call should be restarted _N"
 msgstr "Interruptedway ystemsay allcay ouldshay ebay estartedray _N"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Streams pipe error"
 msgstr "Eamsstray ipepay errorway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many users"
 msgstr "Ootay anymay usersway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Socket operation on non-socket"
 msgstr "Ocketsay operationway onway onnay-ocketsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Destination address required"
 msgstr "Estinationday addressway equiredray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Message too long"
 msgstr "Essagemay ootay onglay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol wrong type for socket"
 msgstr "Otocolpray ongwray ypetay orfay ocketsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol not available"
 msgstr "Otocolpray otnay availableway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol not supported"
 msgstr "Otocolpray otnay upportedsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Socket type not supported"
 msgstr "Ocketsay ypetay otnay upportedsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation not supported on transport endpoint"
 msgstr "Operationway otnay upportedsay onway ansporttray endpointway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol family not supported"
 msgstr "Otocolpray amilyfay otnay upportedsay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Address family not supported by protocol"
 msgstr "Addressway amilyfay otnay upportedsay ybay otocolpray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Address already in use"
 msgstr "Addressway alreadyway inway useway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Cannot assign requested address"
 msgstr "Annotcay assignway equestedray addressway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Network is down"
 msgstr "Etworknay isway ownday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Network is unreachable"
 msgstr "Etworknay isway unreachableway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Network dropped connection because of reset"
 msgstr "Etworknay oppeddray onnectioncay ecausebay ofway esetray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Software caused connection abort"
 msgstr "Oftwaresay ausedcay onnectioncay abortway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Connection reset by peer"
 msgstr "Onnectioncay esetray ybay eerpay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No buffer space available"
 msgstr "Onay ufferbay acespay availableway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Transport endpoint is already connected"
 msgstr "Ansporttray endpointway isway alreadyway onnectedcay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Transport endpoint is not connected"
 msgstr "Ansporttray endpointway isway otnay onnectedcay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Cannot send after transport endpoint shutdown"
 msgstr "Annotcay endsay afterway ansporttray endpointway utdownshay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many references: cannot splice"
 msgstr "Ootay anymay eferencesray: annotcay licespay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Connection timed out"
 msgstr "Onnectioncay imedtay outway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Connection refused"
 msgstr "Onnectioncay efusedray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Host is down"
 msgstr "Osthay isway ownday"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No route to host"
 msgstr "Onay outeray otay osthay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation already in progress"
 msgstr "Operationway alreadyway inway ogresspray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation now in progress"
 msgstr "Operationway ownay inway ogresspray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Stale NFS file handle"
 msgstr "Talesay NFS ilefay andlehay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Structure needs cleaning"
 msgstr "Ucturestray eedsnay eaningclay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Not a XENIX named type file"
 msgstr "Otnay away XENIX amednay ypetay ilefay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No XENIX semaphores available"
 msgstr "Onay XENIX emaphoressay availableway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Is a named type file"
 msgstr "Isway away amednay ypetay ilefay"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Remote I/O error"
 msgstr "Emoteray Iway/O errorway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Quota exceeded"
 msgstr "Otaquay exceededway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Define an ioctl command. If the optional ARG and PARM-TYPE are given\n"
 "  then ioctl argument size and direction are included as for ioctls defined\n"
@@ -2564,71 +2572,71 @@ msgstr ""
 "  isway ethay aracterschay odecay, elseway DEV aymay ebay anway integerway "
 "ivinggay ethay ypetay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
 msgstr ""
 "Etsay ethay ocketsay ocesspray-oupgray orfay ethay unixway ilefay-"
 "escriptorday FD otay PGRP."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set user ID on execution"
 msgstr "Etsay userway ID onway executionway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set group ID on execution"
 msgstr "Etsay oupgray ID onway executionway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Save text image after execution"
 msgstr "Avesay exttay imageway afterway executionway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write by owner"
 msgstr "Itewray ybay ownerway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Execute (search directory) by owner"
 msgstr "Executeway (earchsay irectoryday) ybay ownerway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read by group"
 msgstr "Eadray ybay oupgray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write by group"
 msgstr "Itewray ybay oupgray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Execute (search directory) by group"
 msgstr "Executeway (earchsay irectoryday) ybay oupgray"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read by others"
 msgstr "Eadray ybay othersway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write by others"
 msgstr "Itewray ybay othersway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Execute (search directory) by others"
 msgstr "Executeway (earchsay irectoryday) ybay othersway"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Returns either :file, :directory, :link, :special, or NIL."
 msgstr ""
 "Eturnsray eitherway :ilefay, :irectoryday, :inklay, :ecialspay, orway NIL."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Returns the pathname with all symbolic links resolved."
 msgstr ""
 "Eturnsray ethay athnamepay ithway allway ymbolicsay inkslay esolvedray."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Error reading link ~S: ~S"
 msgstr "Errorway eadingray inklay ~S: ~S"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return a USER-INFO structure for the user identified by LOGIN, or NIL if not "
 "found."
@@ -2636,7 +2644,7 @@ msgstr ""
 "Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay "
 "LOGIN, orway NIL ifway otnay oundfay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return a USER-INFO structure for the user identified by UID, or NIL if not "
 "found."
@@ -2644,7 +2652,7 @@ msgstr ""
 "Eturnray away USER-INFO ucturestray orfay ethay userway identifiedway ybay "
 "UID, orway NIL ifway otnay oundfay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
 "not found."
@@ -2652,7 +2660,7 @@ msgstr ""
 "Eturnray away GROUP-INFO ucturestray orfay ethay oupgray identifiedway ybay "
 "NAME, orway NIL ifway otnay oundfay."
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return a GROUP-INFO structure for the group identified by GID, or NIL if not "
 "found."
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po
index fbd4b1a71..0490e816f 100644
--- a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl-x86-vm.po
@@ -108,6 +108,79 @@ msgstr ""
 "Readthay afesay ushpay ofway alvay ontoway ethay istlay inway ethay ectorvay "
 "elementway."
 
+#: src/code/commandline.lisp
+msgid ""
+"Specifies what kind of floating-point support should be used on x86\n"
+"  systems.  If 'x87', Lisp will use the x87 floating-point unit; if\n"
+"  'sse2', Lisp uses SSE2 floating-point unit. The default is\n"
+"  'auto',which causes Lisp to check to see if SSE2 is available.  If\n"
+"  so, then SSE2 is used.  If the SSE2 core file cannot be found,Lisp\n"
+"  will fallback to the x87 core, which can run on any machine."
+msgstr ""
+"Ecifiesspay atwhay indkay ofway oatingflay-ointpay upportsay ouldshay ebay "
+"usedway onway x86\n"
+"  ystemssay.  Ifway 'x87', Isplay illway useway ethay x87 oatingflay-ointpay "
+"unitway; ifway\n"
+"  'sesay2', Isplay usesway SSE2 oatingflay-ointpay unitway. Ethay efaultday "
+"isway\n"
+"  'autoway',ichwhay ausescay Isplay otay eckchay otay eesay ifway SSE2 isway "
+"availableway.  Ifway\n"
+"  osay, enthay SSE2 isway usedway.  Ifway ethay SSE2 orecay ilefay annotcay "
+"ebay oundfay,Isplay\n"
+"  illway allbackfay otay ethay x87 orecay, ichwhay ancay unray onway anyway "
+"achinemay."
+
+#: src/code/commandline.lisp
+msgid "mode"
+msgstr "odemay"
+
+#: src/code/commandline.lisp
+msgid "a symbol or function"
+msgstr "away ymbolsay orway unctionfay"
+
+#: src/code/load.lisp
+msgid "Top-Level Form"
+msgstr "Optay-Evellay Ormfay"
+
+#: src/code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr "Eakpointbray atthay obodynay antsway?"
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bits per word where a word holds one lisp descriptor."
+msgstr ""
+"Umbernay ofway itsbay erpay ordway erewhay away ordway oldshay oneway isplay "
+"escriptorday."
+
+#: src/compiler/x86/parms.lisp
+msgid ""
+"Number of bits per byte where a byte is the smallest addressable object."
+msgstr ""
+"Umbernay ofway itsbay erpay ytebay erewhay away ytebay isway ethay "
+"mallestsay addressableway objectway."
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bits needed to represent a character"
+msgstr "Umbernay ofway itsbay eedednay otay epresentray away aracterchay"
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bytes needed to represent a character"
+msgstr "Umbernay ofway ytesbay eedednay otay epresentray away aracterchay"
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bits to shift between word addresses and byte addresses."
+msgstr ""
+"Umbernay ofway itsbay otay iftshay etweenbay ordway addressesway andway "
+"ytebay addressesway."
+
+#: src/compiler/x86/parms.lisp
+msgid "Number of bytes in a word."
+msgstr "Umbernay ofway ytesbay inway away ordway."
+
+#: src/compiler/x86/vm.lisp
+msgid "Redefining SC number ~D from ~S to ~S."
+msgstr "Edefiningray SC umbernay ~D omfray ~S otay ~S."
+
 #: src/compiler/x86/c-call.lisp src/compiler/x86/insts.lisp
 msgid "Class not yet defined: ~S"
 msgstr "Assclay otnay etyay efinedday: ~S"
@@ -190,11 +263,15 @@ msgstr ""
 "esumesray afterway\n"
 "  ethay GENERATE-CERROR-CODE ormfay."
 
-#: 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/move.lisp
+#: src/compiler/x86/type-vops.lisp src/compiler/x86/pred.lisp
+#: src/compiler/x86/array.lisp src/compiler/x86/print.lisp
+#: src/compiler/x86/nlx.lisp src/compiler/x86/call.lisp
+#: src/compiler/x86/alloc.lisp src/compiler/x86/values.lisp
+#: src/compiler/x86/cell.lisp src/compiler/x86/debug.lisp
+#: src/compiler/x86/subprim.lisp src/compiler/x86/arith.lisp
+#: src/compiler/x86/static-fn.lisp src/compiler/x86/memory.lisp
+#: src/compiler/x86/char.lisp src/compiler/x86/system.lisp
+#: src/compiler/x86/sap.lisp src/compiler/x86/move.lisp
 msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr "Unknownway SC otay SC-Asecay orfay ~S:~%  ~S"
 
@@ -206,8 +283,9 @@ msgstr "ixnumfay untaggingway"
 msgid "constant load"
 msgstr "onstantcay oadlay"
 
-#: src/compiler/x86/call.lisp src/compiler/x86/debug.lisp
-#: src/compiler/x86/char.lisp src/compiler/x86/move.lisp
+#: src/compiler/x86/nlx.lisp src/compiler/x86/call.lisp
+#: src/compiler/x86/debug.lisp src/compiler/x86/char.lisp
+#: src/compiler/x86/move.lisp
 msgid ""
 "Load TN allocated, but no move function?~@\n"
 "\t           VM definition inconsistent, recompile and try again."
diff --git a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po
index 3f939a78e..4a3007161 100644
--- a/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po
+++ b/i18n/locale/en@piglatin/LC_MESSAGES/cmucl.po
@@ -8511,32 +8511,6 @@ msgstr ""
 "earchingsay orfay\n"
 "  itsway efaultday orecay ilefay."
 
-#: src/code/commandline.lisp
-msgid ""
-"Specifies what kind of floating-point support should be used on x86\n"
-"  systems.  If 'x87', Lisp will use the x87 floating-point unit; if\n"
-"  'sse2', Lisp uses SSE2 floating-point unit. The default is\n"
-"  'auto',which causes Lisp to check to see if SSE2 is available.  If\n"
-"  so, then SSE2 is used.  If the SSE2 core file cannot be found,Lisp\n"
-"  will fallback to the x87 core, which can run on any machine."
-msgstr ""
-"Ecifiesspay atwhay indkay ofway oatingflay-ointpay upportsay ouldshay ebay "
-"usedway onway x86\n"
-"  ystemssay.  Ifway 'x87', Isplay illway useway ethay x87 oatingflay-ointpay "
-"unitway; ifway\n"
-"  'sesay2', Isplay usesway SSE2 oatingflay-ointpay unitway. Ethay efaultday "
-"isway\n"
-"  'autoway',ichwhay ausescay Isplay otay eckchay otay eesay ifway SSE2 isway "
-"availableway.  Ifway\n"
-"  osay, enthay SSE2 isway usedway.  Ifway ethay SSE2 orecay ilefay annotcay "
-"ebay oundfay,Isplay\n"
-"  illway allbackfay otay ethay x87 orecay, ichwhay ancay unray onway anyway "
-"achinemay."
-
-#: src/code/commandline.lisp
-msgid "mode"
-msgstr "odemay"
-
 #: src/code/commandline.lisp
 msgid "~&Usage: ~A <options>~2%"
 msgstr "~&Usageway: ~Away <optionsway>~2%"
@@ -14302,10 +14276,6 @@ msgstr "Oadlay ~Away anywayway"
 msgid "~A was compiled for a ~A, but this is a ~A"
 msgstr "~Away asway ompiledcay orfay away ~Away, utbay isthay isway away ~Away"
 
-#: src/compiler/dfo.lisp src/code/load.lisp
-msgid "Top-Level Form"
-msgstr "Optay-Evellay Ormfay"
-
 #: src/compiler/generic/core.lisp src/code/load.lisp
 msgid "Unaligned function object, offset = #x~X."
 msgstr "Unalignedway unctionfay objectway, offsetway = #x~X."
@@ -14844,10 +14814,6 @@ msgstr "Iotway instructionway"
 msgid "C abort()"
 msgstr "C abortway()"
 
-#: src/code/signal.lisp
-msgid "Emt instruction"
-msgstr "Emtway instructionway"
-
 #: src/code/signal.lisp
 msgid "Floating point exception"
 msgstr "Oatingflay ointpay exceptionway"
@@ -14864,10 +14830,6 @@ msgstr "Usbay errorway"
 msgid "Segmentation violation"
 msgstr "Egmentationsay iolationvay"
 
-#: src/code/signal.lisp
-msgid "Bad argument to system call"
-msgstr "Adbay argumentway otay ystemsay allcay"
-
 #: src/code/signal.lisp
 msgid "Write on a pipe with no one to read it"
 msgstr "Itewray onway away ipepay ithway onay oneway otay eadray itway"
@@ -16115,10 +16077,6 @@ msgstr ""
 msgid "Unknown breakpoint in ~S at offset ~S."
 msgstr "Unknownway eakpointbray inway ~S atway offsetway ~S."
 
-#: src/code/debug-int.lisp
-msgid "Breakpoint that nobody wants?"
-msgstr "Eakpointbray atthay obodynay antsway?"
-
 #: src/code/debug-int.lisp
 msgid ""
 "Make a bogus LRA object that signals a breakpoint trap when returned to.  "
@@ -22033,37 +21991,6 @@ msgstr ""
 "Amesay asway EXT:FEATUREP, exceptway useway ethay eaturesfay oundfay inway "
 "*NATIVE-BACKEND*."
 
-#: src/compiler/x86/parms.lisp
-msgid "Number of bits per word where a word holds one lisp descriptor."
-msgstr ""
-"Umbernay ofway itsbay erpay ordway erewhay away ordway oldshay oneway isplay "
-"escriptorday."
-
-#: src/compiler/x86/parms.lisp
-msgid ""
-"Number of bits per byte where a byte is the smallest addressable object."
-msgstr ""
-"Umbernay ofway itsbay erpay ytebay erewhay away ytebay isway ethay "
-"mallestsay addressableway objectway."
-
-#: src/compiler/x86/parms.lisp
-msgid "Number of bits needed to represent a character"
-msgstr "Umbernay ofway itsbay eedednay otay epresentray away aracterchay"
-
-#: src/compiler/x86/parms.lisp
-msgid "Number of bytes needed to represent a character"
-msgstr "Umbernay ofway ytesbay eedednay otay epresentray away aracterchay"
-
-#: src/compiler/x86/parms.lisp
-msgid "Number of bits to shift between word addresses and byte addresses."
-msgstr ""
-"Umbernay ofway itsbay otay iftshay etweenbay ordway addressesway andway "
-"ytebay addressesway."
-
-#: src/compiler/x86/parms.lisp
-msgid "Number of bytes in a word."
-msgstr "Umbernay ofway ytesbay inway away ordway."
-
 #: src/compiler/generic/objdef.lisp
 msgid "Number of bits at the low end of a pointer used for type information."
 msgstr ""
@@ -26812,6 +26739,10 @@ msgstr "onnay-onstantcay :ALLOW-OTHER-KEYS aluevay"
 msgid "Function called with unknown argument keyword ~S."
 msgstr "Unctionfay alledcay ithway unknownway argumentway eywordkay ~S."
 
+#: src/compiler/dfo.lisp
+msgid "Top-Level Form"
+msgstr "Optay-Evellay Ormfay"
+
 #: src/compiler/checkgen.lisp
 msgid "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
 msgstr "~:[Isthay~;~:*~Away~] isway otnay away ~<~%~9T~:;~S:~>~%  ~S"
@@ -26915,10 +26846,6 @@ msgstr ""
 "taticsay unctionfay\n"
 "   ymbolsay."
 
-#: src/compiler/x86/vm.lisp
-msgid "Redefining SC number ~D from ~S to ~S."
-msgstr "Edefiningray SC umbernay ~D omfray ~S otay ~S."
-
 #: src/compiler/generic/primtype.lisp
 msgid ""
 "An a-list for mapping simple array element types to their\n"
@@ -26928,23 +26855,6 @@ msgstr ""
 "eirthay\n"
 "  orrespondingcay imitivepray ypestay."
 
-#: 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 "Unknownway SC otay SC-Asecay orfay ~S:~%  ~S"
-
-#: src/compiler/x86/nlx.lisp
-msgid ""
-"Load TN allocated, but no move function?~@\n"
-"\t           VM definition inconsistent, recompile and try again."
-msgstr ""
-"Oadlay TN allocatedway, utbay onay ovemay unctionfay?~@\n"
-"\t           VM efinitionday inconsistentway, ecompileray andway ytray "
-"againway."
-
 #: src/compiler/aliencomp.lisp
 msgid "Slot is not constant, so cannot open code access."
 msgstr "Otslay isway otnay onstantcay, osay annotcay openway odecay accessway."
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po b/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
index b7b6a0969..0f5c0d176 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po
@@ -29,3 +29,11 @@ msgstr "유닉스 시스템 호출에 실패 getrusage: ~A 등급."
 #: src/code/bsd-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr "Getpagesize 실패: ~ A 등급"
+
+#: src/code/signal.lisp
+msgid "Emt instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Bad argument to system call"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po b/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po
index 474f744f0..adef0845a 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po
@@ -14,14 +14,18 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/linux-os.lisp
+#: src/code/linux-os.lisp
 msgid "Returns a string describing version of the supporting software."
 msgstr ""
 
-#: target:code/linux-os.lisp
+#: src/code/linux-os.lisp
 msgid "Unix system call getrusage failed: ~A."
 msgstr ""
 
-#: target:code/linux-os.lisp
+#: src/code/linux-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr ""
+
+#: src/code/signal.lisp
+msgid "Stack fault on coprocessor"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-svr4.po b/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-svr4.po
index 3063bdc7b..1fadec226 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-svr4.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-svr4.po
@@ -14,22 +14,58 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "Returns a string describing the type of the local machine."
 msgstr ""
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "Returns a string describing the version of the local machine."
 msgstr ""
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "Unaligned instruction?  offset=#x~X."
 msgstr ""
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "Can't deal with CALL fixups, yet."
 msgstr ""
 
-#: target:code/sparc-svr4-vm.lisp
+#: src/code/sparc-svr4-vm.lisp
 msgid "XRS ID invalid but attempting to access double-float register ~d!"
 msgstr ""
+
+#: src/code/signal.lisp
+msgid "Emt instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Bad argument to system call"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Process's lwps are blocked"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "find the PC"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po b/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po
index f2f6e3151..084da5910 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po
@@ -14,203 +14,198 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bits per word where a word holds one lisp descriptor."
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid ""
 "Number of bits per byte where a byte is the smallest addressable object."
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bits needed to represent a character"
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bytes needed to represent a character"
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bits to shift between word addresses and byte addresses."
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bytes in a word."
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of bits at the low end of a pointer used for type information."
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Mask to extract the low tag bits from a pointer."
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid ""
 "Exclusive upper bound on the value of the low tag bits from a\n"
 "  pointer."
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Number of tag bits used for a fixnum"
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Mask to get the fixnum tag"
 msgstr ""
 
-#: target:compiler/sparc/parms.lisp
+#: src/compiler/sparc/parms.lisp
 msgid "Maximum number of bits in a positive fixnum"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "~S isn't a register."
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "~S isn't a floating-point register."
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid ""
 "If non-NIL, print registers using the Lisp register names.\n"
 "Otherwise, use the Sparc register names"
 msgstr ""
 
-#: target:assembly/sparc/arith.lisp target:assembly/sparc/array.lisp
-#: target:assembly/sparc/assem-rtns.lisp target:compiler/sparc/type-vops.lisp
-#: target:compiler/sparc/pred.lisp target:compiler/sparc/array.lisp
-#: target:compiler/sparc/print.lisp target:compiler/sparc/nlx.lisp
-#: target:compiler/sparc/call.lisp target:compiler/sparc/alloc.lisp
-#: target:compiler/sparc/values.lisp target:compiler/sparc/cell.lisp
-#: target:compiler/sparc/c-call.lisp target:compiler/sparc/debug.lisp
-#: target:compiler/sparc/subprim.lisp target:compiler/sparc/arith.lisp
-#: target:compiler/sparc/static-fn.lisp target:compiler/sparc/memory.lisp
-#: target:compiler/sparc/char.lisp target:compiler/sparc/system.lisp
-#: target:compiler/sparc/sap.lisp target:compiler/sparc/float.lisp
-#: target:compiler/sparc/move.lisp target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/array.lisp src/compiler/sparc/call.lisp
+#: src/compiler/sparc/alloc.lisp src/compiler/sparc/cell.lisp
+#: src/compiler/sparc/c-call.lisp src/compiler/sparc/debug.lisp
+#: src/compiler/sparc/arith.lisp src/compiler/sparc/static-fn.lisp
+#: src/compiler/sparc/char.lisp src/compiler/sparc/system.lisp
+#: src/compiler/sparc/sap.lisp src/compiler/sparc/float.lisp
+#: src/compiler/sparc/move.lisp src/compiler/sparc/insts.lisp
 msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "The Lisp names for the Sparc integer registers"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "The standard names for the Sparc integer registers"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid ""
 "An alist for the disassembler indicating the target register and\n"
 "value used in a SETHI instruction.  This is used to make annotations\n"
 "about function addresses and register values."
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Set pseudo-atomic flag"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Reset pseudo-atomic"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Allocating ~D bytes"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Allocating bytes"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Header word ~A, size ~D?"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Reset pseudo-atomic flag"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "pseudo-atomic interrupted?"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown branch condition: ~S~%Must be one of: ~S"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown fp-branch condition: ~S~%Must be one of: ~S"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown integer condition register:  ~S~%"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown branch prediction:  ~S~%Must be one of: ~S~%"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown conditional move condition register:  ~S~%"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Unknown register condition:  ~S~%"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Fixups aren't allowed."
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Pseudo atomic interrupted trap?"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Allocation trap"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid "Use it anyway"
 msgstr ""
 
-#: target:compiler/sparc/insts.lisp
+#: src/compiler/sparc/insts.lisp
 msgid ""
 "Immediate trap number ~A specified, but only trap numbers\n"
 "   16 to 31 are available to the application"
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Move SRC into DST unless they are location=."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Loads the type bits of a pointer into target independent of\n"
 "  byte-ordering issues."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Jump to the lisp function FUNCTION.  LIP is an interior-reg temporary."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Return to RETURN-PC."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Emit a return-pc header word.  LABEL is the label to use for this return-pc."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Move the TN Reg-Or-Stack into Reg if it isn't already there."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Do stuff to 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"
@@ -221,59 +216,59 @@ msgid ""
 "  initializes the object."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "~S is less than the specified minimum of ~S"
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "~S is greater than the specified maximum of ~S"
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "~S isn't an even multiple of ~S from ~S"
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "The values ~S cover the entire range from ~\n"
 "\t\t\t ~S to ~S [step ~S]."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Must supply at least on type for test-type."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "OTHER-POINTER-TYPE supersedes the use of ~S"
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "OTHER-IMMEDIATE-n-TYPE supersedes the use of ~S"
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Can't test for mix of function subtypes and normal ~\n"
 "\t\theader types."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid "Cause an error.  ERROR-CODE is the error to cause."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Cause a continuable error.  If the error is continued, execution resumes at\n"
 "  LABEL."
 msgstr ""
 
-#: target:compiler/sparc/macros.lisp
+#: src/compiler/sparc/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/sparc/macros.lisp
+#: src/compiler/sparc/macros.lisp
 msgid ""
 "Generate-CError-Code Error-code Value*\n"
 "  Emit code for a continuable error with the specified Error-Code and\n"
@@ -281,476 +276,472 @@ msgid ""
 "  the GENERATE-CERROR-CODE form."
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "fixnum untagging"
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "constant load"
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid ""
 "Load TN allocated, but no move function?~@\n"
 "\t           VM definition inconsistent, recompile and try again."
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "integer to untagged word coercion"
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "fixnum tagging"
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "signed word to integer coercion"
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "unsigned word to integer coercion"
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "word integer move"
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "word integer argument move"
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "signed 64-bit word to integer coercion"
 msgstr ""
 
-#: target:compiler/sparc/move.lisp
+#: src/compiler/sparc/move.lisp
 msgid "unsigned 64-bit word to integer coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "float move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "float to pointer coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "pointer to float coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "float argument move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single float move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double float move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long float move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single float to pointer coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double float to pointer coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long float to pointer coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float to pointer coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "pointer to complex float coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "pointer to complex double-double float coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single-float argument move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-float argument move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long-float argument move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float argument move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float arithmetic"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float comparison"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float truncate"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline ftruncate"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex single-float creation"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex double-float creation"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex long-float creation"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single float realpart"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex single float imagpart"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double float realpart"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double float imagpart"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long float realpart"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex long float imagpart"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float arithmetic"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float/float arithmetic"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float multiplication"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float division"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex conjugate"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float/float comparison"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex float comparison"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float max"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float min"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline (signed-byte 32) max"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline (unsigned-byte 32) max"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline fixnum max"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline (signed-byte 32) min"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline (unsigned-byte 32) min"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline fixnum min"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline float max/min"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double float move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double float to pointer coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "pointer to double-double float coercion"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double float argument move"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline double-double float creation"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double high part"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "double-double low part"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "inline complex double-double float creation"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float realpart"
 msgstr ""
 
-#: target:compiler/sparc/float.lisp
+#: src/compiler/sparc/float.lisp
 msgid "complex double-double float imagpart"
 msgstr ""
 
-#: target:compiler/sparc/sap.lisp
+#: src/compiler/sparc/sap.lisp
 msgid "pointer to SAP coercion"
 msgstr ""
 
-#: target:compiler/sparc/sap.lisp
+#: src/compiler/sparc/sap.lisp
 msgid "SAP to pointer coercion"
 msgstr ""
 
-#: target:compiler/sparc/sap.lisp
+#: src/compiler/sparc/sap.lisp
 msgid "SAP move"
 msgstr ""
 
-#: target:compiler/sparc/sap.lisp
+#: src/compiler/sparc/sap.lisp
 msgid "SAP argument move"
 msgstr ""
 
-#: target:compiler/sparc/system.lisp
+#: src/compiler/sparc/system.lisp
 msgid ""
 "Read the instruction cycle counter available on UltraSparcs.  The\n"
 "64-bit counter is returned as two 32-bit unsigned integers.  The low 32-bit\n"
 "result is the first value."
 msgstr ""
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "character untagging"
 msgstr ""
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "character tagging"
 msgstr ""
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "character move"
 msgstr ""
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "character arg move"
 msgstr ""
 
-#: target:compiler/sparc/char.lisp
+#: src/compiler/sparc/char.lisp
 msgid "inline comparison"
 msgstr ""
 
-#: target:compiler/sparc/static-fn.lisp
+#: src/compiler/sparc/static-fn.lisp
 msgid "Either too many args (~D) or too many results (~D).  Max = ~D"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline fixnum arithmetic"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 32) arithmetic"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) arithmetic"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline 32-bit abs"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "safe inline fixnum arithmetic"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 32) ASH"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) ASH"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline constant ASH"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "identity ASH not transformed away"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline ASH"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline right ASH"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 32) integer-length"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) integer-length"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) logcount"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline fixnum comparison"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 32) comparison"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 32) comparison"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "shift-towards-start"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "shift-towards-end"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid ""
 "Emit code to multiply MULTIPLIER with MULTIPLICAND, putting the result\n"
 "  in RESULT-HIGH and RESULT-LOW.  KIND is either :signed or :unsigned.\n"
 "  Note: the lifetimes of MULTIPLICAND and RESULT-HIGH overlap."
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 64) arithmetic"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 64) arithmetic"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 64) ASH"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (signed-byte 64) comparison"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
+#: src/compiler/sparc/arith.lisp
 msgid "inline (unsigned-byte 64) comparison"
 msgstr ""
 
-#: target:compiler/sparc/arith.lisp
-msgid "recode as shifts and adds"
-msgstr ""
-
-#: target:compiler/sparc/c-call.lisp
+#: src/compiler/sparc/c-call.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:compiler/sparc/c-call.lisp
+#: src/compiler/sparc/c-call.lisp
 msgid "Too many result values from c-call."
 msgstr ""
 
-#: target:compiler/sparc/c-call.lisp
+#: src/compiler/sparc/c-call.lisp
 msgid "Method ~S not defined for ~S"
 msgstr ""
 
-#: target:compiler/sparc/c-call.lisp
+#: src/compiler/sparc/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/sparc/call.lisp
+#: src/compiler/sparc/call.lisp
 msgid "more-arg-context"
 msgstr ""
 
-#: target:compiler/sparc/array.lisp
+#: src/compiler/sparc/array.lisp
 msgid "inline array access"
 msgstr ""
 
-#: target:compiler/sparc/array.lisp
+#: src/compiler/sparc/array.lisp
 msgid "inline array store"
 msgstr ""
 
-#: target:compiler/sparc/array.lisp
+#: src/compiler/sparc/array.lisp
 msgid "raw-bits VOP"
 msgstr ""
 
-#: target:compiler/sparc/array.lisp
+#: src/compiler/sparc/array.lisp
 msgid "setf raw-bits VOP"
 msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-sunos-os.po b/i18n/locale/ko/LC_MESSAGES/cmucl-sunos-os.po
index baf65d548..8de68cf7b 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-sunos-os.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-sunos-os.po
@@ -14,18 +14,14 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/sunos-os.lisp
+#: src/code/sunos-os.lisp
 msgid "Version string for supporting software"
 msgstr ""
 
-#: target:code/sunos-os.lisp
+#: src/code/sunos-os.lisp
 msgid "Returns a string describing version of the supporting software."
 msgstr ""
 
-#: target:code/sunos-os.lisp
-msgid "Unix system call getrusage failed: ~A."
-msgstr ""
-
-#: target:code/sunos-os.lisp
+#: src/code/sunos-os.lisp
 msgid "Getpagesize failed: ~A"
 msgstr ""
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po b/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po
index 469e286a7..46ef10d97 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-unix-glibc2.po
@@ -14,47 +14,43 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Returns a string describing the error number which was returned by a\n"
 "  UNIX system call."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unknown error [~d]"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
-msgid "Syscall ~A failed: ~A"
-msgstr ""
-
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test for read permission"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test for write permission"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test for execute permission"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test for presence of file"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-fcntl manipulates file descriptors accoridng to the\n"
 "   argument CMD which can be one of the following:\n"
@@ -78,7 +74,7 @@ msgid ""
 "   "
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -101,21 +97,21 @@ msgid ""
 "   a permission of argument MODE if the file doesn't exist."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -125,587 +121,595 @@ msgid ""
 "   This interface is made obsolete by UNIX-OPEN."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Open for reading"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Open for writing"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read-only flag."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write-only flag."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read-write flag."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Access mode mask."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Create if nonexistant flag. (not fcntl)"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Error if already exists. (not fcntl)"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Don't assign controlling tty. (not fcntl)"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Truncate flag. (not fcntl)"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Append flag."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Non-blocking I/O"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Synchronous writes (on ext2)"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Asynchronous I/O"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Duplicate a file descriptor"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get file desc. flags"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set file desc. flags"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get file flags"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set file flags"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get lock"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set lock"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set lock, wait for release"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set owner (for sockets)"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get owner (for sockets)"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "for f-getfl and f-setfl"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "for fcntl and lockf"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "old bsd flock (depricated)"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Shared lock for bsd flock"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Exclusive lock for bsd flock"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Don't block. Combine with F-LOCK-SH or F-LOCK-EX"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Remove lock for bsd flock"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "depricated stuff"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Rewind the group-file stream."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close the group-file stream."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read an entry from the group-file stream, opening it if necessary."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Size of control character vector."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "See errno."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No problem."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Authoritative Answer Host not found."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Non-Authoritative Host not found,or SERVERFAIL."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Non recoverable errors, FORMERR, REFUSED, NOTIMP."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
+msgid "Valid name, no data record of requested type."
+msgstr ""
+
+#: src/code/unix-glibc2.lisp
+msgid "No address, look for MX record."
+msgstr ""
+
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Open host data base files and mark them as staying open even after\n"
 "a later search if STAY_OPEN is non-zero."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close host data base files and clear `stay open' flag."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next entry from host data base file.  Open data base if\n"
 "necessary."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from host data base which address match ADDR with\n"
 "length LEN and type TYPE."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return entry from host data base for host with NAME."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from host data base for host with NAME.  AF must be\n"
 "   set to the address type which as `AF_INET' for IPv4 or `AF_INET6'\n"
 "   for IPv6."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Open network data base files and mark them as staying open even\n"
 "   after a later search if STAY_OPEN is non-zero."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close network data base files and clear `stay open' flag."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next entry from network data base file.  Open data base if\n"
 "   necessary."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from network data base which address match NET and\n"
 "   type TYPE."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return entry from network data base for network with NAME."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Open service data base files and mark them as staying open even\n"
 "   after a later search if STAY_OPEN is non-zero."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close service data base files and clear `stay open' flag."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next entry from service data base file.  Open data base if\n"
 "   necessary."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from network data base for network with NAME and\n"
 "   protocol PROTO."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return entry from service data base which matches port PORT and\n"
 "   protocol PROTO."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Open protocol data base files and mark them as staying open even\n"
 "   after a later search if STAY_OPEN is non-zero."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close protocol data base files and clear `stay open' flag."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next entry from protocol data base file.  Open data base if\n"
 "   necessary."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return entry from protocol data base for network with NAME."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return entry from protocol data base which number is PROTO."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Establish network group NETGROUP for enumeration."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Free all space allocated by previous `setnetgrent' call."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get next member of netgroup established by last `setnetgrent' call\n"
 "   and return pointers to elements in HOSTP, USERP, and DOMAINP."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test whether NETGROUP contains the triple (HOST,USER,DOMAIN)."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Socket address is intended for `bind'."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Request for canonical name."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid value for `ai_flags' field."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "NAME or SERVICE is unknown."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Temporary failure in name resolution."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Non-recoverable failure in name res."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No address associated with NAME."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "ai_family not supported."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "ai_socktype not supported."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "SERVICE not supported for ai_socktype."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Address family for NAME not supported."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Memory allocation failure."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "System error returned in errno."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Translate name of a service location and/or a service name to set of\n"
 "   socket addresses."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Free `addrinfo' structure AI including associated storage."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Create pseudo tty master slave pair with NAME and set terminal\n"
 "   attributes according to TERMP and WINP and return handles for both\n"
 "   ends in AMASTER and ASLAVE."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Create child process and establish the slave pseudo terminal as the\n"
 "   child's controlling terminal."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Rewind the password-file stream."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close the password-file stream."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read an entry from the password-file stream, opening it if necessary."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "The calling process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Terminated child processes."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Minimum priority a process can have"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Maximum priority a process can have"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "WHO is a process ID"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "WHO is a process group ID"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "WHO is a user ID"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set scheduling algorithm and/or parameters for a process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Retrieve scheduling algorithm for a particular purpose."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get maximum priority value for a scheduler."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get minimum priority value for a scheduler."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the SCHED_RR interval for the named process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Signal mask to be sent at exit."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if VM shared between processes."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if fs info shared between processes"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if open files shared between processe"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if signal handlers shared."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set if pid shared."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Open database for reading."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Close database."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get next entry from database, perhaps after opening the file."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get shadow entry matching NAME."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read shadow entry from STRING."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protect password file against multi writers."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unlock password file."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "These bits determine file type."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "FIFO"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Character device"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Directory"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Block device"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Regular file"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Symbolic link."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Socket."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set user ID on execution."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set group ID on execution."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Save swapped text after use (sticky)."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read by owner"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write by owner."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Execute by owner."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get terminal output speed."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set terminal output speed."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Bogus baud rate ~S"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get terminal input speed."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set terminal input speed."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get terminal attributes."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set terminal attributes."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Send break"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Wait for output for finish"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "See tcflush(3)"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Flow control"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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 "
@@ -719,7 +723,7 @@ msgid ""
 "   function bashes together to form the environment for the exec'ed program."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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,19 +737,19 @@ msgid ""
 "\tf_ok     Presence of file."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "set the file pointer"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "increment the file pointer"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "extend the file size"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -756,7 +760,7 @@ msgid ""
 "  "
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -764,14 +768,14 @@ msgid ""
 "   number if an error occured."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -781,7 +785,7 @@ msgid ""
 "  the unix error code."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -790,33 +794,33 @@ msgid ""
 "   fail if the caller is not the superuser."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Given a file path string, unix-chdir changes the current working \n"
 "   directory to the one specified."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Put the absolute pathname of the current working directory in BUF.\n"
 "   If successful, return BUF.  If not, put an error message in\n"
 "   BUF and return NULL.  BUF should be at least PATH_MAX bytes long."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -825,85 +829,85 @@ msgid ""
 "   assigned to the duplicate."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get file-specific configuration information about PATH."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the value of the system variable NAME."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the value of the string-valued system variable NAME."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getpid returns the process-id of the current process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-getppid returns the process-id of the parent of the current process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getpgrp returns the group-id of the calling process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Create a new session with the calling process as its leader.\n"
 "   The process group IDs of the session and the calling process\n"
 "   are set to the process ID of the calling process, which is returned."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return the session ID of the given process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-getuid returns the real user-id associated with the\n"
 "   current process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the effective user ID of the calling process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getgid returns the real group-id of the current process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getegid returns the effective group-id of the current process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return nonzero iff the calling process is in group GID."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -911,14 +915,14 @@ msgid ""
 "   if not, the effective user ID is set to UID."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -926,27 +930,27 @@ msgid ""
 "   if not, the effective group ID is set to GID."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Get the value of the environment variable named Name.  If no such\n"
 "  variable exists, Nil is returned."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -954,37 +958,37 @@ msgid ""
 "  the value is not changed."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Removes the variable Name from the environment"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Accepts a Unix file descriptor and returns T if the device\n"
 "  associated with it is a terminal."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-link creates a hard link from the file with name1 to the\n"
 "   file with name2."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -992,130 +996,134 @@ msgid ""
 "  NIL and the Unix error number."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the tty-process-group for the unix file-descriptor FD."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return the login name of the user."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-uname returns the name and information about the current kernel. The\n"
 "  values returned upon success are: sysname, nodename, release, version,\n"
 "  machine, and domainname. Upon failure, 'nil and the 'errno are returned."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
+msgid "Syscall ~A failed: ~A"
+msgstr ""
+
+#: src/code/unix-glibc2.lisp
 msgid "Unix-gethostname returns the name of the host machine as a string."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-fsync writes the core image of the file described by\n"
 "   fd to disk."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Revoke access permissions to all processes currently communicating\n"
 "  with the control terminal, and then send a SIGHUP signal to the process\n"
 "  group of the control terminal."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Revoke the access of all descriptors currently open on FILE."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Make PATH be the root directory (the starting point for absolute paths).\n"
 "   This call is restricted to the super-user."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-gethostid returns a 32-bit integer which provides unique\n"
 "   identification for the host machine."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unix-getpagesize returns the number of bytes in a system page."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-truncate truncates the named file to the length (in\n"
 "   bytes) specified by LENGTH.  NIL and an error number is returned\n"
 "   if the call is unsuccessful."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return the maximum number of file descriptors\n"
 "   the current process could possibly have."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Unlock a locked region"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Lock a region for exclusive use"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test and lock a region for exclusive use"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Test a region for othwer processes locks"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-locks can lock, unlock and test files according to the cmd\n"
 "   which can be one of the following:\n"
@@ -1132,75 +1140,75 @@ msgid ""
 "   "
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Don't block waiting."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Report status of stopped children."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Wait for cloned process."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Change uid used for file access control to UID, without affecting\n"
 "   other priveledges (such as who can send signals at the process)."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Change gid used for file access control to GID, without affecting\n"
 "   other priveledges (such as who can send signals at the process)."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "There is data to read."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "There is urgent data to read."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Writing now will not block."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Error condition."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Hung up."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid polling request."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Canonical number of polling requests to read\n"
 "in at a time in poll."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 " Poll the file descriptors described by the NFDS structures starting at\n"
 "   FDS.  If TIMEOUT is nonzero and not -1, allow TIMEOUT milliseconds for\n"
@@ -1209,23 +1217,23 @@ msgid ""
 "   or -1 for errors."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Get the soft and hard limits for RESOURCE."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Set the current soft and hard maximum limits for RESOURCE.\n"
 "   Only the super-user can increase hard limits."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-getrusage returns information about the resource usage\n"
 "   of the process specified by who.  Who can be either the\n"
@@ -1234,7 +1242,7 @@ msgid ""
 "   is returned if the call fails."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Function depends on CMD:\n"
 "  1 = Return the limit on the size of a file, in units of 512 bytes.\n"
@@ -1245,7 +1253,7 @@ msgid ""
 "  Returns -1 on errors."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return the highest priority of any process specified by WHICH and WHO\n"
 "   (see above); if WHO is zero, the current process, process group, or user\n"
@@ -1253,24 +1261,24 @@ msgid ""
 "   priority.  Priorities range from PRIO_MIN to PRIO_MAX (above)."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Set the priority of all processes specified by WHICH and WHO (see above)\n"
 "   to PRIO.  Returns 0 on success, -1 on errors."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Perform the UNIX select(2) system call."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "UNIX-STAT retrieves information about the specified\n"
 "   file returning them in the form of multiple values.\n"
@@ -1279,19 +1287,19 @@ msgid ""
 "   and an error number is returned instead."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "UNIX-FSTAT is similar to UNIX-STAT except the file is specified\n"
 "   by the file descriptor FD."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "UNIX-LSTAT is similar to UNIX-STAT except the specified\n"
 "   file must be a symbolic link."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1317,7 +1325,7 @@ msgid ""
 "  otherwise."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1325,61 +1333,61 @@ msgid ""
 "   was successful."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Set the file creation mask of the current process to MASK,\n"
 "   and return the old creation mask."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Create a device file named PATH, with permission and special bits MODE\n"
 "  and device number DEV (which can be constructed from major and minor\n"
 "  device numbers with the `makedev' macro above)."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Create a new FIFO named PATH, with permission bits MODE."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return information about the filesystem on which FILE resides."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Make the block special device PATH available to the system for swapping.\n"
 "  This call is restricted to the super-user."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Make the block special device PATH unavailable to the system for swapping.\n"
 "  This call is restricted to the super-user."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read or write system parameters."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Time used by the program so far (user time + system time).\n"
 "   The result / CLOCKS_PER_SECOND is program time in seconds."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Return the current time and put it in *TIMER if TIMER is not NULL."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1387,7 +1395,7 @@ msgid ""
 "   returns NIL and the errno."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Unix-getitimer returns the INTERVAL and VALUE slots of one of\n"
 "   three system timers (:real :virtual or :profile). On success,\n"
@@ -1395,7 +1403,7 @@ msgid ""
 "   T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.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"
@@ -1407,11 +1415,11 @@ msgid ""
 "   slots as in unix-getitimer."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Fill in TIMEBUF with information about the current time."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Store the CPU time used by this process and all its\n"
 "   dead children (and their dead children) in BUFFER.\n"
@@ -1419,13 +1427,13 @@ msgid ""
 "   All times are in CLK_TCKths of a second."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Wait for a child to die.  When one does, put its status in *STAT_LOC\n"
 "   and return its process ID.  For errors, return (pid_t) -1."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Wait for a child matching PID to die.\n"
 "   If PID is greater than 0, match any process whose process ID is PID.\n"
@@ -1441,499 +1449,499 @@ msgid ""
 "   set in OPTIONS, return status for stopped children; otherwise don't."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Successful"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation not permitted"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No such file or directory"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No such process"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Interrupted system call"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "I/O error"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No such device or address"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Arg list too long"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Exec format error"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Bad file number"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No children"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Try again"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Out of memory"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Permission denied"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Bad address"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Block device required"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Device or resource busy"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File exists"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Cross-device link"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No such device"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Not a director"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Is a directory"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid argument"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File table overflow"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many open files"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Not a typewriter"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Text file busy"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File too large"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No space left on device"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Illegal seek"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read-only file system"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many links"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Broken pipe"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Math argument out of domain"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Math result not representable"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Resource deadlock would occur"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File name too long"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No record locks available"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Function not implemented"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Directory not empty"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many symbolic links encountered"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation would block"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No message of desired type"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Identifier removed"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Channel number out of range"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Level 2 not synchronized"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Level 3 halted"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Level 3 reset"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Link number out of range"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol driver not attached"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No CSI structure available"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Level 2 halted"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid exchange"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid request descriptor"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Exchange full"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No anode"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid request code"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Invalid slot"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File locking deadlock error"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Bad font file format"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Device not a stream"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No data available"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Timer expired"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Out of streams resources"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Machine is not on the network"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Package not installed"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Object is remote"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Link has been severed"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Advertise error"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Srmount error"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Communication error on send"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol error"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Multihop attempted"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "RFS specific error"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Not a data message"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Value too large for defined data type"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Name not unique on network"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "File descriptor in bad state"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Remote address changed"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Can not access a needed shared library"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Accessing a corrupted shared library"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ".lib section in a.out corrupted"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Attempting to link in too many shared libraries"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Cannot exec a shared library directly"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Illegal byte sequence"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Interrupted system call should be restarted _N"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Streams pipe error"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many users"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Socket operation on non-socket"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Destination address required"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Message too long"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol wrong type for socket"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol not available"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol not supported"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Socket type not supported"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation not supported on transport endpoint"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Protocol family not supported"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Address family not supported by protocol"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Address already in use"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Cannot assign requested address"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Network is down"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Network is unreachable"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Network dropped connection because of reset"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Software caused connection abort"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Connection reset by peer"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No buffer space available"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Transport endpoint is already connected"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Transport endpoint is not connected"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Cannot send after transport endpoint shutdown"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Too many references: cannot splice"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Connection timed out"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Connection refused"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Host is down"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No route to host"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation already in progress"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Operation now in progress"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Stale NFS file handle"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Structure needs cleaning"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Not a XENIX named type file"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "No XENIX semaphores available"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Is a named type file"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Remote I/O error"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Quota exceeded"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Define an ioctl command. If the optional ARG and PARM-TYPE are given\n"
 "  then ioctl argument size and direction are included as for ioctls defined\n"
@@ -1941,85 +1949,85 @@ msgid ""
 "  is the characters code, else DEV may be an integer giving the type."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set the socket process-group for the unix file-descriptor FD to PGRP."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set user ID on execution"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Set group ID on execution"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Save text image after execution"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write by owner"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Execute (search directory) by owner"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read by group"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write by group"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Execute (search directory) by group"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Read by others"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Write by others"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Execute (search directory) by others"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Returns either :file, :directory, :link, :special, or NIL."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Returns the pathname with all symbolic links resolved."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid "Error reading link ~S: ~S"
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return a USER-INFO structure for the user identified by LOGIN, or NIL if not "
 "found."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return a USER-INFO structure for the user identified by UID, or NIL if not "
 "found."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return a GROUP-INFO structure for the group identified by NAME, or NIL if "
 "not found."
 msgstr ""
 
-#: target:code/unix-glibc2.lisp
+#: src/code/unix-glibc2.lisp
 msgid ""
 "Return a GROUP-INFO structure for the group identified by GID, or NIL if not "
 "found."
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po b/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
index 726de863e..2a0eb230f 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po
@@ -76,6 +76,61 @@ msgstr ""
 msgid "Thread safe push of val onto the list in the vector element."
 msgstr ""
 
+#: src/code/commandline.lisp
+msgid ""
+"Specifies what kind of floating-point support should be used on x86\n"
+"  systems.  If 'x87', Lisp will use the x87 floating-point unit; if\n"
+"  'sse2', Lisp uses SSE2 floating-point unit. The default is\n"
+"  'auto',which causes Lisp to check to see if SSE2 is available.  If\n"
+"  so, then SSE2 is used.  If the SSE2 core file cannot be found,Lisp\n"
+"  will fallback to the x87 core, which can run on any machine."
+msgstr ""
+
+#: src/code/commandline.lisp
+msgid "mode"
+msgstr ""
+
+#: src/code/commandline.lisp
+msgid "a symbol or function"
+msgstr ""
+
+#: src/code/load.lisp
+msgid "Top-Level Form"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr ""
+
+#: 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/x86/vm.lisp
+msgid "Redefining SC number ~D from ~S to ~S."
+msgstr ""
+
 #: src/compiler/x86/c-call.lisp src/compiler/x86/insts.lisp
 msgid "Class not yet defined: ~S"
 msgstr ""
@@ -130,11 +185,15 @@ msgid ""
 "  the GENERATE-CERROR-CODE form."
 msgstr ""
 
-#: 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/move.lisp
+#: src/compiler/x86/type-vops.lisp src/compiler/x86/pred.lisp
+#: src/compiler/x86/array.lisp src/compiler/x86/print.lisp
+#: src/compiler/x86/nlx.lisp src/compiler/x86/call.lisp
+#: src/compiler/x86/alloc.lisp src/compiler/x86/values.lisp
+#: src/compiler/x86/cell.lisp src/compiler/x86/debug.lisp
+#: src/compiler/x86/subprim.lisp src/compiler/x86/arith.lisp
+#: src/compiler/x86/static-fn.lisp src/compiler/x86/memory.lisp
+#: src/compiler/x86/char.lisp src/compiler/x86/system.lisp
+#: src/compiler/x86/sap.lisp src/compiler/x86/move.lisp
 msgid "Unknown SC to SC-Case for ~S:~%  ~S"
 msgstr ""
 
@@ -146,8 +205,9 @@ msgstr ""
 msgid "constant load"
 msgstr ""
 
-#: src/compiler/x86/call.lisp src/compiler/x86/debug.lisp
-#: src/compiler/x86/char.lisp src/compiler/x86/move.lisp
+#: src/compiler/x86/nlx.lisp src/compiler/x86/call.lisp
+#: src/compiler/x86/debug.lisp src/compiler/x86/char.lisp
+#: src/compiler/x86/move.lisp
 msgid ""
 "Load TN allocated, but no move function?~@\n"
 "\t           VM definition inconsistent, recompile and try again."
diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl.po b/i18n/locale/ko/LC_MESSAGES/cmucl.po
index c37a1d2db..8a07e9dc7 100644
--- a/i18n/locale/ko/LC_MESSAGES/cmucl.po
+++ b/i18n/locale/ko/LC_MESSAGES/cmucl.po
@@ -5944,20 +5944,6 @@ msgid ""
 "  its default core file."
 msgstr ""
 
-#: src/code/commandline.lisp
-msgid ""
-"Specifies what kind of floating-point support should be used on x86\n"
-"  systems.  If 'x87', Lisp will use the x87 floating-point unit; if\n"
-"  'sse2', Lisp uses SSE2 floating-point unit. The default is\n"
-"  'auto',which causes Lisp to check to see if SSE2 is available.  If\n"
-"  so, then SSE2 is used.  If the SSE2 core file cannot be found,Lisp\n"
-"  will fallback to the x87 core, which can run on any machine."
-msgstr ""
-
-#: src/code/commandline.lisp
-msgid "mode"
-msgstr ""
-
 #: src/code/commandline.lisp
 msgid "~&Usage: ~A <options>~2%"
 msgstr ""
@@ -10092,10 +10078,6 @@ msgstr ""
 msgid "~A was compiled for a ~A, but this is a ~A"
 msgstr ""
 
-#: src/compiler/dfo.lisp src/code/load.lisp
-msgid "Top-Level Form"
-msgstr ""
-
 #: src/compiler/generic/core.lisp src/code/load.lisp
 msgid "Unaligned function object, offset = #x~X."
 msgstr ""
@@ -10448,10 +10430,6 @@ msgstr ""
 msgid "C abort()"
 msgstr ""
 
-#: src/code/signal.lisp
-msgid "Emt instruction"
-msgstr ""
-
 #: src/code/signal.lisp
 msgid "Floating point exception"
 msgstr ""
@@ -10468,10 +10446,6 @@ msgstr ""
 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 ""
@@ -11305,10 +11279,6 @@ msgstr ""
 msgid "Unknown breakpoint in ~S at offset ~S."
 msgstr ""
 
-#: src/code/debug-int.lisp
-msgid "Breakpoint that nobody wants?"
-msgstr ""
-
 #: src/code/debug-int.lisp
 msgid ""
 "Make a bogus LRA object that signals a breakpoint trap when returned to.  "
@@ -15424,31 +15394,6 @@ msgid ""
 "Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*."
 msgstr ""
 
-#: 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 ""
@@ -18706,6 +18651,10 @@ msgstr ""
 msgid "Function called with unknown argument keyword ~S."
 msgstr ""
 
+#: src/compiler/dfo.lisp
+msgid "Top-Level Form"
+msgstr ""
+
 #: src/compiler/checkgen.lisp
 msgid "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
 msgstr ""
@@ -18789,30 +18738,12 @@ msgid ""
 "   symbol."
 msgstr ""
 
-#: 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 ""
 
-#: 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 ""
-- 
GitLab