From 4fb1997f50bccadb511075b97c14128f796f807d Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 20 Apr 2010 18:05:43 +0000 Subject: [PATCH] Regenerate pot and po files. --- i18n/locale/cmucl-bsd-os.pot | 8 +- i18n/locale/cmucl-mp.pot | 76 +- i18n/locale/cmucl-sse2.pot | 68 +- i18n/locale/cmucl-unix.pot | 632 +- i18n/locale/cmucl-x86-vm.pot | 299 +- i18n/locale/cmucl-x87.pot | 4 +- i18n/locale/cmucl.pot | 9289 +++++++++---------- i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po | 8 +- i18n/locale/ko/LC_MESSAGES/cmucl-mp.po | 76 +- i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po | 68 +- i18n/locale/ko/LC_MESSAGES/cmucl-unix.po | 632 +- i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po | 299 +- i18n/locale/ko/LC_MESSAGES/cmucl-x87.po | 4 +- i18n/locale/ko/LC_MESSAGES/cmucl.po | 9322 ++++++++++---------- 14 files changed, 10962 insertions(+), 9823 deletions(-) diff --git a/i18n/locale/cmucl-bsd-os.pot b/i18n/locale/cmucl-bsd-os.pot index 380c17e4d..09f33f29b 100644 --- a/i18n/locale/cmucl-bsd-os.pot +++ b/i18n/locale/cmucl-bsd-os.pot @@ -15,19 +15,19 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/bsd-os.lisp +#: src/code/bsd-os.lisp msgid "Version string for supporting software" msgstr "" -#: target:code/bsd-os.lisp +#: src/code/bsd-os.lisp msgid "Returns a string describing version of the supporting software." msgstr "" -#: target:code/bsd-os.lisp +#: src/code/bsd-os.lisp msgid "Unix system call getrusage failed: ~A." msgstr "" -#: target:code/bsd-os.lisp +#: src/code/bsd-os.lisp msgid "Getpagesize failed: ~A" msgstr "" diff --git a/i18n/locale/cmucl-mp.pot b/i18n/locale/cmucl-mp.pot index a20855a41..b9777ee38 100644 --- a/i18n/locale/cmucl-mp.pot +++ b/i18n/locale/cmucl-mp.pot @@ -15,60 +15,60 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Class not yet defined: ~S" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Syscall ~A failed: ~A" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Return the real time in seconds." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Return the run time in seconds" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Return the process state which is either Run, Killed, or a wait reason." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Returns the current process." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "A list of all alive processes." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Return a list of all the live processes." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Execute the body the scheduling disabled." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Increaments the reference by delta in a single atomic operation" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Decrements the reference by delta in a single atomic operation" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Atomically push object onto place." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Atomically pop place." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Make a process which will run FUNCTION when it starts up. By\n" " default the process is created in a runnable (active) state.\n" @@ -101,37 +101,37 @@ msgid "" " element." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Interrupt process and cause it to evaluate function." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Destroy a process. The process is sent a interrupt which throws to\n" " the end of the process allowing it to unwind gracefully." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Restart process by unwinding it to its initial state and calling its\n" " initial function." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Restart process, unwinding it to its initial state and calls\n" " function with args." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Disable process from being runnable until enabled." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Allow process to become runnable again after it has been disabled." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Causes the process to wait until predicate returns True. Processes\n" " can only call process-wait when scheduling is enabled, and the predicate\n" @@ -140,7 +140,7 @@ msgid "" " The single True predicate value is returned." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Causes the process to wait until predicate returns True, or the\n" " number of seconds specified by timeout has elapsed. The timeout may\n" @@ -148,7 +148,7 @@ msgid "" " returned, or NIL if the timeout was reached." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Try to gracefully destroy all the processes giving them some\n" " chance to unwinding, before shutting down multi-processing. This is\n" @@ -156,12 +156,12 @@ msgid "" " Multi-processing can be restarted by calling init-multi-processing." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Destroyed ~d process; remaining ~d~%" msgid_plural "Destroyed ~d processes; remaining ~d~%" msgstr[0] "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "An idle loop to be run by the initial process. The select based event\n" " server is called with a timeout calculated from the minimum of the\n" @@ -174,36 +174,36 @@ msgid "" " to unwind." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Allow other processes to run." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Return the accrued real time elapsed while the given process was\n" " scheduled. The returned time is a double-float in seconds." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Return the accrued run time elapsed for the given process. The returned\n" " time is a double-float in seconds." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Return the real time elapsed since the given process was last\n" " descheduled. The returned time is a double-float in seconds." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Start a regular SIGALRM interrupt which calls process-yield. An optional\n" " time in seconds and micro seconds may be provided. Note that CMUCL code\n" " base is not too interrupt safe so this may cause problems." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Wait until FD is usable for DIRECTION and return True. DIRECTION should be\n" " either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds " @@ -211,31 +211,31 @@ msgid "" " wait before giving up and returing NIL." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "This function causes execution to be suspended for N seconds. N may\n" " be any non-negative, non-complex number." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Executes body and returns the values of the last form in body. However, if\n" " the execution takes longer than timeout seconds, abort it and evaluate\n" " timeout-forms, returning the values of last form." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Show the all the processes, their whostate, and state. If the optional\n" " verbose argument is true then the run, real, and idle times are also\n" " shown." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Top-level READ-EVAL-PRINT loop for processes." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Enter the idle loop, starting a new process to run the top level loop.\n" " The awaking of sleeping processes is timed better with the idle loop " @@ -246,7 +246,7 @@ msgid "" " default when there is better MP debug support etc." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Create a Lisp connection listener, listening on a TCP port for new\n" " connections and starting a new top-level loop for each. If a password\n" @@ -255,7 +255,7 @@ msgid "" " defaults to 1025." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Execute the body with the lock held. If the lock is held by another\n" " process then the current process waits until the lock is released or\n" diff --git a/i18n/locale/cmucl-sse2.pot b/i18n/locale/cmucl-sse2.pot index a0b53c98f..9f272718c 100644 --- a/i18n/locale/cmucl-sse2.pot +++ b/i18n/locale/cmucl-sse2.pot @@ -15,130 +15,130 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:compiler/x86/float-sse2.lisp -msgid "Ignoring bogus i387 Constant ~a" +#: src/compiler/x86/sse2-array.lisp src/compiler/x86/sse2-c-call.lisp +#: src/compiler/x86/sse2-sap.lisp src/compiler/x86/float-sse2.lisp +msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" -#: target:compiler/x86/sse2-array.lisp target:compiler/x86/sse2-c-call.lisp -#: target:compiler/x86/sse2-sap.lisp target:compiler/x86/float-sse2.lisp -msgid "Unknown SC to SC-Case for ~S:~% ~S" +#: src/compiler/x86/float-sse2.lisp +msgid "Ignoring bogus i387 Constant ~a" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "float move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "float to pointer coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "" "Load TN allocated, but no move function?~@\n" " VM definition inconsistent, recompile and try again." msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "pointer to float coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex float to pointer coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex double-double float to pointer coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "pointer to complex float coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "float argument move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex float argument move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex double-double-float argument move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline float arithmetic" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline float comparison" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline float coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline float truncate" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex single-float creation" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex double-float creation" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex float realpart" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex float imagpart" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline dummy FP register bias" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double-double float move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double double float to pointer coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "pointer to double-double-float coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double double-float argument move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline double-double-float creation" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double-double high part" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double-double low part" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex double-double-float creation" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex float arithmetic" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex float/float arithmetic" msgstr "" diff --git a/i18n/locale/cmucl-unix.pot b/i18n/locale/cmucl-unix.pot index 3354c764b..9cc3a18c3 100644 --- a/i18n/locale/cmucl-unix.pot +++ b/i18n/locale/cmucl-unix.pot @@ -15,679 +15,679 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Size of control character vector." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Successful" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation not permitted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No such file or directory" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No such process" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Interrupted system call" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "I/O error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Device not configured" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Arg list too long" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Exec format error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad file descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No child process" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Resource deadlock avoided" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No more processes" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Try again" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Out of memory" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Permission denied" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad address" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Block device required" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Device or resource busy" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File exists" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cross-device link" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No such device" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Not a director" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Is a directory" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid argument" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File table overflow" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many open files" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Inappropriate ioctl for device" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Text file busy" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File too large" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No space left on device" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Illegal seek" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read-only file system" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many links" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Broken pipe" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Numerical argument out of domain" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Result too large" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Math result not representable" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation would block" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Resource temporarily unavailable" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation now in progress" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation already in progress" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Socket operation on non-socket" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Destination address required" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Message too long" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol wrong type for socket" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol not available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol not supported" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Socket type not supported" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation not supported on socket" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol family not supported" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Address family not supported by protocol family" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Address already in use" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Can't assign requested address" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Network is down" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Network is unreachable" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Network dropped connection on reset" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Software caused connection abort" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Connection reset by peer" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No buffer space available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Socket is already connected" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Socket is not connected" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Can't send after socket shutdown" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many references: can't splice" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Connection timed out" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Connection refused" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many levels of symbolic links" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File name too long" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Host is down" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No route to host" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Directory not empty" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many processes" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many users" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Disc quota exceeded" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "namei should continue locally" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "namei was handled remotely" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Remote file system error _N" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "syscall was handled by Vice" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No message of desired type" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Identifier removed" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Channel number out of range" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Level 2 not synchronized" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Level 3 halted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Level 3 reset" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Link number out of range" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol driver not attached" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No CSI structure available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Level 2 halted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Deadlock situation detected/avoided" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No record locks available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 47" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 48" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad exchange descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad request descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Message tables full" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Anode table overflow" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad request code" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid slot" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File locking deadlock" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad font file format" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Not a stream device" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No data available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Timer expired" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Out of stream resources" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Machine is not on the network" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Package not installed" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Object is remote" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Link has been severed" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Advertise error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Srmount error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Communication error on send" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Multihop attempted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Not a data message" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Value too large for defined data type" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Name not unique on network" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File descriptor in bad state" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Remote address changed" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Can not access a needed shared library" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Accessing a corrupted shared library" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid ".lib section in a.out corrupted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Attempting to link in more shared libraries than system limit" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Can not exec a shared library directly" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 88" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation not applicable" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Number of symbolic links encountered during path name traversal exceeds " "MAXSYMLINKS" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 91" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 92" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Option not supported by protocol" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation not supported on transport endpoint" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cannot assign requested address" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Network dropped connection because of reset" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Transport endpoint is already connected" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Transport endpoint is not connected" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cannot send after socket shutdown" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many references: cannot splice" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Stale NFS file handle" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Resource deadlock would occur" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Function not implemented" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many symbolic links encountered" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid exchange" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid request descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Exchange full" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No anode" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid request code" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File locking deadlock error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Device not a stream" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Out of streams resources" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "RFS specific error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Attempting to link in too many shared libraries" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cannot exec a shared library directly" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Illegal byte sequence" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Interrupted system call should be restarted _N" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Streams pipe error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Address family not supported by protocol" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cannot send after transport endpoint shutdown" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Structure needs cleaning" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Not a XENIX named type file" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No XENIX semaphores available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Is a named type file" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Remote I/O error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Quota exceeded" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Returns a string describing the error number which was returned by a\n" " UNIX system call." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unknown error [~d]" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Class not yet defined: ~S" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Syscall ~A failed: ~A" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Set the user ID of the calling process to UID.\n" " If the calling process is the super-user, set the real\n" @@ -695,7 +695,7 @@ msgid "" " if not, the effective user ID is set to UID." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Set the group ID of the calling process to GID.\n" " If the calling process is the super-user, set the real\n" @@ -703,23 +703,23 @@ msgid "" " if not, the effective group ID is set to GID." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Test for read permission" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Test for write permission" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Test for execute permission" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Test for presence of file" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given a file path (a string) and one of four constant modes,\n" " unix-access returns T if the file is accessible with that\n" @@ -733,61 +733,61 @@ msgid "" " f_ok Presence of file." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given a file path string, unix-chdir changes the current working \n" " directory to the one specified." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set user ID on execution" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set group ID on execution" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Save text image after execution" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read by owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Write by owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Execute (search directory) by owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read by group" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Write by group" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Execute (search directory) by group" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read by others" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Write by others" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Execute (search directory) by others" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given a file path string and a constant mode, unix-chmod changes the\n" " permission mode for that file to the one specified. The new mode\n" @@ -813,7 +813,7 @@ msgid "" " otherwise." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given an integer file descriptor and a mode (the same as those\n" " used for unix-chmod), unix-fchmod changes the permission mode\n" @@ -821,7 +821,7 @@ msgid "" " was successful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given a file path, an integer user-id, and an integer group-id,\n" " unix-chown changes the owner of the file and the group of the\n" @@ -830,27 +830,27 @@ msgid "" " fail if the caller is not the superuser." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-fchown is like unix-chown, except that it accepts an integer\n" " file descriptor instead of a file path name." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getdtablesize returns the maximum size of the file descriptor\n" " table. (i.e. the maximum number of descriptors that can exist at\n" " one time.)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-close takes an integer file descriptor as an argument and\n" " closes the file associated with it. T is returned upon successful\n" " completion, otherwise NIL and an error number." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-creat accepts a file name and a mode (same as those for\n" " unix-chmod) and creates a file by that name with the specified\n" @@ -860,14 +860,14 @@ msgid "" " This interface is made obsolete by UNIX-OPEN." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-dup duplicates an existing file descriptor (given as the\n" " argument) and return it. If FD is not a valid file descriptor, NIL\n" " and an error number are returned." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-dup2 duplicates an existing file descriptor just as unix-dup\n" " does only the new value of the duplicate descriptor may be requested\n" @@ -876,71 +876,71 @@ msgid "" " assigned to the duplicate." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Duplicate a file descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get file desc. flags" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set file desc. flags" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get file flags" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set file flags" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get lock" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set lock" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set lock, wait for release" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Non-blocking reads" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Append on each write" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Signal pgrp when data ready" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Create if nonexistant" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Truncate to zero length" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error if already created" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-fcntl manipulates file descriptors according to the\n" " argument CMD which can be one of the following:\n" @@ -964,25 +964,25 @@ msgid "" " " msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-link creates a hard link from the file with name1 to the\n" " file with name2." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "set the file pointer" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "increment the file pointer" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "extend the file size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-lseek accepts a file descriptor and moves the file pointer ahead\n" " a certain offset for that file. Whence can be any of the following:\n" @@ -993,58 +993,58 @@ msgid "" " _N" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-mkdir creates a new directory with the specified name and mode.\n" " (Same as those for unix-chmod.) It returns T upon success, otherwise\n" " NIL and an error number." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read-only flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Write-only flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read-write flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Non-blocking I/O" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Append flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Create if nonexistant flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Truncate flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error if already exists." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Don't assign controlling tty" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Non-blocking mode" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Synchronous writes (on ext2)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-open opens the file whose pathname is specified by path\n" " for reading and/or writing as specified by the flags argument.\n" @@ -1062,7 +1062,7 @@ msgid "" " integer file descriptor is returned by unix-open." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-pipe sets up a unix-piping mechanism consisting of\n" " an input pipe and an output pipe. Unix-Pipe returns two\n" @@ -1072,7 +1072,7 @@ msgid "" " the unix error code." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-read attempts to read from the file described by fd into\n" " the buffer buf until it is full. Len is the length of the buffer.\n" @@ -1080,7 +1080,7 @@ msgid "" " number if an error occured." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-readlink invokes the readlink system call on the file name\n" " specified by the simple string path. It returns up to two values:\n" @@ -1088,19 +1088,19 @@ msgid "" " NIL and the Unix error number." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-rename renames the file with string name1 to the string\n" " name2. NIL and an error code is returned if an error occured." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-rmdir attempts to remove the directory name. NIL and\n" " an error number is returned if an error occured." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Perform the UNIX select(2) system call.\n" " (declare (type (integer 0 #.FD-SETSIZE) num-descriptors)\n" @@ -1111,143 +1111,143 @@ msgid "" " (optimize (speed 3) (safety 0) (inhibit-warnings 3)))" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-select examines the sets of descriptors passed as arguments\n" " to see if they are ready for reading and writing. See the UNIX\n" " Programmers Manual for more information." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-sync writes all information in core memory which has been\n" " modified to disk. It returns NIL and an error code if an error\n" " occured." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-fsync writes the core image of the file described by\n" " fd to disk." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-truncate truncates the named file to the length (in\n" " bytes) specified by len. NIL and an error number is returned\n" " if the call is unsuccessful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-ftruncate is similar to unix-truncate except that the first\n" " argument is a file descriptor rather than a file name." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-symlink creates a symbolic link named name2 to the file\n" " named name1. NIL and an error number is returned if the call\n" " is unsuccessful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-unlink removes the directory entry for the named file.\n" " NIL and an error code is returned if the call fails." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-write attempts to write a character buffer (buf) of length\n" " len to the file described by the file descriptor fd. NIL and an\n" " error is returned if the call is unsuccessful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-ioctl performs a variety of operations on open i/o\n" " descriptors. See the UNIX Programmer's Manual for more\n" " information." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get terminal attributes." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set terminal attributes." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get terminal output speed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set terminal output speed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bogus baud rate ~S" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get terminal input speed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set terminal input speed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Send break" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Wait for output for finish" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "See tcflush(3)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Flow control" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get the tty-process-group for the unix file-descriptor FD." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Get the tty-process-group for the unix file-descriptor FD. If not supplied," "\n" " FD defaults to /dev/tty." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Set the tty-process-group for the unix file-descriptor FD to PGRP. If not\n" " supplied, FD defaults to /dev/tty." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set the socket process-group for the unix file-descriptor FD to PGRP." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-exit terminates the current process with an optional\n" " error code. If successful, the call doesn't return. If\n" " unsuccessful, the call returns NIL and an error number." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-stat retrieves information about the specified\n" " file returning them in the form of multiple values.\n" @@ -1256,33 +1256,33 @@ msgid "" " and an error number is returned instead." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-lstat is similar to unix-stat except the specified\n" " file must be a symbolic link." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-fstat is similar to unix-stat except the file is specified\n" " by the file descriptor fd." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "The calling process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Terminated child processes." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Like call getrusage, but return only the system and user time, and returns\n" " the seconds and microseconds as separate values." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getrusage returns information about the resource usage\n" " of the process specified by who. Who can be either the\n" @@ -1291,13 +1291,13 @@ msgid "" " is returned if the call fails." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" " and its children." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "If it works, unix-gettimeofday returns 5 values: T, the seconds and\n" " microseconds of the current time of day, the timezone (in minutes west\n" @@ -1305,95 +1305,95 @@ msgid "" " returns NIL and the errno." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-utimes sets the 'last-accessed' and 'last-updated'\n" " times on a specified file. NIL and an error number is\n" " returned if the call is unsuccessful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-setreuid sets the real and effective user-id's of the current\n" " process to the specified ones. NIL and an error number is returned\n" " if the call fails." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-setregid sets the real and effective group-id's of the current\n" " process process to the specified ones. NIL and an error number is\n" " returned if the call fails." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getpid returns the process-id of the current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getppid returns the process-id of the parent of the current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getgid returns the real group-id of the current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getegid returns the effective group-id of the current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getpgrp returns the group-id of the calling process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-setpgrp sets the process group on the process pid to\n" " pgrp. NIL and an error number are returned upon failure." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-setpgid sets the process group of the process pid to\n" " pgrp. If pgid is equal to pid, the process becomes a process\n" " group leader. NIL and an error number are returned upon failure." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getuid returns the real user-id associated with the\n" " current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getpagesize returns the number of bytes in a system page." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-gethostname returns the name of the host machine as a string." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-gethostid returns a 32-bit integer which provides unique\n" " identification for the host machine." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Executes the unix fork system call. Returns 0 in the child and the pid\n" " of the child in the parent if it works, or NIL and an error number if it\n" " doesn't work." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Get the value of the environment variable named Name. If no such\n" " variable exists, Nil is returned." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Adds the environment variable named Name to the environment with\n" " the given Value if Name does not already exist. If Name does exist,\n" @@ -1401,36 +1401,36 @@ msgid "" " the value is not changed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Adds or changes the environment. Name-value must be a string of\n" " the form \"name=value\". If the name does not exist, it is added.\n" " If name does exist, the value is updated to the given value." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Removes the variable Name from the environment" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Returns either :file, :directory, :link, :special, or NIL." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Returns the pathname with all symbolic links resolved." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error reading link ~S: ~S" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Accepts a Unix file descriptor and returns T if the device\n" " associated with it is a terminal." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Executes the Unix execve system call. If the system call suceeds, lisp\n" " will no longer be running in this process. If the system call fails " @@ -1445,7 +1445,7 @@ msgid "" "program." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getitimer returns the INTERVAL and VALUE slots of one of\n" " three system timers (:real :virtual or :profile). On success,\n" @@ -1453,7 +1453,7 @@ msgid "" " T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" " Unix-setitimer sets the INTERVAL and VALUE slots of one of\n" " three system timers (:real :virtual or :profile). A SIGALRM signal\n" @@ -1465,83 +1465,83 @@ msgid "" " slots as in unix-getitimer." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Return a USER-INFO structure for the user identified by LOGIN, or NIL if " "not found." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Return a USER-INFO structure for the user identified by UID, or NIL if not " "found." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "The maximum size of the group entry buffer" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Return a GROUP-INFO structure for the group identified by NAME, or NIL if " "not found." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Return a GROUP-INFO structure for the group identified by GID, or NIL if " "not found." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "CPU time per process (in milliseconds)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Maximum file size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Data segment size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Stack size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Core file size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Number of open files" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Maximum mapped memory" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "CPU time per process" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Addess space (resident set size)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Locked-in-memory address space" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Number of processes" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Get the limits on the consumption of system resouce specified by\n" " Resource. If successful, return three values: T, the current (soft)\n" diff --git a/i18n/locale/cmucl-x86-vm.pot b/i18n/locale/cmucl-x86-vm.pot index 50991297b..e19c1a5d5 100644 --- a/i18n/locale/cmucl-x86-vm.pot +++ b/i18n/locale/cmucl-x86-vm.pot @@ -15,87 +15,83 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Returns a string describing the type of the local machine." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Returns a string describing the version of the local machine." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Unknown code-object-fixup kind ~s." msgstr "" -#: target:code/x86-vm.lisp -msgid "Unknown foreign symbol: ~S" -msgstr "" - -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare object's slot value to test-value and if EQ store\n" " new-value in the slot. The original value of the slot is returned." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare symbol's value to test-value and if EQ store\n" " new-value in symbol's value slot and return the original value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare the car of CONS to test-value and if EQ store\n" " new-value its car and return the original value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare the cdr of CONS to test-value and if EQ store\n" " new-value its cdr and return the original value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare an element of vector to test-value and if EQ store\n" " new-value the element and return the original value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe push of val onto the list in the symbol global value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe pop from the list in the symbol global value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe push of val onto the list in the car of cons." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe push of val onto the list in the cdr of cons." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe push of val onto the list in the vector element." msgstr "" -#: target:compiler/x86/c-call.lisp target:compiler/x86/insts.lisp +#: src/compiler/x86/c-call.lisp src/compiler/x86/insts.lisp msgid "Class not yet defined: ~S" msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "Move SRC into DST unless they are location=." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Loads the type bits of a pointer into target independent of\n" " byte-ordering issues." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Allocate an object with a size in bytes given by Size.\n" " The size may be an integer or a TN.\n" @@ -104,30 +100,30 @@ msgid "" " appropriate, allocate from the stack." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Allocate an other-pointer object of fixed Size with a single\n" " word header having the specified Type-Code. The result is placed in\n" " Result-TN." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "Cause an error. ERROR-CODE is the error to cause." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Cause a continuable error. If the error is continued, execution resumes at\n" " LABEL." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Generate-Error-Code Error-code Value*\n" " Emit code for an error with the specified Error-Code and context Values." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Generate-CError-Code Error-code Value*\n" " Emit code for a continuable error with the specified Error-Code and\n" @@ -135,140 +131,317 @@ msgid "" " the GENERATE-CERROR-CODE form." msgstr "" -#: target:compiler/x86/array.lisp target:compiler/x86/call.lisp -#: target:compiler/x86/alloc.lisp target:compiler/x86/cell.lisp -#: target:compiler/x86/debug.lisp target:compiler/x86/arith.lisp -#: target:compiler/x86/memory.lisp target:compiler/x86/char.lisp -#: target:compiler/x86/move.lisp +#: src/compiler/x86/array.lisp src/compiler/x86/call.lisp +#: src/compiler/x86/alloc.lisp src/compiler/x86/cell.lisp +#: src/compiler/x86/debug.lisp src/compiler/x86/arith.lisp +#: src/compiler/x86/memory.lisp src/compiler/x86/char.lisp +#: src/compiler/x86/float.lisp src/compiler/x86/move.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "fixnum untagging" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "constant load" msgstr "" -#: target:compiler/x86/call.lisp target:compiler/x86/debug.lisp -#: target:compiler/x86/char.lisp target:compiler/x86/move.lisp +#: src/compiler/x86/call.lisp src/compiler/x86/debug.lisp +#: src/compiler/x86/char.lisp src/compiler/x86/float.lisp +#: src/compiler/x86/move.lisp msgid "" "Load TN allocated, but no move function?~@\n" " VM definition inconsistent, recompile and try again." msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "integer to untagged word coercion" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "fixnum tagging" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "signed word to integer coercion" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "unsigned word to integer coercion" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "word integer move" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "word integer argument move" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr "" + +#: src/compiler/x86/char.lisp msgid "character untagging" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/char.lisp msgid "character tagging" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/char.lisp msgid "character move" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/char.lisp msgid "character arg move" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/char.lisp msgid "inline comparison" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline fixnum arithmetic" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (signed-byte 32) arithmetic" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (unsigned-byte 32) arithmetic" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline ASH" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (signed-byte 32) integer-length" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (unsigned-byte 32) logcount" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline fixnum comparison" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (signed-byte 32) comparison" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (unsigned-byte 32) comparison" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "SHIFT-TOWARDS-START" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "SHIFT-TOWARDS-END" msgstr "" -#: target:compiler/x86/c-call.lisp +#: src/compiler/x86/c-call.lisp msgid "Too many result values from c-call." msgstr "" -#: target:compiler/x86/c-call.lisp +#: src/compiler/x86/c-call.lisp msgid "Method ~S not defined for ~S" msgstr "" -#: target:compiler/x86/c-call.lisp +#: src/compiler/x86/c-call.lisp msgid "" "Cons up a piece of code which calls call-callback with INDEX and a\n" "pointer to the arguments." msgstr "" -#: target:compiler/x86/call.lisp +#: src/compiler/x86/call.lisp msgid "more-arg-context" msgstr "" -#: target:compiler/x86/array.lisp +#: src/compiler/x86/array.lisp msgid "inline array access" msgstr "" -#: target:compiler/x86/array.lisp +#: src/compiler/x86/array.lisp msgid "inline array store" msgstr "" diff --git a/i18n/locale/cmucl-x87.pot b/i18n/locale/cmucl-x87.pot index 55e342cc9..72f249c61 100644 --- a/i18n/locale/cmucl-x87.pot +++ b/i18n/locale/cmucl-x87.pot @@ -15,8 +15,8 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:compiler/x86/x87-array.lisp target:compiler/x86/x87-c-call.lisp -#: target:compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp +#: src/compiler/x86/x87-sap.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" diff --git a/i18n/locale/cmucl.pot b/i18n/locale/cmucl.pot index 9e9efda70..274ccce5b 100644 --- a/i18n/locale/cmucl.pot +++ b/i18n/locale/cmucl.pot @@ -15,113 +15,49 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/intl.lisp -msgid "" -"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n" -" Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this." +#: src/code/struct.lisp +msgid "The size of a stream in-buffer." msgstr "" -#: target:pcl/cpl.lisp target:pcl/dfun.lisp target:pcl/vector.lisp -#: target:pcl/boot.lisp target:pcl/cache.lisp target:pcl/fngen.lisp -#: target:pcl/defs.lisp target:pcl/info.lisp pcl:defsys.lisp -#: target:compiler/byte-comp.lisp target:compiler/eval-comp.lisp -#: target:compiler/generic/new-genesis.lisp target:compiler/generic/core.lisp -#: target:compiler/dump.lisp target:compiler/dyncount.lisp -#: target:compiler/xref.lisp target:compiler/srctran.lisp -#: target:compiler/typetran.lisp target:compiler/ir1util.lisp -#: target:compiler/main.lisp target:compiler/knownfun.lisp -#: target:compiler/new-assem.lisp target:compiler/disassem.lisp -#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp -#: target:compiler/ctype.lisp target:compiler/node.lisp -#: target:compiler/sset.lisp target:compiler/backend.lisp -#: target:compiler/generic/vm-macs.lisp target:compiler/macros.lisp -#: target:code/intl.lisp target:compiler/globaldb.lisp -#: target:code/defstruct.lisp target:code/remote.lisp target:code/wire.lisp -#: target:code/internet.lisp target:code/loop.lisp target:code/run-program.lisp -#: target:code/parse-time.lisp target:code/profile.lisp target:code/ntrace.lisp -#: target:code/rand-mt19937.lisp target:code/debug.lisp -#: target:code/debug-int.lisp target:code/debug-info.lisp target:code/eval.lisp -#: target:code/filesys.lisp target:code/pathname.lisp -#: target:code/fd-stream.lisp target:code/extfmts.lisp -#: target:code/serve-event.lisp target:code/reader.lisp -#: target:code/package.lisp target:code/format.lisp target:code/pprint.lisp -#: target:code/stream.lisp target:code/room.lisp target:code/dfixnum.lisp -#: target:code/commandline.lisp target:code/unidata.lisp -#: target:compiler/proclaim.lisp target:code/hash-new.lisp -#: target:code/byte-interp.lisp target:code/c-call.lisp -#: target:code/alieneval.lisp target:code/type.lisp target:code/class.lisp -#: target:code/typedefs.lisp target:code/error.lisp target:code/fwrappers.lisp -#: target:assembly/assemfile.lisp target:code/struct.lisp +#: src/pcl/cpl.lisp src/pcl/dfun.lisp src/pcl/vector.lisp src/pcl/boot.lisp +#: src/pcl/cache.lisp src/pcl/fngen.lisp src/pcl/defs.lisp src/pcl/info.lisp +#: src/pcl/defsys.lisp src/compiler/byte-comp.lisp src/compiler/eval-comp.lisp +#: src/compiler/generic/new-genesis.lisp src/compiler/generic/core.lisp +#: src/compiler/dump.lisp src/compiler/dyncount.lisp src/compiler/xref.lisp +#: src/compiler/srctran.lisp src/compiler/ir1util.lisp src/compiler/main.lisp +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/disassem.lisp src/compiler/meta-vmdef.lisp +#: src/compiler/vop.lisp src/compiler/ctype.lisp src/compiler/node.lisp +#: src/compiler/sset.lisp src/compiler/backend.lisp +#: src/compiler/generic/vm-macs.lisp src/compiler/macros.lisp +#: src/code/intl.lisp src/compiler/globaldb.lisp src/code/defstruct.lisp +#: src/code/remote.lisp src/code/wire.lisp src/code/internet.lisp +#: src/code/loop.lisp src/code/run-program.lisp src/code/parse-time.lisp +#: src/code/profile.lisp src/code/ntrace.lisp src/code/rand-mt19937.lisp +#: src/code/debug.lisp src/code/debug-int.lisp src/code/debug-info.lisp +#: src/code/eval.lisp src/code/filesys.lisp src/code/pathname.lisp +#: src/code/fd-stream.lisp src/code/extfmts.lisp src/code/serve-event.lisp +#: src/code/reader.lisp src/code/package.lisp src/code/format.lisp +#: src/code/pprint.lisp src/code/stream.lisp src/code/room.lisp +#: src/code/dfixnum.lisp src/code/commandline.lisp src/code/unidata.lisp +#: src/compiler/proclaim.lisp src/code/hash-new.lisp src/code/byte-interp.lisp +#: src/code/c-call.lisp src/code/alieneval.lisp src/code/type.lisp +#: src/code/class.lisp src/code/typedefs.lisp src/code/error.lisp +#: src/code/fwrappers.lisp src/code/struct.lisp msgid "Class not yet defined: ~S" msgstr "" -#: target:code/intl.lisp -msgid "Encountered illegal token: =" -msgstr "" - -#: target:code/intl.lisp -msgid "Encountered illegal token: ~C" -msgstr "" - -#: target:code/intl.lisp -msgid "Expected : in ?: construct" -msgstr "" - -#: target:code/intl.lisp -msgid "Expected close-paren." -msgstr "" - -#: target:code/intl.lisp -msgid "Unexpected token: ~S." -msgstr "" - -#: target:code/intl.lisp -msgid "Expecting end of expression. ~S." -msgstr "" - -#: target:code/intl.lisp -msgid "" -"Look up STRING in the current message domain and return its translation." -msgstr "" - -#: target:code/intl.lisp -msgid "" -"Look up the singular or plural form of a message in the current domain." -msgstr "" - -#: target:code/intl.lisp -msgid "" -"Look up STRING in the specified message domain and return its translation." -msgstr "" - -#: target:code/intl.lisp -msgid "" -"Look up the singular or plural form of a message in the specified domain." -msgstr "" - -#: target:code/intl.lisp -msgid "_@ is a reserved reader macro prefix." -msgstr "" - -#: target:code/intl.lisp -msgid "~&Dumping ~D messages for domain ~S~%" -msgstr "" - -#: target:code/struct.lisp -msgid "The size of a stream in-buffer." -msgstr "" - -#: target:code/sysmacs.lisp +#: src/code/sysmacs.lisp msgid "Register the feature as having influenced the CMUCL build process." msgstr "" -#: target:code/sysmacs.lisp +#: src/code/sysmacs.lisp msgid "" "Register the feature as having influenced the CMUCL build process,\n" "and also the CMUCL C runtime." msgstr "" -#: target:code/sysmacs.lisp +#: src/code/sysmacs.lisp msgid "" "Given any Array, binds Data-Var to the array's data vector and Start-Var " "and\n" @@ -135,149 +71,149 @@ msgid "" " include Svalue." msgstr "" -#: target:code/sysmacs.lisp +#: src/code/sysmacs.lisp msgid "Executes the forms in the body without doing a garbage collection." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Return the 24 bits of data in the header of object X, which must be an\n" " other-pointer object." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Sets the 24 bits of data in the header of object X (which must be an\n" " other-pointer object) to VAL." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Returns the length of the closure X. This is one more than the number\n" " of variables closed over." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Returns the three-bit lowtag for the object X." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Returns the 8-bit header type for the object X." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Return a System-Area-Pointer pointing to the data for the vector X, which\n" " must be simple." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return a System-Area-Pointer pointing to the end of the binding stack." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Returns a System-Area-Pointer pointing to the next free work of the current\n" " dynamic space." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return a System-Area-Pointer pointing to the end of the control stack." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return the header typecode for FUNCTION. Can be set with SETF." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extracts the arglist from the function header FUNC." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extracts the name from the function header FUNC." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extracts the type from the function header FUNC." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extracts the function from CLOSURE." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Return the length of VECTOR. There is no reason to use this, 'cause\n" " (length (the vector foo)) is the same." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return the SXHASH for the simple-string STRING." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Return the SXHASH for the first LENGTH characters of the simple-string\n" " STRING." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extract the INDEXth slot from CLOSURE." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n" " WORDS words long. Note: it is your responsibility to assure that the\n" " relation between LENGTH and WORDS is correct." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Allocate an array header with type code TYPE and rank RANK." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return a SAP pointing to the instructions part of CODE-OBJ." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Extract the INDEXth element from the header of CODE-OBJ. Can be set with\n" " setf." msgstr "" -#: target:code/format.lisp target:code/print.lisp target:code/irrat-dd.lisp -#: target:code/irrat.lisp target:code/float.lisp target:code/numbers.lisp -#: target:code/kernel.lisp +#: src/code/format.lisp src/code/print.lisp src/code/irrat-dd.lisp +#: src/code/irrat.lisp src/code/float.lisp src/code/numbers.lisp +#: src/code/kernel.lisp msgid "Argument ~A is not a ~S: ~S." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Holds a list of symbols that describe features provided by the\n" " implementation." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Features affecting the runtime" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "The fixnum closest in value to positive infinity." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "The fixnum closest in value to negative infinity." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "When (typep condition *break-on-signals*) is true, then calls to SIGNAL " "will\n" " enter the debugger prior to signalling that condition." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Invokes the signal facility on a condition formed from datum and arguments.\n" " If the condition is not handled, nil is returned. If\n" @@ -286,53 +222,53 @@ msgid "" " any signalling is done." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "~A~%Break entered because of *break-on-signals* (now NIL.)" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Ignore the additional arguments." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "You may not supply additional arguments ~\n" " when giving ~S to ~S." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Bad argument to ~S: ~S" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Invokes the signal facility on a condition formed from datum and arguments.\n" " If the condition is not handled, the debugger is invoked." msgstr "" -#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp +#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp msgid "Help! " msgstr "" -#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp +#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp msgid " nested errors. " msgstr "" -#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp +#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Prints a message and invokes the debugger without allowing any possibility\n" " of condition handling occurring." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Return from BREAK." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Warns about a situation by signalling a condition formed by datum and\n" " arguments. While the condition is being signaled, a muffle-warning " @@ -340,19 +276,19 @@ msgid "" " exists that causes WARN to immediately return nil." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "a warning condition" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Skip warning." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "~&~@<Warning: ~3i~:_~A~:>~%" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Invokes the signal facility on a condition formed from datum and arguments.\n" " If the condition is not handled, the debugger is invoked. This function\n" @@ -360,129 +296,129 @@ msgid "" " simple-program-error, instead of program-error." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gives the world a shove and hopes it spins." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Functions to be invoked during cleanup at Lisp exit." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Terminates the current Lisp. Things are cleaned up unless Recklessly-P is\n" " non-Nil." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "This function causes execution to be suspended for N seconds. N may\n" " be any non-negative, non-complex number." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Zero the unused portion of the control stack so that old objects are not\n" " kept alive because of uninitialized stack variables." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Holds a list of all the values returned by the most recent top-level EVAL." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of / when a new value is computed." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of // when a new value is computed." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Holds the value of the most recent top-level EVAL." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of * when a new value is computed." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of ** when a new value is computed." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Holds the value of the most recent top-level READ." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of + when a new value is read." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of ++ when a new value is read." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Holds the form curently being evaluated." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "The top-level prompt string. This also may be a function of no arguments\n" " that returns a simple-string." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "True if we are within the Top-Level-Catcher. This is used by interrupt\n" " handlers to see whether it is o.k. to throw." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, ++," "\n" " +, ///, //, /, and -." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Go on with * set to NIL." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "EVAL returned an unbound marker." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "How many pages to reserve from the total heap space so we can handle\n" "heap overflow." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Top-level READ-EVAL-PRINT loop. Do not call this." msgstr "" -#: target:code/lispinit.lisp -msgid "Return to Top-Level." -msgstr "" - -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "~&Received EOF on *standard-input*, ~\n" " switching to *terminal-io*.~%" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "~&Received more than ~D EOFs; Aborting.~%" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "~&Received EOF.~%" msgstr "" -#: target:pcl/walk.lisp +#: src/code/lispinit.lisp +msgid "Return to Top-Level." +msgstr "" + +#: src/pcl/walk.lisp msgid "" "~@<The evaluator was called to evaluate a form in a macroexpansion ~\n" " environment constructed by the PCL portable code walker. These ~\n" @@ -495,38 +431,38 @@ msgid "" ">" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "~@<~S is not a recognized variable declaration.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "~@<Can't get template for ~S.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "" "~@<~S is a special form, not defined in the CommonLisp ~\n" " manual. This code walker doesn't know how to walk it. ~\n" " Define a template for this special form and try again.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "" "~@<While handling repeat: ~\n" " Ran into stop while still in repeat template.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "" "~@<Encountered declare ~S in a place where a ~\n" " declare was not expected.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "~@<Can't understand something in the arglist ~S.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "" "~@<In the form ~S: ~\n" " IF only accepts three arguments, you are using ~D. ~\n" @@ -540,7 +476,7 @@ msgid "" "your source code.~@:>" msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "A funcallable instance used to implement fwrappers.\n" " The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n" @@ -549,48 +485,48 @@ msgid "" " function of the fwrapper object." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Print-function for struct FWRAPPER." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Return FUN if it is an fwrapper or nil if it isn't." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Evaluate BODY with VAR bound to consecutive fwrappers of\n" " FDEFN. Return RESULT at the end." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Return tha last encapsulation of FDEFN or NIL if none." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Prepend encapsulation F to the definition of FUNCTION-NAME.\n" " Signal an error if FUNCTION-NAME is an undefined function." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Remove fwrapper F from the definition of FUNCTION-NAME." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Return a list of all fwrappers of FUNCTION-NAME, ordered\n" " from outermost to innermost." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Set FUNCTION-NAMES's fwrappers to elements of the list\n" " FWRAPPERS, which is assumed to be ordered from outermost to\n" " innermost. FWRAPPERS null means remove all fwrappers." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n" " created by calling CONSTRUCTOR. CONSTRUCTOR is a function\n" @@ -601,7 +537,7 @@ msgid "" " FWRAPPER)." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Remove fwrappers from the function named FUNCTION-NAME.\n" " If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n" @@ -609,27 +545,27 @@ msgid "" " If both are not specified, remove all fwrappers." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Update the funcallable instance function of fwrapper F from its\n" " constructor." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Update fwrapper function definitions of FUNCTION-NAME.\n" " If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n" " If TEST is supplied, update fwrappers satisfying TEST." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Find an fwrapper of FUNCTION-NAME.\n" " If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n" " If TEST is supplied, find an fwrapper satisfying TEST." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Like DEFUN, but define a function wrapper.\n" " In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n" @@ -640,30 +576,30 @@ msgid "" " invokes the next function with the supplied args." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Return the expansion of a DEFINE-FWRAPPER." msgstr "" -#: target:code/fwrappers.lisp -msgid "&MORE not supported in fwrapper lambda lists" -msgstr "" - -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "First value is true if BODY refers to any of the variables in\n" " OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n" " returns. Second value is true if BODY refers to REST." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp +msgid "&MORE not supported in fwrapper lambda lists" +msgstr "" + +#: src/code/fwrappers.lisp msgid "Fwrapper for old-style encapsulations." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "This function is deprecated; use fwrappers instead." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Define (NAME ...) to be a valid function name whose syntax is checked\n" " by BODY. In BODY, VAR is bound to an actual function name of the\n" @@ -673,68 +609,68 @@ msgid "" " and in similar situations." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "First value is true if NAME has valid function name syntax.\n" " Second value is the name, a symbol, to use as a block name in DEFUNs\n" " and in similar situations." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Return the fdefn object for NAME. If it doesn't already exist and CREATE\n" " is non-NIL, create a new (unbound) one." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "Invalid function name: ~S" msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Return the FDEFN of NAME. Signal an error if there is none\n" " or if it's function is null." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Returns the definition for name, including any encapsulations. Settable\n" " with SETF." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Return FUNCTION-NAME's global function definition.\n" " If FUNCTION-NAME is fwrapped, return the primary function definition\n" " stored in the innermost fwrapper." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "This holds functions that (SETF FDEFINITION) invokes before storing the\n" " new value. These functions take the function name and the new value." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Set FUNCTION-NAME's global function definition to NEW-VALUE.\n" " If FUNCTION-NAME is fwrapped, set the primary function stored\n" " in the innermost fwrapper." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "Return true if name has a global function definition." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "Make Name have no global function definition." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "&rest keyword is ~:[missing~;misplaced~]." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Return a list of all the currently active restarts ordered from most\n" " recently established to less recently established. If Condition is\n" @@ -742,11 +678,11 @@ msgid "" " condition) will be returned." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Returns the name of the given restart object." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*\n" " Evaluates the Forms in a dynamic environment where the restarts in the " @@ -758,7 +694,7 @@ msgid "" " to the error currently being debugged. See also RESTART-CASE." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Executes forms in a dynamic context where the given restart bindings are\n" " in effect. Users probably want to use RESTART-CASE. When clauses " @@ -766,12 +702,12 @@ msgid "" " the same restart name, FIND-RESTART will find the first such clause." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Unnamed restart does not have a ~\n" " report function -- ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Returns the first restart named name. If name is a restart, it is returned\n" " if it is currently active. If no such restart is found, nil is " @@ -782,7 +718,7 @@ msgid "" " condition) will be returned." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Calls the function associated with the given restart, passing any given\n" " arguments. If the argument restart is not a restart or a currently " @@ -790,11 +726,11 @@ msgid "" " non-nil restart name, then a control-error is signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Restart ~S is not active." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Calls the function associated with the given restart, prompting for any\n" " necessary arguments. If the argument restart is not a restart or a\n" @@ -802,7 +738,7 @@ msgid "" "signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "(RESTART-CASE form\n" " {(case-name arg-list {keyword value}* body)}*)\n" @@ -819,7 +755,7 @@ msgid "" " the new restarts." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)\n" " body)\n" @@ -828,39 +764,39 @@ msgid "" " returns the values nil and t." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Condition ~S was signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "No REPORT? Shouldn't happen!" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Condition slot is not bound: ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Slot ~S of ~S missing." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Make an instance of a condition object using the specified initargs." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~S is not a condition class." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Bad thing for class arg:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Condition already names a declaration: ~S." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*\n" " Define NAME as a condition type. This new type inherits slots and its\n" @@ -893,39 +829,39 @@ msgid "" " SLOT-VALUE may not be used on condition objects." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Keyword slot name indicates probable syntax error:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Malformed condition slot spec:~% ~S." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "More than one :INITFORM in:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "More than one slot :DOCUMENTATION in~% ~s" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Slot :DOCUMENTATION is not a string in~% ~s" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Unknown slot option:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Bad option:~% ~S" msgstr "" -#: target:compiler/new-assem.lisp target:code/error.lisp +#: src/compiler/new-assem.lisp src/code/error.lisp msgid "Unknown option: ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "(HANDLER-BIND ( {(type handler)}* ) body)\n" " Executes body in a dynamic context where the given handler bindings are\n" @@ -934,67 +870,67 @@ msgid "" " signalled condition." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Ill-formed handler bindings." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~&~@<Error in function ~S: ~3i~:_~?~:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Control stack overflow" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Heap (dynamic space) overflow" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~@<Type-error in ~S: ~3i~:_~S is not of type ~S~:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Layout-invalid error in ~S:~@\n" " Type test of class ~S was passed obsolete instance:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~@<~S fell through ~S expression. ~:_Wanted one of ~:S.~:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "End-of-File on ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~&~@<File-error in function ~S: ~3i~:_~?~:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Error in ~S: the variable ~S is unbound." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Error in ~S: the function ~S is undefined." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "~@<Destructive function ~S called on ~\n" " constant data.~@:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Arithmetic error ~S signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~%Operation was ~S, operands ~S." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "(HANDLER-CASE form\n" " { (type ([var]) body) }* )\n" @@ -1008,202 +944,202 @@ msgid "" " var specification." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Executes forms after establishing a handler for all error conditions that\n" " returns from this form nil and the condition signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Found an \"abort\" restart that failed to transfer control dynamically." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfers control to a restart named abort, signalling a control-error if\n" " none exists." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfers control to a restart named muffle-warning, signalling a\n" " control-error if none exists." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfer control to a restart named continue, returning nil if none exists." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfer control and value to a restart named store-value, returning nil if\n" " none exists." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfer control and value to a restart named use-value, returning nil if\n" " none exists." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "Forms that must happen before top level forms are run." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "Can't cold-load-init other forms along with an eval-when." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "~S is not a defined type class." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "Missing type method for ~S" msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "~S is not a defined type class method." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*" msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "DEFINE-TYPE-CLASS Name [Inherits]" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Layout for ~S~@[, Invalid=~S~]" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "The inclusive upper bound on LAYOUT-HASH values." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Layout depth conflict: ~S~% ~\n" " (~S collides at ~S with ~S)~%" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Can't use anonymous or undefined class as constant:~% ~S" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Return the class with the specified Name. If ERRORP is false, then NIL is\n" " returned when no such class exists." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Class not yet defined:~% ~S" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Illegal to redefine standard type ~S." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Changing meta-class of ~S from ~S to ~S." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Redefining DEFTYPE type to be a class: ~S." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Return the class of the supplied object, which may be any Lisp object, not\n" " just a CLOS STANDARD-OBJECT." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Modifing ~(~A~) class ~S; making it writable." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Subclassing sealed class ~S; unsealing it." msgstr "" -#: target:code/class.lisp -msgid "" -"Change in superclasses of class ~S:~% ~\n" -" ~A superclasses: ~S~% ~\n" -" ~A superclasses: ~S" -msgstr "" - -#: target:code/class.lisp +#: src/code/class.lisp msgid "" -"In class ~S:~% ~\n" -" ~:(~A~) definition of superclass ~S incompatible with~% ~\n" -" ~A definition." +"Change in the inheritance structure of class ~S~% ~\n" +" between the ~A definition and the ~A definition." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Change in instance length of class ~S:~% ~\n" " ~A length: ~D~% ~\n" " ~A length: ~D" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" -"Change in the inheritance structure of class ~S~% ~\n" -" between the ~A definition and the ~A definition." +"In class ~S:~% ~\n" +" ~:(~A~) definition of superclass ~S incompatible with~% ~\n" +" ~A definition." +msgstr "" + +#: src/code/class.lisp +msgid "" +"Change in superclasses of class ~S:~% ~\n" +" ~A superclasses: ~S~% ~\n" +" ~A superclasses: ~S" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Loading a reference to class ~S when the compile~\n" " ~% time definition was incompatible with the current ~\n" " one." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Invalidate current definition." msgstr "" -#: target:code/class.lisp -msgid "New definition of ~S must be loaded eventually." +#: src/code/class.lisp +msgid "Smash current layout, preserving old code." msgstr "" -#: target:code/class.lisp -msgid "Smash current layout, preserving old code." +#: src/code/class.lisp +msgid "Ignore the incompatibility, leave class alone." +msgstr "" + +#: src/code/class.lisp +msgid "New definition of ~S must be loaded eventually." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Any old ~S instances will be in a bad way.~@\n" " I hope you know what you're doing..." msgstr "" -#: target:code/class.lisp -msgid "Ignore the incompatibility, leave class alone." -msgstr "" - -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Assuming the current definition of ~S is correct, and~@\n" " that the loaded code doesn't care about the ~\n" " incompatibility." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Topological sort failed due to constraint on ~S." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Something strange with forward layout for ~S:~% ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "" "*Use-Implementation-Types* is a semi-public flag which determines how\n" " restrictive we are in determining type membership. If two types are the\n" @@ -1215,131 +1151,397 @@ msgid "" " affects array types." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Subtypep is illegal on this type:~% ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "&Aux in a FUNCTION or VALUES type: ~S." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Keyword type description is not a two-list: ~S." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Repeated keyword ~S in lambda list: ~S." msgstr "" -#: target:code/type.lisp -msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s" -msgstr "" - -#: target:code/type.lisp +#: src/code/type.lisp msgid "" "The maximum length of a union of integer types before we take a\n" " short cut and return a simpler union." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Bad thing to be a type specifier: ~S." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "VALUES type illegal in this context:~% ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp +msgid "Bad N specified for MOD type specifier: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Bad size specified for SIGNED-BYTE type specifier: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Bad float format: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Arrays can't have a negative number of dimensions: ~D." +msgstr "" + +#: src/code/type.lisp +msgid "Array type has too many dimensions: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Bad dimension in array type: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Array dimensions is not a list, integer or *:~% ~S" +msgstr "" + +#: src/code/type.lisp +msgid "Type of characters that aren't base-char's. None in CMU CL." +msgstr "" + +#: src/code/type.lisp +msgid "Type corresponding to the charaters required by the standard." +msgstr "" + +#: src/code/type.lisp +msgid "Type for any keyword symbol." +msgstr "" + +#: src/code/type.lisp +msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s" +msgstr "" + +#: src/code/type.lisp msgid "The SATISFIES predicate name is not a symbol: ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Weird CONS type ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "The component type for COMPLEX is not numeric: ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "The component type for COMPLEX is not real: ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "" "The component type for COMPLEX (EQL X) ~\n" " is complex: ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "" "~@<(known bug #145): The type ~S is too hairy to be \n" " used for a COMPLEX component.~:@>" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Bound is not *, a ~A or a list of a ~A: ~S" msgstr "" -#: target:code/type.lisp -msgid "Bad N specified for MOD type specifier: ~S." +#: src/compiler/generic/vm-type.lisp +msgid "~S isn't an integer type?" msgstr "" -#: target:code/type.lisp -msgid "Bad size specified for SIGNED-BYTE type specifier: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is an array-header-p and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is an arrayp and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Bad float format: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is an atom and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Arrays can't have a negative number of dimensions: ~D." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a base-char-p and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Array type has too many dimensions: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a bignump and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Bad dimension in array type: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a bit-vector-p and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Array dimensions is not a list, integer or *:~% ~S" +#: src/code/pred.lisp +msgid "Return T if OBJECT is a characterp and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Type of characters that aren't base-char's. None in CMU CL." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a code-component-p and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Type corresponding to the charaters required by the standard." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a consp and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Type for any keyword symbol." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a compiled-function-p and NIL otherwise." msgstr "" -#: target:compiler/generic/vm-type.lisp -msgid "~S isn't an integer type?" +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complexp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complex-double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complex-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a complex-double-double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complex-rational-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complex-single-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a double-double-float-p and NIL otherwise." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp +msgid "Return T if OBJECT is a double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a fdefn-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a fixnump and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a floatp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a functionp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is an integerp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a listp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a long-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a lra-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a not and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a null and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a numberp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a rationalp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a ratiop and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a realp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a scavenger-hook-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a short-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-array-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-bit-vector-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-string-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-vector-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a single-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a stringp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a %instancep and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a symbolp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a system-area-pointer-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a weak-pointer-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a vectorp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is an unsigned-byte-32-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a signed-byte-32-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-2-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-4-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-8-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-16-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-32-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-signed-byte-8-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-signed-byte-16-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-signed-byte-30-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-signed-byte-32-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-array-single-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-array-double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-double-double-float-p and NIL otherwise" +"." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-complex-single-float-p and NIL otherwis" +"e." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-complex-double-float-p and NIL otherwis" +"e." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-complex-double-double-float-p and NIL " +"otherwise." +msgstr "" + +#: src/code/pred.lisp msgid "Return the type of OBJECT." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "" "Return the element type that will actually be used to implement an array\n" " with the specifier :ELEMENT-TYPE Spec." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "" "Return two values indicating the relationship between type1 and type2:\n" " T and T: type1 definitely is a subtype of type2.\n" @@ -1347,43 +1549,43 @@ msgid "" " NIL and NIL: who knows?" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Return T iff OBJECT is of type TYPE." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "~@<unknown element type in array type: ~2I~_~S~:>" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Unknown type specifier: ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Invalid type specifier: ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Function types are not a legal argument to TYPEP:~% ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Class has not yet been defined: ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "TYPEP on obsolete object (was class ~S)." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Class is currently invalid: ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "" "Returns T if X and Y are EQL or if they are structured components\n" " whose elements are EQUAL. Strings and bit-vectors are EQUAL if they\n" @@ -1391,7 +1593,7 @@ msgid "" " EQ to be EQUAL." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "" "Just like EQUAL, but more liberal in several respects.\n" " Numbers may be of different types, as long as the values are identical\n" @@ -1400,74 +1602,74 @@ msgid "" " in their type restriction." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "No alien type class ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "No method ~S" msgstr "" -#: target:code/alieneval.lisp -msgid "Method ~S not defined for ~S" -msgstr "" - -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Parse the list structure TYPE as an alien type specifier and return\n" " the resultant alien-type structure." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unknown alien type: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "No translator for primitive alien type ~S?" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Definition missing for alien type ~S?" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Attempt to multiple define ~A ~S." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Attempt to shadow definition of ~A ~S." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Convert the alien-type structure TYPE back into a list specification of\n" " the type." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp +msgid "Method ~S not defined for ~S" +msgstr "" + +#: src/code/alieneval.lisp msgid "" "Define the alien type NAME to be equivalent to TYPE. Name may be NIL for\n" " STRUCT and UNION types, in which case the name is taken from the type\n" " specifier." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Redefining ~A ~S to be:~% ~S,~%was:~% ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "~S is a built-in alien type." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Redefining ~S to be:~% ~S,~%was~% ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Return T iff TYPE1 and TYPE2 describe equivalent alien types." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Return T iff the alien type TYPE1 is a subtype of TYPE2. Currently, the\n" " only supported subtype relationships are that any pointer type is a\n" @@ -1476,114 +1678,110 @@ msgid "" " ALIEN-TYPE-=." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Return T iff OBJECT is an alien of type TYPE." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot represent ~S typed aliens." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot pass aliens of type ~S as arguments to call-out" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot return aliens of type ~S from call-out" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot extract ~D bit integers." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Redefining alien enum ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unknown enum type: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Empty enum type: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "An enumeration must contain at least one element." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Enumeration element ~S is not a keyword." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Element value ~S is not an integer." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Element value ~S used more than once." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Enumeration element ~S used more than once." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Can't represent enums needing more than 32 bits." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot deposit aliens of type ~S (unknown size)." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "First dimension is not a non-negative fixnum or NIL: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Dimension is not a non-negative fixnum: ~S" msgstr "" -#: target:pcl/simple-streams/socket.lisp target:pcl/simple-streams/file.lisp -#: target:pcl/simple-streams/internal.lisp -#: target:pcl/simple-streams/classes.lisp target:pcl/env.lisp -#: target:pcl/fixup.lisp target:pcl/methods.lisp target:pcl/cpl.lisp -#: target:pcl/seal.lisp target:pcl/dfun.lisp -#: target:pcl/method-slot-access-optimization.lisp target:pcl/boot.lisp -#: target:pcl/dlisp.lisp target:pcl/cache.lisp target:pcl/defclass.lisp -#: target:pcl/low.lisp target:compiler/disassem.lisp target:code/pathname.lisp -#: target:code/format.lisp target:code/pprint-loop.lisp target:code/pprint.lisp -#: target:code/bignum.lisp target:code/alieneval.lisp +#: src/pcl/env.lisp src/pcl/fixup.lisp src/pcl/methods.lisp src/pcl/cpl.lisp +#: src/pcl/seal.lisp src/pcl/dfun.lisp +#: src/pcl/method-slot-access-optimization.lisp src/pcl/boot.lisp +#: src/pcl/dlisp.lisp src/pcl/cache.lisp src/pcl/defclass.lisp src/pcl/low.lisp +#: src/compiler/disassem.lisp src/code/pathname.lisp src/code/pprint-loop.lisp +#: src/code/pprint.lisp src/code/bignum.lisp src/code/alieneval.lisp msgid "Required argument missing" msgstr "" -#: target:compiler/aliencomp.lisp target:code/alieneval.lisp +#: src/compiler/aliencomp.lisp src/code/alieneval.lisp msgid "Unknown size: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unknown alignment: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "A hash table used to detect cycles while comparing record types." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.\n" "If so return true; otherwise call ALTERNATIVE." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot use values types here." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Badly formed alien name." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Define NAME as an external alien variable of type TYPE. NAME should be\n" " a list of a string holding the alien name and a symbol to use as the " @@ -1593,13 +1791,13 @@ msgid "" " from the one supplied." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Access the alien variable named NAME, assuming it is of type TYPE. This\n" " is SETFable." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Establish some local alien variables. Each BINDING is of the form:\n" " VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]\n" @@ -1617,26 +1815,26 @@ msgid "" " the external alien given by EXTERNAL-NAME." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Return true if X (which must be an Alien pointer) is null, false otherwise." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Convert the System-Area-Pointer SAP to an Alien of the specified Type (not\n" " evaluated.) Type must be pointer-like." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot make aliens of type ~S out of SAPs" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Return a System-Area-Pointer pointing to Alien's data." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Allocate an alien of type TYPE and return an alien pointer to it. If SIZE\n" " is supplied, how it is interpreted depends on TYPE. If TYPE is an array\n" @@ -1647,42 +1845,42 @@ msgid "" " functions which use ``free''." msgstr "" -#: target:code/alieneval.lisp -msgid "Cannot override the size of zero-dimensional arrays." -msgstr "" - -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Size of ~S unknown." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Alignment of ~S unknown." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp +msgid "Cannot override the size of zero-dimensional arrays." +msgstr "" + +#: src/code/alieneval.lisp msgid "" "Dispose of the storage pointed to by ALIEN. ALIEN must have been allocated\n" " by MAKE-ALIEN or ``malloc''." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "No slot named ~S in ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Extract SLOT from the Alien STRUCT or UNION ALIEN. May be set with SETF." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Too many indices when derefing ~S: ~D" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Incorrect number of indices when derefing ~S: ~D" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "De-reference an Alien pointer or array. If an array, the indices are used\n" " as the indices of the array element to access. If a pointer, one index " @@ -1690,68 +1888,68 @@ msgid "" " optionally be specified, giving the equivalent of C pointer arithmetic." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Something is wrong; local-alien-info not found: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "~S isn't forced to memory. Something went wrong." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Return an Alien pointer to the data addressed by Expr, which must be a call\n" " to SLOT or DEREF, or a reference to an Alien variable." msgstr "" -#: target:code/alieneval.lisp -msgid "Something is wrong, local-alien-info not found: ~S" +#: src/code/alieneval.lisp +msgid "~S is not a valid L-value" msgstr "" -#: target:code/alieneval.lisp -msgid "~S is not a valid L-value" +#: src/code/alieneval.lisp +msgid "Something is wrong, local-alien-info not found: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Convert ALIEN to an Alien of the specified TYPE (not evaluated). Both " "types\n" " must be Alien array, pointer or function types." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "~S cannot be cast." msgstr "" -#: target:compiler/aliencomp.lisp target:code/alieneval.lisp +#: src/compiler/aliencomp.lisp src/code/alieneval.lisp msgid "Cannot cast to alien type ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Return the size of the alien type TYPE. UNITS specifies the units to\n" " use and can be either :BITS, :BYTES, or :WORDS." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unknown size for alien type ~S." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Call the foreign function ALIEN with the specified arguments. ALIEN's\n" " type specifies the argument and result types." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Wrong number of arguments for ~S~%Expected ~D, got ~D." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "~S is not an alien function." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Def-Alien-Routine Name Result-Type\n" " {(Arg-Name Arg-Type [Style])}*\n" @@ -1798,43 +1996,34 @@ msgid "" "return." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Bogus argument style ~S in ~S." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Can't use :out or :in-out on pointer-like type:~% ~S" msgstr "" -#: target:code/alieneval.lisp -msgid "" -"A callback consists of a piece assembly code -- the trampoline --\n" -"and a lisp function. We store the function type (including return\n" -"type and arg types), so we can detect incompatible redefinitions." -msgstr "" - -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Vector of all callbacks." msgstr "" -#: target:pcl/simple-streams/string.lisp target:compiler/tn.lisp -#: target:compiler/main.lisp target:code/describe.lisp -#: target:code/debug-int.lisp target:code/debug-info.lisp -#: target:code/foreign-linkage.lisp target:code/reader.lisp -#: target:code/stream.lisp target:code/hash-new.lisp target:code/array.lisp -#: target:code/alieneval.lisp +#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp +#: src/code/debug-int.lisp src/code/debug-info.lisp +#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp +#: src/code/hash-new.lisp src/code/array.lisp src/code/alieneval.lisp msgid "~S is not an array with a fill-pointer." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unable to mprotect ~S bytes (~S) at ~S (~S). Callbacks may not work." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Return the trampoline pointer for the callback NAME." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "~\n" "Attempt to redefine callback with incompatible return type.\n" @@ -1842,20 +2031,20 @@ msgid "" " New type is: ~A" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "~\n" "Create new trampoline (old trampoline calls old lisp function)." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unsupported argument type: ~A" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unsupported return type: ~A" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n" " {doc-string} {decls}* {FORM}*)\n" @@ -1871,104 +2060,104 @@ msgid "" "incremental redefinition of callback functions." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return T iff the SAP X points to a smaller address then the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "" "Return T iff the SAP X points to a smaller or the same address as\n" " the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return T iff the SAP X points to the same address as the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "" "Return T iff the SAP X points to a larger or the same address as\n" " the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return T iff the SAP X points to a larger address then the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return a new sap OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return the byte offset between SAP1 and SAP2." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Converts a System Area Pointer into an integer." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Converts an integer into a System Area Pointer." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 8-bit byte at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 16-bit word at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 32-bit dualword at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 64-bit quadword at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 32-bit single-float at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 64-bit double-float at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the long-float at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the signed 16-bit word at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "The number of bits to process at a time." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "The maximum number of bits that can be dealt with during a single call." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing\n" " bits from the ``start.'' On big-endian machines this is a left-shift and\n" @@ -1977,122 +2166,122 @@ msgid "" " of count are significant." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing\n" " bits from the ``end.'' On big-endian machines this is a right-shift and\n" " on little-endian machines this is a left-shift." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for\n" " the remaining ``end'' bits. Only the lower 5 bits of COUNT are significan" "t." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for\n" " the remaining ``start'' bits. Only the lower 5 bits of COUNT are\n" " significant." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "Align the SAP to a word boundry, and update the offset accordingly." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits." msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "This is the interpreter's evaluation stack." msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "This is the next free element of the interpreter's evaluation stack." msgstr "" -#: target:code/byte-interp.lisp -msgid "Unknown inline function, id=~D" +#: src/code/byte-interp.lisp +msgid "Undefined XOP." msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Unbound variable: ~S" msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Non-list argument to CAR: ~S" msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Non-list argument to CDR: ~S" msgstr "" -#: target:code/byte-interp.lisp -msgid "Undefined XOP." +#: src/code/byte-interp.lisp +msgid "Unknown inline function, id=~D" msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Wrong number of arguments." msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Not enough arguments." msgstr "" -#: target:pcl/boot.lisp target:code/byte-interp.lisp +#: src/pcl/boot.lisp src/code/byte-interp.lisp msgid "Too many arguments." msgstr "" -#: target:pcl/combin.lisp target:code/interr.lisp target:code/byte-interp.lisp +#: src/pcl/combin.lisp src/code/interr.lisp src/code/byte-interp.lisp msgid "Odd number of keyword arguments." msgstr "" -#: target:code/interr.lisp target:code/byte-interp.lisp +#: src/code/interr.lisp src/code/byte-interp.lisp msgid "Unknown keyword: ~S" msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "function-end breakpoints not supported." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "The exclusive upper bound on the rank of an array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "The exclusive upper bound any given dimension of an array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "The exclusive upper bound on the total number of elements in an array." msgstr "" -#: target:code/array.lisp -msgid "End ~D is greater than total size ~D." +#: src/code/array.lisp +msgid "Start ~D is greater than end ~D." msgstr "" -#: target:code/array.lisp -msgid "Start ~D is greater than end ~D." +#: src/code/array.lisp +msgid "End ~D is greater than total size ~D." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "List of weak-pointers to static vectors. Needed for GCing static vectors" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Cannot make a static array of element type ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Failed to allocate space for static array of length ~S of type ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Creates an array of the specified Dimensions and properties. See the\n" " manual for details.\n" @@ -2121,89 +2310,83 @@ msgid "" " created. This array is created by calling malloc." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Can't specify :displaced-index-offset without :displaced-to" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Cannot make an adjustable static array" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Cannot make a displaced array static" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Cannot specify both :initial-element and ~\n" " :initial-contents" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~D elements in the initial-contents, but the ~\n" " vector length is ~D." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Only vectors can have fill pointers." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Invalid fill-pointer ~D" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Neither :initial-element nor :initial-contents ~\n" " can be specified along with :displaced-to" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "One can't displace an array of type ~S into ~\n" " another of type ~S." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~S doesn't have enough elements." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~&Freeing foreign vector at #x~X~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Finalizing static vectors ~S~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "static vector ~A. header = ~X~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid " static vector ~A in use~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid " Free static vector ~A~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Cannot supply both :initial-contents and :initial-element to\n" " either make-array or adjust-array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~S cannot be used to initialize an array of type ~S." msgstr "" -#: target:code/array.lisp -msgid "" -"Malformed :initial-contents. Dimension of ~\n" -" axis ~D is ~D, but ~S is ~D long." -msgstr "" - -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Malformed :initial-contents. ~S is not a ~\n" " sequence, but ~D more layer needed." @@ -2212,103 +2395,109 @@ msgid_plural "" " sequence, but ~D more layers needed." msgstr[0] "" -#: target:code/array.lisp +#: src/code/array.lisp +msgid "" +"Malformed :initial-contents. Dimension of ~\n" +" axis ~D is ~D, but ~S is ~D long." +msgstr "" + +#: src/code/array.lisp msgid "Constructs a simple-vector from the given objects." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Wrong number of subscripts, ~D, for array of rank ~D" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Invalid index ~D in ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns T if the Subscipts are in bounds for the Array, Nil otherwise." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the element of the Array specified by the Subscripts." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Returns the element of array corressponding to the row-major index. This " "is\n" " SETF'able." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the Index'th element of the given Simple-Vector." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the bit from the Bit-Array at the specified Subscripts." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the bit from the Simple-Bit-Array at the specified Subscripts." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the type of the elements of the array" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the number of dimensions of the Array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns length of dimension Axis-Number of the Array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Vector axis is not zero: ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~D is too big; ~S only has ~D dimension" msgid_plural "~D is too big; ~S only has ~D dimensions" msgstr[0] "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns a list whose elements are the dimensions of the array" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the total number of elements in the Array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Returns values of :displaced-to and :displaced-index-offset options to\n" " make-array, or the defaults nil and 0 if not a displaced array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Returns T if (adjust-array array...) would return an array identical\n" " to the argument, this happens for complex arrays." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns T if the given Array has a fill pointer, or Nil otherwise." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the Fill-Pointer of the given Vector." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "New fill pointer, ~S, is larger than the length of the vector." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Attempts to set the element of Array designated by the fill pointer\n" " to New-El and increment fill pointer by one. If the fill pointer is\n" @@ -2317,103 +2506,103 @@ msgid "" " returned." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Like Vector-Push except that if the fill pointer gets too large, the\n" " Array is extended rather than Nil being returned." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Attempts to decrease the fill-pointer by 1 and return the element\n" " pointer to by the new fill pointer. If the original value of the fill\n" " pointer is 0, an error occurs." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Nothing left to pop." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Adjusts the Array's dimensions to the given Dimensions and stuff." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Number of dimensions not equal to rank of array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "New element type, ~S, is incompatible with old." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Static arrays are not adjustable." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Multidimensional arrays can't have fill pointers." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Initial contents may not be specified with ~\n" " the :initial-element or :displaced-to option." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "The :initial-element option may not be specified ~\n" " with :displaced-to." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "One can't displace an array of type ~S into another of ~\n" " type ~S." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "The :displaced-to array is too small." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Cannot adjust-array an array (~S) to a size (~S) that is ~\n" " smaller than it's fill pointer (~S)." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Cannot supply a non-NIL value (~S) for :fill-pointer ~\n" " in adjust-array unless the array (~S) was originally ~\n" " created with a fill pointer." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Cannot supply a value for :fill-pointer (~S) that is larger ~\n" " than the new length of the vector (~S)." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Bogus value for :fill-pointer in adjust-array: ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Destructively alters the Vector, changing its length to New-Size, which\n" " must be less than or equal to its current size." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Fills in array header with provided information. Returns array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~S and ~S do not have the same dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2422,7 +2611,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGIOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2431,7 +2620,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGXOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2440,7 +2629,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGEQV on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2449,7 +2638,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGNAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2458,7 +2647,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGNOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2467,7 +2656,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGANDC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2476,7 +2665,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGANDC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2485,7 +2674,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGORC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2494,7 +2683,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGORC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2503,7 +2692,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Performs a bit-wise logical NOT on the elements of BIT-ARRAY,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2511,21 +2700,21 @@ msgid "" " created. Both arrays must have the same rank and dimensions." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Structure used to implement hash tables." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Almost-Primify returns an almost prime number greater than or equal\n" " to NUM." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Define a new kind of hash table test." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Creates and returns a new hash table. The keywords are as follows:\n" " :TEST -- Indicates what kind of test to use. Only EQ, EQL, EQUAL,\n" @@ -2554,48 +2743,44 @@ msgid "" " backward compatibility, a value of T is the same as :KEY." msgstr "" -#: target:code/hash-new.lisp -msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S" -msgstr "" - -#: target:code/hash-new.lisp -msgid ";; Creating unsupported weak-p hash table~%" +#: src/code/hash-new.lisp +msgid "Cannot make a weak ~A hashtable with test: ~S" msgstr "" -#: target:code/hash-new.lisp -msgid "Cannot make a weak ~A hashtable with test: ~S" +#: src/code/hash-new.lisp +msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S" msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Returns the number of entries in the given HASH-TABLE." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Return the rehash-size HASH-TABLE was created with." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Return the rehash-threshold HASH-TABLE was created with." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Return a size that can be used with MAKE-HASH-TABLE to create a hash\n" " table that can hold however many entries HASH-TABLE can hold without\n" " having to be grown." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Return the test HASH-TABLE was created with." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Return T if HASH-TABLE will not keep entries for keys that would\n" " otherwise be garbage, and NIL if it will." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n" " value and T as multiple values, or returns DEFAULT and NIL if there is " @@ -2603,31 +2788,31 @@ msgid "" " such entry. Entries can be added using SETF." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Remove the entry in HASH-TABLE associated with KEY. Returns T if there\n" " was such an entry, and NIL if not." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "This removes all the entries from HASH-TABLE and returns the hash table\n" " itself." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "This removes all the entries from HASH-TABLE and returns the hash table\n" " itself, shrinking the size to free memory." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n" " of the entry; returns NIL." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n" " provides a method of manually looping over the elements of a hash-table.\n" @@ -2638,226 +2823,226 @@ msgid "" "object." msgstr "" -#: target:pcl/slots.lisp target:code/hash-new.lisp +#: src/pcl/slots.lisp src/code/hash-new.lisp msgid "What kind of instance is this?" msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Computes a hash code for S-EXPR and returns it as an integer." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns all but the first object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 2nd object in a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the 1st sublist." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the 1st sublist." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns all but the 1st two objects of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in the cddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in the cadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in the caar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the caar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cdar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cdar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the caaar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the caadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the caddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cdddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cdddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the caaar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cdaar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cddar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cadar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cdaar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cdadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cddar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the caadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cadar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the caddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cdadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns a list with se1 as the car and se2 as the cdr." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns T if X and Y are isomorphic trees with identical leaves." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "The recommended way to test for the end of a list. True if Object is nil,\n" " false if Object is a cons, and an error for any other types of " "arguments." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the length of the given List, or Nil if the List is circular." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the nth object in a list where the car is the zero-th element." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in a list or NIL if the list is empty." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 2nd object in a list or NIL if there is no 2nd object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 3rd object in a list or NIL if there is no 3rd object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 4th object in a list or NIL if there is no 4th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 5th object in a list or NIL if there is no 5th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 6th object in a list or NIL if there is no 6th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 7th object in a list or NIL if there is no 7th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 8th object in a list or NIL if there is no 8th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 9th object in a list or NIL if there is no 9th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 10th object in a list or NIL if there is no 10th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Means the same as the cdr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Performs the cdr function n times on a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the last N conses (not the last element!) of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns constructs and returns a list of its arguments." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns a list of the arguments with last cons a dotted pair" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Constructs a list with size elements each set to value" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "~S is not a proper list" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Typically, returns a new list that is the concatenation of Args.\n" "\n" @@ -2870,230 +3055,230 @@ msgid "" " last Arg is not a list, the returned value is not a list either." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "~S is not a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns a new list EQUAL but not EQ to list" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns a new association list equal to alist, constructed in space" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Copy-Tree recursively copys trees of conses." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns (append (reverse x) y)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Concatenates the lists given as arguments (by changing them)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Argument is not a list -- ~S." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns (nconc (nreverse x) y)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "First argument is not a proper list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns a new list the same as List without the last N conses.\n" " List must not be circular." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Modifies List to remove the last N conses. List must not be circular." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns a new list, whose elements are those of List that appear before\n" " Object. If Object is not a tail of List, a copy of List is returned.\n" " List must be a proper list or a dotted list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Changes the car of x to y and returns the new x." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Changes the cdr of x to y and returns the new x." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Sets the Nth element of List (zero based) to Newval." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "~S is too large an index for SETF of NTH." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns what was passed to it." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Builds a new function that returns T whenever FUNCTION returns NIL and\n" " NIL whenever FUNCTION returns T." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees matching old." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees for which test is true." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees for which test is false." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees of tree for which test is true." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees of tree for which test is false." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes from alist into tree nondestructively." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns tail of list beginning with first element satisfying EQLity,\n" " :test, or :test-not with a given item." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns tail of list beginning with first element satisfying test(element)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns tail of list beginning with first element not satisfying test(el)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns true if Object is the same as some tail of List, otherwise\n" " returns false. List must be a proper list or a dotted list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Add item to list unless it is already a member" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the union of list1 and list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Test and test-not both supplied." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Destructively returns the union list1 and list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the intersection of list1 and list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Destructively returns the intersection of list1 and list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the elements of list1 which are not in list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Destructively returns the elements of list1 which are not in list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Return new list of elements appearing exactly once in LIST1 and LIST2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Destructively return a list with elements which appear but once in LIST1\n" " and LIST2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns T if every element in list1 is also in list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Construct a new alist by adding the pair (key . datum) to alist" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Construct an association list from keys and data (adding to alist)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "The lists of keys and data are of unequal length." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the cons in alist whose car is equal (by a given test or EQL) to\n" " the Item." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the first cons in alist whose car satisfies the Predicate. If\n" " key is supplied, apply it to the car of each cons before testing." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the first cons in alist whose car does not satisfiy the Predicate.\n" " If key is supplied, apply it to the car of each cons before testing." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n" " the Item." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the first cons in alist whose cdr satisfies the Predicate. If key\n" " is supplied, apply it to the cdr of each cons before testing." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the first cons in alist whose cdr does not satisfy the Predicate.\n" " If key is supplied, apply it to the cdr of each cons before testing." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n" " It Maps function over the arglists in the appropriate way. It is done " @@ -3103,158 +3288,158 @@ msgid "" " function and accumulating results as desired." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Applies fn to successive elements of lists, returns its second argument." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive elements of list, returns list of results." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive elements of list, returns NCONC of results." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive CDRs of list, returns ()." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive CDRs of list, returns list of results." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive CDRs of lists, returns NCONC of results." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns tail of list beginning with first element eq to item" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Return the first pair of alist where item EQ the key of pair" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns list with all elements with all elements EQ to ITEM deleted." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a list of the Nth element of each of the sequences. Used by MAP\n" " and friends." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns a sequence of the same type as SEQUENCE and the given LENGTH." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the broad class of which TYPE is a specific subclass." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "NIL output type invalid for this sequence function." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S is too hairy for sequence functions." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S is a bad type specifier for sequence functions." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Error in ~S: ~S: Index too large." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns a sequence of the given TYPE and LENGTH." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the element of SEQUENCE specified by INDEX." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Store NEWVAL as the component of SEQUENCE specified by INDEX." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns an integer that is the length of SEQUENCE." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S is a bad type specifier for sequences" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Shouldn't happen! Weird type" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The length of ~S does not match the specified ~\n" " length of ~S." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the given Type and Length, with elements initialized\n" " to :Initial-Element." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The length of ~S does not match the specified ~\n" " length of ~S." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S is a bad type specifier for sequences." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a copy of a subsequence of SEQUENCE starting with element number \n" " START and continuing to the end of SEQUENCE or the optional END." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Replace the specified elements of SEQUENCE with ITEM." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The target sequence is destructively modified by copying successive\n" " elements into it from the source sequence." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a new sequence containing the same elements but in reverse order." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same elements in reverse order; the argument\n" " is destroyed." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a new sequence of all the argument sequences concatenated together\n" " which shares no structure with the original argument sequences of the\n" " specified OUTPUT-TYPE-SPEC." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "FUNCTION must take as many arguments as there are sequences provided. The \n" " result is a sequence such that element i is the result of applying " @@ -3262,14 +3447,14 @@ msgid "" " to element i of each of the argument sequences." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "PREDICATE is applied to the elements with index 0 of the sequences, then \n" " possibly to those with index 1, and so on. SOME returns the first \n" " non-() value encountered, or () if the end of a sequence is reached." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "PREDICATE is applied to the elements with index 0 of the sequences, then\n" " possibly to those with index 1, and so on. EVERY returns () as soon\n" @@ -3277,7 +3462,7 @@ msgid "" " is non-()." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "PREDICATE is applied to the elements with index 0 of the sequences, then \n" " possibly to those with index 1, and so on. NOTANY returns () as soon\n" @@ -3285,7 +3470,7 @@ msgid "" " of a sequence is reached." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "PREDICATE is applied to the elements with index 0 of the sequences, then\n" " possibly to those with index 1, and so on. NOTEVERY returns T as soon\n" @@ -3293,57 +3478,57 @@ msgid "" " is non-()." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The specified Sequence is ``reduced'' using the given Function.\n" " See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Coerces the Object to an object of type Output-Type-Spec." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S can't be converted to type ~S." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence formed by destructively removing the specified Item from\n" " the given Sequence." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence formed by destructively removing the elements satisfying\n" " the specified Predicate from the given Sequence." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence formed by destructively removing the elements not\n" " satisfying the specified Predicate from the given Sequence." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a copy of SEQUENCE with elements satisfying the test (default is\n" " EQL) with ITEM removed." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a copy of sequence with elements such that predicate(element)\n" " is non-null are removed" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a copy of sequence with elements such that predicate(element)\n" " is null are removed" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The elements of Sequence are compared pairwise, and if any two match,\n" " the one occuring earlier is discarded, unless FROM-END is true, in\n" @@ -3353,7 +3538,7 @@ msgid "" " The :TEST-NOT argument is deprecated." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The elements of Sequence are examined, and if any two match, one is\n" " discarded. The resulting sequence, which may be formed by destroying " @@ -3363,28 +3548,28 @@ msgid "" " The :TEST-NOT argument is deprecated." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements equal to Old are replaced with New. See manual\n" " for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements satisfying the Test are replaced with New. See\n" " manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements not satisfying the Test are replaced with New.\n" " See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements equal to Old are replaced with New. The Sequence" @@ -3392,64 +3577,64 @@ msgid "" " may be destroyed. See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements satisfying the Test are replaced with New. The\n" " Sequence may be destroyed. See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements not satisfying the Test are replaced with New.\n" " The Sequence may be destroyed. See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns the zero-origin index of the first element in SEQUENCE\n" " satisfying the test (default is EQL) with the given ITEM" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the zero-origin index of the first element satisfying test(el)" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns the zero-origin index of the first element not satisfying test(el)" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns the first element in SEQUENCE satisfying the test (default\n" " is EQL) with the given ITEM" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the first element in SEQUENCE satisfying the test." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the first element in SEQUENCE not satisfying the test." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns the number of elements in SEQUENCE satisfying a test with ITEM,\n" " which defaults to EQL." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid ":TEST and :TEST-NOT are both present." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the number of elements in SEQUENCE satisfying TEST(el)." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The specified subsequences of Sequence1 and Sequence2 are compared\n" " element-wise. If they are of equal length and match in every element, " @@ -3465,7 +3650,7 @@ msgid "" " rightmost position in which the sequences differ is returned." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "A search is conducted using EQL for the first subsequence of sequence2 \n" " which element-wise matches sequence1. If there is such a subsequence in " @@ -3474,7 +3659,7 @@ msgid "" " otherwise () is returned." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Test if C is a surrogate. C may be either an integer or a\n" " character. Surrogate-type indicates what kind of surrogate to test\n" @@ -3483,13 +3668,13 @@ msgid "" " tests for any surrogate value (high or low)." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert the given Hi and Lo surrogate characters to the\n" " corresponding codepoint value" msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Return the codepoint value from String at position I. If that\n" " position is a surrogate, it is combined with either the previous or\n" @@ -3499,14 +3684,14 @@ msgid "" " surrogate value, respectively." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Return the high and low surrogate characters for Codepoint. If\n" " Codepoint is in the BMP, the first return value is the corresponding\n" " character and the second is NIL." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Set the codepoint at string position I to the Codepoint. If the\n" " codepoint requires a surrogate pair, the high (leading surrogate) is\n" @@ -3514,7 +3699,7 @@ msgid "" " I+1" msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Check if String is a valid UTF-16 string. If the string is valid,\n" " T is returned. If the string is not valid, NIL is returned, and the\n" @@ -3522,7 +3707,7 @@ msgid "" " A string is also invalid if it contains any unassigned codepoints." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Coerces X into a string. If X is a string, X is returned. If X is a\n" " symbol, X's pname is returned. If X is a character then a one element\n" @@ -3530,66 +3715,66 @@ msgid "" " into a string, an error occurs." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "~S cannot be coerced to a string." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string and a non-negative integer index less than the length of\n" " the string, returns the character object representing the character at\n" " that position in the string." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "SCHAR returns the character object at an indexed position in a string\n" " just as CHAR does, except the string must be a simple-string." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically less than\n" " the second string, returns the longest common prefix (using char=)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically greater than\n" " the second string, returns the longest common prefix (using char=)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically less than\n" " or equal to the second string, returns the longest common prefix\n" " (using char=) of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically greater\n" " than or equal to the second string, returns the longest common prefix\n" " (using char=) of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings (string1 and string2), and optional integers start1,\n" " start2, end1 and end2, compares characters in string1 to characters in\n" " string2 (using char=)." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is not lexicographically equal\n" " to the second string, returns the longest common prefix (using char=)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Return a new string with the case folded according to Casing as follows:\n" "\n" @@ -3599,18 +3784,18 @@ msgid "" " Default Casing is :SIMPLE." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings (string1 and string2), and optional integers start1,\n" " start2, end1 and end2, compares characters in string1 to characters in\n" " string2 (using char-equal)." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "Improper bounds for string comparison." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is not lexicographically equal\n" " to the second string, returns the longest common prefix (using char-equal)" @@ -3618,71 +3803,71 @@ msgid "" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "Improper substring for comparison." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically less than\n" " the second string, returns the longest common prefix (using char-equal)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically greater than\n" " the second string, returns the longest common prefix (using char-equal)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically greater\n" " than or equal to the second string, returns the longest common prefix\n" " (using char-equal) of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically less than\n" " or equal to the second string, returns the longest common prefix\n" " (using char-equal) of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a character count and an optional fill character, makes and returns\n" " a new string Count long filled with the fill character." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a new string that is a copy of it with all\n" " lower case alphabetic characters converted to uppercase." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a new string that is a copy of it with all\n" " lower case alphabetic characters converted to uppercase. Casing is\n" " :simple or :full for simple or full case conversion, respectively." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a new string that is a copy of it with all\n" " upper case alphabetic characters converted to lowercase." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a new string that is a copy of it with all\n" " upper case alphabetic characters converted to lowercase. Casing is\n" " :simple or :full for simple or full case conversion, respectively." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a copy of the string with the first\n" " character of each ``word'' converted to upper-case, and remaining\n" @@ -3691,7 +3876,7 @@ msgid "" " non-case-modifiable chars." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a copy of the string with the first\n" " character of each ``word'' converted to upper-case, and remaining\n" @@ -3701,19 +3886,19 @@ msgid "" " simple or full case conversion, respectively." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns that string with all lower case alphabetic\n" " characters converted to uppercase." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns that string with all upper case alphabetic\n" " characters converted to lowercase." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns that string with the first\n" " character of each ``word'' converted to upper-case, and remaining\n" @@ -3722,7 +3907,7 @@ msgid "" " non-case-modifiable chars." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns\n" " a copy of the string with the characters in the set removed from the\n" @@ -3730,7 +3915,7 @@ msgid "" " properly handled." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns\n" " a copy of the string with the characters in the set removed from the\n" @@ -3738,7 +3923,7 @@ msgid "" " properly handled." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns a\n" " copy of the string with the characters in the set removed from both\n" @@ -3746,28 +3931,28 @@ msgid "" " properly handled." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns\n" " a copy of the string with the characters in the set removed from the\n" " left end." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns\n" " a copy of the string with the characters in the set removed from the\n" " right end." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns a\n" " copy of the string with the characters in the set removed from both\n" " ends." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "GLYPH returns the glyph at the indexed position in a string, and the\n" " position of the next glyph (or NIL) as a second value. A glyph is\n" @@ -3775,39 +3960,39 @@ msgid "" " subsequent combining characters." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "SGLYPH returns the glyph at the indexed position, the same as GLYPH,\n" " except that the string must be a simple-string" msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert String to Unicode Normalization Form D (NFD) using the\n" " canonical decomposition. The NFD string is returned" msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert String to Unicode Normalization Form KD (NFKD) uisng the\n" " compatible decomposition form. The NFKD string is returned." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert String to Unicode Normalization Form C (NFC). If the\n" " string a simple string and is already normalized, the original\n" " string is returned." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert String to Unicode Normalization Form KC (NFKC). If the\n" " string is a simple string and is already normalized, the original\n" " string is returned." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "Compares the substrings specified by String1 and String2 and returns\n" "NIL if the strings are String=, or the lowest index of String1 in\n" @@ -3817,11 +4002,11 @@ msgid "" "be simple strings." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "Like %sp-string-compare, only backwards." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Find-Character-With-Attribute String, Start, End, Table, Mask\n" " The codes of the characters of String from Start to End are used as " @@ -3832,11 +4017,11 @@ msgid "" " index into the String is returned. The corresponds to SCANC on the Vax." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "Like %SP-Find-Character-With-Attribute, only sdrawkcaB." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Find-Character String, Start, End, Character\n" " Searches String for the Character from Start to End. If the character is\n" @@ -3844,7 +4029,7 @@ msgid "" " returned." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Reverse-Find-Character String, Start, End, Character\n" " Searches String for Character from End to Start. If the character is\n" @@ -3852,21 +4037,21 @@ msgid "" " returned." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Skip-Character String, Start, End, Character\n" " Returns the index of the first character between Start and End which\n" " is not Char= to Character, or NIL if there is no such character." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Skip-Character String, Start, End, Character\n" " Returns the index of the last character between Start and End which\n" " is not Char= to Character, or NIL if there is no such character." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-String-Search String1, Start1, End1, String2, Start2, End2\n" " Searches for the substring of String1 specified in String2.\n" @@ -3874,85 +4059,85 @@ msgid "" " found." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. This symbol's current special\n" " value is returned." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. Return NIL if this symbol is\n" " unbound, T if it has a value." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. This symbol's special value cell is\n" " set to the specified new value." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Nihil ex nihil, can't set NIL." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Veritas aeterna, can't set T." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Can't set keywords." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. This symbol is made unbound,\n" " removing any value it may currently have." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. This symbol's current definition\n" " is returned. Settable with SETF." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "VARIABLE must evaluate to a symbol. Return its property list." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "VARIABLE must evaluate to a symbol. Return its print name." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "VARIABLE must evaluate to a symbol. Return its package." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Make and return a new symbol with the STRING as its print name." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Return the hash value for symbol." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Look on the property list of SYMBOL for the specified INDICATOR. If this\n" " is found, return the associated value, else return DEFAULT." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "~S has an odd number of items in its property list." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "The VALUE is added as a property of SYMBOL under the specified INDICATOR.\n" " Returns VALUE." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Look on property list of SYMBOL for property with specified\n" " INDICATOR. If found, splice this indicator and its value out of\n" @@ -3964,7 +4149,7 @@ msgid "" "value." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Searches the property list stored in Place for an indicator EQ to " "Indicator.\n" @@ -3972,18 +4157,18 @@ msgid "" " returned." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Malformed property list: ~S" msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Like GETF, except that Indicator-List is a list of indicators which will\n" " be looked for in the property list stored in Place. Three values are\n" " returned, see manual for details." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Make and return a new uninterned symbol with the same print name\n" " as SYMBOL. If COPY-PROPS is false, the new symbol is neither bound\n" @@ -3991,15 +4176,15 @@ msgid "" " function, value and property list." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Returns true if Object is a symbol in the keyword package." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Counter for generating unique GENSYM symbols." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Creates a new uninterned symbol whose name is a prefix string (defaults\n" " to \"G\"), followed by a decimal number. Thing, when supplied, will\n" @@ -4009,51 +4194,51 @@ msgid "" " it is used." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Creates a new symbol interned in package Package with the given Prefix." msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "" "When the bignum pieces are smaller than this many words, we use the\n" "classical multiplication algorithm instead of recursing all the way\n" "down to individual words." msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "Use Karatsuba if the bignums have at least this many bits" msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "WITH-BIGNUM-BUFFERS ({(var size [init])}*) Form*" msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "Unexpected zero bignums?" msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "Can't represent result of left shift." msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "Too large to be represented as a ~S:~% ~S" msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "More types than vars." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Duplicate case: ~S." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "More vars than types." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "NUMBER-DISPATCH ({(Var Type)}*) {((Type*) Form*) | (Symbol Arg*)}*\n" " A vaguely case-like macro that does number cross-product dispatches. The\n" @@ -4076,352 +4261,376 @@ msgid "" " the call as a list of cases. This process is not applied recursively." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the element type of the most specialized COMPLEX number type that\n" " can hold parts of type Spec." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Assume this is a subtype of REAL anyway." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Cannot determine if ~S is a subtype of REAL." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Complex numbers cannot have components of type ~S." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Builds a complex number from the specified components." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Extracts the real part of a number." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Extracts the imaginary part of a number." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the complex conjugate of NUMBER. For non-complex numbers, this is\n" " an identity." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Return the numerator of NUMBER, which must be rational." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Return the denominator of NUMBER, which must be rational." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the sum of its arguments. With no args, returns 0." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the product of its arguments. With no args, returns 1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Subtracts the second and all subsequent arguments from the first.\n" " With one arg, negates it." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Divides the first arg by each of the following arguments, in turn.\n" " With one arg, returns reciprocal." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns NUMBER + 1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns NUMBER - 1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns number (or number/divisor) as an integer, rounded toward 0.\n" " The second returned value is the remainder." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the greatest integer not greater than number, or number/divisor.\n" " The second returned value is (mod number divisor)." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the smallest integer not less than number, or number/divisor.\n" " The second returned value is the remainder." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Rounds number (or number/divisor) to nearest integer.\n" " The second returned value is the remainder." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns second result of TRUNCATE." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns second result of FLOOR." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Same as TRUNCATE, but returns first value as a float." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Same as FLOOR, but returns first value as a float." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Same as CEILING, but returns first value as a float." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Same as ROUND, but returns first value as a float." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if all of its arguments are numerically equal, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if no two of its arguments are numerically equal, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if its arguments are in strictly increasing order, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if its arguments are in strictly decreasing order, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if arguments are in strictly non-decreasing order, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if arguments are in strictly non-increasing order, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the greatest of its arguments." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the least of its arguments." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Return T if OBJ1 and OBJ2 represent the same object, otherwise NIL." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the bit-wise or of its arguments. Args must be integers." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the bit-wise exclusive or of its arguments. Args must be integers." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the bit-wise and of its arguments. Args must be integers." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the bit-wise equivalence of its arguments. Args must be integers." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the complement of the logical AND of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the complement of the logical OR of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the logical AND of (LOGNOT integer1) and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the logical AND of integer1 and (LOGNOT integer2)." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the logical OR of (LOGNOT integer1) and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the logical OR of integer1 and (LOGNOT integer2)." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the bit-wise logical not of integer." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp +msgid "Returns the complement of the AND of integer1 and integer2" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the complement of the OR of integer1 and integer2" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the AND of (LOGNOT integer1) and integer2" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the AND of integer1 and (LOGNOT integer2)" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the OR of (LOGNOT integer1) and integer2" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the OR of integer1 and (LOGNOT integer2)" +msgstr "" + +#: src/code/numbers.lisp msgid "" "Count the number of 1 bits if INTEGER is positive, and the number of 0 bits\n" " if INTEGER is negative." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Predicate which returns T if logand of integer1 and integer2 is not zero." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Predicate returns T if bit index of integer is a 1. The least\n" "significant bit of INTEGER is bit 0." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Shifts integer left by count places preserving sign. - count shifts right." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the number of significant bits in the absolute value of integer." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns a byte specifier which may be used by other byte functions." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the size part of the byte specifier bytespec." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the position part of the byte specifier bytespec." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Extract the specified byte from integer, and right justify result." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if any of the specified bits in integer are 1's." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Extract the specified byte from integer, but do not right justify result." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns new integer with newbyte in specified position, newbyte is right " "justified." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns new integer with newbyte in specified position, newbyte is not " "right justified." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return 0." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return -1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return integer1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return complement of integer1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return complement of integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logand of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logior of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logxor of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logeqv of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Boole function op, makes BOOLE return log nand of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return lognor of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Boole function op, makes BOOLE return logandc1 of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Boole function op, makes BOOLE return logandc2 of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Boole function op, makes BOOLE return logorc1 of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Boole function op, makes BOOLE return logorc2 of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Bit-wise boolean function on two integers. Function chosen by OP:\n" " 0 BOOLE-CLR\n" @@ -4442,53 +4651,53 @@ msgid "" " 15 BOOLE-ORC2" msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the greatest common divisor of the arguments, which must be\n" " integers. Gcd with no arguments is defined to be 0." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the least common multiple of one or more integers. LCM of no\n" " arguments is defined to be 1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T iff X is a positive prime integer." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the root of the nearest integer less than n which is a perfect\n" " square." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number = 0, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number > 0, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number < 0, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number is odd, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number is even, NIL otherwise." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "Unknown float trap kind: ~S." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "" "This function sets options controlling the floating-point hardware. If a\n" " keyword is not supplied, then the current value is preserved. Possible\n" @@ -4522,11 +4731,11 @@ msgid "" " currently in effect." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "Unknown rounding mode: ~S." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "" "This function returns a list representing the state of the floating point\n" " modes. The list is in the same format as the keyword arguments to\n" @@ -4537,18 +4746,18 @@ msgid "" "no-op)." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "" "Current-Float-Trap Trap-Name*\n" " Return true if any of the named traps are currently trapped, false\n" " otherwise." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "SIGFPE with no exceptions currently enabled?" msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "" "Execute BODY with the floating point exceptions listed in TRAPS\n" " masked (disabled). TRAPS should be a list of possible exceptions\n" @@ -4558,52 +4767,52 @@ msgid "" " their testing within, and restored on exit." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "Return true if the float X is denormalized." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "Return true if the float X is an infinity (+ or -)." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "Return true if the float X is a NaN (Not a Number)." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "Return true if the float X is a trapping NaN (Not a Number)." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns a non-negative number of significant digits in it's float argument.\n" " Will be less than FLOAT-DIGITS if denormalized or zero." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns a floating-point number that has the same sign as\n" " float1 and, if float2 is given, has the same absolute value\n" " as float2." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns a non-negative number of radix-b digits used in the\n" " representation of it's argument. See Common Lisp: The Language\n" " by Guy Steele for more details." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "Returns (as an integer) the radix b of its floating-point\n" " argument." msgstr "" -#: target:code/irrat.lisp target:code/float.lisp +#: src/code/irrat.lisp src/code/float.lisp msgid "Can't decode NAN or infinity: ~S." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns three values:\n" " 1) an integer representation of the significand.\n" @@ -4617,7 +4826,7 @@ msgid "" " 3) -1 or 1 (i.e. the sign of the argument.)" msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns three values:\n" " 1) a floating-point number representing the significand. This is always\n" @@ -4626,27 +4835,27 @@ msgid "" " 3) -1.0 or 1.0 (i.e. the sign of the argument.)" msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss\n" " of precision or overflow." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Converts any REAL to a float. If OTHER is not provided, it returns a\n" " SINGLE-FLOAT if NUMBER is not already a FLOAT. If OTHER is provided, the\n" " result is the same float format as OTHER." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "RATIONAL produces a rational number for any real numeric argument. This is\n" " more efficient than RATIONALIZE, but it assumes that floating-point is\n" " completely accurate, giving a result that isn't as pretty." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Converts any REAL to a RATIONAL. Floats are converted to a simple rational\n" " representation exploiting the assumption that floats are only accurate to\n" @@ -4654,39 +4863,39 @@ msgid "" " (= x (float (rationalize x) x))" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return e raised to the power NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "The absolute value of ~S exceeds limit ~S." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Continue with calculation" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Continue with calculation, update limit" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Returns BASE raised to the POWER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the logarithm of NUMBER in the base BASE, which defaults to e." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the square root of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Returns the absolute value of the number." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Returns the angle part of the polar representation of a complex number.\n" " For complex numbers, this is (atan (imagpart number) (realpart number)).\n" @@ -4694,75 +4903,75 @@ msgid "" " numbers this is PI." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the sine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the cosine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the tangent of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Argument to CIS is complex: ~S" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the arc sine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the arc cosine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic sine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic cosine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic tangent of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic arc sine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic arc cosine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic arc tangent of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Compute 2^N * X without compute 2^N first (use properties of the\n" "underlying floating-point format" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Same as logb but X is not infinity and non-zero and not a NaN, so\n" "that we can always return an integer" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Compute an integer N such that 1 <= |2^(-N) * x| < 2.\n" "For the special cases, the following values are used:\n" @@ -4774,341 +4983,341 @@ msgid "" "" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Create complex number with real part X and imaginary part Y such that\n" "it has the same type as Z. If Z has type (complex rational), the X\n" "and Y are coerced to single-float." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Principle square root of Z\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute log(2^j*z).\n" "\n" "This is for use with J /= 0 only when |z| is huge." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Log of Z = log |Z| + i * arg Z\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "Compute atanh z = (log(1+z) - log(1-z))/2" msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "Compute tanh z = sinh z / cosh z" msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute acos z = pi/2 - asin z\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute asin z = asinh(i*z)/i\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute asinh z = log(z + sqrt(1 + z*z))\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute atan z = atanh (i*z) / i\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute tan z = -i * tanh(i * z)\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "log(most-positive-double-double-float)" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "log(least-positive-double-double-float" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "log(2)" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Log base 2 of e" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "log2(e)-1" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Pi" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Pi/2" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Pi/4" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Sqrt(1/2)" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "exp(x) - 1" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "396 (hex) digits of 2/pi" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Overflow" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "" "~S uses lambda-list keyword naming convention, but is not a recognized " "lambda-list keyword." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &optional in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &rest in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &more in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &key in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &allow-other-keys in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &aux in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Found garbage in lambda-list when expecting a keyword: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "&rest not followed by required variable." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Illegal function name: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Special form is an illegal function name: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "" "Defining as a SETF function a name that already has a SETF macro:~\n" " ~% ~S" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Assume redefinition is compatible and allow it" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Redefining slot accessor ~S for structure type ~S" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "~S previously defined as a macro." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Unknown optimization quality ~S in ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Malformed optimization quality specifier ~S in ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "DECLAIM Declaration*\n" " Do a declaration for the global environment." msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp +#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp msgid "Malformed PROCLAIM spec: ~S." msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp +#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp msgid "Variable name is not a symbol: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Nihil ex nihil, can't declare ~S special." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Veritas aeterna, can't declare ~S special." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Can't declare ~S special, it is a keyword." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Proceed anyway." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Trying to declare ~S special, which is ~A." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "a constant" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "an alien variable" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "a symbol macro" msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp +#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp msgid "Declared functional type is not a function type: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Ignoring FTYPE declaration for slot accesor:~% ~S" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Declaration to be RECOGNIZED is not a symbol: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Declaration already names a type: ~S." msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp +#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp msgid "Unrecognized proclamation: ~S." msgstr "" -#: target:code/unidata.lisp +#: src/code/unidata.lisp msgid "The Unicode data file is broken." msgstr "" -#: target:code/unidata.lisp +#: src/code/unidata.lisp msgid "Unicode data file is for Unicode ~D.~D.~D" msgstr "" -#: target:code/unidata.lisp +#: src/code/unidata.lisp msgid "No data in file." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "The upper exclusive bound on values produced by CHAR-CODE." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "The upper exclusive bound on the value of a Unicode codepoint" msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "This is the alist of (character-name . character) for characters with\n" " long names. The first name in this list for a given character is used\n" " on typeout and is the preferred form for input." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns the integer code of CHAR." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns the integer code of CHAR. This is the same as char-code, as\n" " CMU Common Lisp does not implement character bits or fonts." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns the character with the code CODE." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Coerces its argument into a character object if possible. Accepts\n" " characters, strings and symbols of length 1." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "String is not of length one: ~S" msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Symbol name is not of length one: ~S" msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "~S cannot be coerced to a character." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Given a character object, char-name returns the name for that\n" " object (a symbol)." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Given an argument acceptable to string, name-char returns a character\n" " object whose name is that symbol, if one exists, otherwise NIL." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object. Standard-char-p returns T if the\n" " argument is a standard character -- one of the 95 ASCII printing characte" @@ -5116,232 +5325,232 @@ msgid "" " or <return>." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Return T if and only if THING is a standard-char. Differs from\n" " standard-char-p in that THING doesn't have to be a character." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object. Graphic-char-p returns T if the\n" " argument is a printing character, otherwise returns NIL." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object. Alpha-char-p returns T if the\n" " argument is an alphabetic character; otherwise NIL." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object; upper-case-p returns T if the\n" " argument is an upper-case character, NIL otherwise." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object; lower-case-p returns T if the \n" " argument is a lower-case character, NIL otherwise." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object; title-case-p returns T if the\n" " argument is a title-case character, NIL otherwise." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object. Both-case-p returns T if the\n" " argument is an alphabetic character and if the character exists in\n" " both upper and lower case. For ASCII, this is the same as Alpha-char-p." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "If char is a digit in the specified radix, returns the fixnum for\n" " which that digit stands, else returns NIL. Radix defaults to 10\n" " (decimal)." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Given a character-object argument, alphanumericp returns T if the\n" " argument is either numeric or alphabetic." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns T if all of its arguments are the same character." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns T if no two of its arguments are the same character." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly increasing alphabetic order." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly decreasing alphabetic order." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-decreasing alphabetic order." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-increasing alphabetic order." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if all of its arguments are the same character.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if no two of its arguments are the same character.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly increasing alphabetic order.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly decreasing alphabetic order.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-decreasing alphabetic order.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-increasing alphabetic order.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns CHAR converted to upper-case if that is possible." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns CHAR converted to title-case if that is possible." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns CHAR converted to lower-case if that is possible." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "All arguments must be integers. Returns a character object that\n" " represents a digit of the given weight in the specified radix. Returns\n" " NIL if no such character exists." msgstr "" -#: target:pcl/cmucl-documentation.lisp target:code/misc.lisp +#: src/code/misc.lisp msgid "" "Returns the documentation string of Doc-Type for X, or NIL if\n" " none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" " SETF, and T." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "~S is not the name of a structure type." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "" "If X is an atom, see if it is present in *FEATURES*. Also\n" " handle arbitrary combinations of atoms using NOT, AND, OR." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Unknown operator in feature expression: ~S." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string describing the implementation type." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string describing the implementation version." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid " Unicode" msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string giving the name of the local machine." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "The value of SOFTWARE-TYPE. Set in FOO-os.lisp." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string describing the supporting software." msgstr "" -#: target:code/misc.lisp -msgid "Unknown" +#: src/code/misc.lisp +msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." msgstr "" -#: target:code/misc.lisp -msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." +#: src/code/misc.lisp +msgid "Unknown" msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string with the abbreviated site name." msgstr "" -#: target:code/misc.lisp -msgid "Site name not initialized" +#: src/code/misc.lisp +msgid "The value of LONG-SITE-NAME. Set in library:site-init.lisp." msgstr "" -#: target:code/misc.lisp -msgid "The value of LONG-SITE-NAME. Set in library:site-init.lisp." +#: src/code/misc.lisp +msgid "Site name not initialized" msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string with the long form of the site name." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "" "With a file name as an argument, dribble opens the file and\n" " sends a record of further I/O to that file. Without an\n" " argument, it closes the dribble file, and quits logging." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Not currently dribbling." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "" "Default implementation of ed. This does nothing. If hemlock is\n" " loaded, ed can be used to edit a file" msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "This function can be used as the default value for keyword arguments that\n" " must be always be supplied. Since it is known by the compiler to never\n" @@ -5354,11 +5563,11 @@ msgid "" " corresponding to required arguments." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "A required keyword argument was not supplied." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "FILE-COMMENT String\n" " When COMPILE-FILE sees this form at top-level, it places the constant " @@ -5370,11 +5579,11 @@ msgid "" " etc." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "See listen. Any whitespace in the input stream will be flushed." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Does what one might expect, saving the old values and setting the generalize" "d\n" @@ -5384,7 +5593,7 @@ msgid "" " and the once-only evaluation of subforms." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Like letf*, but evaluates all the implicit subforms and new values of all\n" " the implied setfs before altering any values. However, the store forms\n" @@ -5392,17 +5601,17 @@ msgid "" " protects to protect the environment." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Causes the output of the indenting Stream to indent More spaces. More is\n" " evaluated twice." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Just like dolist, but with one-dimensional arrays." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Iterate Name ({(Var Initial-Value)}*) Declaration* Form*\n" " This is syntactic sugar for Labels. It creates a local function Name " @@ -5413,11 +5622,11 @@ msgid "" " of the call is return from the macro." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Malformed iterate variable spec: ~S." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Collect ({(Name [Initial-Value] [Function])}*) {Form}*\n" " Collect some values somehow. Each of the collections specifies a bunch " @@ -5451,11 +5660,11 @@ msgid "" " position, including macros and lambdas." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Malformed collection specifier: ~S." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Once-Only ({(Var Value-Expression)}*) Form*\n" " Create a Let* which evaluates each Value-Expression, binding a temporary\n" @@ -5465,23 +5674,23 @@ msgid "" " temporary variable." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Malformed Once-Only binding spec: ~S." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Ill-formed ~S -- possibly illegal old style DO?" msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "~S step variable is not a symbol: ~S" msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "~S is an illegal form for a ~S varlist." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n" " Like DO, but has no implicit NIL block. Each Var is initialized in " @@ -5496,13 +5705,13 @@ msgid "" " of the DO." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*\n" " Iterate over the entries in a hash-table." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "DEFINE-HASH-CACHE Name ({(Arg-Name Test-Function)}*) {Key Value}*\n" " Define a hash cache that associates some number of argument values to a\n" @@ -5551,62 +5760,62 @@ msgid "" " specified name. Default PROGN." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Number of default values ~S differs from :VALUES ~D." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Bad arg spec: ~S." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*\n" " Some syntactic sugar for defining a function whose values are cached by\n" " DEFINE-HASH-CACHE." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Return an EQ hash of X. The value of this hash for any given object can " "(of\n" " course) change at arbitary times." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "A list of all the command line arguments after --" msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "A list of cmd-switch's representing the arguments used to invoke\n" " this process." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "The string name that was used to invoke this process." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "A list of words between the utility name and the first switch." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "A list of strings obtained from the command line that invoked this process." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "An Alist of (\"argument-name\" . demon-function)" msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "When True runs lisp with its input coming from standard-input.\n" " If an error is detected returns error code 1, otherwise 0." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "Accepts the name of a switch as a string and returns the value of the\n" " switch. If no value was specified, then any following words are returned" @@ -5616,17 +5825,17 @@ msgid "" " specified, then nil is returned." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "When set, invoking switch demons complains about illegal switches that have\n" " not been defined with DEFSWITCH." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "~S is an illegal switch" msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "Associates function with the switch name in *command-switch-demons*. Name\n" " is a simple-string that does not begin with a hyphen, unless the switch " @@ -5638,11 +5847,11 @@ msgid "" " switches. This can be inhibited with *complain-about-illegal-switches*." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "a symbol or function" msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Returns information about the symbol VAR in the lexical environment ENV.\n" "Three values are returned:\n" @@ -5656,7 +5865,7 @@ msgid "" " 3) An a-list containing information about any declarations that apply." msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Returns information about declarations named by the symbol DECLARATION-NAME" ".\n" @@ -5671,11 +5880,11 @@ msgid "" " A list of the declaration names the have been proclaimed as valid." msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "Unsupported declaration ~S." msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Process a macro in the same way that DEFMACRO or MACROLET would.\n" "Three values are returned:\n" @@ -5684,7 +5893,7 @@ msgid "" " 3) An environment" msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Returns information about the function name FUNCTION in the lexical environm" "ent ENV.\n" @@ -5698,7 +5907,7 @@ msgid "" " 3) An a-list containing information about the declarations that apply." msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Return a new environment containing information in ENV that is augmented\n" "by the specified parameters:\n" @@ -5711,93 +5920,85 @@ msgid "" " :DECLARE a list of declaration specifiers" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "increments dfixnum v by dfixnum i" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "dfixnum became too big ~a + ~a" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "increments dfixnum v by i (max half fixnum)" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "not a half-fixnum: ~a" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "decrement dfixnum v by dfixnum i" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "dfixnum became negative ~a - ~a (~a/~a)" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "decrement dfixnum v by half-fixnum i" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "" "increments dfixnum by an interger which may be bigger than fixnum.\n" " May cons" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "returns a new dfixnum from number i" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "increments a pair of halffixnums by another pair" msgstr "" -#: target:code/profile.lisp target:code/dfixnum.lisp -msgid "dfixnum became too big ~a/~a + ~a/~a" -msgstr "" - -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "decrement dfixnum pair by another pair" msgstr "" -#: target:code/profile.lisp target:code/dfixnum.lisp -msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)" -msgstr "" - -#: target:code/room.lisp +#: src/code/room.lisp msgid "~2&Summary of spaces: ~(~{~A ~}~)~%" msgstr "" -#: target:code/room.lisp -msgid "~%Summary total:~% ~:D bytes, ~:D objects.~%" -msgstr "" - -#: target:code/room.lisp +#: src/code/room.lisp msgid "~%~A:~% ~:D bytes, ~:D object" msgid_plural "~%~A:~% ~:D bytes, ~:D objects" msgstr[0] "" -#: target:code/room.lisp +#: src/code/room.lisp +msgid "~%Summary total:~% ~:D bytes, ~:D objects.~%" +msgstr "" + +#: src/code/room.lisp msgid "~2&Breakdown for ~(~A~) space:~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~13:D bytes for ~9:D other object.~%" msgid_plural " ~13:D bytes for ~9:D other objects.~%" msgstr[0] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~13:D bytes for ~9:D ~(~A~) object.~%" msgid_plural " ~13:D bytes for ~9:D ~(~A~) objects.~%" msgstr[0] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~13:D bytes for ~9:D ~(~A~) object (space total.)~%" msgid_plural " ~13:D bytes for ~9:D ~(~A~) objects (space total.)~%" msgstr[0] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Print out information about the heap memory in use. :Print-Spaces is a " "list\n" @@ -5813,27 +6014,27 @@ msgid "" " be combined as OTHER." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "Print info about how much code and no-ops there are in Space." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "Bogus type: ~D" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~:D words allocated for descriptor objects.~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~:D bytes data/~:D words header for non-descriptor objects.~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Print a breakdown by instance type of all the instances allocated in\n" " Space. If TOP-N is true, print only information for the the TOP-N types " @@ -5841,112 +6042,112 @@ msgid "" " largest usage." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~32A: ~7:D bytes, ~5D object.~%" msgid_plural " ~32A: ~7:D bytes, ~5D objects.~%" msgstr[0] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " Other types: ~:D bytes, ~D: object~:P.~%" msgid_plural " Other types: ~:D bytes, ~D: object~:P.~%" msgstr[0] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~:(~A~) instance total: ~:D bytes, ~:D object.~%" msgid_plural " ~:(~A~) instance total: ~:D bytes, ~:D objects.~%" msgstr[0] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "In ~A space:~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~D bytes at #x~X~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "No source for ~S" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~%Package ~A: ~32T~9:D bytes, ~9:D object.~%" msgid_plural "~%Package ~A: ~32T~9:D bytes, ~9:D objects.~%" msgstr[0] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~30@A: ~9:D bytes, ~9:D object.~%" msgid_plural "~30@A: ~9:D bytes, ~9:D objects.~%" msgstr[0] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Given a hashtable, print a histogram of the contents. Function should give\n" " the value to plot when applied to the hashtable values." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Report the Top-N entries in the hashtable Table, when sorted by Function\n" " applied to the hash value. If Top-N is NIL, report all entries." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~8:D: Other~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~8:D: Total~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Return a hashtable mapping each function in for which a call appears in\n" " Space to the number of times such a call appears." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Return a hashtable translating code objects to function constant counts for\n" " all code objects in Space with more than Above function constants." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Oh no. The current dynamic space is missing!" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Dynamic Space Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Read-Only Space Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Static Space Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Control Stack Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Binding Stack Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "The current dynamic space is ~D.~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Garbage collection is currently ~:[enabled~;DISABLED~].~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Prints to *STANDARD-OUTPUT* information about the state of internal\n" " storage and its management. The optional argument controls the\n" @@ -5957,47 +6158,47 @@ msgid "" " VM:INSTANCE-USAGE for finer report control." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "No way man! The optional argument to ROOM must be T, NIL, ~\n" " or :DEFAULT.~%What do you think you are doing?" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "resetting GC counters" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Returns the number of bytes consed since the first time this function\n" " was called. The first time it is called, it returns zero." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "This number specifies the minimum number of bytes of dynamic space\n" " that must be consed before the next gc will occur." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "The total CPU time spend doing garbage collection (as reported by\n" " GET-INTERNAL-RUN-TIME.)" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "A list of functions that are called before garbage collection occurs.\n" " The functions should take no arguments." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "A list of functions that are called after garbage collection occurs.\n" " The functions should take no arguments." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Should be bound to a function or NIL. If it is a function, this\n" " function should take one argument, the current amount of dynamic\n" @@ -6005,7 +6206,7 @@ msgid "" " continue and non-NIL if it should be inhibited. Use with caution." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "When non-NIL, causes the functions bound to *GC-NOTIFY-BEFORE* and\n" " *GC-NOTIFY-AFTER* to be called before and after a garbage collection\n" @@ -6014,28 +6215,28 @@ msgid "" " annoyingly." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "~&; [GC threshold exceeded with ~:D bytes in use. ~\n" " Commencing GC.]~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "This function bound to this variable is invoked before GC'ing (unless\n" " *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in\n" " bytes). It should notify the user that the system is going to GC." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "~&; [GC completed with ~:D bytes retained and ~:D bytes freed.]~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "~&; [GC will next occur when at least ~:D bytes are in use.]~%" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "The function bound to this variable is invoked after GC'ing (unless\n" " *GC-VERBOSE* is NIL) with the amount of dynamic usage (in bytes) now\n" @@ -6044,32 +6245,24 @@ msgid "" " finished GC'ing." msgstr "" -#: target:code/gc.lisp -msgid "Attempt to set GC trigger to something bogus: ~S" -msgstr "" - -#: target:code/gc.lisp -msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A" -msgstr "" - -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~\n" " integer. Resetting it to ~D." msgstr "" -#: target:code/gc.lisp -msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%" +#: src/code/gc.lisp +msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Initiates a garbage collection. The optional argument, VERBOSE-P,\n" " which defaults to the value of the variable *GC-VERBOSE* controls\n" " whether or not GC statistics are printed." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Initiates a garbage collection. The keyword :VERBOSE, which\n" " defaults to the value of the variable *GC-VERBOSE* controls whether or\n" @@ -6077,21 +6270,21 @@ msgid "" " controls the number of generations to garbage collect." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Return the amount of memory that will be allocated before the next garbage\n" " collection is initiated. This can be set with SETF." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Enables the garbage collector." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Disables the garbage collector." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Return some GC statistics for the specified GENERATION. The\n" " statistics are the number of bytes allocated in this generation; the\n" @@ -6101,7 +6294,7 @@ msgid "" " generation. See the gencgc source code for more info." msgstr "" -#: target:code/purify.lisp +#: src/code/purify.lisp msgid "" "This function optimizes garbage collection by moving all currently live\n" " objects into non-collected storage. ROOT-STRUCTURES is an optional list " @@ -6120,19 +6313,19 @@ msgid "" " supplied, then environment compaction is inhibited." msgstr "" -#: target:code/purify.lisp +#: src/code/purify.lisp msgid "[Doing purification: " msgstr "" -#: target:code/purify.lisp +#: src/code/purify.lisp msgid "Done.]" msgstr "" -#: target:code/scavhook.lisp +#: src/code/scavhook.lisp msgid "Returns T if OBJECT is a scavenger-hook, and NIL if not." msgstr "" -#: target:code/scavhook.lisp +#: src/code/scavhook.lisp msgid "" "Create a new scavenger-hook with the specified VALUE and FUNCTION. For\n" " as long as the scavenger-hook is alive, the scavenger in the garbage\n" @@ -6140,17 +6333,17 @@ msgid "" " to be funcalled." msgstr "" -#: target:code/scavhook.lisp +#: src/code/scavhook.lisp msgid "Returns the VALUE being monitored by SCAVHOOK. Can be setf." msgstr "" -#: target:code/scavhook.lisp +#: src/code/scavhook.lisp msgid "" "Returns the FUNCTION invoked when the monitored value is moved. Can be\n" " setf." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "This is a list of functions which are called before creating a saved core\n" " image. These functions are executed in the child process which has no " @@ -6158,7 +6351,7 @@ msgid "" " so they cannot do anything that tries to talk to the outside world." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "This is a list of functions which are called when a saved core image starts\n" " up. The system itself should be initialized at this point, but applicatio" @@ -6166,20 +6359,20 @@ msgid "" " might not be." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "An alist mapping environment variables (as keywords) to either values" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Non-NIL if environment-init has been called" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "This is true if and only if the lisp was started with the -edit switch." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "Saves a CMU Common Lisp core image in the file of the specified name. The\n" " following keywords are defined:\n" @@ -6235,19 +6428,19 @@ msgid "" " will always be in batch-mode, regardless of any command-line switches." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Directory ~S does not exist" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Skip remaining initializations." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Error in batch processing:~%~A~%" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "Determines what PRINT-HERALD prints (the system startup banner.) This is a\n" " database which can be augmented by each loaded system. The format is a\n" @@ -6262,156 +6455,156 @@ msgid "" " functions are called with an output stream argument." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid ", running on " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "With core: " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Dumped on: " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid " on " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "See <http://www.cons.org/cmucl/> for support information." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Loaded subsystems:" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid " Unicode " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "with Unicode version " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "Print some descriptive information about the Lisp system version and\n" " configuration." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Unrecognized *HERALD-ITEMS* entry: ~S." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Change *PACKAGE* to the USER package and try again." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Terminal I/O stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Default input stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Default output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Error output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Query I/O stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Trace output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Interactive debugging stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not an input stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not an output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not a character input stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not a character output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not a binary input stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "~S is not a binary input stream ~\n" " or does not support multi-byte read operations." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not a binary output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is closed." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is an unsupported Gray stream." msgstr "" -#: target:pcl/gray-streams.lisp target:code/stream.lisp +#: src/pcl/gray-streams.lisp src/code/stream.lisp msgid "Returns non-nil if the given Stream can perform input operations." msgstr "" -#: target:pcl/gray-streams.lisp target:code/stream.lisp +#: src/pcl/gray-streams.lisp src/code/stream.lisp msgid "Returns non-nil if the given Stream can perform output operations." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Return true if Stream is not closed." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a type specifier for the kind of object returned by the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Return true if Stream does I/O on a terminal or other interactive device." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Can't set interactive flag on ~S." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Returns the external format used by the given Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Closes the given Stream. No more I/O may be performed, but inquiries\n" " may still be made. If :Abort is non-nil, an attempt is made to clean\n" " up the side effects of having created the stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "With one argument returns the current position within the file\n" " File-Stream is open to. If the second argument is supplied, then\n" @@ -6419,60 +6612,60 @@ msgid "" " be :start or :end for the start and end of the file, respectively." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "This function returns the length of the file that File-Stream is open to." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a line of text read from the Stream as a string, discarding the\n" " newline character." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Inputs a character from Stream and returns it." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Puts the Character back on the front of the input Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Nothing to unread." msgstr "" -#: target:code/stream.lisp -msgid "Impossible case reached in PEEK-CHAR" -msgstr "" - -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Peeks at the next character in the input Stream. See manual for details." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>" msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp +msgid "Impossible case reached in PEEK-CHAR" +msgstr "" + +#: src/code/stream.lisp msgid "Returns T if a character is available on the given Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns the next character from the Stream if one is available, or nil." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Clears any buffered input associated with the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Returns the next byte of the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Reads Numbytes bytes into the Buffer starting at Start, returning the " "number\n" @@ -6486,126 +6679,126 @@ msgid "" " read is less than Count and eof has not been hit." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Outputs the Character to the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Outputs a new line to the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Outputs a new line to the Stream if it is not positioned at the beginning " "of\n" " a line. Returns T if it output a new line, nil otherwise." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Outputs the String to the given Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Outputs the String to the given Stream, followed by a newline character." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns the number of characters on the current line of output of the given\n" " Stream, or Nil if that information is not availible." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns the number of characters that will fit on a line of output on the\n" " given Stream, or Nil if that information is not available." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Attempts to ensure that all output sent to the Stream has reached its\n" " destination, and only then returns." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Attempts to force any buffered output to be sent." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Clears the given output Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Outputs the Integer to the binary Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns an output stream which sends its output to all of the given\n" "streams." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a stream which performs its operations on the stream which is the\n" " value of the dynamic variable named by Symbol." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a bidirectional stream which gets its input from Input-Stream and\n" " sends its output to Output-Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a stream which takes its input from each of the Streams in turn,\n" " going on to the next at EOF." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns an echo stream that takes input from Input-stream and sends\n" "output to Output-stream" msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a bidirectional stream which gets its input from Input-Stream and\n" " sends its output to Output-Stream. In addition, all input is echoed to\n" " the output stream" msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns an input stream which will supply the characters of String between\n" " Start and End in order." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns an Output stream which will accumulate all output given to it for\n" " the benefit of the function Get-Output-Stream-String." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a string of all the characters sent to a stream made by\n" " Make-String-Output-Stream since the last call to this function." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Dumps the characters buffer up in the In-Stream to the Out-Stream as\n" " Get-Output-Stream-String would return them." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Returns an output stream which indents its output by some amount." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a stream that sends all output to the stream TARGET, but modifies\n" " the case of letters, depending on KIND, which should be one of:\n" @@ -6618,7 +6811,7 @@ msgid "" " case and everything else to lower case." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "This takes a stream and waits for text or a command to appear on it. If\n" " text appears before a command, this returns nil, and otherwise it " @@ -6626,7 +6819,7 @@ msgid "" " a command." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Destructively modify SEQ by reading elements from STREAM.\n" "\n" @@ -6649,23 +6842,19 @@ msgid "" " less than END because the end of file was reached." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "The stream is not open." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "The stream is not open for input." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Trying to read characters from a binary stream." msgstr "" -#: target:code/stream.lisp -msgid "Trying to read binary data from a text stream." -msgstr "" - -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Writes the elements of the Seq bounded by Start and End to Stream.\n" "\n" @@ -6681,82 +6870,82 @@ msgid "" "" msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "The stream is not open for output." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Trying to output an element of unproper type to a stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Trying to output a string to a binary stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Trying to output binary data to a text stream." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "If true, all objects will printed readably. If readably printing is\n" " impossible, an error will be signalled. This overrides the value of\n" " *PRINT-ESCAPE*." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Flag which indicates that slashification is on. See the manual" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Flag which indicates that pretty printing is to be used" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "The output base for integers and rationals." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "This flag requests to verify base when printing rationals." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "How many levels deep to print. Unlimited if null." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "How many elements to print on each level. Unlimited if null." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Whether to worry about circular list structures. See the manual." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "What kind of case the printer should use by default" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Whether the array should print it's guts out" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "If true, symbols with no home package are printed with a #: prefix.\n" " If false, no prefix is printed." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "The maximum number of lines to print. If NIL, unlimited." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "The position of the right margin in ems. If NIL, try to determine this\n" " from the stream in use." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "If the remaining space between the current column and the right margin\n" " is less than this, then print using ``miser-style'' output. Miser\n" @@ -6764,13 +6953,13 @@ msgid "" " turned off. If NIL, never use miser mode." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "The pprint-dispatch-table that controls how to pretty print objects. See\n" " COPY-PPRINT-DISPATH, PPRINT-DISPATCH, and SET-PPRINT-DISPATCH." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Bind the reader and printer control variables to values that enable READ\n" " to reliably read the results of PRINT. These values are:\n" @@ -6785,6 +6974,7 @@ msgid "" " *PRINT-LEVEL* NIL\n" " *PRINT-LINES* NIL\n" " *PRINT-MISER-WIDTH* NIL\n" +" *PRINT-PPRINT-DISPATCH* The standard pprint dispatch table\n" " *PRINT-PRETTY* NIL\n" " *PRINT-RADIX* NIL\n" " *PRINT-READABLY* T\n" @@ -6796,64 +6986,62 @@ msgid "" " *READTABLE* the standard readtable." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Outputs OBJECT to the specified stream, defaulting to *standard-output*" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Outputs a mostly READable printed representation of OBJECT on the specified\n" " stream." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Outputs an asthetic but not READable printed representation of OBJECT on " "the\n" " specified stream." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Outputs a terpri, the mostly READable printed represenation of OBJECT, and \n" " space to the stream." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Prettily outputs the Object preceded by a newline." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Returns the printed representation of OBJECT as a string." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Returns the printed representation of OBJECT as a string with \n" " slashification on." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Returns the printed representation of OBJECT as a string with\n" -" slashification off." +" slashification off and readability off." msgstr "" -#: target:compiler/byte-comp.lisp target:compiler/dyncount.lisp -#: target:compiler/knownfun.lisp target:compiler/new-assem.lisp -#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp -#: target:compiler/node.lisp target:compiler/sset.lisp -#: target:compiler/backend.lisp target:compiler/macros.lisp -#: target:code/print.lisp +#: src/compiler/byte-comp.lisp src/compiler/dyncount.lisp +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/meta-vmdef.lisp src/compiler/vop.lisp src/compiler/node.lisp +#: src/compiler/sset.lisp src/compiler/backend.lisp src/code/print.lisp msgid "~S cannot be printed readably." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Determines whether or not the character is considered whitespace." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Check to see if OBJECT is a circular reference, and return something " "non-NIL\n" @@ -6866,49 +7054,49 @@ msgid "" " non-NIL when ASSIGN is T, then you must call HANDLE-CIRCULARITY on it." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Handle the results of CHECK-FOR-CIRCULARITY. If this returns T then\n" " you should go ahead and print the object. If it returns NIL, then\n" " you should blow it off." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Attempt to use CHECK-FOR-CIRCULARITY when circularity ~\n" " checking has not been initiated." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "The current level we are printing at, to be compared against *PRINT-LEVEL*.\n" " See the macro DESCEND-INTO for a handy interface to depth abbreviation." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Automatically handle *print-level* abbreviation. If we are too deep, then\n" " a # is printed to STREAM and BODY is ignored." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*\n" " is NIL) by outputting \"...\" and returning from the block named NIL." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "The current pretty printer. Should be either a function that takes two\n" " arguments (the object and the stream) or NIL to indicate that there is\n" " no pretty printer installed." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Output OBJECT to STREAM observing all printer control variables." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Output OBJECT to STREAM observing all printer control variables except\n" " for *PRINT-PRETTY*. Note: if *PRINT-PRETTY* is non-NIL, then the pretty\n" @@ -6916,166 +7104,166 @@ msgid "" " itself." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Invalid *PRINT-CASE* value: ~S" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Invalid READTABLE-CASE value: ~S" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Outputs the printed representation of any array in either the #< or #A\n" " form." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Obsolete Instance" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unprintable Instance" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "~A is not a reasonable value for *Print-Base*." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Compute a list of pairs (2^i . r^{2^i}), stopping with the largest r^{2^i}\n" "greater than n." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp +msgid "overflow in digit-to-char" +msgstr "" + +#: src/code/print.lisp msgid "" "Convert digit into a character representation. We use 0..9, a..z for\n" "10..35, and A..Z for 36..52." msgstr "" -#: target:code/print.lisp -msgid "overflow in digit-to-char" -msgstr "" - -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Print a fixnum N to stream S, maybe with leading zeros. This isn't\n" "ever-so efficient, but we probably don't need to care." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Use the power list (see power-list) PL to split N roughly in half; then\n" "print the left and right halves using (cdr PL). Make sure we count the\n" "leading zeroes correctly." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Primary fast bignum-printing interface. Prints integer N to stream S in\n" "radix-R. If you have a power-list then pass it in as PL." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Minimum power of 10 that allows the float printer to use free format,\n" " instead of exponential format. See section 22.1.3.1.3: Printing Floats\n" " in the ANSI CL standard." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Maximum power of 10 that allows the float printer to use free format,\n" " instead of exponential format. See section 22.1.3.1.3: Printing Floats\n" " in the ANSI CL standard." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Convert a DD number to a lisp rational" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Print out a double-double to a string" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Weak Pointer: " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Broken Weak Pointer" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Bogus Code Object" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Code Object" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Return PC Object" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "FDEFINITION object for " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Function " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Interpreted Function ~S" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Byte Compiled Function" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Byte Compiled Closure" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Closure Over " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unknown Function" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Value Cell " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unknown Pointer Object, type=" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unbound Marker" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unknown Immediate Object, lowtag=" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid ", type=" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Continue anyway" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Cannot find ~S, so unicode support is not available" msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Insert an annotation into the pretty-printing stream STREAM.\n" "HANDLER is a function, and RECORD is an arbitrary datum. The\n" @@ -7091,18 +7279,18 @@ msgid "" "with the arguments RECORD, STREAM and nil." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "Insert ANNOTATION into the queue of annotations in STREAM." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Insert all annotations in STREAM from the queue of pending\n" "operations into the queue of annotations. When END is non-nil, \n" "stop before reaching the queued-op END." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Dequeue the next annotation from the queue of annotations of STREAM\n" "and return it. Return nil if there are no more annotations. When\n" @@ -7110,22 +7298,22 @@ msgid "" "this, also return nil." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output the buffer of STREAM up to (excluding) the buffer index END.\n" "When annotations are present, invoke them at the right positions." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Invoke all annotations in STREAM up to (including) the buffer index END." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "Output-partial-line called when nothing can be output." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Group some output into a logical block. STREAM-SYMBOL should be either a\n" " stream, T (for *TERMINAL-IO*), or NIL (for *STANDARD-OUTPUT*). The " @@ -7133,11 +7321,11 @@ msgid "" " control variable *PRINT-LEVEL* is automatically handled." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "Cannot specify both a prefix and a per-line-prefix." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Cause the closest enclosing use of PPRINT-LOGICAL-BLOCK to return\n" " if it's list argument is exhausted. Can only be used inside\n" @@ -7145,13 +7333,13 @@ msgid "" " PPRINT-LOGICAL-BLOCK is supplied." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "PPRINT-EXIT-IF-LIST-EXHAUSTED must be lexically inside ~\n" " PPRINT-LOGICAL-BLOCK." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Return the next element from LIST argument to the closest enclosing\n" " use of PPRINT-LOGICAL-BLOCK, automatically handling *PRINT-LENGTH*\n" @@ -7160,11 +7348,11 @@ msgid "" " is poped, but the *PRINT-LENGTH* testing still happens." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "PPRINT-POP must be lexically inside PPRINT-LOGICAL-BLOCK." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output a conditional newline to STREAM (which defaults to\n" " *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do\n" @@ -7186,7 +7374,7 @@ msgid "" " next line. (See PPRINT-INDENT.)" msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Specify the indentation to use in the current logical block if STREAM\n" " (which defaults to *STANDARD-OUTPUT*) is a pretty-printing stream\n" @@ -7199,7 +7387,7 @@ msgid "" " break. The indention value is silently truncated to an integer." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "If STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing\n" " stream, perform tabbing based on KIND, otherwise do nothing. KIND can\n" @@ -7215,7 +7403,7 @@ msgid "" " of the current section, not the start of the line." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output LIST to STREAM putting :FILL conditional newlines between each\n" " element. If COLON? is NIL (defaults to T), then no parens are printed\n" @@ -7223,7 +7411,7 @@ msgid "" " can be used with the ~/.../ format directive." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output LIST to STREAM putting :LINEAR conditional newlines between each\n" " element. If COLON? is NIL (defaults to T), then no parens are printed\n" @@ -7232,7 +7420,7 @@ msgid "" " can be used with the ~/.../ format directive." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output LIST to STREAM tabbing to the next column that is an even multiple\n" " of TABSIZE (which defaults to 16) between each element. :FILL style\n" @@ -7242,44 +7430,44 @@ msgid "" " the ~/.../ format directive." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "CONS PPRINT dispatch ignored w/o compiler loaded:~% ~S" msgstr "" -#: target:pcl/env.lisp target:pcl/methods.lisp target:pcl/std-class.lisp -#: target:pcl/defclass.lisp target:code/format.lisp -#: target:code/pprint-loop.lisp target:code/pprint.lisp +#: src/pcl/env.lisp src/pcl/methods.lisp src/pcl/std-class.lisp +#: src/pcl/defclass.lisp src/code/format.lisp src/code/pprint-loop.lisp +#: src/code/pprint.lisp msgid "No more arguments." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "~:[~;Error in format: ~]~\n" " ~?~@[~% ~A~% ~V@T^~]" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "A justification directive cannot be in the same format string~%~\n" " as ~~W, ~~I, ~~:T, or a logical-block directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "String ended before directive was found." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many colons supplied." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many at-signs supplied." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No matching closing slash." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "Provides various facilities for formatting output.\n" " CONTROL-STRING contains a string to be output, possibly with embedded\n" @@ -7307,263 +7495,244 @@ msgid "" " details." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Unknown format directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Unknown directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many parameters, expected no more than ~D" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many parameters, expected no more than 0" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Table of ordinal ones-place digits in English" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Table of ordinal tens-place digits in English" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Number too large to print in old Roman numerals: ~:D" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Number too large to print in Roman numerals: ~:D" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No previous argument." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify the colon modifier with this directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify either colon or atsign for this directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify both colon and atsign for this directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify the at-sign modifier." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify both colon and at-sign." msgstr "" -#: target:code/format.lisp -msgid "Index ~D out of bounds. Should have been ~\n" -" between 0 and ~D." -msgstr "" - -#: target:code/format.lisp -msgid "Index ~D out of bounds. Should have been ~\n" -" between 0 and ~D." -msgstr "" - -#: target:code/format.lisp +#: src/code/format.lisp msgid "Index ~D out of bounds. Should have been ~\n" " between 0 and ~D." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "Index ~D out of bounds. Should have been ~\n" " between 0 and ~D." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify the colon modifier." msgstr "" -#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp -#: target:pcl/low.lisp target:code/format.lisp +#: src/pcl/seal.lisp src/pcl/method-slot-access-optimization.lisp +#: src/pcl/low.lisp src/code/format.lisp msgid "~A~%while processing indirect format string:" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding close paren." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding open paren." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding close bracket." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify both the colon and at-sign modifiers." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Can only specify one section" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Must specify exactly two sections." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "~~; not contained within either ~~[...~~] or ~~<...~~>." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding open bracket." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding close brace." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding open brace." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "~D illegal directive found inside justification block" msgid_plural "~D illegal directives found inside justification block" msgstr[0] "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No parameters can be supplied with ~~<...~~:>." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "Cannot include format directives inside the ~\n" " ~:[suffix~;prefix~] segment of ~~<...~~:>" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many segments for ~~<...~~:>." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Malformed ~~/ directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No package named ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "The list of packages to use by default of no :USE argument is supplied\n" " to MAKE-PACKAGE or other package creation forms." msgstr "" -#: target:code/package.lisp -msgid "" -"Standard structure for the description of a package. Consists of \n" -" a list of all hash tables, the name of the package, the nicknames of\n" -" the package, the use-list for the package, the used-by- list, hash-\n" -" tables for the internal and external symbols, and a list of the\n" -" shadowing symbols." -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "The ~A package, ~D/~D internal, ~D/~D external" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "The ~A package" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "deleted package" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "The current package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~&~@<Attempt to modify the locked package ~A, by ~3i~:_~?~:>" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "redefining function ~A" msgstr "" -#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp +#: src/code/macros.lisp src/code/defstruct.lisp src/code/package.lisp msgid "Ignore the lock and continue" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Disable package's definition-lock, then continue" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Disable all package locks, then continue" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Bogus ~A name: ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Can't do anything to a deleted package: ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Given PACKAGE-SPECIFIER, a package, symbol or string, return the\n" " parent package. If there is not a parent, signal an error." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "The parent of ~a does not exist." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "There is no parent of ~a." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Given PACKAGE-SPECIFIER, a package, symbol or string, return all the\n" " packages which are in the hierarchy 'under' the given package. If\n" " :recurse is nil, then only return the immediate children of the package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Find the package having the specified name." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Make this package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "#<Package-Hashtable: Size = ~D, Free = ~D, Deleted = ~D>" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*\n" " Executes the FORMs at least once for each symbol accessible in the given\n" " PACKAGE with VAR bound to the current symbol." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*\n" " Executes the FORMs once for each external symbol in the given PACKAGE " @@ -7571,14 +7740,14 @@ msgid "" " VAR bound to the current symbol." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*\n" " Executes the FORMs once for each symbol in every package with VAR bound\n" " to the current symbol." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Within the lexical scope of the body forms, MNAME is defined via macrolet\n" " such that successive invocations of (mname) will return the symbols,\n" @@ -7586,23 +7755,19 @@ msgid "" " any of :inherited :external :internal." msgstr "" -#: target:code/package.lisp -msgid "~@<~S does not name a package ~:>" -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Must supply at least one of :internal, ~\n" " :external, or :inherited." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "~S is not one of :internal, :external, ~\n" " or :inherited." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Defines a new package called PACKAGE. Each of OPTIONS should be one of the\n" " following:\n" @@ -7618,65 +7783,65 @@ msgid "" " All options except :SIZE and :DOCUMENTATION can be used multiple times." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Bogus DEFPACKAGE option: ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Can't specify :SIZE twice." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Bogus :SIZE, must be a positive integer: ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Can't specify :DOCUMENTATION twice." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Parameters ~S and ~S must be disjoint ~\n" " but have common elements ~% ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A is a nick-name for the package ~A" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A also shadows the following symbols:~% ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A previously used the following packages:~% ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A also exports the following symbols:~% ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A does not contain a symbol ~A" msgstr "" -#: target:code/package.lisp -msgid "Ignore this nickname." -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is a package name, so it cannot be a nickname for ~S." msgstr "" -#: target:code/package.lisp -msgid "Redefine this nickname." +#: src/code/package.lisp +msgid "Ignore this nickname." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is already a nickname for ~S." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp +msgid "Redefine this nickname." +msgstr "" + +#: src/code/package.lisp msgid "" "Makes a new package having the specified Name and Nicknames. The\n" " package will inherit all external symbols from each package in\n" @@ -7685,15 +7850,15 @@ msgid "" " will ultimately be present in the package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Leave existing package alone." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "A package named ~S already exists" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Sets *PACKAGE* to package with given NAME, creating the package if\n" " it does not exist. If the package already exists then it is modified\n" @@ -7703,47 +7868,47 @@ msgid "" " list." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Old-style IN-PACKAGE." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "The package named ~S doesn't exist." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Changes the name and nicknames for a package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "A package named ~S already exists." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Delete the PACKAGE-OR-NAME from the package system data structures." msgstr "" -#: target:code/package.lisp -msgid "Return NIL" +#: src/code/package.lisp +msgid "No package of name ~S." msgstr "" -#: target:code/package.lisp -msgid "No package of name ~S." +#: src/code/package.lisp +msgid "Return NIL" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Remove dependency in other packages." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Returns a list of all existing packages." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Returns a symbol having the specified name, creating it if necessary." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Returns the symbol NAME in PACKAGE. If such a symbol is found\n" " then the second value is :internal, :external or :inherited to indicate\n" @@ -7751,116 +7916,112 @@ msgid "" " are NIL." msgstr "" -#: target:code/package.lisp -msgid "interning symbol ~A" -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Makes SYMBOL no longer present in PACKAGE. If SYMBOL was present\n" " then T is returned, otherwise NIL. If PACKAGE is SYMBOL's home\n" " package, then it is made uninterned." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "uninterning symbol ~A" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Disable package's lock then continue" msgstr "" -#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp +#: src/code/macros.lisp src/code/defstruct.lisp src/code/package.lisp msgid "Unlock all packages, then continue" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "prompt for a symbol to shadowing-import." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Uninterning symbol ~S causes name conflict among these symbols:~%~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Symbol to shadowing-import: " msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is not a symbol." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is not one of the conflicting symbols." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is neither a symbol nor a list of symbols." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Exports SYMBOLS from PACKAGE, checking that no name conflicts result." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Exporting these symbols from the ~A package:~%~S~%~\n" " results in name conflicts with these packages:~%~{~A ~}" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Unintern conflicting symbols." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Skip exporting conflicting symbols." msgstr "" -#: target:code/package.lisp -msgid "Import these symbols into the ~A package." +#: src/code/package.lisp +msgid "These symbols are not accessible in the ~A package:~%~S" msgstr "" -#: target:code/package.lisp -msgid "These symbols are not accessible in the ~A package:~%~S" +#: src/code/package.lisp +msgid "Import these symbols into the ~A package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Makes SYMBOLS no longer exported from PACKAGE." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "unexporting symbols ~A" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is not accessible in the ~A package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Make SYMBOLS accessible as internal symbols in PACKAGE. If a symbol\n" " is already accessible then it has no effect. If a name conflict\n" " would result from the importation, then a correctable error is signalled." msgstr "" -#: target:code/package.lisp -msgid "Import these symbols with Shadowing-Import." -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Importing these symbols into the ~A package ~\n" " causes a name conflict:~%~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp +msgid "Import these symbols with Shadowing-Import." +msgstr "" + +#: src/code/package.lisp msgid "" "Import SYMBOLS into PACKAGE, disregarding any name conflict. If\n" " a symbol of the same name is present, then it is uninterned.\n" " The symbols are added to the Package-Shadowing-Symbols." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Make an internal symbol in PACKAGE with the same name as each of the\n" " specified SYMBOLS, adding the new symbols to the Package-Shadowing-Symbols" @@ -7870,74 +8031,74 @@ msgid "" " not already present." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Add all the PACKAGES-TO-USE to the use list for PACKAGE so that\n" " the external symbols of the used packages are accessible as internal\n" " symbols in PACKAGE." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Unintern the conflicting symbols in the ~2*~A package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Use'ing package ~A results in name conflicts for these symbols:~%~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Remove PACKAGES-TO-UNUSE from the use list for PACKAGE." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Return a list of all symbols in the system having the specified name." msgstr "" -#: target:code/describe.lisp target:code/package.lisp +#: src/code/describe.lisp src/code/package.lisp msgid "special variable" msgstr "" -#: target:code/describe.lisp target:code/package.lisp +#: src/code/describe.lisp src/code/package.lisp msgid "constant" msgstr "" -#: target:code/describe.lisp target:code/package.lisp +#: src/code/describe.lisp src/code/package.lisp msgid "undefined variable" msgstr "" -#: target:code/describe.lisp target:code/package.lisp +#: src/code/describe.lisp src/code/package.lisp msgid "symbol macro" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "alien variable" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "value: " msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "macro" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "special operator" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "function" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "class" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "type" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Call FUN with each symbol that contains STRING.\n" " If PACKAGE is supplied then only use symbols present in\n" @@ -7945,7 +8106,7 @@ msgid "" " symbols exported from the specified package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Briefly describe all symbols which contain the specified STRING.\n" " If PACKAGE is supplied then only describe symbols present in\n" @@ -7953,60 +8114,54 @@ msgid "" " external symbols in the specified package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Identical to APROPOS, except that it returns a list of the symbols\n" " found instead of describing them." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Float format for 1.0E1" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Variable bound to current readtable." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Reader error ~@[at ~D ~]on ~S:~%~?" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Unexpected EOF on ~S ~A." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Standard lisp readtable. This is for recovery from broken\n" " read-tables, and should not normally be user-visible." msgstr "" -#: target:code/reader.lisp -msgid "" -"Readtable is a data structure that maps characters into syntax\n" -" types for the Common Lisp expression reader." -msgstr "" - -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Value of *package* at the start of the last read or Nil." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Undefined read-macro character ~S" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "A copy is made of from-readtable and place into to-readtable." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Causes the syntax of to-char to be the same as from-char in the \n" " optional readtable (defaults to the current readtable). The\n" " from-table defaults the standard lisp readtable by being nil." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Causes char to be a macro character which invokes function when\n" " seen by the reader. The non-terminatingp flag can be used to\n" @@ -8015,156 +8170,156 @@ msgid "" " returns T." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Returns the function associated with the specified char which is a macro\n" " character. The optional readtable argument defaults to the current\n" " readtable." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Bind *read-buffer* to a fresh buffer and execute Body." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "If true, only warn when there is an extra close paren, otherwise error." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Reads from stream and returns the object read, preserving the whitespace\n" " that followed the object." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Reads in the next object in the stream, which defaults to\n" " *standard-input*. For details see the I/O chapter of\n" " the manual." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Reads objects from input-stream until the next character after an\n" " object's representation is endchar. A list of those objects read\n" " is returned." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Nothing appears before . in list." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Nothing appears after . in list." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "More than one object follows . in list." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Ignoring unmatched close parenthesis~\n" " ~@[ at file position ~D~]." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Unmatched close parenthesis." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "after escape character" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "inside extended token" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "invalid constituent" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Suppresses most interpreting of the reader when T" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "The radix that Lisp reads numbers in." msgstr "" -#: target:code/reader.lisp -msgid "This function is just an fsm that recognizes numbers and symbols." -msgstr "" - -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "impossible!" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "dot context error" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "too many dots" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "too many colons in ~S" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "after reading a colon" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "package ~S not found" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Use symbol anyway." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "The symbol ~S is not external in the ~A package." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Symbol ~S not found in the ~A package." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp +msgid "This function is just an fsm that recognizes numbers and symbols." +msgstr "" + +#: src/code/reader.lisp msgid "" "For semi-external use: returns 3 values: the string for the token,\n" " a flag for whether there was an escape char, and the position of any\n" " package delimiter." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp +msgid "after escape" +msgstr "" + +#: src/code/reader.lisp msgid "" "For semi-external use: read an extended token with the first character\n" " escaped. Returns the string for the token." msgstr "" -#: target:code/reader.lisp -msgid "after escape" -msgstr "" - -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Holds the mapping of base to 'safe' number of digits to read for a fixnum." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Holds the largest fixnum power of the base for make-integer." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Minimizes bignum-fixnum multiplies by reading a 'safe' number of digits, \n" " then multiplying by a power of the base and adding." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Fast bignum-reading interface. Reads from stream S an integer in radix\n" "R. If we find some kind of error (bad characters, EOF), then NIL is\n" @@ -8173,27 +8328,27 @@ msgid "" "the end of the stream." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Internal error in floating point reader." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Underflow" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Floating-point number not representable" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Invalid ratio: ~S/~S" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "No dispatch function defined for ~S." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Causes char to become a dispatching macro character in readtable\n" " (which defaults to the current readtable). If the non-terminating-p\n" @@ -8201,47 +8356,55 @@ msgid "" " macro-character returns T." msgstr "" -#: target:code/reader.lisp -msgid "" -"Causes function to be called whenever the reader reads\n" -" disp-char followed by sub-char. Set-dispatch-macro-character\n" -" returns T." -msgstr "" - -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Dispatch Sub-Char must not be a decimal digit: ~S" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "~S is not a dispatch character." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp +msgid "" +"Causes function to be called whenever the reader reads\n" +" disp-char followed by sub-char. Set-dispatch-macro-character\n" +" returns T." +msgstr "" + +#: src/code/reader.lisp msgid "" "Returns the macro character function for sub-char under disp-char\n" " or nil if there is no associated function." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "inside dispatch character" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "No dispatch table for dispatch char." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "A resource of string streams for Read-From-String." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "The characters of string are successively given to the lisp reader\n" " and the lisp object built by the reader is returned. Macro chars\n" " will take effect." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp +msgid "There are no digits in this string: ~S" +msgstr "" + +#: src/code/reader.lisp +msgid "There's junk in this string: ~S." +msgstr "" + +#: src/code/reader.lisp msgid "" "Examine the substring of string delimited by start and end\n" " (default to the beginning and end of the string) It skips over\n" @@ -8249,148 +8412,140 @@ msgid "" " radix parameter must be between 2 and 36." msgstr "" -#: target:code/reader.lisp -msgid "There are no digits in this string: ~S" -msgstr "" - -#: target:code/reader.lisp -msgid "There's junk in this string: ~S." -msgstr "" - -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Numeric argument ignored in #~D~A." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Unrecognized character name: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Ill-formed vector: #~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Vector longer than specified length: #~S~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Escape character appeared after #*" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "You have to give a little bit for non-zero #* bit-vectors." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Illegal element given for bit-vector: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Bit vector is longer than specified length #~A*~A" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Symbol following #: contains a package marker: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "If false, then the #. read macro is disabled." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Attempt to read #. while *READ-EVAL* is bound to NIL." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Radix missing in #R." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Illegal radix for #R: ~D." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "#~A (base ~D) value is not a rational: ~S." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "#~DA axis ~D is empty, but axis ~\n" " ~D is non-empty." msgstr "" -#: target:code/sharpm.lisp -msgid "Non-list following #S" -msgstr "" - -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Non-list following #S: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Structure type is not a symbol: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "~S is not a defined structure type." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "The ~S structure does not have a default constructor." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp +msgid "Non-list following #S" +msgstr "" + +#: src/code/sharpm.lisp msgid "Missing label for #=." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Multiply defined label: #~D=" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Have to tag something more than just #~D#." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Missing label for ##." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "reference to undefined label #~D#" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Illegal complex number format: #C~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Illegal sharp character ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid "How deep we are into backquotes" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid ",@ after backquote in ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid ",. after backquote in ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid "Comma not inside a backquote." msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid ",@ after dot in ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid ",. after dot in ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid "" "Given a lisp form containing the magic functions BACKQ-LIST, BACKQ-LIST*,\n" " BACKQ-APPEND, etc. produced by the backquote reader macro, will return a\n" @@ -8403,60 +8558,69 @@ msgid "" " level of parentheses should be added." msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid "### illegal dotted backquote form ###" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Make an object set for use by a RPC/xevent server. Name is for\n" " descriptive purposes only." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "You lose, object: ~S" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" -"Return the handler function in Object-Set for the operation specified by\n" -" Message-ID, if none, NIL is returned." +"Return as multiple values the object and object-set mapped to by xwindow." +msgstr "" + +#: src/code/serve-event.lisp +msgid "Add a new xwindow/object/object-set association." msgstr "" -#: target:code/serve-event.lisp -msgid "Sets the handler function for an object set operation." +#: src/code/serve-event.lisp +msgid "Remove xwindow and its associated object/object-set pair." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp +msgid "" +"Return the handler function in Object-Set for the operation specified by\n" +" Message-ID, if none, NIL is returned." +msgstr "" + +#: src/code/serve-event.lisp msgid "#<Handler for ~A on ~:[~;BOGUS ~]descriptor ~D: ~S>" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "List of all the currently active handlers for file descriptors" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Arange to call FUNCTION whenever FD is usable. DIRECTION should be\n" " either :INPUT or :OUTPUT. The value returned should be passed to\n" " SYSTEM:REMOVE-FD-HANDLER when it is no longer needed." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Invalid direction ~S, must be either :INPUT or :OUTPUT" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Removes HANDLER from the list of active handlers." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Remove any handers refering to FD. This should only be used when attempting\n" " to recover from a detected inconsistency." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Establish a handler with SYSTEM:ADD-FD-HANDLER for the duration of BODY.\n" " DIRECTION should be either :INPUT or :OUTPUT, FD is the file descriptor " @@ -8465,28 +8629,28 @@ msgid "" msgstr "" #. This needs more work. -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp +msgid "~S ~[have~;has a~:;have~] bad file descriptor." +msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors." +msgstr[0] "" + +#: src/code/serve-event.lisp msgid "Remove bogus handlers." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Retry bogus handlers." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Go on, leaving handlers marked as bogus." msgstr "" -#: target:code/serve-event.lisp -msgid "~S ~[have~;has a~:;have~] bad file descriptor." -msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors." -msgstr[0] "" - -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Timeout is not a real number or NIL: ~S" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or\n" " :OUTPUT. TIMEOUT, if supplied, is the number of seconds to wait before " @@ -8494,11 +8658,11 @@ msgid "" " up." msgstr "" -#: target:code/time.lisp target:code/serve-event.lisp +#: src/code/time.lisp src/code/serve-event.lisp msgid "Syscall ~A failed: ~A" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "This is an alist mapping displays to user functions to be called when\n" " SYSTEM:SERVE-EVENT notices input on a display connection. Do not modify\n" @@ -8506,7 +8670,7 @@ msgid "" " should be represented here only once." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "SERVE-ALL-EVENTS calls SERVE-EVENT with the specified timeout. If\n" " SERVE-EVENT does something (returns T) it loops over SERVE-EVENT with " @@ -8515,7 +8679,7 @@ msgid "" " SERVE-EVENT did something and NIL if not." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Receive on all ports and Xevents and dispatch to the appropriate handler\n" " function. If timeout is specified, server will wait the specified time " @@ -8524,51 +8688,51 @@ msgid "" " Server returns T if something happened and NIL otherwise." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Event-listen was true, but handler didn't handle: ~%~S" msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Attempting unimplemented external-format I/O." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Nonsensical argument (~S) to DEFINE-EXTERNAL-FORMAT." msgstr "" -#: target:code/extfmts.lisp -msgid "External-format aliases file ends early." +#: src/code/extfmts.lisp +msgid "Bad entry in external-format aliases file: ~S => ~S." msgstr "" -#: target:code/extfmts.lisp -msgid "Bad entry in external-format aliases file: ~S => ~S." +#: src/code/extfmts.lisp +msgid "External-format aliases file ends early." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "External-format aliasing depth exceeded." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "~S is a Composing-External-Format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "~S is not a Composing-External-Format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "~S is not a valid external format name." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "External format ~S not found." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Attempting I/O through void external-format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Convert String to octets using the specified External-format. The\n" " string is bounded by Start (defaulting to 0) and End (defaulting to\n" @@ -8576,7 +8740,7 @@ msgid "" " there. If not, a new buffer is created." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Octets-to-string converts an array of octets in Octets to a string\n" " according to the specified External-format. The array of octets is\n" @@ -8594,7 +8758,7 @@ msgid "" " external format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Encode the given String using External-Format and return a new\n" " string. The characters of the new string are the octets of the\n" @@ -8602,7 +8766,7 @@ msgid "" " code-char. This is the inverse to String-Decode" msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Decode String using the given External-Format and return the new\n" " string. The input string is treated as if it were an array of\n" @@ -8610,7 +8774,7 @@ msgid "" " the inverse of String-Encode." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Change the external format of the standard streams to Terminal.\n" " The standard streams are sys::*stdin*, sys::*stdout*, and\n" @@ -8621,37 +8785,37 @@ msgid "" " set to the specified format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Can't find external-format ~S." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Change it anyway." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "The external-format for encoding filenames is already set." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "List of available buffers. Each buffer is an sap pointing to\n" " bytes-per-buffer of memory." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Number of bytes per buffer." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "The maximum supported byte size for a stream element-type." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Timeout ~(~A~)ing ~S." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "List of all available output routines. Each element is a list of the\n" " element-type output, the kind of buffering, the function name, and the " @@ -8659,81 +8823,81 @@ msgid "" " of bytes per element." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Write would have blocked, but SERVER told us to go." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "While writing ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "Output THING to stream. THING can be any kind of vector or a sap. If " "THING\n" " is a SAP, END must be supplied (as length won't work)." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Just go on as if nothing happened..." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "~S called with :END before :START!" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "List of all available input routines. Each element is a list of the\n" " element-type input, the function name, and the number of bytes per " "element." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error reading ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Could not find any input routine for ~S" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Could not find any output routine for ~S buffered ~S." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Element sizes for input (~S:~S) and output (~S:~S) differ?" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Input type (~S) and output type (~S) are unrelated?" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Go on as if nothing bad happened." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Could not restore ~S to its original contents: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "~s is not a stream associated with a file." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error fstating ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error lseek'ing ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Invalid position given to file-position: ~S" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "Create a stream for the given unix file descriptor.\n" " If input is non-nil, allow input operations.\n" @@ -8748,15 +8912,15 @@ msgid "" " Name is used to identify the stream when printed." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "File descriptor must be opened either for input or output." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "** Closed ~A~%" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "This is a string that OPEN tacks on the end of a file namestring to produce\n" " a name for the :if-exists :rename-and-delete and :rename options. Also,\n" @@ -8764,59 +8928,59 @@ msgid "" " namestring." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Enter new value for ~*~S" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "~S is invalid for ~S. Must be one of~{ ~S~}" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Enter new value for ~S: " msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Try to rename it anyway." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "File ~S is not writable." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Use :SUPERSEDE instead." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Could not rename ~S to ~S: ~A." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Cannot open ~S for output: Is a directory." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Cannot find ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Return NIL." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error opening ~S, ~A." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error creating ~S, path does not exist." msgstr "" -#: target:pcl/braid.lisp target:code/fd-stream.lisp +#: src/pcl/braid.lisp src/code/fd-stream.lisp msgid "Try again." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "Return a stream which reads from or writes to Filename.\n" " Defined keywords:\n" @@ -8829,261 +8993,261 @@ msgid "" " See the manual for details." msgstr "" -#: target:code/fd-stream.lisp +#: src/pcl/std-class.lisp src/pcl/boot.lisp src/pcl/defs.lisp +#: src/pcl/defclass.lisp src/code/fd-stream.lisp +msgid "Odd-length property list in REMF." +msgstr "" + +#: src/code/fd-stream.lisp msgid "Do it anyway." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Can't create simple-streams with an element-type." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Unable to open streams of class ~S." msgstr "" -#: target:pcl/std-class.lisp target:pcl/boot.lisp target:pcl/defs.lisp -#: target:pcl/defclass.lisp target:code/macros.lisp target:code/fd-stream.lisp -msgid "Odd-length property list in REMF." -msgstr "" - -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "The stream connected to the controlling terminal or NIL if there is none." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "The stream connected to the standard input (file descriptor 0)." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "The stream connected to the standard output (file descriptor 1)." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "The stream connected to the standard error output (file descriptor 2)." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "This is called in BEEP to feep the user. It takes a stream." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "Return the delta in Stream's FILE-POSITION that would be caused by writing\n" " Object to Stream. Non-trivial only in implementations that support\n" " international character sets." msgstr "" -#: target:code/fd-stream-extfmt.lisp -msgid "Loading simple-streams should redefine this" +#: src/code/fd-stream-extfmt.lisp +msgid "Don't know how to set external-format for ~S." msgstr "" -#: target:code/fd-stream-extfmt.lisp -msgid "Don't know how to set external-format for ~S." +#: src/code/fd-stream-extfmt.lisp +msgid "Loading simple-streams should redefine this" msgstr "" -#: target:code/fd-stream-extfmt.lisp +#: src/code/fd-stream-extfmt.lisp msgid "Setting external-format on Gray streams not supported." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "When non-nil, attempt to load \"library:<host>.translations\" to resolve\n" " an otherwise undefined logical host." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "A path specification, either a string, file-stream or pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Convert thing (a pathname, string or stream) into a pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Construct a filled in pathname by completing the unspecified components\n" " from the defaults." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "~S is not allowed as a directory component." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Makes a new pathname from the component arguments. Note that host is\n" "a host-structure or string." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Silly argument for a unix ~A: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Silly argument for a unix PATHNAME-NAME: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Illegal pathname: ~\n" " Directory with ~S immediately followed by " "~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for the pathname's host." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for pathname's device." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for the pathname's directory list." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for the pathname's name." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for the pathname's version." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Parse error in namestring: ~?~% ~A~% ~V@T^" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "When Host arg is not supplied, Defaults arg must ~\n" " have a non-null PATHNAME-HOST." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Host in namestring: ~S~@\n" " does not match explicit host argument: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Converts pathname, a pathname designator, into a pathname structure,\n" " for a physical pathname, returns the printed representation. Host may be\n" " a physical host structure or host namestring." msgstr "" -#: target:code/pathname.lisp -msgid "" -"A LIST representing a pathname host is not ~\n" -" supported in this implementation:~% ~S" -msgstr "" - -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Hosts do not match: ~S and ~S." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Can't figure out the file associated with stream:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp +msgid "" +"A LIST representing a pathname host is not ~\n" +" supported in this implementation:~% ~S" +msgstr "" + +#: src/code/pathname.lisp msgid "Construct the full (name)string form of the pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Cannot determine the namestring for pathnames with no ~\n" " host:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Returns a string representation of the name of the host in the pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Cannot determine the namestring for pathnames with no host:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Returns a string representation of the directories used in the pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Returns a string representation of the name used in the pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Returns an abbreviated pathname sufficent to identify the pathname relative\n" " to the defaults." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Predicate for determining whether pathname contains any wildcards." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Pathname matches the wildname template?" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Not enough wildcards in FROM pattern to match ~\n" " TO pattern:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Can't substitute this into the middle of a word:~\n" " ~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Pathname components from Source and From args to TRANSLATE-PATHNAME~@\n" " did not match:~% ~S ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid ":WILD-INFERIORS not paired in from and to ~\n" " patterns:~% ~S ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Use the source pathname to translate the from-wildname's wild and\n" " unspecified elements into a completed to-pathname based on the to-wildnam" "e." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "~S doesn't match ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Search-list ~a not defined." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Clear the current definition for the search-list NAME. Returns T if such\n" " a definition existed, and NIL if not." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Clear the definition for all search-lists. Only use this if you know\n" " what you are doing." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "~S doesn't start with a search-list." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Return the expansions for the search-list starting PATHNAME. If PATHNAME\n" " does not start with a search-list, then an error is signaled. If\n" @@ -9091,29 +9255,29 @@ msgid "" " The expansion for a search-list can be set with SETF." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Search list ~S has not been defined yet." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Returns T if the search-list starting PATHNAME is currently defined, and\n" " NIL otherwise. An error is signaled if PATHNAME does not start with a\n" " search-list." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "That would result in a circularity:~% ~\n" " ~A~{ -> ~A~} -> ~A" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Search-lists cannot expand into pathnames that have ~\n" " a name, type, or ~%version specified:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Execute BODY with VAR bound to each successive possible expansion for\n" " PATHNAME and then return RESULT. Note: if PATHNAME does not contain a\n" @@ -9122,105 +9286,105 @@ msgid "" " VAR is *not* bound inside of RESULT." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Undefined search list: ~A" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Logical namestring character ~\n" " is not alphanumeric or hyphen:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Logical host not yet defined: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Double asterisk inside of logical ~\n" " word: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Illegal character for logical pathname:~% ~S" msgstr "" -#: target:code/pathname.lisp -msgid "Expecting ~A, got ~:[nothing~;~:*~S~]." -msgstr "" - -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a host name" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a directory name" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a file name" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Expecting a dot, got ~S." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a file type" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a positive integer, * or NEWEST" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp +msgid "Expecting ~A, got ~:[nothing~;~:*~S~]." +msgstr "" + +#: src/code/pathname.lisp msgid "Expected a positive integer, ~\n" " got ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Extra stuff after end of file name." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Converts the pathspec argument to a logical-pathname and returns it." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Logical namestring does not specify a host:~% ~S" msgstr "" -#: target:code/filesys.lisp target:code/pathname.lisp +#: src/code/filesys.lisp src/code/pathname.lisp msgid "Invalid directory component: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Invalid keyword: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Logical pathname translation is not a two-list:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Return the (logical) host object argument's list of translations." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Set the translations list for the logical host argument.\n" " Return translations." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Clobber search-list host with logical pathname host" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "~S names a CMUCL search-list" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Search for a logical pathname named host, if not already defined. If " "already\n" @@ -9230,29 +9394,29 @@ msgid "" " successfully, T is returned, else error." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid ";; Loading pathname translations from ~A~%" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Translates pathname to a physical pathname, which is returned." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "No translation for ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Remove any occurrences of \\ from the string because we've already\n" " checked for whatever may have been backslashed." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Backslash in bad place." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "If non-NIL, Unix shell-style wildcards are ignored when parsing\n" " pathname namestrings. They are also ignored when computing\n" @@ -9261,59 +9425,59 @@ msgid "" " printing pathnames." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "``['' with no corresponding ``]''" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~A already names a logical host" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Invalid pattern piece: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid ":BACK cannot be represented in namestrings." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a directory separator in a pathname name: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a dot in a pathname name without a pathname type: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Invalid value for a pathname name: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify the type without a file: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a directory separator in a pathname type: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a dot in a pathname type: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a version without a file: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~S cannot be represented relative to ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot supply a type without a name:~% ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Convert PATHNAME into a string that can be used with UNIX system calls.\n" " Search-lists and wild-cards are expanded. If optional argument\n" @@ -9322,83 +9486,83 @@ msgid "" " unless an executable version of PATHNAME exists." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~S is ambiguous:~{~% ~A~}" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Return the pathname for the actual file described by the pathname\n" " An error of type file-error is signalled if no such file exists,\n" " or the pathname is wild." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Bad place for a wild pathname." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "The file ~S does not exist." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Return a pathname which is the truename of the file if it exists, NIL\n" " otherwise. An error of type file-error is signalled if pathname is wild." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Rename File to have the specified New-Name. If file is a stream open to a\n" " file, then the associated file is renamed." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~S can't be created." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Failed to rename ~A to ~A: ~A" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Delete the specified file." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~S doesn't exist." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Could not delete ~A: ~A." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Delete old versions of files matching the given Pathname,\n" "optionally keeping some of the most recent old versions." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Returns the home directory of the logged in user as a pathname.\n" " This is obtained from the logical name \"home:\"." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Return file's creation date, or NIL if it doesn't exist.\n" " An error of type file-error is signalled if file is a wild pathname" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Returns the file author as a string, or nil if the author cannot be\n" " determined. Signals an error of type file-error if file doesn't exist,\n" " or file is a wild pathname." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Returns a list of pathnames, one for each file that matches the given\n" " pathname. Supplying :ALL as nil causes this to ignore Unix dot files. " @@ -9414,7 +9578,7 @@ msgid "" " not followed." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Like Directory, but prints a terse, multi-column directory listing\n" " instead of returning a list of pathnames. When :all is supplied and\n" @@ -9423,131 +9587,131 @@ msgid "" " information is output one file per line." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Directory of ~A:~%" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Couldn't stat ~A -- ~A.~%" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Return a list of all files which are possible completions of Pathname.\n" " We look in the directory specified by Defaults as well as looking down\n" " the search list." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "File-writable accepts a pathname and returns T if the current\n" " process can write it, and NIL otherwise." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Returns the pathname for the default directory. This is the place where\n" " a file will be written if no directory is specified. This may be changed\n" " with setf." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Tests whether the directories containing the specified file\n" " actually exist, and attempts to create them if they do not.\n" " Portable programs should avoid using the :MODE keyword argument." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~&Creating directory: ~A~%" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Can't create directory ~A." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The default for the :IF-SOURCE-NEWER argument to load." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The source file types which LOAD recognizes." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "A list of the object file types recognized by LOAD." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "A list of the object file types recognized by LOAD for logical pathnames." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The default for the :VERBOSE argument to Load." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The default for the :PRINT argument to Load." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The TRUENAME of the file that LOAD is currently loading." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The defaulted pathname that LOAD is currently loading." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Count of the number of recursive loads." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "~A was compiled for fasl-file version ~X, ~\n" " but this is version ~X" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "List of free fop tables for the fasloader." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The fop stack (we only need one!)." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Vector indexed by a FaslOP that yields the FOP's name." msgstr "" -#: target:code/load.lisp -msgid "Losing FOP!" -msgstr "" - -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "Vector indexed by a FaslOP that yields a function of 0 arguments which\n" " will perform the operation." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp +msgid "Losing FOP!" +msgstr "" + +#: src/code/load.lisp msgid "Loading ~S.~%" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Loading stuff from ~S.~%" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Attempt to load an empty FASL FILE:~% ~S" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Bad FASL file format." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "Loads the file named by Filename into the Lisp environment. The file type\n" " (a.k.a extension) is defaulted if missing. These options are defined:\n" @@ -9590,148 +9754,144 @@ msgid "" " types that we use for defaulting when none is specified." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Return NIL from load of ~S." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "~S does not exist." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "See if it exists now." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Prompt for a new name." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "New name: " msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Load it as a source file." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "File has a fasl file type, but no fasl file header:~% ~S" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "Loading object file ~A,~@\n" " which is older than the presumed source:~% ~A." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "Loading source file ~A,~@\n" " which is newer than the presumed object file:~% ~A." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Compile of source failed, cannot load object." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Object file ~A is~@\n" " older than the presumed source:~% ~A." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "load source file" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "load object file" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Fop-End-Header was executed???" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Fasl table of improper size. Bug!" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Fasl stack not empty. Bug!" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The package ~S does not exist." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Losing i-vector element size: ~S" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Load ~A anyway" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "~A was compiled for a ~A, but this is a ~A" msgstr "" -#: target:compiler/dfo.lisp target:code/load.lisp +#: src/compiler/dfo.lisp src/code/load.lisp msgid "Top-Level Form" msgstr "" -#: target:compiler/generic/core.lisp target:code/load.lisp +#: src/compiler/generic/core.lisp src/code/load.lisp msgid "Unaligned function object, offset = #x~X." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "~S defined~%" msgstr "" -#: target:compiler/generic/core.lisp target:code/load.lisp -msgid "Unknown foreign symbol: ~S" -msgstr "" - -#: target:code/load.lisp +#: src/code/load.lisp msgid "Cannot load assembler code." msgstr "" -#: target:compiler/generic/core.lisp target:code/load.lisp +#: src/compiler/generic/core.lisp src/code/load.lisp msgid "Undefined assembler routine: ~S" msgstr "" -#: target:code/foreign-linkage.lisp +#: src/code/foreign-linkage.lisp msgid "~A is not defined as a foreign symbol" msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "This is a list of module names that have been loaded into Lisp so far.\n" " It is used by PROVIDE and REQUIRE." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "*load-verbose* is bound to this before loading files." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "See function documentation for REQUIRE" msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "Defines a module by registering the files that need to be loaded when\n" " the module is required. If name is a symbol, its print name is used\n" " after downcasing it." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "Adds a new module name to *modules* indicating that it has been loaded.\n" " Module-name may be any valid string designator. All comparisons are\n" " done using string=, i.e. module names are case-sensitive." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "Loads a module when it has not been already. Pathname, if supplied,\n" " is a single pathname or list of pathnames to be loaded if the module\n" @@ -9757,15 +9917,15 @@ msgid "" " which defaults to t." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "Don't know how to load ~A" msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "Coerce a string designator to a module name." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "Derive a default pathname to try to load for an undefined module\n" "named module-name. The default pathname is constructed from the\n" @@ -9774,19 +9934,19 @@ msgid "" "each, separately, converted from :case :common to :case :local." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Keywords that you can put in a lambda-list, supposing you should want\n" " to do such a thing." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "The exclusive upper bound on the number of arguments which may be passed\n" " to a function, including rest args." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "The exclusive upper bound on the number of parameters which may be specifed\n" " in a given lambda list. This is actually the limit on required and " @@ -9794,13 +9954,13 @@ msgid "" " parameters. With &key and &aux you can get more." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "The exclusive upper bound on the number of multiple-values that you can\n" " have." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "This variable controls whether assignments to unknown variables at top-level" "\n" @@ -9813,53 +9973,53 @@ msgid "" " NIL -- Never declare the variable, giving warnings on each use." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Evaluates its single arg in a null lexical environment, returns the\n" " result or results." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Wrong number of args to FUNCTION:~% ~S." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "~S is a macro." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "~S is a special operator." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Wrong number of args to QUOTE:~% ~S." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Odd number of args to SETQ:~% ~S." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Declaring ~S special." msgstr "" -#: target:compiler/ir1tran.lisp target:code/eval.lisp +#: src/compiler/ir1tran.lisp src/code/eval.lisp msgid "Bad Eval-When situation list: ~S." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Attempt to evaluation a complex expression:~% ~S~@\n" " This expression must be compiled, but the compiler is not loaded." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~\n" " ~% ~S~%" msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Given a function, return three values:\n" " 1] A lambda expression that could be used to define the function, or NIL " @@ -9873,11 +10033,11 @@ msgid "" " any object, CMU CL always returns a valid function name or a string." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "If the symbol globally names a special form, returns T, otherwise NIL." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "The value of this variable must be a function that can take three\n" " arguments, a macro expander function, the macro form to be expanded,\n" @@ -9887,28 +10047,28 @@ msgid "" " FUNCALL." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Invoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to\n" " a function." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "If SYMBOL names a macro in ENV, returns the expansion function,\n" " else returns NIL. If ENV is unspecified or NIL, use the global\n" " environment only." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "~S names a special form." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Cannot funcall macro functions." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "If form is a macro (or symbol macro), expands it once. Returns two values,\n" " the expanded form and a T-or-NIL flag indicating whether the form was, " @@ -9918,7 +10078,7 @@ msgid "" " to the null environment." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Repetitively call MACROEXPAND-1 until the form can no longer be expanded.\n" " Returns the final resultant form, and T if it was expanded. ENV is the\n" @@ -9926,7 +10086,7 @@ msgid "" " environment." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "If NAME names a compiler-macro, returns the expansion function,\n" " else returns NIL. Note: if the name is shadowed in ENV by a local\n" @@ -9934,27 +10094,27 @@ msgid "" " set with SETF." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "If FORM is a function call for which a compiler-macro has been defined,\n" " invoke the expander function using *macroexpand-hook* and return the\n" " results and T. Otherwise, return the original form and NIL." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Repetitively call COMPILER-MACROEXPAND-1 until the form can no longer be\n" " expanded. ENV is the lexical environment to expand in, or NIL (the\n" " default) for the null environment." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "True of any Lisp object that has a constant value: types that eval to\n" " themselves, keywords, constants, and list whose car is QUOTE." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Applies FUNCTION to a list of arguments produced by evaluating ARGS in\n" " the manner of LIST*. That is, a list is made of the values of all but " @@ -9964,77 +10124,205 @@ msgid "" " list." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Calls Function with the given Arguments." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Returns all of its arguments, in order, as values." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Returns all of the elements of List, in order, as values." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "A list of unix signal structures." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "~S is not a valid signal name or number." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Return the name of the signal as a string. Signal should be a valid\n" " signal number or a keyword of the standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Return a string describing signal. Signal should be a valid signal\n" " number or a keyword of the standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Return the number of the given signal. Signal should be a valid\n" " signal number or a keyword of the standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp +msgid "Check" +msgstr "" + +#: src/code/signal.lisp +msgid "Hangup" +msgstr "" + +#: src/code/signal.lisp +msgid "Interrupt" +msgstr "" + +#: src/code/signal.lisp +msgid "Quit" +msgstr "" + +#: src/code/signal.lisp +msgid "Illegal instruction" +msgstr "" + +#: src/code/signal.lisp +msgid "Trace trap" +msgstr "" + +#: src/code/signal.lisp +msgid "Iot instruction" +msgstr "" + +#: src/code/signal.lisp +msgid "C abort()" +msgstr "" + +#: src/code/signal.lisp +msgid "Emt instruction" +msgstr "" + +#: src/code/signal.lisp +msgid "Floating point exception" +msgstr "" + +#: src/code/signal.lisp +msgid "Kill" +msgstr "" + +#: src/code/signal.lisp +msgid "Bus error" +msgstr "" + +#: src/code/signal.lisp +msgid "Segmentation violation" +msgstr "" + +#: src/code/signal.lisp +msgid "Bad argument to system call" +msgstr "" + +#: src/code/signal.lisp +msgid "Write on a pipe with no one to read it" +msgstr "" + +#: src/code/signal.lisp +msgid "Alarm clock" +msgstr "" + +#: src/code/signal.lisp +msgid "Software termination signal" +msgstr "" + +#: src/code/signal.lisp +msgid "Urgent condition present on socket" +msgstr "" + +#: src/code/signal.lisp +msgid "Stop" +msgstr "" + +#: src/code/signal.lisp +msgid "Stop signal generated from keyboard" +msgstr "" + +#: src/code/signal.lisp +msgid "Continue after stop" +msgstr "" + +#: src/code/signal.lisp +msgid "Child status has changed" +msgstr "" + +#: src/code/signal.lisp +msgid "Background read attempted from control terminal" +msgstr "" + +#: src/code/signal.lisp +msgid "Background write attempted to control terminal" +msgstr "" + +#: src/code/signal.lisp +msgid "I/O is possible on a descriptor" +msgstr "" + +#: src/code/signal.lisp +msgid "Cpu time limit exceeded" +msgstr "" + +#: src/code/signal.lisp +msgid "File size limit exceeded" +msgstr "" + +#: src/code/signal.lisp +msgid "Virtual time alarm" +msgstr "" + +#: src/code/signal.lisp +msgid "Profiling timer alarm" +msgstr "" + +#: src/code/signal.lisp +msgid "Window size change" +msgstr "" + +#: src/code/signal.lisp +msgid "User defined signal 1" +msgstr "" + +#: src/code/signal.lisp +msgid "User defined signal 2" +msgstr "" + +#: src/code/signal.lisp msgid "Returns a mask given a set of signals." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-kill sends the signal signal to the process with process \n" " id pid. Signal should be a valid signal number or a keyword of the\n" " standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-killpg sends the signal signal to the all the process in process\n" " group PGRP. Signal should be a valid signal number or a keyword of\n" " the standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-sigblock cause the signals specified in mask to be\n" " added to the set of signals currently being blocked from\n" " delivery. The macro sigmask is provided to create masks." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-sigpause sets the set of masked signals to its argument\n" " and then waits for a signal to arrive, restoring the previous\n" " mask upon its return." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-sigsetmask sets the current set of masked signals (those\n" " being blocked from delivery) to the argument. The macro sigmask\n" @@ -10042,91 +10330,87 @@ msgid "" " mask is returned." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "Enable all the default signals that Lisp knows how to deal with." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "Execute BODY in a context impervious to interrupts." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Allow interrupts while executing BODY. As interrupts are normally allowed,\n" " this is only useful inside a WITHOUT-INTERRUPTS." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "With-enabled-interrupts ({(interrupt function)}*) {form}*\n" " Establish function as a handler for the Unix signal interrupt which\n" " should be a number between 1 and 31 inclusive." msgstr "" -#: target:code/interr.lisp -msgid "~S isn't one of the required args." -msgstr "" - -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Unknown error:~{ ~S~})" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Invalid number of arguments: ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Attempt to THROW to a tag that does not exist: ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Function with declared result type NIL returned:~% ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Invalid array index, ~D for ~S. Array has no elements." msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "Invalid array index, ~D for ~S. Should have greater than or equal to 0." msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Invalid array index, ~D for ~S. Should have been less than ~D" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Undefined foreign symbol: ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "The maximum number of nested errors allowed. Internal errors are\n" " double-counted." msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "The current number of nested errors." msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Unknown internal error, ~D? args=~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Internal error ~D: ~A. args=~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "~2&~@<A control stack overflow has occurred: ~\n" " the program has entered the yellow control stack guard zone. ~\n" @@ -10134,14 +10418,14 @@ msgid "" " enter the red control stack guard zone while debugging.~@:>~2%" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "~2&~@<Fatal control stack overflow. You have entered~%~\n" " the red control stack guard zone while debugging.~%~\n" " Returning to Top-Level.~@:>~2%" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "~2&~@<Imminent dynamic space overflow has occurred:~%~\n" " Only a small amount of dynamic space is available now.~%~\n" @@ -10150,171 +10434,171 @@ msgid "" " warning if you run out of space while debugging.~@:>~%" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "All debug-conditions inherit from this type. These are serious conditions\n" " that must be handled, but they are not programmer errors." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "There is absolutely no debugging information available." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "No debugging information available." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "The system could not return values from a frame with debug-function since\n" " it lacked information about returning values." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "~&Cannot return values from ~:[frame~;~:*~S~] since ~\n" " the debug information lacks details about returning ~\n" " values here." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "The debug-function has no debug-block information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S has no debug-block information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "The debug-function has no debug-variable information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S has no debug-variable information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "The debug-function has no lambda-list since argument debug-variables are\n" " unavailable." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S has no lambda-list information available." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S has :invalid or :unknown value in ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S names more than one valid variable in ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "All programmer errors from using the interface for building debugging\n" " tools inherit from this type." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&Unhandled debug-condition:~%~A" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&Invalid use of an unknown code-location -- ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S not in ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Invalid control stack pointer." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&Form was preprocessed for ~S,~% but called on ~S:~% ~S" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the name of the debug-variable. The name is the name of the symbol\n" " used as an identifier when writing the code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the package name of the debug-variable. This is the package name " "of\n" " the symbol used as an identifier when writing the code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the integer that makes debug-variable's name and package name " "unique\n" " with respect to other debug-variable's in the same function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the frame immediately above frame on the stack. When frame is\n" " the top of the stack, this returns nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the debug-function for the function whose call frame represents." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the code-location where the frame's debug-function will continue\n" " running when program execution returns to this frame. If someone\n" " interrupted this frame, the result could be an unknown code-location." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "#<Compiled-Frame ~S~:[~;, interrupted~]>" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "#<~A-Debug-Function ~S>" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the list of possible code-locations where execution may continue\n" " when the basic-block represented by debug-block completes its execution." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns whether debug-block represents elsewhere code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the breakpoint's function the system calls when execution encounters" "\n" " the breakpoint, and it is active. This is SETF'able." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns the breakpoint's what specification." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns the breakpoint's kind specification." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the debug-function representing information about the function\n" " corresponding to the code-location." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the number of top-level forms processed by the compiler before\n" " compiling this source. If this source is uncompiled, this is zero. " @@ -10326,7 +10610,7 @@ msgid "" " zero -- the compiler saw no other top-level forms before it." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns an indication of the type of source. The following are the possible" "\n" @@ -10336,7 +10620,7 @@ msgid "" " :stream from a non-file stream." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the actual source in some sense represented by debug-source, which\n" " is related to DEBUG-SOURCE-FROM:\n" @@ -10345,19 +10629,19 @@ msgid "" " :stream some descriptive string that's otherwise useless." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the universal time someone created the source. This may be nil if\n" " it is unavailable." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the time someone compiled the source. This is nil if the source\n" " is uncompiled." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This function returns the file position of each top-level form as an array\n" " if debug-source is from a :file. If DEBUG-SOURCE-FROM is :lisp or " @@ -10365,74 +10649,66 @@ msgid "" " this returns nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns whether object is a debug-source." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the top frame of the control stack as it was before calling this\n" " function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Flush all of the frames above FRAME, and renumber all the frames below\n" " FRAME." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the frame immediately below frame on the stack. When frame is\n" " the bottom of the stack, this returns nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "When set, the debugger foregoes making interpreted-frames, so you can\n" " debug the functions that manifest the interpreter." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Zero or more than one ~A variable in ~\n" " EVAL::INTERNAL-APPLY-LOOP?" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Return a string describing the foreign function near ADDRESS" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Foreign function call land" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Return t if COMPONENT contains code from assembly routines." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Return the name of the assembly routine at offset PC in COMPONENT.\n" "The result is a symbol or nil if the routine cannot be found." msgstr "" -#: target:code/debug-int.lisp -msgid "no debug info: ~A:~A" -msgstr "" - -#: target:code/debug-int.lisp -msgid "find the PC" -msgstr "" - -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns an a-list mapping catch tags to code-locations. These are\n" " code-locations at which execution would continue with frame as the top\n" " frame if someone threw to the corresponding tag." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Executes the forms in a context with block-var bound to each debug-block in\n" " debug-function successively. Result is an optional form to execute for\n" @@ -10441,7 +10717,7 @@ msgid "" " debug-function lacks debug-block information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Executes body in a context with var bound to each debug-variable in\n" " debug-function. This returns the value of executing result (defaults to\n" @@ -10451,35 +10727,35 @@ msgid "" " preserved argument information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the Common Lisp function associated with the debug-function. This\n" " returns nil if the function is unavailable or is non-existent as a user\n" " callable function object." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the name of the function represented by debug-function. This may\n" " be a string or a cons; do not assume it is a symbol." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns a debug-function that represents debug information for function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the kind of the function which is one of :optional, :external,\n" " :top-level, :cleanup, nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns whether there is any variable information for debug-function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns a list of debug-variables in debug-function having the same name\n" " and package as symbol. If symbol is uninterned, then this returns a " @@ -10491,7 +10767,7 @@ msgid "" " knows about its arguments." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns a list of debug-variables in debug-function whose names contain\n" " name-prefix-string as an intial substring. The result of this function " @@ -10501,7 +10777,7 @@ msgid "" " example, possibly debug-function only knows about its arguments." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns a list representing the lambda-list for debug-function. The list\n" " has the following structure:\n" @@ -10522,17 +10798,17 @@ msgid "" " condition when there is no argument list information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Malformed arguments description." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns whether basic-code-location is unknown. It returns nil when the\n" " code-location is known." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the debug-block containing code-location if it is available. Some\n" " debug policies inhibit debug-block information, and if none is available," @@ -10540,11 +10816,11 @@ msgid "" " then this signals a no-debug-blocks condition." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns the code-location's debug-source." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the number of top-level forms before the one containing\n" " code-location as seen by the compiler in some compilation unit. A\n" @@ -10552,18 +10828,18 @@ msgid "" " debug-sources." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Unknown code location? It should be known." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the number of the form corresponding to code-location. The form\n" " number is derived by a walking the subforms of a top-level form in\n" " depth-first order." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Return the kind of CODE-LOCATION, one of:\n" " :interpreted, :unknown-return, :known-return, :internal-error,\n" @@ -10571,48 +10847,40 @@ msgid "" " :non-local-entry" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns whether obj1 and obj2 are the same place in the code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Executes forms in a context with code-var bound to each code-location in\n" " debug-block. This returns the value of executing result (defaults to " "nil)." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "??? Can't get name of debug-block's function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the symbol from interning DEBUG-VARIABLE-NAME in the package named\n" " by DEBUG-VARIABLE-PACKAGE." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the value stored for debug-variable in frame. If the value is not\n" " :valid, then this signals an invalid-value error." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the value stored for debug-variable in frame. The value may be\n" " invalid. This is SETF'able." msgstr "" -#: target:code/debug-int.lisp -msgid "Local non-descriptor register access?" -msgstr "" - -#: target:code/debug-int.lisp -msgid "Local interior register access?" -msgstr "" - -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns three values reflecting the validity of debug-variable's value\n" " at basic-code-location:\n" @@ -10621,14 +10889,14 @@ msgid "" " :unknown The value's availability is unknown." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This returns a table mapping form numbers to source-paths. A source-path\n" " indicates a descent into the top-level-form form, going directly to the\n" " subform corressponding to the form number." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Form is a top-level form, and path is a source-path into it. This returns\n" " the form indicated by the source-path. Context is the number of enclosin" @@ -10640,11 +10908,11 @@ msgid "" " immediately before the form indicated by path." msgstr "" -#: target:code/debug.lisp target:code/debug-int.lisp +#: src/code/debug.lisp src/code/debug-int.lisp msgid "Source path no longer exists." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Return a function of one argument that evaluates form in the lexical\n" " context of the basic-code-location loc. PREPROCESS-FOR-EVAL signals a\n" @@ -10656,23 +10924,23 @@ msgid "" " ambiguous-variable-name, and frame-function-mismatch" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Evaluate Form in the lexical context of Frame's current code location,\n" " returning the results of the evaluation." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Find and return the debug catch tag for a given frame, if it exists." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Evaluate Form in the lexical context of Frame's current code location,\n" " returning from the current frame the results of the evaluation." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This creates and returns a breakpoint. When program execution encounters\n" " the breakpoint, the system calls hook-function. Hook-function takes the\n" @@ -10706,27 +10974,27 @@ msgid "" " This signals an error if what is an unknown code-location." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Cannot make a breakpoint at an unknown code location -- ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Breakpoints in interpreted code are currently unsupported." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" ":FUNCTION-END breakpoints are currently unsupported ~\n" " for the known return convention." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" ":function-end breakpoints are currently unsupported ~\n" " for interpreted-debug-functions." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This takes a function-end-cookie and a frame, and it returns whether the\n" " cookie is still valid. A cookie becomes invalid when the frame that\n" @@ -10740,7 +11008,7 @@ msgid "" " series of cookies is valid." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This causes the system to invoke the breakpoint's hook-function until the\n" " next call to DEACTIVATE-BREAKPOINT or DELETE-BREAKPOINT. The system " @@ -10748,29 +11016,29 @@ msgid "" " breakpoint hook functions in the opposite order that you activate them." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Cannot activate a deleted breakpoint -- ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "I don't know how you made this, but they're unsupported -- ~S" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "This stops the system from invoking the breakpoint's hook-function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This returns the user maintained info associated with breakpoint. This\n" " is SETF'able." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "This returns whether breakpoint is currently active." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This frees system storage and removes computational overhead associated " "with\n" @@ -10779,19 +11047,15 @@ msgid "" " never become active again." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Unknown breakpoint in ~S at offset ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Breakpoint that nobody wants?" msgstr "" -#: target:code/debug-int.lisp -msgid "BREAKPOINT-DO-DISPLACED-INST returned?" -msgstr "" - -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Make a bogus LRA object that signals a breakpoint trap when returned to. " "If\n" @@ -10802,7 +11066,7 @@ msgid "" " the PC offset for the trap instruction." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "The editor calls this remotely in the slave to set breakpoints. Package is\n" " the string name of a package or nil, and name-str is a string representin" @@ -10818,44 +11082,44 @@ msgid "" " the top-level form." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Editor installed breakpoint." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "We don't currently support breakpoints in interpreted code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "~%Cannot set breakpoints for editor when source file no ~\n" " longer exists:~% ~A." msgstr "" -#: target:code/debug-int.lisp -msgid "" -"Cannot set breakpoints for editor when ~\n" -" there is no start positions map." -msgstr "" - -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "~%While setting a breakpoint for the editor, noticed ~\n" " source file has been modified since compilation:~% ~A~@\n" " Using form offset instead of character position.~%" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp +msgid "" +"Cannot set breakpoints for editor when ~\n" +" there is no start positions map." +msgstr "" + +#: src/code/debug-int.lisp msgid "" "The editor calls this in the slave with a remote-object representing a\n" " code-location to set a breakpoint." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "The editor calls this remotely in the slave to delete a breakpoint." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This returns a code-location before the body of a function and after all\n" " the arguments are in place. If this cannot determine that location due " @@ -10863,185 +11127,115 @@ msgid "" " a lack of debug information, it returns nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~S code location at ~D" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "*PRINT-LEVEL* is bound to this value when debug prints a function call. If\n" " null, use *PRINT-LEVEL*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "*PRINT-LENGTH* is bound to this value when debug prints a function call. " "If\n" " null, use *PRINT-LENGTH*." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "default value for the verbose argument to print-frame-call. If set to >= 2," " source will be printed for all frames" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "This is T while in the debugger." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Pushes and pops/exits inside the debugger change this." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "If this is bound before the debugger is invoked, it is used as the stack\n" " top by the debugger." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "This is a function of no arguments that prints the debugger prompt\n" " on *debug-io*." msgstr "" -#: target:code/debug.lisp -msgid "" -"\n" -"The prompt is right square brackets, the number indicating how many\n" -" recursive command loops you are in.\n" -"Debug commands do not affect * and friends, but evaluation in the debug " -"loop\n" -" do affect these variables.\n" -"Any command may be uniquely abbreviated.\n" -"\n" -"Getting in and out of DEBUG:\n" -" Q throws to top level.\n" -" GO calls CONTINUE which tries to proceed with the restart " -"'continue.\n" -" RESTART invokes restart numbered as shown (prompt if not given).\n" -" ERROR prints the error condition and restart cases.\n" -" FLUSH toggles *flush-debug-errors*, which is initially t.\n" -" \n" -" The name of any restart, or its number, is a valid command, and is the " -"same\n" -" as using RESTART to invoke that restart.\n" -"\n" -"Changing frames:\n" -" U up frame D down frame T top frame B bottom frame\n" -"\n" -" F n goes to frame n.\n" -"\n" -"Inspecting frames:\n" -" BACKTRACE [n] shows n frames going down the stack.\n" -" L [prefix] lists locals starting with the given prefix in current " -"function.\n" -" P displays current function call.\n" -" PP verbose display of current function, with source.\n" -" SOURCE [n] displays frame's source form with n levels of enclosing " -"forms.\n" -" VSOURCE [n] displays frame's source form without any ellipsis.\n" -" DESCRIBE describe the current function.\n" -"\n" -"Breakpoints and steps:\n" -" LIST-LOCATIONS [{function | :c}] list the locations for breakpoints.\n" -" Specify :c for the current frame. Abbreviation: LL\n" -" LIST-BREAKPOINTS list the active breakpoints.\n" -" Abbreviations: LB, LBP\n" -" DELETE-BREAKPOINT [n] remove breakpoint n or all breakpoints.\n" -" Abbreviations: DEL, DBP \n" -" BREAKPOINT {n | :end | :start} [:break form] [:function function]\n" -" [{:print form}*] [:condition form] set a breakpoint.\n" -" Abbreviations: BR, BP\n" -" STEP [n] step to the next location or step n " -"times.\n" -"\n" -"Actions on frames:\n" -" DEBUG-RETURN expression\n" -" returns expression's values from the current frame, exiting the debugger" -".\n" -" Abbreviations: R\n" -"\n" -"Variables:\n" -" (DEBUG:VAR name [id]) Returns variable's value if possible. If multiple" -"\n" -" variables with the same name exist, use id to " -"select\n" -" one\n" -" (DEBUG:ARG n) Returns the n'th argument's value if possible.\n" -" Argument zero is the first argument.\n" -"\n" -"See the CMU Common Lisp User's Manual for more information.\n" -"" -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "When true, the LIST-LOCATIONS command only displays block start locations.\n" " Otherwise, all locations are displayed." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "If true, list the code location type in the LIST-LOCATIONS command." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%Unknown location: using block start.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&~S: ~S in ~S" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&~S: FUNCTION-START in ~S" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&~S: FUNCTION-END in ~S" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%Return values: ~S" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&*Step (to a breakpoint)*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "*Step*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&*Breakpoint hit*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Error in main-hook-function: unknown breakpoint" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Cannot step, in elsewhere code~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "Currently only compiled code can be stepped.~%~\n" " Trying to compile the passed form resulted in ~\n" " the following error:~% ~A" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~2&Stepping the form~% ~S~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&using the debugger. Type HELP for help.~2%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "STEP implements a debugging paradigm wherein the programmer is allowed\n" " to step through the evaluation of a form. We use the debugger's stepping" @@ -11054,7 +11248,7 @@ msgid "" " error is signalled." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "Show a listing of the call stack going down from the current frame. In the\n" " debugger, the current frame is indicated by the prompt. Count is how " @@ -11062,39 +11256,39 @@ msgid "" " frames to show." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "unavaliable-rest-arg" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "lambda-list-unavailable" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "error printing object {~X}" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "unused-arg" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "unavailable-arg" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%Source: " msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Error finding source: ~A" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Unable to display error condition~@[: ~A~]" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "This is either nil or a function of two arguments, a condition and the " "value\n" @@ -11106,86 +11300,70 @@ msgid "" " around the invocation." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~2&~A~% [Condition of type ~S]~2&" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "The CMU Common Lisp debugger. Type h for help." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&Restarts:~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~2&Debug (type H for help)~2%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while\n" " executing in the debugger. The 'flush' command toggles this." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "When non-NIL, becomes the system *READTABLE* in the debugger\n" " read-eval-print loop" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "When non-NIL, print the current frame when entering the debugger." msgstr "" -#: target:code/debug.lisp -msgid "~&Error flushed ..." +#: src/code/debug.lisp +msgid "Unknown stream-command -- ~S." msgstr "" -#: target:code/debug.lisp -msgid "Return to debug level ~D." +#: src/code/debug.lisp +msgid "Ambiguous debugger command: ~S." msgstr "" -#: target:code/debug.lisp -msgid "Unknown stream-command -- ~S." +#: src/code/debug.lisp +msgid "~&Your command, ~S, is ambiguous:~%" msgstr "" -#: target:code/debug.lisp -msgid "Ambiguous debugger command: ~S." +#: src/code/debug.lisp +msgid "Return to debug level ~D." msgstr "" -#: target:code/debug.lisp -msgid "~&Your command, ~S, is ambiguous:~%" +#: src/code/debug.lisp +msgid "~&Error flushed ..." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "When set (the default), evaluations in the debugger's command loop occur\n" " relative to the current frame's environment without the need of debugger\n" " forms that explicitly control this kind of evaluation." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Setting * to NIL -- was unbound marker." msgstr "" -#: target:code/debug.lisp -msgid "No known valid variables match ~S." -msgstr "" - -#: target:code/debug.lisp -msgid "Specification ambiguous:~%~{ ~A~%~}" -msgstr "" - -#: target:code/debug.lisp -msgid "Invalid variable ID, ~D, should have been one of ~S." -msgstr "" - -#: target:code/debug.lisp -msgid "Specify variable ID to disambiguate ~S. Use one of ~S." -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "Returns a variable's value if possible. Name is a simple-string or symbol.\n" " If it is a simple-string, it is an initial substring of the variable's " @@ -11208,7 +11386,23 @@ msgid "" " information. This is SETF'able." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp +msgid "No known valid variables match ~S." +msgstr "" + +#: src/code/debug.lisp +msgid "Specification ambiguous:~%~{ ~A~%~}" +msgstr "" + +#: src/code/debug.lisp +msgid "Invalid variable ID, ~D, should have been one of ~S." +msgstr "" + +#: src/code/debug.lisp +msgid "Specify variable ID to disambiguate ~S. Use one of ~S." +msgstr "" + +#: src/code/debug.lisp msgid "" "Returns the n'th argument's value if possible. Argument zero is the first\n" " argument in a frame's default printed representation. Count keyword/valu" @@ -11216,67 +11410,63 @@ msgid "" " pairs as separate arguments." msgstr "" -#: target:code/debug.lisp -msgid "No argument values are available." -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Unused arguments have no values." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Invalid argument value." msgstr "" -#: target:code/debug.lisp -msgid "Argument specification out of range -- ~S." +#: src/code/debug.lisp +msgid "No argument values are available." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Unused rest-arg before n'th argument." msgstr "" -#: target:code/debug.lisp -msgid "Invalid rest-arg before n'th argument." +#: src/code/debug.lisp +msgid "Argument specification out of range -- ~S." msgstr "" -#: target:code/debug.lisp -msgid "Invoking debugger command while outside the debugger." +#: src/code/debug.lisp +msgid "Invalid rest-arg before n'th argument." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Unknown debug command name -- ~S" msgstr "" -#: target:code/debug.lisp -msgid "~&Top of stack." +#: src/code/debug.lisp +msgid "Invoking debugger command while outside the debugger." msgstr "" -#: target:code/debug.lisp -msgid "~&Bottom of stack." +#: src/code/debug.lisp +msgid "~&Top of stack." msgstr "" -#: target:code/debug.lisp -msgid "Frame number: " +#: src/code/debug.lisp +msgid "~&Bottom of stack." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "You are here." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Bottom of stack encountered." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Top of stack encountered." msgstr "" -#: target:code/debug.lisp -msgid "debug-return: " +#: src/code/debug.lisp +msgid "Frame number: " msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "~@<can't find a tag for this frame ~\n" " ~2I~_(hint: try increasing the DEBUG optimization " @@ -11284,129 +11474,133 @@ msgid "" " and recompiling)~:@>" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp +msgid "debug-return: " +msgstr "" + +#: src/code/debug.lisp msgid "No restart named continue." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Restart: " msgstr "" -#: target:code/debug.lisp -msgid "~S is invalid as a restart name.~%" +#: src/code/debug.lisp +msgid "No such restart." msgstr "" -#: target:code/debug.lisp -msgid "No such restart." +#: src/code/debug.lisp +msgid "~S is invalid as a restart name.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "This controls how many lines the debugger's help command prints before\n" " printing a prompting line to continue with output." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: " msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "No local variables ~@[starting with ~A ~]~\n" " in function." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "All variables ~@[starting with ~A ~]currently ~\n" " have invalid values." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "No variable information available." msgstr "" -#: target:code/debug.lisp -msgid "No start positions map." -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Source file no longer exists:~% ~A." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%; File: ~A~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "~%; File has been modified since compilation:~%; ~A~@\n" " ; Using form offset instead of character position.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp +msgid "No start positions map." +msgstr "" + +#: src/code/debug.lisp msgid "Couldn't continue." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "::FUNCTION-START " msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid " *Active*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid " *Continue here*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&::FUNCTION-END *Active* " msgstr "" -#: target:code/debug.lisp -msgid "Location number, :start, or :end: " -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Note: previous breakpoint removed.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&Added." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp +msgid "Location number, :start, or :end: " +msgstr "" + +#: src/code/debug.lisp msgid "Breakpoint ~S removed.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Breakpoint doesn't exist." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "All breakpoints deleted.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Errors now flushed." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Errors now create nested debug levels." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Can't figure out the function for this frame." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "The debugger's EDIT-SOURCE command only works in slave Lisps ~\n" " connected to a Hemlock editor." msgstr "" -#: target:code/query.lisp +#: src/code/query.lisp msgid "" "Y-OR-N-P prints the message, if any, and reads characters from *QUERY-IO*\n" " until the user enters y or Y as an affirmative, or either n or N as a\n" @@ -11414,28 +11608,28 @@ msgid "" " enter any other characters." msgstr "" -#: target:code/query.lisp +#: src/code/query.lisp msgid "Type \"y\" for yes or \"n\" for no. " msgstr "" -#: target:code/query.lisp +#: src/code/query.lisp msgid "" "YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the \n" " input buffer, beeps, and uses READ-LINE to get the strings \n" " YES or NO." msgstr "" -#: target:code/query.lisp +#: src/code/query.lisp msgid "Type \"yes\" for yes or \"no\" for no. " msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "" "Generate an random state vector from the given SEED. The seed can be\n" " either an integer or a vector of (unsigned-byte 32)" msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "" "Make a random state object. If STATE is not supplied, return a copy\n" " of the default random state. If STATE is a random state, then return a\n" @@ -11443,84 +11637,84 @@ msgid "" " the universal time or /dev/urandom if available." msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "Argument is not a RANDOM-STATE, T or NIL: ~S" msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "" "Generate a uniformly distributed pseudo-random number between zero\n" " and Arg. State, if supplied, is the random state to use." msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "Argument is not a positive integer or a positive float: ~S" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "This is bound to the returned values when evaluating :BREAK-AFTER and\n" " :PRINT-AFTER forms." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "If the trace indentation exceeds this value, then indentation restarts at\n" " 0." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "The default value for the :ENCAPSULATE option to trace." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "List of package names. Encapsulate functions from these packages\n" " by default. This should at least include the packages of functions\n" " used by TRACE, directly or indirectly." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Can't trace special form ~S." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Breaking ~A traced call to ~S:" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "~S returned" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Function ~S already TRACE'd, retracing it." msgstr "" -#: target:code/ntrace.lisp -msgid "Tracing shared code for ~S:~% ~S" -msgstr "" - -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "~S name is not a defined global function: ~S" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Can't use encapsulation to trace anonymous function ~S." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Can't use encapsulation to trace local flet/labels function ~S." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp +msgid "Tracing shared code for ~S:~% ~S" +msgstr "" + +#: src/code/ntrace.lisp msgid "Missing argument to ~S TRACE option." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Unknown TRACE option: ~S" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "TRACE {Option Global-Value}* {Name {Option Value}*}*\n" " TRACE is a debugging tool that prints information when specified function" @@ -11619,65 +11813,170 @@ msgid "" " -ALL forms are evaluated in the null environment." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Function is not TRACE'd -- ~S." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "Removes tracing from the specified functions. With no args, untraces all\n" " functions." msgstr "" -#: target:code/sort.lisp +#: src/code/profile.lisp +msgid "List of functions that are currently being timed." +msgstr "" + +#: src/code/profile.lisp +msgid "A list of profiled functions which weren't called." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"If the number of profiled functions that were not called is less than\n" +"this, the functions are listed. If NIL, then always list the functions." +msgstr "" + +#: src/code/profile.lisp +msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)" +msgstr "" + +#: src/code/profile.lisp +msgid "dfixnum became too big ~a/~a + ~a/~a" +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Ensure that a profile fwrapper for functions with NREQ required\n" +" arguments and optional arguments according to OPTIONALS-P exists.\n" +" Return the name of that fwrapper." +msgstr "" + +#: src/code/profile.lisp +msgid "Return the profile FWRAPPER object on function NAME, if any." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Return the PROFILE-INFO for function NAME.\n" +" Signal an error if NAME is not profiled." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"PROFILE Name*\n" +" Wraps profiling code around the named functions. As in TRACE, the names " +"are\n" +" not evaluated. If a function is already profiled, then unprofile and\n" +" reprofile (useful to notice function redefinition.) If a name is " +"undefined,\n" +" then we give a warning and ignore it.\n" +"\n" +" CLOS methods can be profiled by specifying names of the form\n" +" (METHOD <name> <qualifier>* (<specializer>*)), like in TRACE.\n" +"\n" +" :METHODS Function-Form is a way of specifying that all methods of a\n" +" generic functions should be profiled. The Function-Form is\n" +" evaluated immediately, and the methods of the resulting generic\n" +" function are profiled.\n" +"\n" +" If :CALLERS T appears, subsequent names have counts of the most\n" +" common calling functions recorded.\n" +"\n" +" See also UNPROFILE, REPORT-TIME and RESET-TIME." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"PROFILE-ALL\n" +"\n" +" Wraps profiling code around all functions in PACKAGE, which defaults\n" +" to *PACKAGE*. If a function is already profiled, then unprofile and\n" +" reprofile (useful to notice function redefinition.) If a name is\n" +" undefined, then we give a warning and ignore it. If CALLERS-P is T\n" +" names have counts of the most common calling functions recorded.\n" +"\n" +" When called with arguments :METHODS T, profile all methods of all\n" +" generic function having names in the given package. Generic functions\n" +" themselves, that is, their dispatch functions, are left alone.\n" +"\n" +" See also UNPROFILE, REPORT-TIME and RESET-TIME. " +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Unwraps the profiling code around the named functions. Names defaults to\n" +" the list of all currently profiled functions." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Resets the time counter for the named functions. Names defaults to the " +"list\n" +" of all currently profiled functions." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Reports the time spent in the named functions. Names defaults to the list\n" +" of all currently profiled functions." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Reports the time spent in the named functions. Names defaults to the list\n" +" of all currently profiled functions. Uses printfunction." +msgstr "" + +#: src/code/sort.lisp msgid "" "Destructively sorts sequence. Predicate should returns non-Nil if\n" " Arg1 is to precede Arg2." msgstr "" -#: target:code/sort.lisp +#: src/code/sort.lisp msgid "~S is not a sequence." msgstr "" -#: target:code/sort.lisp +#: src/code/sort.lisp msgid "" "The sequences Sequence1 and Sequence2 are destructively merged into\n" " a sequence of type Result-Type using the Predicate to order the " "elements." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "The number of internal time units that fit into a second. See\n" " Get-Internal-Real-Time and Get-Internal-Run-Time." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Return the real time in the internal time format. This is useful for\n" " finding elapsed time. See Internal-Time-Units-Per-Second." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Return the run time in the internal time format. This is useful for\n" " finding CPU usage." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Returns a single integer for the current time of\n" " day in universal time format." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Returns nine values specifying the current time as follows:\n" " second, minute, hour, date, month, year, day of week (0 = Monday), T\n" " (daylight savings times) or NIL (standard time), and timezone." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Converts a universal-time to decoded time format returning the following\n" " nine values: second, minute, hour, date, month, year, day of week (0 =\n" @@ -11685,23 +11984,23 @@ msgid "" " Completely ignores daylight-savings-time when time-zone is supplied." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "The time values specified in decoded format are converted to \n" " universal time, which is returned." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "Evaluates the Form and prints timing information on *Trace-Output*." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "TIME form in a non-null environment, forced to interpret.~@\n" " Compiling entire form will produce more accurate times." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Evaluation took:~% ~\n" " ~S seconds of real time~% ~\n" @@ -11709,7 +12008,7 @@ msgid "" " ~S seconds of system run time~% " msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "~:D ~A cycle~% ~\n" " ~@[[Run times include ~S seconds GC run time]~% ~]" @@ -11718,437 +12017,437 @@ msgid_plural "" " ~@[[Run times include ~S seconds GC run time]~% ~]" msgstr[0] "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "~S page fault and~% " msgid_plural "~S page faults and~% " msgstr[0] "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "~:D byte consed.~%" msgid_plural "~:D bytes consed.~%" msgstr[0] "" -#: target:code/weak.lisp +#: src/code/weak.lisp msgid "Allocates and returns a weak pointer which points to OBJECT." msgstr "" -#: target:code/weak.lisp +#: src/code/weak.lisp msgid "" "If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.\n" " If the referent of WEAK-POINTER has been garbage collected, returns\n" " the values NIL and NIL." msgstr "" -#: target:code/weak.lisp +#: src/code/weak.lisp msgid "Updates WEAK-POINTER to point to a new object." msgstr "" -#: target:code/final.lisp +#: src/code/final.lisp msgid "" "Arrange for FUNCTION to be called when there are no more references to\n" " OBJECT. FUNCTION takes no arguments." msgstr "" -#: target:code/final.lisp +#: src/code/final.lisp msgid "Cancel any finalization registers for OBJECT." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Depth of recursive descriptions allowed." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "If non-nil, descriptions may provide interpretations of information and\n" " pointers to additional information. Normally nil." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "*print-level* gets bound to this inside describe. If null, use\n" " *print-level*" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "*print-length* gets bound to this inside describe. If null, use\n" " *print-length*." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Number of spaces that sets off each line of a recursive description." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Used to tell whether we are doing a recursive describe." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Used to implement recursive description cutoff. Don't touch." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "An output stream used by Describe for indenting and stuff." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "List of all objects describe within the current top-level call to describe." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "The last object passed to describe." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Prints a description of the object X." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "*describe-level* should be a nonnegative integer - ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is a ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its code is #x~4,'0x." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its name is ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a ~:[high (leading)~;low (trailing)~] surrogate character." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is a ~(~A~) of type ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is a ~:[~;displaced ~]vector of length ~D." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It has a fill pointer, currently ~d" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It has no fill pointer." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is ~:[an~;a displaced~] array of rank ~A" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~%Its dimensions are ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its element type is specialized to ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is adjustable." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is static." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a prime number." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a composite number." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its components are ~S and ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is an ~A hash table." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its size is ~D buckets." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its rehash-size is ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its rehash-threshold is ~S." msgstr "" -#: target:pcl/env.lisp target:code/describe.lisp +#: src/pcl/env.lisp src/code/describe.lisp msgid "~&It currently holds ~d entries." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is weak ~A table." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~d symbols total: ~d internal and ~d external." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~@(~A documentation:~)~& ~A" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its ~(~A~) argument types are:~% ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its result type is:~% ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "~&It is currently declared ~(~A~);~\n" " ~:[no~;~] expansion is available." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~@(~@[~A ~]arguments:~%~)" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid " There are no arguments." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its closure environment is:" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its definition is:~% ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&On ~A it was compiled from:" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~A~% Created: " msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~& Comment: ~A" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid " There is no argument information available." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Macro-function: ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Function: ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~S is a function." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is an unknown type of function." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~A is an ~A symbol in the ~A package." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~A is an uninterned symbol." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~@<It is an alien at #x~8,'0X of type ~3I~:_~S.~:>~%" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~@<Its current value is ~3I~:_~S.~:>" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a ~A with expansion: ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a ~A; its value is ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a ~A; no current value." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its declared type is ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Special form" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Structure" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Type" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Setf macro" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Documentation on the ~(~A~):~%~A" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It names a class ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It names a PCL class ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It names a type specifier." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its ~S property is ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is defined in:~&~A" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%That slot is unbound.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%This object contains nothing to inspect.~%~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%Enter a VALID number (~:[0-~D~;0~]).~%~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%Bottom of Stack.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%Returning to INSPECTOR.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "TTY-Inspector Help:" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " R - recompute current object." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " D - redisplay current object." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " U - Move upward through the object stack." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " <number> - Inspect this slot." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " Q, E - Quit TTY-INSPECTOR." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " ?, H, Help - Show this help." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Unbound" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~s is a symbol.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Value" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Function" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Plist" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Package" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~s is an instance of ~s.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "- (slot is unbound)" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~s is a ~(~A~).~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Function ~s.~@[~%Argument List: ~a~]." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Object is a ~:[~;displaced ~]vector of length ~d.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Object is a LIST of length ~d.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Object is a CONS.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "" "Object is ~:[a displaced~;an~] array of ~a.~%~\n" " Its dimensions are ~s.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Object is an atom.~%" msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "" "Format-Universal-Time formats a string containing the time and date\n" " given by universal-time in a common manner. The destination is any\n" @@ -12164,27 +12463,27 @@ msgid "" " printing of the obvious part of the time/date." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Not a valid format destination." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Universal-Time should be an integer." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Timezone should be a rational between -24 and 24." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Timezone is not a second (1/3600) multiple." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Unrecognized :style keyword value." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "" "Format-Decoded-Time formats a string containing decoded-time\n" " expressed in a humanly-readable manner. The destination is any\n" @@ -12198,79 +12497,79 @@ msgid "" " parts of the string." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Seconds should be an integer between 0 and 59." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Minutes should be an integer between 0 and 59." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Hours should be an integer between 0 and 23." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Day should be an integer between 1 and 31." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Month should be an integer between 1 and 12." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Hours should be an non-negative integer." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Timezone should be an integer between 0 and 32." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "" "If t, an error will be signalled if parse-time is unable\n" " to determine the time/date format of the string." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "\"~A\" is not a recognized word or abbreviation." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "" "Can't parse time/date string.~%>>> ~A~\n" " ~%~VT^-- Bogus character encountered here." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Unrecognized symbol: ~A" msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "~D is not an AM hour, dummy." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "~A isn't AM/PM - this shouldn't happen." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Invalid number of days (~D) for month ~D in ~D" msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Ignore." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Specified day (~@(~A~)) doesn't match actual day (~@(~A~))" msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Unrecognized symbol in form list: ~A." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "" "Tries very hard to make sense out of the argument time-string and\n" " returns a single integer representing the universal time if\n" @@ -12283,33 +12582,33 @@ msgid "" " are 00:00:00 on the current date, current time-zone." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "\"~A\" is not a recognized time/date format." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Return any available status information on child processed. " msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "List of process structures for all active processes." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "Return the current status of process. The result is one of :running,\n" " :stopped, :exited, :signaled." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Wait for PROC to quit running for some reason. Returns PROC." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "TIOCPGRP ioctl failed: ~S" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "Hand SIGNAL to PROC. If whom is :pid, use the kill Unix system call. If\n" " whom is :process-group, use the killpg Unix system call. If whom is\n" @@ -12318,42 +12617,42 @@ msgid "" " in the foreground." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Returns T if the process is still alive, NIL otherwise." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "Close all streams connected to PROC and stop maintaining the status slot." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "List of file descriptors to close when RUN-PROGRAM exits due to an error." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "List of file descriptors to close when RUN-PROGRAM returns in the parent." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "List of handlers installed by RUN-PROGRAM." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Returns the master fd, the slave fd, and the name of the tty" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not find a pty." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not UNIX:UNIX-DUP ~D: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "RUN-PROGRAM creates a new process and runs the unix program in the\n" " file specified by the simple-string PROGRAM. ARGS are the standard\n" @@ -12414,71 +12713,78 @@ msgid "" " process changes. The function takes the process as an argument." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "All args to program must be simple strings -- ~S." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "No such program: ~S" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not fork child process: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not select on sub-process: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not read input from sub-process: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not open \"/dev/null\": ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not create pipe: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Direction must be either :INPUT or :OUTPUT, not ~S" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not duplicate file descriptor: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not open a temporary file in /tmp" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Cound not create pipe: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Invalid option to run-program: ~S" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp +msgid "" +"If not NIL, this must be a list of two things:\n" +"a LET-like macro, and a SETQ-like macro, which perform LOOP-style destructur" +"ing." +msgstr "" + +#: src/code/loop.lisp msgid "LOOP-BODY called with non-synched before- and after-loop lists." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~?~%Current LOOP context:~{ ~S~}." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "LOOP couldn't verify that ~S is a subtype of the required type ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Specified data type ~S is not a subtype of ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "Causes the iteration to terminate \"normally\", the same as implicit\n" "termination by an iteration driving clause, or by use of WHILE or\n" @@ -12486,226 +12792,226 @@ msgid "" "collected result will be returned as the value of the LOOP." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where LOOP keyword expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S is an unknown keyword in LOOP macro." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "LOOP source code ran out when another token was expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Compound form expected, but found ~A." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "LOOP code ran out where a form was expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "LOOP clause is providing a value for the iteration,~@\n" " however one was already established by a ~S clause." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a " "conditional." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "This LOOP clause is not permitted with anonymous collectors." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "This anonymous collection LOOP clause is not permitted with aggregate " "booleans." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern " "expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where a LOOP keyword or LOOP type keyword expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Destructuring type pattern ~S contains unrecognized type keyword ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Destructuring type pattern ~S doesn't match variable pattern ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Duplicated LOOP iteration variable ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Duplicated variable ~S in LOOP parallel binding." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Bad variable ~S somewhere in LOOP." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Variable ~S has already been used" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Invalid LOOP variable passed in: ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where keyword expected getting LOOP clause after ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S does not introduce a LOOP clause that can follow ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S is an invalid name for your LOOP." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "The NAMED ~S clause occurs too late." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Value accumulation recipient name, ~S, is not a symbol." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Variable ~S cannot be used in INTO clause" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "Incompatible kinds of LOOP value accumulation specified for collecting~@\n" " ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "Unequal datatypes specified in different LOOP value accumulations~@\n" " into ~S: ~S and ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Iteration in LOOP follows body code." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S is an unknown keyword in FOR or AS clause in LOOP." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Use of QUOTE around stepping function in LOOP will be left verbatim." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where ITS or EACH expected in LOOP iteration path syntax." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Unrecognizable LOOP iteration path syntax. Missing EACH or THE?" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where a LOOP iteration path name was expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S is not the name of a LOOP iteration path." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "\"Inclusive\" iteration is not possible with the ~S LOOP iteration path." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Unused USING variables: ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "Value passed back by LOOP iteration path function for path ~S has invalid " "length." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "A ~S prepositional phrase occurs multiply for some LOOP clause." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Preposition ~S used when some other preposition has subsumed it." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "The variable substitution for ~S occurs twice in a USING phrase,~@\n" " with ~S and ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "~S invalid preposition in sequencing or sequence path.~@\n" " Invalid prepositions specified in iteration path descriptor or " "something?" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Conflicting stepping directions in LOOP sequencing path" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Missing OF or IN phrase in sequence path" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Don't know where to start stepping." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Too many prepositions!" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Missing OF or IN in ~S iteration path." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Unknown preposition ~S" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Destructuring is not valid for package symbol iteration." msgstr "" -#: target:code/stream-vector-io.lisp +#: src/code/stream-vector-io.lisp msgid "endian-swap ~a is illegal for element-type of vector ~a" msgstr "" -#: target:code/stream-vector-io.lisp +#: src/code/stream-vector-io.lisp msgid "" "Read from Stream into Vector. The Start and End indices of Vector\n" " is in octets, and must be an multiple of the octets per element of\n" @@ -12713,11 +13019,11 @@ msgid "" " endian swapping to be done. " msgstr "" -#: target:code/stream-vector-io.lisp +#: src/code/stream-vector-io.lisp msgid "Wrong vector type ~a for read-vector on stream ~a." msgstr "" -#: target:code/stream-vector-io.lisp +#: src/code/stream-vector-io.lisp msgid "" "Write Vector to Stream. The Start and End indices of Vector is in\n" " octets, and must be an multiple of the octets per element of the\n" @@ -12725,61 +13031,33 @@ msgid "" " endian swapping to be done. " msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Could not create temporary file ~S: ~A" msgstr "" -#: target:code/foreign.lisp -msgid "Not enough memory left." -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Make sure the header starts with the ELF magic value." msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Return the `osabi' field in the padding of the ELF file." msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Given a file type number, determine whether the file is executable." msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Make sure the header starts with the mach-o magic value." msgstr "" -#: target:code/foreign.lisp -msgid ";;; Loading object file...~%" -msgstr "" - -#: target:code/foreign.lisp -msgid "Could not open ~S: ~A" -msgstr "" - -#: target:code/foreign.lisp -msgid "~A is not an ELF file." -msgstr "" - -#: target:code/foreign.lisp -msgid "~A is not a ~A executable, it's a ~A executable." -msgstr "" - -#: target:code/foreign.lisp -msgid "~A is not executable." -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "" "Parse symbol table file created by load-foreign script. Modified\n" "to skip undefined symbols which don't have an address." msgstr "" -#: target:code/foreign.lisp -msgid ";;; Parsing symbol table...~%" -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "" "Load-foreign loads a list of C object files into a running Lisp. The files\n" " argument should be a single file or a list of files. The files may be\n" @@ -12796,367 +13074,345 @@ msgid "" " the linker. The default is the environment passed to Lisp." msgstr "" -#: target:code/foreign.lisp -msgid ";;; Running library:load-foreign.csh...~%" -msgstr "" - -#: target:code/foreign.lisp -msgid "Object file is wrong format, so can't load-foreign:~\n" -" ~% ~S" -msgstr "" - -#: target:code/foreign.lisp -msgid "Object file is not relocatable, so can't load-foreign:~\n" -" ~% ~S" -msgstr "" - -#: target:code/foreign.lisp -msgid "Could not run library:load-foreign.csh" -msgstr "" - -#: target:code/foreign.lisp -msgid "library:load-foreign.csh failed:~%~A" -msgstr "" - -#: target:code/foreign.lisp -msgid ";;; Done.~%" -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Lazy function call binding" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Immediate function call binding" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Mask of binding time value" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "" "If set the symbols of the loaded object and its dependencies are\n" " made visible as if the object were linked directly into the program" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp +msgid "" +"Load C object files into the running Lisp. The FILES argument\n" +"should be a single file or a list of files. The files may be specified\n" +"as namestrings or as pathnames. The LIBRARIES argument should be a\n" +"list of library files as would be specified to ld. They will be\n" +"searched in the order given. The default is just \"-lc\", i.e., the C\n" +"library. The BASE-FILE argument is used to specify a file to use as\n" +"the starting place for defined symbols. The default is the C start up\n" +"code for Lisp. The ENV argument is the Unix environment variable\n" +"definitions for the invocation of the linker. The default is the\n" +"environment passed to Lisp." +msgstr "" + +#: src/code/foreign.lisp msgid "Can't open global symbol table: ~S" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Can't open object ~S: ~S" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Couldn't open library ~S: ~S" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Reloaded library ~S~%" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Ignore library and continue" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Try reloading again" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Choose new library path" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Enter new library path: " msgstr "" -#: target:code/foreign.lisp -msgid "" -"Load C object files into the running Lisp. The FILES argument\n" -"should be a single file or a list of files. The files may be specified\n" -"as namestrings or as pathnames. The LIBRARIES argument should be a\n" -"list of library files as would be specified to ld. They will be\n" -"searched in the order given. The default is just \"-lc\", i.e., the C\n" -"library. The BASE-FILE argument is used to specify a file to use as\n" -"the starting place for defined symbols. The default is the C start up\n" -"code for Lisp. The ENV argument is the Unix environment variable\n" -"definitions for the invocation of the linker. The default is the\n" -"environment passed to Lisp." +#: src/code/foreign.lisp +msgid ";;; Opening as shared library ~A ...~%" msgstr "" -#: target:code/foreign.lisp -msgid ";;; Opening as shared library ~A ...~%" +#: src/code/foreign.lisp +msgid ";;; Done.~%" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid ";;; Trying as object file ~A...~%" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid ";;; Running ~A...~%" msgstr "" -#: target:code/foreign.lisp -msgid "File does not exist: ~A." -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Could not run ~A" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "~A failed:~%~A" msgstr "" -#: target:code/internet.lisp +#: src/code/foreign.lisp +msgid "File does not exist: ~A." +msgstr "" + +#: src/code/internet.lisp msgid "AList of socket kinds and protocol values." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Invalid kind (~S) for internet domain sockets." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "" "Return a host-entry for the given host. The host may be an address\n" " string or an IP address in host order." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error creating socket: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error connecting socket to [~A]: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error binding socket to path ~a: ~a" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error listening to socket: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error accepting a connection: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "bind Socket to (local) Host and Port" msgstr "" -#: target:code/internet.lisp -msgid "Unknown host: ~S." +#: src/code/internet.lisp +msgid "Error binding socket to port ~A: ~A" msgstr "" -#: target:code/internet.lisp -msgid "Error binding socket to port ~A: ~A" +#: src/code/internet.lisp +msgid "Unknown host: ~S." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "The host may be an address string or an IP address in host order." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error connecting socket to [~A:~A]: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Get an integer value socket option." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Set an integer value socket option." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error ~S setting socket option on socket ~D." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error closing socket: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Return the peer host address and port in host order." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error ~s getting peer host and port on FD ~d." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error ~s getting socket host and port on FD ~d." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Ignore it" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error recving oob data on ~A: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "No oob handler defined for ~S on ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Got a SIGURG, but couldn't find any out-of-band data." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Remove any handlers for CHAR on FD." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Remove all handlers for FD." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error sending ~S OOB to across ~A: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "" "A packaging of the unix recvfrom call. Returns three values:\n" "bytecount, source address as integer, and source port. bytecount\n" "can of course be negative, to indicate faults." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "A packaging of the unix sendto call. Return value like sendto" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "" "A packaging of the unix shutdown call. An error is signaled if shutdown " "fails." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error on shutdown of socket: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "" "Return a network stream. HOST may be an address string or an integer\n" "IP address." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Unknown host format: ~S." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "network connection to ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "network connection from ~D.~D.~D.~D:~D" msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "The wire the form we are currently evaluating came across." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Unique identifier for this host." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Unique identifier for this process." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Hash table mapping local objects to the corresponding remote id." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Hash table mapping remote id's to the curresponding local object." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Next available id for remote objects." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "There is a problem with ~A." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Received EOF on ~A." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Error ~A ~A: ~A." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Returns T iff the given remote object is defined locally." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Returns T iff the two objects refer to the same (eq) object in the same\n" " process." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Return the associated value for the given remote object. It is an error if\n" " the remote object was not created in this process or if\n" " FORGET-REMOTE-TRANSLATION has been called on this remote object." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "~S is defined is a different process." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Use the value of NIL" msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "No value for ~S -- FORGET-REMOTE-TRANSLATION was called to early." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Convert the given local object to a remote object." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Forget the translation from the given local to the corresponding remote\n" "object. Passing that remote object to remote-object-value will new return " "NIL." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Return T iff anything is in the input buffer or available on the socket." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "listening to" msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Read data off the socket, filling the input buffer. The buffer is cleared\n" "first. If fill-input-buffer returns, it is guarenteed that there will be at\n" @@ -13164,15 +13420,15 @@ msgid "" "is signaled." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "reading" msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Return the next byte from the wire." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Read a number off the wire. Numbers are 4 bytes in network order.\n" "The optional argument controls weather or not the number should be considere" @@ -13180,96 +13436,92 @@ msgid "" "signed (defaults to T)." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and\n" " return it." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Reads a string from the wire. The first four bytes spec the size." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Reads the next object from the wire and returns it." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Attempt to read symbol, ~A, of wire into non-existent ~\n" " package, ~A." msgstr "" -#: target:code/wire.lisp -msgid "writing" -msgstr "" - -#: target:code/wire.lisp -msgid "Not everything wrote." -msgstr "" - -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Send any info still in the output buffer down the wire and clear it. " "Nothing\n" "harmfull will happen if called when the output buffer is empty." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp +msgid "writing" +msgstr "" + +#: src/code/wire.lisp +msgid "Not everything wrote." +msgstr "" + +#: src/code/wire.lisp msgid "Output the given (8-bit) byte on the wire." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Output the given (32-bit) number on the wire." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Outputs an arbitrary integer, but less effeciently than WIRE-OUTPUT-NUMBER." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Output the given string. First output the length using WIRE-OUTPUT-NUMBER,\n" "then output the bytes." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Output the given object on the given wire. If cache-it is T, enter this\n" "object in the cache for future reference." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Error: Cannot output objects of type ~s across a wire." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Send the function and args down the wire as a funcall." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "AList of wire . remote-wait structs" msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Evaluates the given forms remotly. No values are returned, as the remote\n" "evaluation is asyncronus." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Bind VARS to the multiple values of FORM (which is executed remotely). The\n" "forms in BODY are only executed if the remote function returned (as apposed\n" "to aborting due to a throw)." msgstr "" -#: target:code/remote.lisp -msgid "Remote server unwound" -msgstr "" - -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Execute the single form remotly. The value of the form is returned.\n" " The optional form on-server-unwind is only evaluated if the server " @@ -13277,7 +13529,7 @@ msgid "" " instead of returning." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Create a request server on the given port. Whenever anyone connects to it,\n" " call the given function with the newly created wire and the address of " @@ -13288,51 +13540,47 @@ msgid "" " DESTROY-REQUEST-SERVER accepts to kill the request server." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "Quit accepting connections to the given request server." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Connect to a remote request server addressed with the given host and port\n" " pair. This returns the created wire." msgstr "" -#: target:code/setf-funs.lisp -msgid "Hairy setf expander for function ~S." -msgstr "" - -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "Controls compiling DEFSTRUCT :print-function and :print-method\n" " options according to ANSI spec. MUST be NIL to compile CMUCL & PCL" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Allocate a new instance with LENGTH data slots." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Given an instance, return its length." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Return the value from the INDEXth slot of INSTANCE. This is SETFable." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Set the INDEXth slot of INSTANCE to NEW-VALUE." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Class not yet defined or was undefined: ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Class is not a structure class: ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "DEFSTRUCT {Name | (Name Option*)} {Slot | (Slot [Default] {Key Value}*)}\n" " Define the structure type Name. Instances are created by MAKE-<name>, " @@ -13367,109 +13615,109 @@ msgid "" " If true, no setter function is defined for this slot." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "defining structure ~A" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Disable package's definition lock then continue" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Defstruct already names a declaration: ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Can't have more than one :INCLUDE option." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "~S is a bad :TYPE for Defstruct." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "The Defstruct option :NAMED takes no arguments." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Unknown DEFSTRUCT option~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Unrecognized DEFSTRUCT option: ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Can't specify :OFFSET unless :TYPE is specified." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Silly to specify :PRINT-FUNCTION with :TYPE." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Silly to specify :MAKE-LOAD-FORM-FUN with :TYPE." msgstr "" -#: target:code/defstruct.lisp -msgid "" -"Keyword slot name indicates probable syntax ~\n" -" error in DEFSTRUCT -- ~S." -msgstr "" - -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Duplicate slot name ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Slot ~S must be read-only in subtype ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp +msgid "" +"Keyword slot name indicates probable syntax ~\n" +" error in DEFSTRUCT -- ~S." +msgstr "" + +#: src/code/defstruct.lisp msgid ":TYPE option mismatch between structures ~S and ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid ":TYPE'd defstruct ~S not found for inclusion." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "(:CONSTRUCTOR NIL) combined with other :CONSTRUCTORs." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "~@<Non-overwritten accessor ~S does not access ~\n" " slot with name ~S (accessing an inherited slot ~\n" " instead).~:@>" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Obsolete structure accessor function called." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Structure for accessor ~S is not a ~S:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Structure for setter ~S is not a ~S:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "New-Value for setter ~S is not a ~S:~% ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Structure for copier is not a ~S:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Shouldn't happen! Some strange thing in LAYOUT-INFO:~\n" " ~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "Incompatibly redefining slots of structure class ~S~@\n" " Make sure any uses of affected accessors are recompiled:~@\n" @@ -13478,163 +13726,147 @@ msgid "" " ~@[ These slots were deleted:~% ~S~%~]" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Redefining class ~S incompatibly with the current ~\n" " definition." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Invalidate already loaded code and instances, use new definition." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Previously loaded ~S accessors will no longer work." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "Any old ~S instances will be in a bad way.~@\n" " I hope you know what you're doing..." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Removing old subclasses of ~S:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Return a copy of Structure with the same (EQL) slot values." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Copying an obsolete structure:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Structures of type ~S cannot be dumped as constants." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "A list of tests that do argument counting at expansion time." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Let bindings that are done to make lambda-list parsing possible." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Let bindings that the user has explicitly supplied." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Unsupplied optional and keyword arguments get this value defaultly." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "" "Returns as multiple-values a parsed body, any local-declarations that\n" " should be made where this body is inserted, and a doc-string if there is\n" " one." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "&Whole must appear first in ~S lambda-list." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "&environment not valid with ~S." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "&environment only valid at top level of lambda-list." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Invalid ~a" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Ignore extra noise." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "" "More than variable, initform, and suppliedp ~\n" " in &optional binding - ~S" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Non-symbol in lambda-list - ~S." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Illegal optional variable name: ~S" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "" "Takes a non-keyword symbol, symbol, and returns the corresponding keyword." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Illegal or ill-formed ~A argument in ~A~@[ ~S~]." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Error while parsing arguments to ~A in ~S:~%" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Error while parsing arguments to ~A ~S:~%" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Bogus sublist:~% ~S~%to satisfy lambda-list:~% ~:S~%" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "" "Invalid number of elements in:~% ~:S~%~\n" " to satisfy lambda-list:~% ~:S~%" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Expected at least ~D" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Expected exactly ~D" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Expected between ~D and ~D" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid ", but got ~D." msgstr "" -#: target:compiler/globaldb.lisp -msgid "Type not defined yet." -msgstr "" - -#: target:compiler/globaldb.lisp -msgid "~S is not a defined info class." -msgstr "" - -#: target:compiler/globaldb.lisp -msgid "~S is not a defined info type." -msgstr "" - -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "Define-Info-Class Class\n" " Define a new class of global information." msgstr "" -#: target:compiler/globaldb.lisp -msgid "Out of INFO type numbers!" -msgstr "" - -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "Define-Info-Type Class Type default Type-Spec\n" " Define a new type of global information for Class. Type is the symbol " @@ -13650,23 +13882,39 @@ msgid "" " value of Info will also be true." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp +msgid "Type not defined yet." +msgstr "" + +#: src/compiler/globaldb.lisp +msgid "~S is not a defined info class." +msgstr "" + +#: src/compiler/globaldb.lisp +msgid "~S is not a defined info type." +msgstr "" + +#: src/compiler/globaldb.lisp +msgid "Out of INFO type numbers!" +msgstr "" + +#: src/compiler/globaldb.lisp msgid "Redefine it." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "Changing type number for ~A ~A." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "Go for it." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "Reusing type number for ~A ~A." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "Return the information of the specified Type and Class for Name.\n" " The second value is true if there is any such information recorded. If\n" @@ -13675,11 +13923,11 @@ msgid "" " is NIL." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "Set the global information for Name." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "DO-INFO (Env &Key Name Class Type Value) Form*\n" " Iterate over all the values stored in the Info-Env Env. Name is bound to\n" @@ -13687,32 +13935,32 @@ msgid "" " (represented as strings), and Value is bound to the entry's value." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "Return a new compact info environment that holds the same information as\n" " Env." msgstr "" -#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp +#: src/compiler/knownfun.lisp src/compiler/globaldb.lisp msgid "No info environment?" msgstr "" -#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp +#: src/compiler/knownfun.lisp src/compiler/globaldb.lisp msgid "Cannot modify this environment: ~S." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "0 is not a legal INFO name." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "Clear the information of the specified Type and Class for Name in the\n" " current environment, allowing any inherited info to become visible. We\n" " return true if there was any info." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "This function is to parse the declarations and doc-string out of the body " "of\n" @@ -13727,91 +13975,87 @@ msgid "" " and the doc-string, or NIL if none." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "defining macro ~A" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Disable the package's definition-lock then continue" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Define a compiler-macro for NAME." msgstr "" -#: target:compiler/ir1tran.lisp target:code/macros.lisp +#: src/compiler/ir1tran.lisp src/code/macros.lisp msgid "Symbol macro name is not a symbol: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Symbol macro name already declared special: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Symbol macro name already declared constant: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Syntax like DEFMACRO, but defines a new type." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~S -- Type name not a symbol." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "defining type ~A" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Disable package's definition-lock then continue" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Deftype already names a declaration: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Illegal to redefine standard type: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Redefining class ~S to be a DEFTYPE." msgstr "" -#: target:code/macros.lisp -msgid "Setf expander for ~S cannot be called with ~S args." -msgstr "" - -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Syntax like DEFMACRO, but creates a Setf-Expansion generator. The body\n" " must be a form that returns the five magical values." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Obsolete, use define-setf-expander." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Defining setf macro for destruct slot accessor; redefining as ~\n" " a normal function:~% ~S" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Defining setf macro for ~S, but ~S is fbound." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "For defining global constants at top level. The DEFCONSTANT says that the\n" " value is constant and may be compiled into code. If the variable already " @@ -13821,15 +14065,15 @@ msgid "" " argument is an optional documentation string for the variable." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Go ahead and change the value." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Constant ~S being redefined." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "For defining global variables at top level. Declares the variable\n" " SPECIAL and, optionally, initializes it. If the variable already has a\n" @@ -13837,7 +14081,7 @@ msgid "" " documentation string for the variable." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Defines a parameter that is not normally changed by the program,\n" " but that may be changed without causing an error. Declares the\n" @@ -13845,33 +14089,33 @@ msgid "" " an optional documentation string for the parameter." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "First arg is a predicate. If it is non-null, the rest of the forms are\n" " evaluated as a PROGN." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "First arg is a predicate. If it is null, the rest of the forms are\n" " evaluated as a PROGN." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Cond clause is not a list: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Varlist is not a list of symbols: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Evaluates FORM and returns the Nth value (zero based). This involves no\n" " consing when N is a trivial constant integer." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Returns five values needed by the SETF machinery: a list of temporary\n" " variables, a list of values with which to fill them, a list of temporarie" @@ -13879,32 +14123,32 @@ msgid "" " for the new values, the setting function, and the accessing function." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Obsolete: use GET-SETF-EXPANSION." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Obsolete: use GET-SETF-EXPANSION and handle multiple store values." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "GET-SETF-METHOD used for a form with multiple store ~\n" " variables:~% ~S" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Associates a SETF update function or macro with the specified access\n" " function or macro. The format is complex. See the manual for\n" " details." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Ill-formed DEFSETF for ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Takes pairs of arguments like SETQ. The first is a place and the second\n" " is the value that is supposed to go into that place. Returns the last\n" @@ -13912,11 +14156,11 @@ msgid "" " knows a corresponding setting form." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Odd number of args to SETF." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "This is to SETF as PSETQ is to SETQ. Args are alternating place\n" " expressions and values to go into those places. All of the subforms and\n" @@ -13924,11 +14168,11 @@ msgid "" " updated. Returns NIL." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Odd number of args to PSETF." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "One or more SETF-style place expressions, followed by a single\n" " value expression. Evaluates all of the expressions in turn, then\n" @@ -13936,7 +14180,7 @@ msgid "" " returning the value of the leftmost." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Takes any number of SETF-style place expressions. Evaluates all of the\n" " expressions in turn, then assigns to each place the value of the form to\n" @@ -13944,33 +14188,33 @@ msgid "" " Returns NIL." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Creates a new read-modify-write macro like PUSH or INCF." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Non-symbol &rest arg in definition of ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Illegal stuff after &rest arg in Define-Modify-Macro." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~S not allowed in Define-Modify-Macro lambda list." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Illegal stuff in lambda list of Define-Modify-Macro." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Takes an object and a location holding a list. Conses the object onto\n" " the list, returning the modified list. OBJ is evaluated before PLACE." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Takes an object and a location holding a list. If the object is already\n" " in the list, does nothing. Else, conses the object onto the list. " @@ -13978,25 +14222,25 @@ msgid "" " NIL. If there is a :TEST keyword, this is used for the comparison." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The argument is a location holding a list. Pops one item off the front\n" " of the list and returns it." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The first argument is some location holding a number. This number is\n" " incremented by the second argument, DELTA, which defaults to 1." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The first argument is some location holding a number. This number is\n" " decremented by the second argument, DELTA, which defaults to 1." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Place may be any place expression acceptable to SETF, and is expected\n" " to hold a property list or (). This list is destructively altered to\n" @@ -14004,18 +14248,18 @@ msgid "" " property was present, NIL if not." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Setf of Apply is only defined for function args like #'symbol." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The first argument is a byte specifier. The second is any place form\n" " acceptable to SETF. Replaces the specified byte of the number in this\n" " place with bits from the low-order end of the new value." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The first argument is a byte specifier. The second is any place form\n" " acceptable to SETF. Replaces the specified byte of the number in this " @@ -14023,27 +14267,27 @@ msgid "" " with bits from the corresponding position in the new value." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~S -- Bad clause in ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "No default clause allowed in ~S: ~S" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "T and OTHERWISE may not be used as key designators for ~A" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Bad style to use T or OTHERWISE in ECASE or CCASE" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Supply a new value for ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "CASE Keyform {({(Key*) | Key} Form*)}*\n" " Evaluates the Forms in the first clause with a Key EQL to the value\n" @@ -14051,7 +14295,7 @@ msgid "" " a default clause." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "CCASE Keyform {({(Key*) | Key} Form*)}*\n" " Evaluates the Forms in the first clause with a Key EQL to the value of\n" @@ -14059,14 +14303,14 @@ msgid "" " signalled." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "ECASE Keyform {({(Key*) | Key} Form*)}*\n" " Evaluates the Forms in the first clause with a Key EQL to the value of\n" " Keyform. If none of the keys matches then an error is signalled." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "TYPECASE Keyform {(Type Form*)}*\n" " Evaluates the Forms in the first clause for which TYPEP of Keyform\n" @@ -14074,7 +14318,7 @@ msgid "" " clause is a default clause." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "CTYPECASE Keyform {(Type Form*)}*\n" " Evaluates the Forms in the first clause for which TYPEP of Keyform and " @@ -14082,7 +14326,7 @@ msgid "" " is true. If no form is satisfied then a correctable error is signalled." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "ETYPECASE Keyform {(Type Form*)}*\n" " Evaluates the Forms in the first clause for which TYPEP of Keyform and " @@ -14090,7 +14334,7 @@ msgid "" " is true. If no form is satisfied then an error is signalled." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Signals an error if the value of test-form is nil. Continuing from this\n" " error using the CONTINUE restart will allow the user to alter the value " @@ -14099,48 +14343,48 @@ msgid "" "nil." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "The assertion ~S failed." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Retry assertion" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid " with new value for ~{~S~^, ~}." msgid_plural " with new values for ~{~S~^, ~}." msgstr[0] "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "The old value of ~S is ~S.~\n" " ~%Do you want to supply a new value? " msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~&Type a form to be evaluated:~%" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Signals an error of type type-error if the contents of place are not of the\n" " specified type. If an error is signaled, this can only return if\n" " STORE-VALUE is invoked. It will store into place and start over." msgstr "" -#: target:code/macros.lisp -msgid "The value of ~S is ~S, which is not ~A." +#: src/code/macros.lisp +msgid "Supply a new value of ~S." msgstr "" -#: target:code/macros.lisp -msgid "The value of ~S is ~S, which is not of type ~S." +#: src/code/macros.lisp +msgid "The value of ~S is ~S, which is not ~A." msgstr "" -#: target:code/macros.lisp -msgid "Supply a new value of ~S." +#: src/code/macros.lisp +msgid "The value of ~S is ~S, which is not of type ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The file whose name is Filespec is opened using the Open-args and\n" " bound to the variable Var. If the call to open is unsuccessful, the\n" @@ -14148,27 +14392,27 @@ msgid "" " terminate, normally or otherwise, the file is closed." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The form stream should evaluate to a stream. VAR is bound\n" " to the stream and the forms are evaluated as an implicit\n" " progn. The stream is closed upon exit." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Binds the Var to an input stream that returns characters from String and\n" " executes the body. See manual for details." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "If STRING is specified, it must be a string with a fill pointer;\n" " the output is incrementally appended to the string (as if by use of\n" " VECTOR-PUSH-EXTEND)." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "DO ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n" " Iteration construct. Each Var is initialized in parallel to the value of " @@ -14184,7 +14428,7 @@ msgid "" " used as an laternate exit mechanism." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "DO* ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n" " Iteration construct. Each Var is initialized sequentially (like LET*) to " @@ -14198,7 +14442,7 @@ msgid "" " allowing RETURN to be used as an laternate exit mechanism." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "PSETQ {var value}*\n" " Set the variables to the values, like SETQ, except that assignments\n" @@ -14206,21 +14450,21 @@ msgid "" " forms have been evaluated." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "variable ~S in PSETQ is not a SYMBOL" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Unknown declaration context: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Context declaration spec should have context and at ~\n" " least one DECLARE form:~% ~S" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "WITH-COMPILATION-UNIT ({Key Value}*) Form*\n" " This form affects compilations that take place within its dynamic extent. " @@ -14289,15 +14533,73 @@ msgid "" " etc." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Odd number of key/value pairs: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Ignoring unknown option: ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/code/intl.lisp +msgid "" +"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n" +" Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this." +msgstr "" + +#: src/code/intl.lisp +msgid "Encountered illegal token: =" +msgstr "" + +#: src/code/intl.lisp +msgid "Encountered illegal token: ~C" +msgstr "" + +#: src/code/intl.lisp +msgid "Expected : in ?: construct" +msgstr "" + +#: src/code/intl.lisp +msgid "Expected close-paren." +msgstr "" + +#: src/code/intl.lisp +msgid "Unexpected token: ~S." +msgstr "" + +#: src/code/intl.lisp +msgid "Expecting end of expression. ~S." +msgstr "" + +#: src/code/intl.lisp +msgid "" +"Look up STRING in the current message domain and return its translation." +msgstr "" + +#: src/code/intl.lisp +msgid "" +"Look up the singular or plural form of a message in the current domain." +msgstr "" + +#: src/code/intl.lisp +msgid "" +"Look up STRING in the specified message domain and return its translation." +msgstr "" + +#: src/code/intl.lisp +msgid "" +"Look up the singular or plural form of a message in the specified domain." +msgstr "" + +#: src/code/intl.lisp +msgid "_@ is a reserved reader macro prefix." +msgstr "" + +#: src/code/intl.lisp +msgid "~&Dumping ~D messages for domain ~S~%" +msgstr "" + +#: src/compiler/macros.lisp msgid "" "Policy Node Condition*\n" " Test whether some conditions apply to the current compiler policy for " @@ -14317,11 +14619,11 @@ msgid "" " conversion." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Can't funcall the SYMBOL-FUNCTION of special forms." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Def-IR1-Translator Name (Lambda-List Start-Var Cont-Var {Key Value}*)\n" " [Doc-String] Form*\n" @@ -14335,12 +14637,7 @@ msgid "" " The function kind to associate with Name (default :special-form)." msgstr "" -#: target:compiler/ir2tran.lisp target:compiler/ltv.lisp -#: target:compiler/ir1tran.lisp target:compiler/macros.lisp -msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A." -msgstr "" - -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Def-Source-Transform Name Lambda-List Form*\n" " Define a macro-like source-to-source transformation for the function " @@ -14365,14 +14662,14 @@ msgid "" "pass." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Def-Primitive-Translator Name Lambda-List Form*\n" " Define a function that converts a use of (%PRIMITIVE Name ...) into Lisp\n" " code. Lambda-List is a defmacro style lambda list." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)\n" " Declaration* [Doc-String] Form*\n" @@ -14455,11 +14752,11 @@ msgid "" " byte-code or both (default :native.)" msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Can't specify both DEFUN-ONLY and EVAL-NAME." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Defknown Name Arg-Types Result-Type [Attributes] {Key Value}* \n" " Declare the function Name to be a known function. We construct a type\n" @@ -14516,11 +14813,11 @@ msgid "" " optimizers that the function might have." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Function cannot have both good and bad attributes: ~S" msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Defoptimizer (Function Kind) (Lambda-List [Node-Var] Var*)\n" " Declaration* Form*\n" @@ -14547,7 +14844,7 @@ msgid "" " argument." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Blocks (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*\n" " Iterate over the blocks in a component, binding Block-Var to each block " @@ -14563,25 +14860,25 @@ msgid "" " If supplied, Result-Form is the value to return." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Losing Ends value: ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Blocks-Backwards (Block-Var Component [Ends] [Result-Form]) {Declaration}" "* {Form}*\n" " Like Do-Blocks, only iterate over the blocks in reverse order." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Uses (Node-Var Continuation [Result]) {Declaration}* {Form}*\n" " Iterate over the uses of Continuation, binding Node to each one succesivel" "y." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Nodes (Node-Var Cont-Var Block {Key Value}*) {Declaration}* {Form}*\n" " Iterate over the nodes in Block, binding Node-Var to the each node and\n" @@ -14591,13 +14888,13 @@ msgid "" " not supplied, this is an error.)" msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Nodes-Backwards (Node-Var Cont-Var Block) {Declaration}* {Form}*\n" " Like Do-Nodes, only iterates in reverse order." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "With-IR1-Environment Node Form*\n" " Bind the IR1 context variables so that IR1 conversion can be done after " @@ -14605,7 +14902,7 @@ msgid "" " main conversion pass has finished." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "LEXENV-FIND Name Slot {Key Value}*\n" " Look up Name in the lexical environment namespace designated by Slot,\n" @@ -14613,12 +14910,12 @@ msgid "" " may be used to determine the name equality predicate." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "If true, defprinter print functions print each slot on a separate line." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Defprinter Name Slot-Desc*\n" " Define some kind of reasonable defstruct structure-print function. Name\n" @@ -14643,15 +14940,36 @@ msgid "" " Stream." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Losing Defprinter option: ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Unknown attribute name: ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp +msgid "" +"Automagically generated boolean attribute test function. See\n" +" Def-Boolean-Attribute." +msgstr "" + +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp +msgid "" +"Automagically generated boolean attribute setter. See\n" +" Def-Boolean-Attribute." +msgstr "" + +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp +msgid "" +"Automagically generated boolean attribute creation function. See\n" +" Def-Boolean-Attribute." +msgstr "" + +#: src/compiler/macros.lisp msgid "" "Def-Boolean-Attribute Name Attribute-Name*\n" " Define a new class of boolean attributes, with the attributes havin the\n" @@ -14670,52 +14988,34 @@ msgid "" " Return a set of the named attributes." msgstr "" -#: target:compiler/macros.lisp -msgid "" -"Automagically generated boolean attribute test function. See\n" -" Def-Boolean-Attribute." -msgstr "" - -#: target:compiler/macros.lisp -msgid "" -"Automagically generated boolean attribute setter. See\n" -" Def-Boolean-Attribute." -msgstr "" - -#: target:compiler/macros.lisp -msgid "" -"Automagically generated boolean attribute creation function. See\n" -" Def-Boolean-Attribute." -msgstr "" - -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Returns the union of all the sets of boolean attributes which are its\n" " arguments." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Returns the intersection of all the sets of boolean attributes which are " "its\n" " arguments." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Returns true if the attributes present in Attr1 are indentical to those in\n" " Attr2." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "~S is not the name of an event." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Return the number of times that Event has happened." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Return the function that is called when Event happens. If this is null,\n" " there is no action. The function is passed the node to which the event\n" @@ -14723,7 +15023,7 @@ msgid "" "SETF." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Return the non-negative integer which represents the level of significance\n" " of the event Name. This is used to determine whether to print a message " @@ -14731,7 +15031,7 @@ msgid "" " the event happens. This may be set with SETF." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Defevent Name Description\n" " Define a new kind of event. Name is a symbol which names the event and\n" @@ -14741,13 +15041,13 @@ msgid "" " whether to print a Note when the event happens." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "This variable is a non-negative integer specifying the lowest level of\n" " event that will print a Note when it occurs." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Event Name Node\n" " Note that the event with the specified Name has happened. Node is " @@ -14755,7 +15055,7 @@ msgid "" " to determine the node to which the event happened." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Print a listing of events and their counts, sorted by the count. Events\n" " that happened fewer than Min-Count times will not be printed. Stream is " @@ -14763,20 +15063,19 @@ msgid "" " stream to write to." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Find Element in a null-terminated List linked by the accessor function\n" " Next. Key, Test and Test-Not are the same as for generic sequence\n" " functions." msgstr "" -#: target:compiler/debug.lisp target:compiler/pack.lisp -#: target:compiler/represent.lisp target:compiler/copyprop.lisp -#: target:compiler/life.lisp target:compiler/macros.lisp +#: src/compiler/debug.lisp src/compiler/pack.lisp src/compiler/represent.lisp +#: src/compiler/copyprop.lisp src/compiler/life.lisp src/compiler/macros.lisp msgid "Silly to supply both :Test and :Test-Not." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Return the position of Element (or NIL if absent) in a null-terminated List\n" " linked by the accessor function Next. Key, Test and Test-Not are the " @@ -14784,13 +15083,13 @@ msgid "" " for generic sequence functions." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Map Function over the elements in a null-terminated List linked by the\n" " accessor function Next, returning a list of the results." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Deletef-In Next Place Item\n" " Delete Item from a null-terminated list linked by the accessor function " @@ -14798,311 +15097,403 @@ msgid "" " that is stored in Place. Item must appear exactly once in the list." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Push Item onto a list linked by the accessor function Next that is stored " "in\n" " Place." msgstr "" -#: target:compiler/debug-dump.lisp target:compiler/checkgen.lisp -#: target:compiler/ir1util.lisp target:compiler/meta-vmdef.lisp -#: target:compiler/macros.lisp -msgid "Shouldn't happen?" -msgstr "" - -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Redefining modular version ~S of ~S for width ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Lambda list keyword ~S is not supported for ~\n" " modular function lambda lists." msgstr "" -#: target:compiler/generic/vm-macs.lisp +#: src/compiler/generic/vm-macs.lisp msgid "No more slots can follow a :rest-p slot." msgstr "" -#: target:compiler/generic/vm-macs.lisp +#: src/compiler/generic/vm-macs.lisp msgid "Number of slots used by each ~S~\n" " ~@[~* including the header~]." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "Machine specific support routine ~S ~\n" " undefined for ~S" msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "Unknown VM support routine: ~A" msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "The backend for the machine we are running on. Do not change this." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "The backend we are attempting to compile." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "The backend we are using to compile with." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "Compute the *FEATURES* list to use with BACKEND." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "" "Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "Same as EXT:FEATUREP, except use the features found in *BACKEND*." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "" "Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/x86/parms.lisp +msgid "Number of bits per word where a word holds one lisp descriptor." +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "" +"Number of bits per byte where a byte is the smallest addressable object." +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "Number of bits needed to represent a character" +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "Number of bytes needed to represent a character" +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "Number of bits to shift between word addresses and byte addresses." +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "Number of bytes in a word." +msgstr "" + +#: src/compiler/generic/objdef.lisp msgid "Number of bits at the low end of a pointer used for type information." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "Mask to extract the low tag bits from a pointer." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "" "Exclusive upper bound on the value of the low tag bits from a\n" " pointer." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "Number of bits used in the header word of a data block for typeing." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "Mask to extract the type from a header word." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "most-positive-fixnum in the target architecture." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "most-negative-fixnum in the target architecture." msgstr "" -#: target:compiler/generic/interr.lisp -msgid "Unknown internal error: ~S" +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each CONS." msgstr "" -#: target:compiler/bit-util.lisp -msgid "local-tn-limit not a vm:word-bits multiple." +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each RATIO including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each SINGLE-FLOAT including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each DOUBLE-FLOAT including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each COMPLEX including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each FDEFN including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each VALUE-CELL including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each SAP including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each WEAK-POINTER including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each SCAVENGER-HOOK including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each BINDING." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each UNWIND-BLOCK." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each CATCH-BLOCK." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each SYMBOL including the header." msgstr "" -#: target:compiler/pack.lisp target:compiler/generic/vm-tran.lisp -#: target:compiler/life.lisp target:compiler/bit-util.lisp +#: src/compiler/generic/objdef.lisp msgid "" -"Argument and/or result bit arrays not the same length:~\n" -" ~% ~S~% ~S ~% ~S" +"Number of slots used by each COMPLEX-SINGLE-FLOAT including the header." msgstr "" -#: target:compiler/ctype.lisp -msgid "Function has an odd number of arguments in the keyword portion." +#: src/compiler/generic/objdef.lisp +msgid "" +"Number of slots used by each COMPLEX-DOUBLE-FLOAT including the header." msgstr "" -#: target:compiler/ctype.lisp -msgid "Can't tell whether the result is a ~S." +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each DOUBLE-DOUBLE-FLOAT including the header." msgstr "" -#: target:compiler/ctype.lisp -msgid "The result is a ~S, not a ~S." +#: src/compiler/generic/objdef.lisp +msgid "" +"Number of slots used by each COMPLEX-DOUBLE-DOUBLE-FLOAT including the " +"header." +msgstr "" + +#: src/compiler/generic/interr.lisp +msgid "Unknown internal error: ~S" +msgstr "" + +#: src/compiler/bit-util.lisp +msgid "local-tn-limit not a vm:word-bits multiple." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/pack.lisp src/compiler/life.lisp src/compiler/bit-util.lisp +msgid "" +"Argument and/or result bit arrays not the same length:~\n" +" ~% ~S~% ~S ~% ~S" +msgstr "" + +#: src/compiler/ctype.lisp msgid "Function called with ~R argument, but wants exactly ~R." msgid_plural "Function called with ~R arguments, but wants exactly ~R." msgstr[0] "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Function called with ~R argument, but wants at least ~R." msgid_plural "Function called with ~R arguments, but wants at least ~R." msgstr[0] "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Function called with ~R argument, but wants at most ~R." msgid_plural "Function called with ~R arguments, but wants at most ~R." msgstr[0] "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp +msgid "Function has an odd number of arguments in the keyword portion." +msgstr "" + +#: src/compiler/ctype.lisp +msgid "Can't tell whether the result is a ~S." +msgstr "" + +#: src/compiler/ctype.lisp +msgid "The result is a ~S, not a ~S." +msgstr "" + +#: src/compiler/ctype.lisp msgid "Can't tell whether the ~:R argument is a ~S." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument is a ~S, not a ~S." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument never returns a value." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument is not a constant." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "" "Can't tell whether the ~:R argument is a ~\n" " constant ~S:~% ~S" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument is not a constant ~S:~% ~S" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument (in keyword position) is not a constant." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The value of ~S is not a constant" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "~S is not a known argument keyword." msgstr "" -#: target:compiler/ctype.lisp -msgid "" -"Function previously called with an odd number of arguments in ~\n" -" the keyword portion." -msgstr "" - -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Function previously called with ~R argument, but wants at least ~R." msgid_plural "" "Function previously called with ~R arguments, but wants at least ~R." msgstr[0] "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Function previously called with ~R argument, but wants at most ~R." msgid_plural "" "Function previously called with ~R arguments, but wants at most ~R." msgstr[0] "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp +msgid "" +"Function previously called with an odd number of arguments in ~\n" +" the keyword portion." +msgstr "" + +#: src/compiler/ctype.lisp msgid "Can't tell whether previous ~? argument type ~S is a ~S." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "~:(~?~) argument should be a ~S but was a ~S in a previous call." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Function previously called with unknown argument keyword ~S." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "" "Definition's declared type for variable ~A:~% ~S~@\n" " conflicts with this type from ~A:~% ~S" msgstr "" -#. Translate FIXED above appropriately. -#: target:compiler/ctype.lisp +#. updated to allow better translations. +#: src/compiler/ctype.lisp +msgid "Definition has ~R ~A arg, but ~A has ~R." +msgid_plural "Definition has ~R ~A args, but ~A has ~R." +msgstr[0] "" + +#: src/compiler/ctype.lisp msgid "fixed" msgstr "" -#. Translate OPTIONAL above appropriately. -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "optional" msgstr "" -#. updated to allow better translations. -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Definition ~:[doesn't have~;has~] ~A, but ~\n" " ~A ~:[doesn't~;does~]." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "keyword args" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "rest args" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Defining a ~S keyword not present in ~A." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Definition lacks the ~S keyword present in ~A." msgstr "" -#: target:compiler/ctype.lisp -msgid "Definition has ~R ~A arg, but ~A has ~R." -msgid_plural "Definition has ~R ~A args, but ~A has ~R." -msgstr[0] "" - -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Definition has no ~A, but the ~A did." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "optional args" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "rest arg" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Definition has ~R arg, but the ~A has ~R." msgid_plural "Definition has ~R args, but the ~A has ~R." msgstr[0] "" -#: target:compiler/ctype.lisp -msgid "previous declaration" -msgstr "" - -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "" "The result type from ~A:~% ~S~@\n" " conflicts with the definition's result type assertion:~% ~S" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "" "Assignment to argument: ~S~% ~\n" " prevents use of assertion from function ~\n" " type ~A:~% ~S~%" msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/ctype.lisp +msgid "previous declaration" +msgstr "" + +#: src/compiler/vmdef.lisp msgid "~S is not a defined template." msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/vmdef.lisp msgid "~S is not a defined storage class." msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/vmdef.lisp msgid "~S is not a defined storage base." msgstr "" -#: target:compiler/meta-vmdef.lisp target:compiler/vmdef.lisp +#: src/compiler/meta-vmdef.lisp src/compiler/vmdef.lisp msgid "~S is not a defined primitive type." msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/vmdef.lisp msgid "" "NOTE-THIS-LOCATION VOP Kind\n" " Note that the current code location is an interesting (to the debugger)\n" @@ -15113,7 +15504,7 @@ msgid "" " that the live set is computed." msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/vmdef.lisp msgid "" "NOTE-NEXT-INSTRUCTION VOP Kind\n" " Similar to NOTE-THIS-LOCATION, except the use the location of the next\n" @@ -15121,7 +15512,7 @@ msgid "" " it." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-Storage-Base Name Kind {Key Value}*\n" " Define a storage base having the specified Name. Kind may be :Finite,\n" @@ -15133,15 +15524,15 @@ msgid "" " :Unbounded SB." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Size specification meaningless in a ~S SB." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Size not specified in a ~S SB." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-Storage-Class Name Number Storage-Base {Key Value}*\n" " Define a storage class Name that uses the named Storage-Base. Number is " @@ -15186,31 +15577,27 @@ msgid "" " SC by a move function." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Alignment is not a power of two: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "SC element ~D out of bounds for ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid ":Locations is meaningless in a ~S SB." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Reserve-Locations not a subset of Locations." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Meaningless to specify alternate or constant SCs in a ~S SB." msgstr "" -#: target:compiler/x86/vm.lisp target:compiler/meta-vmdef.lisp -msgid "Redefining SC number ~D from ~S to ~S." -msgstr "" - -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-Move-Function (Name Cost) lambda-list ({(From-SC*) (To-SC*)}*) form*\n" " Define the function Name and note it as the function used for moving " @@ -15224,11 +15611,11 @@ msgid "" " DEFINE-VOP." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed SCs spec: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-Move-VOP Name {:Move | :Move-Argument} {(From-SC*) (To-SC*)}*\n" " Make Name be the VOP used to move values in the specified From-SCs to the\n" @@ -15237,11 +15624,11 @@ msgid "" " an extra argument, which is the frame pointer of the frame to move into." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown kind ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Def-Primitive-Type Name (SC*) {Key Value}*\n" " Define a primitive type Name. Each SC specifies a Storage Class that " @@ -15254,13 +15641,13 @@ msgid "" " (defaults to Name.)" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "DEF-PRIMITIVE-TYPE-ALIAS Name Result\n" " Define name to be an alias for Result in VOP operand type restrictions." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Primitive-Type-VOP Vop (Kind*) Type*\n" " Annotate all the specified primitive Types with the named VOP under each " @@ -15272,171 +15659,170 @@ msgid "" " checking that the value is of this type in the process." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown kind: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Operand ~S isn't one of these kinds: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "~S is not an operand to ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "~S is not the name of a defined VOP." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "~:R argument missing: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Extra junk at end of ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "~:R argument is not a ~S: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed time specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown phase in time specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Cannot target a ~S operand: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/debug-dump.lisp src/compiler/checkgen.lisp +#: src/compiler/ir1util.lisp src/compiler/meta-vmdef.lisp +msgid "Shouldn't happen?" +msgstr "" + +#: src/compiler/meta-vmdef.lisp msgid "" "No move function defined to ~:[save~;load~] SC ~S~\n" " ~:[to~;from~] from SC ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Can't tell whether to ~:[save~;load~] with ~S~@\n" " or ~S when operand is in SC ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "SC ~S has no alternate~:[~; or constant~] SCs, yet it is~@\n" " mentioned in the restriction for operand ~S." msgstr "" -#: target:compiler/x86/nlx.lisp target:compiler/meta-vmdef.lisp -msgid "" -"Load TN allocated, but no move function?~@\n" -" VM definition inconsistent, recompile and try again." -msgstr "" - -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed operand specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "More operand isn't last: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Can only specify :FROM in a result: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Can only specify :TO in an argument: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown keyword in operand specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Cannot specify :TARGET in a :MORE operand." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Cannot specify :LOAD-IF in a :MORE operand." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed temporary spec: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed options list: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Odd number of arguments in keyword options: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Temporary spec allocates no temps:~% ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Bad temporary name: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Must specify exactly one SC for a temporary." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown temporary option: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Temporary lifetime doesn't begin before it ends: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Must specifiy :SC for all temporaries: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed option specification: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown option specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "No move function defined to move ~:[from~;to~] SC ~\n" " ~S~%~:[to~;from~] alternate or constant SC ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Bad thing to be a operand type: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Bad PRIMITIVE-TYPE name in ~S: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Can't include primitive-type ~\n" " alias ~S in a :OR restriction: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Can't :CONSTANT for a result." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Bad :CONSTANT argument type spec: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "In the ~A ~:[result~;argument~] to VOP ~S,~@\n" " none of the SCs allowed by the operand type ~S can ~\n" @@ -15445,27 +15831,27 @@ msgid "" " [* type operand must allow T's SCs.]~]" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "~:[Result~;Argument~] ~A to VOP ~S~@\n" " has SC restriction ~S which is ~\n" " not allowed by the operand type:~% ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp -msgid "Can't use :CONSTANT on VOP more args." -msgstr "" - -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Expected ~D ~:[result~;argument~] type: ~S." msgid_plural "Expected ~D ~:[result~;argument~] types: ~S." msgstr[0] "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp +msgid "Can't use :CONSTANT on VOP more args." +msgstr "" + +#: src/compiler/meta-vmdef.lisp msgid "Expected ~D variant values: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-VOP (Name [Inherits]) Spec*\n" " Define the symbol Name to be a Virtual OPeration in the compiler. If\n" @@ -15644,14 +16030,14 @@ msgid "" " frame." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Emit-Template Node Block Template Args Results [Info]\n" " Call the emit function for Template, linking the result in at the end of\n" " Block." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "VOP Name Node Block Arg* Info* Result*\n" " Emit the VOP (or other template) Name at the end of the IR2-Block Block,\n" @@ -15670,15 +16056,15 @@ msgid "" " codegen info." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Cannot use VOP with variable operand count templates." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Called with ~D operands, but was expecting ~D." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "VOP* Name Node Block (Arg* More-Args) (Result* More-Results) Info*\n" " Like VOP, but allows for emission of templates with arbitrary numbers of\n" @@ -15698,19 +16084,19 @@ msgid "" " arguments." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Too many fixed arguments." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Too many fixed results." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Expected ~D info args." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "SC-Case TN {({(SC-Name*) | SC-Name | T} Form*)}*\n" " Case off of TN's SC. The first clause containing TN's SC is evaulated,\n" @@ -15721,37 +16107,27 @@ msgid "" " clause matches, then an error is signalled." msgstr "" -#: target:assembly/x86/arith.lisp target:assembly/x86/array.lisp -#: target:assembly/x86/assem-rtns.lisp target:compiler/x86/type-vops.lisp -#: target:compiler/x86/pred.lisp target:compiler/x86/print.lisp -#: target:compiler/x86/nlx.lisp target:compiler/x86/values.lisp -#: target:compiler/x86/subprim.lisp target:compiler/x86/static-fn.lisp -#: target:compiler/x86/system.lisp target:compiler/x86/sap.lisp -#: target:compiler/meta-vmdef.lisp -msgid "Unknown SC to SC-Case for ~S:~% ~S" -msgstr "" - -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Illegal SC-Case clause: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "T case is not last in SC-Case." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "SC-Is TN SC*\n" " Returns true if TNs SC is any of the named SCs, false otherwise." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Do-IR2-Blocks (Block-Var Component [Result]) Form*\n" " Iterate over the IR2 blocks in component, in emission order." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "DO-LIVE-TNS (TN-Var Live Block [Result]) Form*\n" " Iterate over all the TNs live at some point, with the live set represented" @@ -15759,24 +16135,24 @@ msgid "" " a local conflicts bit-vector and the IR2-Block containing the location." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "DO-ENVIRONMENT-IR2-BLOCKS (Block-Var Env [Result]) Form*\n" " Iterate over all the IR2 blocks in the environment Env, in emit order." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "The width of the column in which instruction-names are printed.\n" " NIL means use the default. A value of zero gives the effect of not\n" " aligning the arguments at all." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "The column in which end-of-line comments for notes are started." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Specify global disassembler params for C:*TARGET-BACKEND*.\n" " Keyword arguments include:\n" @@ -15792,7 +16168,7 @@ msgid "" " instruction, or NIL to use the default." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "DEFINE-ARGUMENT-TYPE Name {Key Value}*\n" " Define a disassembler argument type NAME (which can then be referenced in\n" @@ -15825,7 +16201,7 @@ msgid "" " value." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*\n" " Define an instruction format NAME for the disassembler's use. LENGTH is\n" @@ -15889,93 +16265,93 @@ msgid "" " label. If this is a function, it is called to filter the value." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "~d bits is not a byte-multiple" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Return ADDRESS aligned *upward* to a SIZE byte boundary." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return\n" " OLD-CONS, otherwise return (cons CAR CDR)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "A simple (one list arg) mapcar that avoids consing up a new list\n" " as long as the results of calling FUN on the elements of LIST are\n" " eq to the original." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Can't dump functions, so function ref form must be quoted: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown argument ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "~s must not have multiple values" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown arg-form kind ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Cannot label a multiple-field argument ~\n" " unless using a function: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Bogus! Can't use the :printed value of an arg!" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "number of constants doesn't match number of fields ~\n" " in: (~s :constant~{ ~s~})" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Can't compare differently sized fields: ~\n" " (~s :same-as ~s)" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Bogus test-form: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the first non-keyword symbol in a depth-first search of TREE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Illegal printer: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown printer element: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "First arg to :USING must be a string or #'function" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "No suitable choice found in ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns a version of the disassembly-template PRINTER with compile-time\n" " tests (e.g. :constant without a value), and any :CHOOSE operators resolved" @@ -15985,96 +16361,88 @@ msgid "" " which every field reference refers to a valid arg." msgstr "" -#: target:compiler/disassem.lisp -msgid "~&; Using cached function ~s~%" -msgstr "" - -#: target:compiler/disassem.lisp -msgid "~&; Making new function ~s~%" -msgstr "" - -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown argument type: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "~@<In arg ~s: ~3i~:_~\n" " Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "~@<In arg ~s: ~3i~:_~\n" " Field ~s doesn't fit in an ~\n" " instruction-format ~d bits wide.~:>" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Generate a form to specify global disassembler params. See the\n" " documentation for SET-DISASSEM-PARAMS for more info." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Generate a form to define a disassembler argument type. See\n" " DEFINE-ARGUMENT-TYPE for more info." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Generate a form to define an instruction format. See\n" " DEFINE-INSTRUCTION-FORMAT for more info." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Field ~s in arg ~s overlaps some other field" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown instruction format ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns non-NIL if the instruction SPECIAL is a more specific version of\n" " GENERAL (i.e., the same instruction, but with more constraints)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns an integer corresponding to the specifivity of the instruction " "INST." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Order the list of instructions INSTS with more specific (more constant\n" " bits, or same-as argument constains) ones first. Returns the ordered " "list." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Instructions either aren't related or conflict in some way:~% ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given a list of instructions INSTS, Sees if one of these instructions is a\n" " more general form of all the others, in which case they are put into its\n" " specializers list, and it is returned. Otherwise an error is signaled." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Multiple specializing masters: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns non-NIL if all constant-bits in INST match CHUNK." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given an instruction object, INST, and a bit-pattern, CHUNK, picks the\n" " most specific instruction on INST's specializer list who's constraints " @@ -16082,13 +16450,13 @@ msgid "" " met by CHUNK. If none do, then INST is returned." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns the instruction object within INST-SPACE corresponding to the\n" " bit-pattern CHUNK, or NIL if there isn't one." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns an instruction-space object corresponding to the list of\n" " instructions INSTS. If the optional parameter INITIAL-MASK is supplied, " @@ -16096,114 +16464,114 @@ msgid "" " bits it has set are used." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Prints a nicely formatted version of INST-SPACE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Print the inst space for the specified backend" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Converts a word-offset NUM to a byte-offset." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Converts a byte-offset NUM to a word-offset." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Get the value of the property called NAME in DSTATE. Also setf'able." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the absolute address of the current instruction in DSTATE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the absolute address of the next instruction in DSTATE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Offset of FUNCTION from the start of its code-component's instruction area." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Offset of FUNCTION from the start of its code-component." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the length of the instruction area in CODE-COMPONENT." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the address of the instruction area in CODE-COMPONENT." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the first function in CODE-COMPONENT." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Possible ~A header word" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Print the function-header (entry-point) pseudo-instruction at the current\n" " location in DSTATE to STREAM." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Iterate through the instructions in SEGMENT, calling FUNCTION\n" " for each instruction, with arguments of CHUNK, STREAM, and DSTATE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Make an initial non-printing disassembly pass through DSTATE, noting any\n" " addresses that are referenced by instructions in this segment." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If any labels in DSTATE have been added since the last call to this\n" " function, give them label-numbers, enter them in the hash-table, and make\n" " sure the label list is in sorted order." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Get the instruction-space from PARAMS, creating it if necessary." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Print the current address in DSTATE to STREAM, plus any labels that\n" " correspond to it, and leave the cursor in the instruction column." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Print a newline to STREAM, inserting any pending notes in DSTATE as\n" " end-of-line comments. If there is more than one note, a separate line\n" " will be used for each one." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Disassemble NUM bytes to STREAM as simple `BYTE' instructions" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Disassemble NUM machine-words to STREAM as simple `WORD' instructions" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Make a disassembler-state object." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Return a memory segment located at the system-area-pointer returned by\n" " SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.\n" @@ -16213,39 +16581,39 @@ msgid "" " object), and :HOOKS (a list of offs-hook objects)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Code-header ~s: size: ~s, trace-table-offset: ~s~%" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Fun-header ~s at offset ~d (words): ~s~a => ~s~%" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "The source file ~s no longer seems to exist" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "No start positions map" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Source file ~s has been modified; ~@\n" " Using form offset instead of file index" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Bogus form-number in form! The source file has probably ~@\n" " been changed too much to cope with" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Return the vector of debug-variables currently associated with DSTATE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given the OFFSET of a location within the location-group called LG-NAME,\n" " see if there's a current mapping to a source variable in DSTATE, and if " @@ -16253,57 +16621,49 @@ msgid "" " return the offset of that variable in the current debug-variable vector." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Return a new vector which has the same contents as the old one VEC, plus\n" " new cells (for a total size of NEW-LEN). The additional elements are\n" " initailized to INITIAL-ELEMENT." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns a STORAGE-INFO struction describing the object-to-source\n" " variable mappings from DEBUG-FUNCTION." msgstr "" -#: target:compiler/disassem.lisp -msgid ";;; At offset ~d: ~s~%" -msgstr "" - -#: target:compiler/disassem.lisp -msgid ";;; SET: ~s[~d]~%" -msgstr "" - -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Add hooks to track to track the source code in SEGMENT during\n" " disassembly. SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE\n" " structure, in which case it is used to cache forms from files." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "No-arg-parsing entry point" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "~s entry point" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Return the PC of FUNCTION's header." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "If non-NIL, disassemble flets/labels too" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns a list of the segments of memory containing machine code\n" " instructions for FUNCTION." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns a list of the segments of memory containing machine code\n" " instructions for the code-component CODE. If START-OFFS and/or LENGTH is\n" @@ -16311,13 +16671,13 @@ msgid "" " constrained to lie within the code-segment)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Return the address of the instructions for function and its length.\n" " The length is computed using a heuristic, and so may not be accurate." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns two values: the amount by which the last instruction in the\n" " segment goes past the end of the segment, and the offset of the end of " @@ -16326,7 +16686,7 @@ msgid "" " perfectly, this will return 0 and 0." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Computes labels for all the memory segments in SEGLIST and adds them to\n" " DSTATE. It's important to call this function with all the segments " @@ -16334,29 +16694,29 @@ msgid "" " interested in, so it can find references from one to another." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Disassemble the machine code instructions in SEGMENT to STREAM." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassemble the machine code instructions in each memory segment in\n" " SEGMENTS in turn to STREAM." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Disassemble the machine code instructions for FUNCTION." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Cannot compile a lexical closure" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Can't make a compiled function from ~S" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassemble the machine code associated with OBJECT, which can be a\n" " function, a lambda expression, or a symbol with a function definition. " @@ -16366,7 +16726,7 @@ msgid "" " disassemble." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassembles the given area of memory starting at ADDRESS and LENGTH long.\n" " Note that if CODE-COMPONENT is NIL and this memory could move during a GC," @@ -16374,29 +16734,29 @@ msgid "" " you'd better disable it around the call to this function." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid " Address ~x not in the code component ~s." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassemble the machine code instructions associated with\n" " CODE-COMPONENT (this may include multiple entry points)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassemble the machine code instructions associated with\n" " ASSEM-SEGMENT (of type new-assem:segment)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a\n" "symbol object that we know about." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given ADDRESS, try and figure out if which slot of which symbol is being\n" " refered to. Of course we can just give up, so it's not a big deal...\n" @@ -16404,7 +16764,7 @@ msgid "" " slot." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given a BYTE-OFFSET from NIL, try and figure out if which slot of which\n" " symbol is being refered to. Of course we can just give up, so it's not a " @@ -16412,28 +16772,28 @@ msgid "" " deal... Returns two values, the symbol and the access function." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the lisp object located BYTE-OFFSET from NIL." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns two values; the lisp-object located at BYTE-OFFSET in the constant\n" " area of the code-object in the current segment and T, or NIL and NIL if\n" " there is no code-object in the current segment." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Build an address-name hash-table from the name-address hash" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns the name of the primitive lisp assembler routine or foreign\n" " symbol located at ADDRESS, or NIL if there isn't one." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Store NOTE (which can be either a string or a function with a single\n" " stream argument) to be printed as an end-of-line comment after the " @@ -16441,21 +16801,21 @@ msgid "" " instruction is disassembled." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Store a note about the lisp constant located BYTE-OFFSET bytes from the\n" " current code-component, to be printed as an end-of-line comment after the\n" " current instruction is disassembled." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Store a note about the lisp constant located at ADDR in the\n" " current code-component, to be printed as an end-of-line comment after the\n" " current instruction is disassembled." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n" " is a valid slot in a symbol, store a note describing which symbol and " @@ -16464,7 +16824,7 @@ msgid "" " disassembled. Returns non-NIL iff a note was recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n" " is a valid lisp object, store a note describing which symbol and slot, to\n" @@ -16472,7 +16832,7 @@ msgid "" " disassembled. Returns non-NIL iff a note was recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If ADDRESS is the address of a primitive assembler routine or\n" " foreign symbol, store a note describing which one, to be printed as\n" @@ -16481,7 +16841,7 @@ msgid "" " note of the address is also made." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If NIL-BYTE-OFFSET is the offset of static function, store a note\n" " describing which one, to be printed as an end-of-line comment after\n" @@ -16489,7 +16849,7 @@ msgid "" " was recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If there's a valid mapping from OFFSET in the storage class SC-NAME to a\n" " source variable, make a note of the source-variable name, to be printed " @@ -16498,7 +16858,7 @@ msgid "" " Returns non-NIL iff a note was recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If there's a valid mapping from OFFSET in the storage-base called SB-NAME\n" " to a source variable, make a note equating ASSOC-WITH with the\n" @@ -16507,7 +16867,7 @@ msgid "" " recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "When called from an error break instruction's :DISASSEM-CONTROL (or\n" " :DISASSEM-PRINTER) function, will correctly deal with printing the\n" @@ -16529,81 +16889,29 @@ msgid "" " return-values." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Set up the assembler." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Execute BODY (as a progn) without scheduling any of the instructions\n" " generated inside it. DO NOT throw or return-from out of it." msgstr "" -#: target:compiler/new-assem.lisp -msgid "~&~S reads ~S[~D for ~D]~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "~&~S writes ~S[~D for ~D]~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "~&Queuing ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid " reads ~S~% writes ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "~&Scheduling pending instructions...~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Flushing ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Queued branches: ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Initially emittable: ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Initially delayed: ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Filling branch delay slot with ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Emitting ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Emitting a NOP.~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Now emittable: ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Emit BYTE to SEGMENT." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Output AMOUNT zeros (in bytes) to SEGMENT." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Attempt to emit ~S for the second time." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Note that the instruction stream has to be back-patched when label positions" "\n" @@ -16619,7 +16927,7 @@ msgid "" " ended up." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Note that the instruction stream here depends on the actual positions of\n" " various labels, so can't be output until label positions are known. " @@ -16641,139 +16949,131 @@ msgid "" " just like a BACK-PATCH. (See EMIT-BACK-PATCH.)" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "~S emitted ~D bytes, but claimed it's max was ~D" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "~S shrunk by ~D bytes, but claimed that it ~\n" " preserve ~D bits of alignment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Chooser ~S passed, but not before emitting ~D bytes." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Alignment ~S needs more space now? It was ~D, ~\n" " and is ~D now." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "~S emitted ~D bytes, but claimed it's was ~D" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Execute BODY (as a progn) with SEGMENT as the current segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Duplicate nested labels: ~S" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Emit the specified instruction to the current segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Unknown instruction: ~S" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Emit LABEL at this location in the current segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Emit an alignment restriction to the current segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Return the current position for LABEL. Chooser maybe-shrink functions\n" " should supply IF-AFTER and DELTA to assure correct results." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Append OTHER-SEGMENT to the end of SEGMENT. Don't use OTHER-SEGMENT\n" " for anything after this." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Does any final processing of SEGMENT and returns the total number of bytes\n" " covered by this segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Call FUNCTION on all the output accumulated in SEGMENT. FUNCTION is called\n" " zero or more times with two arguments: a SAP and a number of bytes." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Releases any output buffers held on to by segment." msgstr "" -#: target:compiler/new-assem.lisp -msgid "~D isn't an even multiple of ~D" -msgstr "" - -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Byte spec ~S either overlaps another byte spec, or ~\n" " extends past the end." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "There are holes." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp +msgid "~D isn't an even multiple of ~D" +msgstr "" + +#: src/compiler/new-assem.lisp msgid "Can only specify one emitter per instruction." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Can only specify delay once per instruction." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Can only specify :vop-var once." msgstr "" -#: target:compiler/new-assem.lisp -msgid "You can't use INST without an ASSEMBLE inside emitters." -msgstr "" - -#: target:compiler/alloc.lisp +#: src/compiler/alloc.lisp msgid "" "defallocators {((name lambda-list [real-lambda-list]) thread-slot\n" " (deinit-form*)\n" " (reinit-form*))}*" msgstr "" -#: target:compiler/alloc.lisp -msgid "~S already deallocated!" -msgstr "" - -#: target:compiler/knownfun.lisp +#: src/compiler/knownfun.lisp msgid "optimize" msgstr "" -#: target:compiler/knownfun.lisp +#: src/compiler/knownfun.lisp msgid "~S is not a known function." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default value for the :Block-Compile argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default value for the :Byte-Compile argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-level" "\n" @@ -16781,39 +17081,39 @@ msgid "" " (the default.) When true, we decide to byte-compile." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Whether loop analysis should be done or not." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Whether the compiler should record cross-reference information." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default for the :VERBOSE argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default for the :PRINT argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default for the :PROGRESS argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The defaulted pathname of the file currently being compiled, or NIL if not\n" " compiling." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The TRUENAME of the file currently being compiled, or NIL if not\n" " compiling." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The user supplied source-info for the current compilation. \n" "This is the :source-info argument to COMPILE-FROM-STREAM and will be\n" @@ -16821,40 +17121,36 @@ msgid "" "in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The upper limit on the number of times that we will consecutively do IR1\n" " optimization that doesn't introduce any new code. A finite limit is\n" " necessary, since type inference may take arbitrarily long to converge." msgstr "" -#: target:compiler/main.lisp -msgid "*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceeded." -msgstr "" - -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~|~%Disassembly of code for ~S~2%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~:[~;Byte ~]Compiling ~A: " msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Undefined ~(~A~) ~S~@[ ~A~]" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~D more use~:P of undefined ~(~A~) ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~\n" " ~% ~{~<~% ~1:;~S~>~^ ~}" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "~2&; Compilation unit ~:[finished~;aborted~].~\n" " ~[~:;~:*~&; ~D fatal error~:P~]~\n" @@ -16863,99 +17159,87 @@ msgid "" " ~[~:;~:*~&; ~D note~:P~]~2%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~|~%;;;; Component: ~S~2%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~%~|~%;;;; IR2 component: ~S~2%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Entries:~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~4TL~D: ~S~:[~; [Closure]~]~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Read error at ~D:~% \"~A/\\~A\"~%~A" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Unable to recover from read error." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A" msgstr "" -#: target:compiler/main.lisp -msgid "Skip this form." -msgstr "" - -#: target:compiler/main.lisp -msgid "Attempt to load a file having a compile-time read error." -msgstr "" - -#: target:compiler/ir1tran.lisp target:compiler/main.lisp +#: src/compiler/ir1tran.lisp src/compiler/main.lisp msgid "(during macroexpansion)~%~A" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Bad FILE-COMMENT form: ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Ignoring extra file comment:~% ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~&; Comment: ~A~2&" msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/main.lisp -msgid "Execution of a form compiled with errors:~% ~S" -msgstr "" - -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "EVAL-WHEN form is too short: ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "MACROLET form is too short: ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Load Time Value of ~S" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "(while making load form for ~S)~%~A" msgstr "" -#: target:compiler/main.lisp -msgid "Creation Form for ~A" +#: src/compiler/main.lisp +msgid "Circular references in creation form for ~S" msgstr "" -#: target:compiler/main.lisp -msgid "Circular references in creation form for ~S" +#: src/compiler/main.lisp +msgid "Creation Form for ~A" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Init Form~:[~;s~] for ~{~A~^, ~}" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~2&Fatal error, aborting compilation...~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Can't compile with no source files." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Similar to COMPILE-FILE, but compiles text from Stream into the current " "lisp\n" @@ -16978,19 +17262,19 @@ msgid "" " If true, then may compile to interpreted byte code." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~2&; Python version ~A, VM version ~A on ~A.~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "; Compiling: ~A ~A~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~&; Compilation ~:[aborted after~;finished in~] ~A.~&" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Compiles Source, producing a corresponding .FASL file. Source may be a " "list\n" @@ -17051,23 +17335,23 @@ msgid "" " The external format to use when opening the source file" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~2&; ~A written.~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Can't :LOAD with no output file." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~S was defined in a non-null environment." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Can't find a definition for ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Compiles the function (or macro-function) whose name is NAME. If\n" " DEFINITION is supplied, it should be a lambda expression which will\n" @@ -17077,37 +17361,37 @@ msgid "" " is Nil, the compiled code object is returned." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Attempt to replace Name's definition with an interpreted version of that\n" " definition. If no interpreted definition is to be found, then signal an\n" " error." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~S is already interpreted." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Return a pathname describing what file COMPILE-FILE would write to given\n" " these arguments." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The ~A parameter is a ~S, which is an invalid value ~@\n" " to COMPILE-FILE-PATHNAME." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "If true, argument and result type information derived from compilation of\n" " DEFUNs is used when compiling calls to that function. If false, only\n" " information from FTYPE proclamations will be used." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "If NIL, never trust dynamic-extent declarations.\n" "\n" @@ -17119,170 +17403,166 @@ msgid "" " otherwise they are not trusted." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~@<Invalid name ~s in a dynamic-extent declaration.~@:>" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Can't find slot ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Found macro name ~S ~A." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Found special-form name ~S ~A." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Cannot dump objects of type ~S into fasl files." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~S has already ended." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~S already has successors." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~S is already a predecessor of ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Misplaced declaration." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Illegal function call." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Attempt to reference undumpable constant." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Reading an ignored variable: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~&dynamic-extent args ~:s in ~s~%" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Conflicting type declarations ~\n" " ~S and ~S for ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Can't declare type of Alien variable: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Declaring symbol-macro ~S special." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Ignored variable ~S is being declared special." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Ignoring ~A declaration not at ~\n" " definition of local function:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Unrecognizable function or variable name: ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Ignoring free ignore declaration for ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Ignore declaration for unknown variable ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Declaring special variable ~S to be ignored." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "If true, processing of the VALUES declaration is inhibited." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "No type specified in FTYPE declaration: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Abbreviated type declaration: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Unrecognized declaration: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed declaration specifier ~S in ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Declaring an alien variable to be special: ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Declaring a constant to be special: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Lambda-variable is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Repeated variable in lambda-list: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Name of lambda-variable is a constant: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Multiple uses of keyword ~S in lambda-list." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Found a ~S when expecting a lambda expression:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Expecting a lambda, but form begins with ~S:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Lambda-list absent or not a list:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "ir1-convert-lambda: called by: ~S, parent-form: ~S~%" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Arg specifier is too long: ~S." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Malformed keyword arg specifier: ~S." +#: src/compiler/ir1tran.lisp +msgid "Malformed &aux binding specifier: ~S." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Malformed &aux binding specifier: ~S." +#: src/compiler/ir1tran.lisp +msgid "Malformed keyword arg specifier: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Progn Form*\n" " Evaluates each Form in order, returing the values of the last form. With " @@ -17290,14 +17570,22 @@ msgid "" " forms, returns NIL." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir2tran.lisp src/compiler/ltv.lisp src/compiler/ir1tran.lisp +msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "If Predicate Then [Else]\n" " If Predicate evaluates to non-null, evaluate Then and returns its values,\n" " otherwise evaluate Else and return its values. Else defaults to NIL." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "Block name is not a symbol: ~S." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "Block Name Form*\n" " Evaluate the Forms as a PROGN. Within the lexical scope of the body,\n" @@ -17305,11 +17593,11 @@ msgid "" " result of Value-Form." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Block name is not a symbol: ~S." +#: src/compiler/ir1tran.lisp +msgid "Return for unknown block: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Return-From Block-Name Value-Form\n" " Evaluate the Value-Form, returning its values from the lexically enclosing" @@ -17318,19 +17606,15 @@ msgid "" " extent of the BLOCK." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Return for unknown block: ~S." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Repeated tagbody tag: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Illegal tagbody statement: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Tagbody {Tag | Statement}*\n" " Define tags for used with GO. The Statements are evaluated in order\n" @@ -17343,7 +17627,11 @@ msgid "" " body." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "Go to nonexistent tag: ~S." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "Go Tag\n" " Transfer control to the named Tag in the lexically enclosing TAGBODY. " @@ -17351,34 +17639,30 @@ msgid "" " is constrained to be used only within the dynamic extent of the TAGBODY." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Go to nonexistent tag: ~S." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Bad compiler-let binding spec: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "EVAL-WHEN (Situation*) Form*\n" " Evaluate the Forms in the specified Situations, any of :COMPILE-TOPLEVEL,\n" " :LOAD-TOPLEVEL, :EXECUTE." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Macro name ~S is not a symbol." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Local macro ~S has argument list that is not a list: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Local macro ~S is too short to be a legal definition." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "MACROLET ({(Name Lambda-List Form*)}*) Body-Form*\n" " Evaluate the Body-Forms in an environment with the specified local macros\n" @@ -17386,55 +17670,59 @@ msgid "" " destructuring lambda list, and the Forms evaluate to the expansion." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "Bogus binding for ~\n" +" COMPILER-OPTION-BIND: ~S" +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*\n" " Establish the specified compiler options for the (lexical) duration of\n" " the body. The Value-Forms are evaluated at compile time." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Bogus binding for ~\n" -" COMPILER-OPTION-BIND: ~S" -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Lisp error during evaluation of info args:~%~A" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "%Primitive name is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Undefined primitive name: ~A." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Primitive called with ~R argument~:P, ~\n" " but wants at least ~R." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Primitive called with ~R argument~:P, ~\n" " but wants exactly ~R." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "%Primitive used with a conditional template." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "%Primitive used with an unknown values template." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "QUOTE Value\n" " Return Value without evaluating it." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "Illegal function name: ~S" +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "FUNCTION Name\n" " Return the lexically apparent definition of the function Name. Name may " @@ -17442,64 +17730,60 @@ msgid "" " be a lambda." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Illegal function name: ~S" -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Might be a symbol, so must call FDEFINITION at runtime." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "" -"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n" -" Define the Names as symbol macros with the given Expansions. Within the\n" -" body, references to a Name will effectively be replaced with the Expansion" -"." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed symbol macro binding: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Repeated name in SYMBOL-MACROLET: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "" +"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n" +" Define the Names as symbol macros with the given Expansions. Within the\n" +" body, references to a Name will effectively be replaced with the Expansion" +"." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "Name is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "New proclaimed type ~S for ~S conflicts with old type ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Attempt to proclaim constant ~S to be special." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed TYPE proclamation: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed FUNCTION proclamation: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed FTYPE proclamation: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed ~S binding spec: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "LET ({(Var [Value]) | Var}*) Declaration* Form*\n" " During evaluation of the Forms, Bind the Vars to the result of evaluating " @@ -17509,14 +17793,14 @@ msgid "" " evaluated." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "LOCALLY Declaration* Form*\n" " Sequentially evaluates a body of Form's in a lexical environment\n" " where the given Declaration's have effect." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "LET* ({(Var [Value]) | Var}*) Declaration* Form*\n" " Similar to LET, but the variables are bound sequentially, allowing each " @@ -17524,11 +17808,11 @@ msgid "" " form to reference any of the previous Vars." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed ~S definition spec: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "FLET ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n" " Evaluate the Body-Forms with some local function definitions. The " @@ -17538,7 +17822,7 @@ msgid "" " the lexically apparent function definition in the enclosing environment." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "LABELS ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n" " Evaluate the Body-Forms with some local function definitions. The " @@ -17548,18 +17832,18 @@ msgid "" " each other." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Type ~S in ~S declaration conflicts with enclosing assertion:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "THE Type Form\n" " Assert that Form evaluates to the specified type (which may be a VALUES\n" " type.)" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Truly-The Type Value\n" " Like the THE special form, except that it believes whatever you tell it. " @@ -17569,34 +17853,34 @@ msgid "" " can prove the assertion is wrong." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "" -"SETQ {Var Value}*\n" -" Set the variables to the values. If more than one pair is supplied, the\n" -" assignments are done sequentially. If Var names a symbol macro, SETF the\n" -" expansion." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Odd number of args to SETQ: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Attempt to set constant ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Setting an ignored variable: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "" +"SETQ {Var Value}*\n" +" Set the variables to the values. If more than one pair is supplied, the\n" +" assignments are done sequentially. If Var names a symbol macro, SETF the\n" +" expansion." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "Throw Tag Form\n" " Do a non-local exit, return the values of Form from the CATCH whose tag\n" " evaluates to the same thing as Tag." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Catch Tag Form*\n" " Evaluates Tag and instantiates it as a catcher while the body forms are\n" @@ -17607,7 +17891,7 @@ msgid "" " and the thrown values will be returned." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Unwind-Protect Protected Cleanup*\n" " Evaluate the form Protected, returning its values. The cleanup forms are\n" @@ -17616,125 +17900,125 @@ msgid "" " due to normal completion or a non-local exit such as THROW)." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "MULTIPLE-VALUE-CALL Function Values-Form*\n" " Call Function, passing all the values of each Values-Form as arguments,\n" " values from the first Values-Form making up the first argument, etc." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "MULTIPLE-VALUE-PROG1 Values-Form Form*\n" " Evaluate Values-Form and then the Forms, but return all the values of\n" " Values-Form." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Macro name is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Defining ~S to be a macro when it was ~(~A~) to be a function." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Attempt to redefine special form ~S as a macro." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~&; Converted ~S.~%" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Attempt to define a compiler-macro for special form ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Constant name is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Can't change T." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Nihil ex nihil (Can't change NIL)." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Can't change the value of keywords." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Redefining constant ~S as:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Redefining ~(~A~) ~S to be a constant." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Return the TLF-NUMBER and FORM-NUMBER encoded as fixnum." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Return the tlf-number and form-number from an encoded FIXNUM." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Return a source-location for the call site." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Deleting unused function~:[.~;~:*~% ~S~]" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Block is already deleted." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Variable ~S defined but never used." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Deleting unreachable code." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "If CONT is a call to FUN with NUM-ARGS args, change those arguments\n" " to feed directly to the continuation-dest of CONT, which must be\n" " a combination." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "An upper limit on the number of inline function calls that will be expanded\n" " in any given code object (single function or block compilation.)" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "*Inline-Expansion-Limit* (~D) exceeded, ~\n" " probably trying to~% ~\n" " inline a recursive function." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "The value for *Print-Level* when printing compiler error messages." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "The value for *Print-Length* when printing compiler error messages." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "The value for *Print-Lines* when printing compiler error messages." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "The maximum number of enclosing non-original source forms (i.e. from\n" " macroexpansion) that we print in full. For additional enclosing forms, " @@ -17742,7 +18026,7 @@ msgid "" " print only the CAR." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "DEF-SOURCE-CONTEXT Name Lambda-List Form*\n" " This macro defines how to extract an abbreviated source context from the\n" @@ -17752,11 +18036,11 @@ msgid "" " list of subforms suitable for a \"~{~S ~}\" format string." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Compiler-Error with no bailout." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "This is the function called by the compiler to specially note a\n" "warning, comment, or error. The function must take five arguments: the\n" @@ -17766,27 +18050,27 @@ msgid "" "these can be NIL if unavailable or inapplicable." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "[Last message occurs ~D times]" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "~2&File: ~A" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "In:~{~<~% ~4:;~{ ~S~}~>~^ =>~}" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "replace form with call to ERROR." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "ignore it." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "If non-null, then an upper limit on the number of unknown function or type\n" " warnings that the compiler will print for any given name in a single\n" @@ -17795,20 +18079,20 @@ msgid "" " a missing definition (as opposed to a typo in the use.)" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Lisp error during ~A:~%~A" msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "New inferred type ~S conflicts with old type:~\n" " ~% ~S~%*** Bug?" msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "The return value of ~A should not be discarded." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "This function is used to throw out of an IR1 transform, aborting this\n" " attempt to transform the call, but admitting the possibility that this or\n" @@ -17817,14 +18101,14 @@ msgid "" " format arguments for an efficiency note." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "This function is used to throw out of an IR1 transform and force a normal\n" " call to the function at run time. No further optimizations will be\n" " attempted." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "This function is used to throw out of an IR1 transform, and delay the\n" " transform on the node until later. The reasons specifies when the transfor" @@ -17835,113 +18119,101 @@ msgid "" " propagation." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n" " at least ~R." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n" " at most ~R." msgstr "" -#: target:compiler/ir1final.lisp +#: src/compiler/ir1final.lisp msgid "Unable to ~A because:~%~6T~?" msgstr "" -#: target:compiler/ir1final.lisp +#: src/compiler/ir1final.lisp msgid "" "Unable to ~A due to type uncertainty:~@\n" " ~{~6T~?~^~&~}" msgstr "" -#: target:compiler/ir1final.lisp +#: src/compiler/ir1final.lisp msgid "" "The result type from previous declaration:~% ~S~@\n" " conflicts with the result type:~% ~S" msgstr "" -#: target:compiler/array-tran.lisp -msgid "Element-Type is not constant." +#: src/compiler/array-tran.lisp +msgid "Default initial element ~s is not a ~s." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Cannot open-code creation of ~S" msgstr "" -#: target:compiler/array-tran.lisp -msgid "Default initial element ~s is not a ~s." +#: src/compiler/array-tran.lisp +msgid "Element-Type is not constant." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Element-type not constant; cannot open code array creation" msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Dimension list not constant; cannot open code array creation" msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Dimension list contains something other than an integer: ~S" msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Array rank not known at compile time: ~S" msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Axis not constant." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Array dimensions unknown, must call array-dimension at runtime." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Array has dimensions ~S, ~D is too large." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Can't tell if array is simple." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Vector length unknown, must call length at runtime." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Can't tell the rank at compile time." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "" "Array type ambiguous; must call ~\n" " array-has-fill-pointer-p at runtime." msgstr "" -#: target:compiler/srctran.lisp target:compiler/seqtran.lisp -msgid "open code" -msgstr "" - -#: target:compiler/seqtran.lisp -msgid "convert to EQ test" -msgstr "" - -#: target:compiler/seqtran.lisp +#: src/compiler/seqtran.lisp msgid "Item might be a number" msgstr "" -#: target:compiler/seqtran.lisp -msgid "inline expand" -msgstr "" - -#: target:compiler/seqtran.lisp +#: src/compiler/seqtran.lisp msgid "Specified output type ~S is not a sequence type" msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "" "Define-Type-Predicate Name Type\n" " Establish an association between the type predicate Name and the\n" @@ -17949,443 +18221,409 @@ msgid "" " purposes of optimization." msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "Can't open-code test of non-constant type." msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "Can't open-code test of unknown type ~S." msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "Can't compile TYPEP of anonymous or undefined ~\n" " class:~% ~S" msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "Illegal type specifier for Typep: ~S." msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "use inline fixnum operations" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "use inline (unsigned-byte 32) operations" msgstr "" -#: target:compiler/float-tran.lisp -msgid "use inline (signed-byte 32) operations" -msgstr "" - -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Shouldn't happen" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Can't open-code float to rational comparison." msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "~S doesn't have a precise float representation." msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "" "Unable to avoid inline argument range check~@\n" " because the argument range (~s) was not within 2^~D" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "" "Unable to avoid inline argument range check~@\n" " because the argument range (~s) was not within 2^~D" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Float zero bound ~s not correctly canonicalised?" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp +msgid "Compute fl(a*b) and err(a*b)" +msgstr "" + +#: src/compiler/float-tran.lisp +msgid "" +"Compute fl(a*a) and err(a*b). This is a more efficient\n" +" implementation of two-prod" +msgstr "" + +#: src/compiler/float-tran.lisp msgid "Computes fl(a+b) and err(a+b), assuming |a| >= |b|" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Computes fl(a+b) and err(a+b)" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Add the double-double A0,A1 to the double-double B0,B1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Compute fl(a-b) and err(a-b), assuming |a| >= |b|" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Compute fl(a-b) and err(a-b)" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Subtract the double-double B0,B1 from A0,A1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Compute double-double = double - double-double" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Subtract the double B from the double-double A0,A1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "" "Split the double-float number a into a-hi and a-lo such that a =\n" " a-hi + a-lo and a-hi contains the upper 26 significant bits of a and\n" " a-lo contains the lower 26 bits." msgstr "" -#: target:compiler/float-tran.lisp -msgid "Compute fl(a*b) and err(a*b)" -msgstr "" - -#: target:compiler/float-tran.lisp -msgid "" -"Compute fl(a*a) and err(a*b). This is a more efficient\n" -" implementation of two-prod" -msgstr "" - -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Multiply the double-double A0,A1 with B0,B1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Add the double-double A0,A1 to the double B" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Divide the double-double A0,A1 by B0,B1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Square" msgstr "" -#: target:compiler/saptran.lisp +#: src/compiler/saptran.lisp msgid "FOREIGN-SYMBOL-ADDRESS flavor ~S is not :CODE or :DATA" msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Function doesn't have fixed argument count." msgstr "" -#: target:compiler/srctran.lisp -msgid "convert NTHCDR to CAxxR" -msgstr "" - -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Unknown bound type in make-interval!" msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "This shouldn't happen!" msgstr "" -#: target:compiler/srctran.lisp -msgid "convert to inline logical ops" -msgstr "" - -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "BOOLE code is not a constant." msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "~S illegal control arg to BOOLE." msgstr "" -#: target:compiler/srctran.lisp -msgid "convert x*2^k to shift" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert division by 2^k to shift" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert remainder mod 2^k to LOGAND" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "fold identity operations" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "fold identity operation" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert (- 0 x) to negate" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert (* x 0) to 0." -msgstr "" - -#: target:compiler/srctran.lisp -msgid "fold zero arg" -msgstr "" - -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Unexpected types: ~s ~s~%" msgstr "" -#: target:compiler/srctran.lisp -msgid "recode as multiplication or sqrt" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert to simpler equality predicate" -msgstr "" - -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Operands might not be the same type." msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "~s: too few args (~d), need at least ~d" msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "~s: too many args (~d), wants at most ~d" msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Control string is not a constant." msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "" "When non-NIL, the compiler will generate code utilizing modular\n" " arithmetic. Set to NIL to disable this, if you don't want modular\n" " arithmetic in some cases." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "" "Couldn't inline expand because expansion ~\n" " calls this let-converted local function:~\n" " ~% ~S" msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Function called with ~R argument~:P, but wants exactly ~R." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Function called with ~R argument~:P, but wants at least ~R." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Function called with ~R argument~:P, but wants at most ~R." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Can't local-call functions with &MORE args." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "" "Function called with odd number of ~\n" " arguments in keyword portion." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Non-constant keyword in keyword call." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "non-constant :ALLOW-OTHER-KEYS value" msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Function called with unknown argument keyword ~S." msgstr "" -#: target:compiler/checkgen.lisp -msgid "~:[A possible~;The~] binding of ~S" -msgstr "" - -#: target:compiler/checkgen.lisp +#: src/compiler/checkgen.lisp msgid "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~% ~S" msgstr "" -#: target:compiler/checkgen.lisp +#: src/compiler/checkgen.lisp msgid "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>" msgstr "" -#: target:compiler/checkgen.lisp +#: src/compiler/checkgen.lisp +msgid "~:[A possible~;The~] binding of ~S" +msgstr "" + +#: src/compiler/checkgen.lisp msgid "Type assertion too complex to check:~% ~S." msgstr "" -#: target:compiler/constraint.lisp +#: src/compiler/constraint.lisp msgid "*** Unreachable code in constraint ~\n" " propagation... Bug?" msgstr "" -#: target:compiler/tn.lisp +#: src/compiler/tn.lisp msgid "" "Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*\n" " Iterate over all packed TNs allocated in Component." msgstr "" -#: target:compiler/tn.lisp +#: src/compiler/tn.lisp msgid "SC ~S has no :unbounded :save-p NIL alternate SC." msgstr "" -#: target:compiler/life.lisp +#: src/compiler/life.lisp msgid "More operand ~S used more than once in its VOP." msgstr "" -#: target:compiler/debug-dump.lisp +#: src/compiler/debug-dump.lisp msgid "" "Extract the namestring from FILE-INFO for the DEBUG-SOURCE. \n" "Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;\n" "otherwise the truename." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "Make a fixnum out of NUM. (i.e. shift by two bits if it will fit.)" msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "~D is too big for a fixnum." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "Returns the byte offset of the static symbol Symbol." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "~S is not a static symbol." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "Given a byte offset, Offset, returns the appropriate static symbol." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "Byte offset, ~D, is not correct." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "" "Return the (byte) offset from NIL to the start of the fdefn object\n" " for the static function NAME." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "~S isn't a static function." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "" "Given a byte offset, Offset, returns the appropriate static function\n" " symbol." msgstr "" -#: target:compiler/generic/primtype.lisp +#: src/compiler/x86/vm.lisp +msgid "Redefining SC number ~D from ~S to ~S." +msgstr "" + +#: src/compiler/generic/primtype.lisp msgid "" "An a-list for mapping simple array element types to their\n" " corresponding primitive types." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/x86/type-vops.lisp src/compiler/x86/pred.lisp +#: src/compiler/x86/print.lisp src/compiler/x86/nlx.lisp +#: src/compiler/x86/values.lisp src/compiler/x86/subprim.lisp +#: src/compiler/x86/static-fn.lisp src/compiler/x86/system.lisp +#: src/compiler/x86/sap.lisp +msgid "Unknown SC to SC-Case for ~S:~% ~S" +msgstr "" + +#: src/compiler/x86/nlx.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +" VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/aliencomp.lisp msgid "Slot is not constant, so cannot open code access." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "~S doesn't have a slot named ~S" msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Too many indices for pointer deref: ~D" msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Unknown element size." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Unknown element alignment." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Incorrect number of indices." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Element size unknown." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Element alignment unknown." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "~S not either a pointer or array type." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Info not constant; can't open code." msgstr "" -#: target:compiler/aliencomp.lisp -msgid "Local Alien Info isn't constant?" -msgstr "" - -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Aliens of type ~S cannot be represented immediately." msgstr "" -#: target:compiler/aliencomp.lisp -msgid "This should be dead-code eleminated." +#: src/compiler/aliencomp.lisp +msgid "Local Alien Info isn't constant?" msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "This shouldn't happen." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Alien type not constant; cannot open code." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "" "Could not optimize away %SAP-ALIEN: forced to do runtime ~@\n" " allocation of alien-value structure." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Type not constant at compile time; can't open code." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Can't tell function type at compile time." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Wrong number of arguments. Expected ~D, got ~D." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Something is broken." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "No unique move-arg-vop for moves in SC ~S." msgstr "" -#: target:compiler/ltv.lisp +#: src/compiler/ltv.lisp +msgid "(during EVAL of LOAD-TIME-VALUE)~%~A" +msgstr "" + +#: src/compiler/ltv.lisp msgid "" "Arrange for FORM to be evaluated at load-time and use the value produced\n" " as if it were a constant. If READ-ONLY-P is non-NIL, then the resultant\n" @@ -18393,133 +18631,128 @@ msgid "" " storage." msgstr "" -#: target:compiler/ltv.lisp -msgid "(during EVAL of LOAD-TIME-VALUE)~%~A" -msgstr "" - -#: target:compiler/gtn.lisp +#: src/compiler/gtn.lisp msgid "" "Return value count mismatch prevents known return ~\n" " from these functions:~\n" " ~{~% ~A~}" msgstr "" -#: target:compiler/gtn.lisp +#: src/compiler/gtn.lisp msgid "" "Return type not fixed values, so can't use known return ~\n" " convention:~% ~S" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "" "Unable to check type assertion in unknown-values ~\n" " context:~% ~S" msgstr "" -#: target:compiler/represent.lisp target:compiler/ir2tran.lisp -#: target:compiler/ltn.lisp +#: src/compiler/represent.lisp src/compiler/ir2tran.lisp src/compiler/ltn.lisp msgid "Neither CONT nor TN supplied." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "~S has :MORE results with :TRANSLATE." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "" "This is the maximum number of possible optimization alternatives will be\n" " mentioned in a particular efficiency note. NIL means no limit." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "" "This is the minumum cost difference between the chosen implementation and\n" " the next alternative that justifies an efficiency note." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "This shouldn't happen! Bug?" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Template guard failed." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Template is not safe, yet we were counting on it." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Argument types invalid." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Argument primitive types:~% ~S" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Argument type assertions:~% ~S" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Conditional in a non-conditional context." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Result types invalid." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "etc." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Unable to do ~A (cost ~D) because:" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Can't trust output type assertion under safe ~\n" " policy." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Forced to do ~A (cost ~D)." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Forced to do full call." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Recursive known function definition." msgstr "" -#: target:compiler/ir2tran.lisp +#: src/compiler/ir2tran.lisp msgid "" "Always perform stack clearing if non-NIL, independent of the\n" "compilation policy" msgstr "" -#: target:compiler/ir2tran.lisp +#: src/compiler/ir2tran.lisp msgid "" "If non-NIL and the compilation policy allows, stack clearing is enabled." msgstr "" -#: target:compiler/ir2tran.lisp +#: src/compiler/ir2tran.lisp msgid "~@<~2I~_~S ~_not found in ~_~S~:>" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "Couldn't find REF?" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "Representation selection flamed out for no obvious reason.~@\n" " Try again after recompiling the VM definition." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "~S is not valid as the ~:R ~:[result~;argument~] to the~@\n" " ~S VOP, since the TN's primitive type ~S allows SCs:~% ~S~@\n" @@ -18529,13 +18762,13 @@ msgid "" " time. Recompile.~%Compilation order may be incorrect.~]" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "Representation selection flamed out for no ~\n" " obvious reason." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "~S is not valid as the ~:R ~:[result~;argument~] to VOP:~\n" " ~% ~S~%Primitive type: ~S~@\n" @@ -18550,225 +18783,391 @@ msgid "" " time. Recompile.~%Compilation order may be incorrect.~]" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "No :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~\n" " ~S (SC ~S.)" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "No move function defined to load SC ~S from constant ~\n" " SC ~S." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "No move function defined to load SC ~S from alternate ~\n" " SC ~S." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "No move function defined to save SC ~S to alternate ~\n" " SC ~S." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "<return value>" msgstr "" -#: target:compiler/represent.lisp -msgid "Couldn't fine op? Bug!" -msgstr "" - -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~\n" " The ~:R ~:[result~;argument~] of ~A." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "Doing ~A (cost ~D)~@[ from ~S~]~@[ to ~S~]." msgstr "" -#: target:compiler/generic/vm-tran.lisp -msgid "" -"Argument and result bit arrays not the same length:~\n" -" ~% ~S~% ~S" +#: src/compiler/represent.lisp +msgid "Couldn't fine op? Bug!" msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "Returns the number of bytes used by the code object header." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "The size of the Name'd SB in the currently compiled component. Useful\n" " mainly for finding the size for allocating stack frames." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "Return the TN that is used to hold the number stack frame-pointer in VOP's\n" " function. Returns NIL if no number stack frame was allocated." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "Return the TN that is used to hold the number stack frame-pointer in the\n" " function designated by 2env. Returns NIL if no number stack frame was\n" " allocated." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "Return the TN used for passing the return PC in a local call to the function" "\n" " designated by 2env." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "Set to NIL to inhibit assembly-level optimization. For compiler debugging,\n" " rather than policy control." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "In the ~A segment:~%" msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "~|~%Assembly code for ~S~2%" msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "Missing generator for ~S.~%" msgstr "" -#: target:compiler/debug.lisp +#: src/compiler/debug.lisp msgid "" "This variable is bound to the format arguments when an error is signalled\n" " by Barf or Burp." msgstr "" -#: target:compiler/debug.lisp +#: src/compiler/debug.lisp msgid "" "Action taken by the Burp function when a possible compiler bug is detected.\n" " One of :Warn, :Error or :None." msgstr "" -#: target:compiler/debug.lisp +#: src/compiler/debug.lisp msgid "" "Return a list of a the TNs that conflict with TN. Sort of, kind of. For\n" " debugging use only. Probably doesn't work on :COMPONENT TNs." msgstr "" -#: target:compiler/debug.lisp +#: src/compiler/debug.lisp msgid "Return the Nth VOP in the IR2-Block pointed to by Thing." msgstr "" -#: target:compiler/dump.lisp -msgid "Compiler bug: ~S not a legal fasload operator." +#: src/compiler/xref.lisp +msgid "Reinitialize the cross-reference database." msgstr "" -#: target:compiler/dump.lisp -msgid "Tried to output ~D bytes, but only ~D made it." +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where a globally-defined\n" +"function may be called at runtime." msgstr "" -#: target:compiler/dump.lisp -msgid "This object cannot be dumped into a fasl file:~% ~S" +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where GLOBAL-VARIABLE\n" +"may be referenced at runtime." msgstr "" -#: target:compiler/dump.lisp -msgid "~S already dumped?" +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where GLOBAL-VARIABLE may\n" +"be bound at runtime." msgstr "" -#: target:compiler/dump.lisp -msgid "Warning: dumping ~s as 0l0~%" +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where GLOBAL-VARIABLE may\n" +"be set at runtime." +msgstr "" + +#: src/compiler/dyncount.lisp +msgid "" +"When T, emit extra code to collect dynamic statistics about vop usages." +msgstr "" + +#: src/compiler/dyncount.lisp +msgid "Holds the TN for the counts vector." +msgstr "" + +#: src/compiler/dump.lisp +msgid "Compiler bug: ~S not a legal fasload operator." +msgstr "" + +#: src/compiler/dump.lisp +msgid "Tried to output ~D bytes, but only ~D made it." msgstr "" -#: target:compiler/dump.lisp -msgid "Unable to dump long-float" +#: src/compiler/dump.lisp +msgid "This object cannot be dumped into a fasl file:~% ~S" +msgstr "" + +#: src/compiler/dump.lisp +msgid "~S already dumped?" msgstr "" -#: target:compiler/dump.lisp +#: src/compiler/dump.lisp msgid "Attempt to dump invalid structure:~% ~S~%How did this happen?" msgstr "" -#: target:compiler/dump.lisp +#: src/compiler/dump.lisp msgid "Dumping reference to obsolete class: ~S" msgstr "" -#: target:compiler/generic/core.lisp +#: src/compiler/generic/core.lisp +msgid "Unknown foreign symbol: ~S" +msgstr "" + +#: src/compiler/generic/core.lisp msgid "Unresolved forward reference." msgstr "" -#: target:compiler/generic/core.lisp +#: src/compiler/generic/core.lisp msgid "#<Code Instruction Stream for ~S>" msgstr "" -#: target:compiler/generic/core.lisp +#: src/compiler/generic/core.lisp msgid "Writing ~D bytes to ~S would cause it to overflow." msgstr "" -#: target:compiler/generic/core.lisp +#: src/compiler/generic/core.lisp msgid "Writing another byte to ~S would cause it to overflow." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/generic/new-genesis.lisp +msgid "Rounds number up to be an integral multiple of size." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Handle on Nil." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Number of bits in the low half of the descriptor" +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Alignment requirement for spaces in the target.\n" +" Must be at least (ash 1 descriptor-low-bits" +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Return a descriptor for a block of LENGTH bytes out of SPACE. The free\n" +" pointer is boosted as necessary. If any additional memory is needed, we\n" +" vm_allocate it. The descriptor returned is a pointer of type LOWTAG." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Return the lowtag bits for DES." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Return the bits of DES." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Return a SAP pointing to the piece of memory DES refers to. The lowtag\n" +" bits of DES are ignored." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Handle on the trap object." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Head of list of functions to be called when the Lisp starts up." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Used by normal loader." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Write VALUE (a descriptor) INDEX words from ADDRESS (also a descriptor)." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Write VALUE (a descriptor) at ADDRESS (also a descriptor)." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Return the value (as a descriptor) INDEX words from ADDRESS (a descriptor)." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Return the value at ADDRESS (a descriptor)." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Allocate LENGTH words in SPACE and return a new descriptor of type LOWTAG\n" +" pointing to them." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Allocate LENGTH units of ELEMENT-SIZE bits plus a header word in SPACE and\n" +" return an ``other-pointer'' descriptor to them. Initialize the header " +"word\n" +" with the resultant length and TYPE." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Allocate LENGTH units of ELEMENT-SIZE plus a header plus a length slot in\n" +" SPACE and return an ``other-pointer'' descriptor to them. Initialize the\n" +" header word with TYPE and the length slot with LENGTH." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Copy string into the CORE and return a descriptor to it." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Copy the bignum to the core." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Makes a number pair of TYPE (ratio or complex) and fills it in." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Copy the given number to the core, or flame out if we can't deal with it." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Allocate a cons cell in SPACE and fill it in with CAR and CDR." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Generates code to push the THING onto the given cold load LIST." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Initializes the cold load symbol-hacking data structures." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "FOP functions for cold loading." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Loads the file named by FileName into the cold load image being built." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Return the version number from the symbol table file Filename.\n" +" Value is 0 if Filename is null or the file doesn't exist." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Builds a kernel Lisp image from the .FASL files specified in the given\n" +" File-List and writes it to a file named by Core-Name." +msgstr "" + +#: src/compiler/eval-comp.lisp msgid "Fatal error, aborting evaluation." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/eval-comp.lisp msgid "Wrong argument count, wanted ~D and got ~D." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/eval-comp.lisp msgid "Wrong number of arguments passed -- ~S." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/eval-comp.lisp msgid "Function called with odd number of keyword arguments." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/eval-comp.lisp msgid "Unknown keyword argument -- ~S." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "[PUSH: growing stack.]~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "pushing ~D.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "Attempt to pop empty eval stack." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "popping ~D --> ~S.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "[EXTEND: growing stack.]~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "extending to ~D.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "shrinking to ~D.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "setting top to ~D.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "" "If the interpreted function cache has more functions than this come GC time," "\n" @@ -18776,180 +19175,180 @@ msgid "" " *INTERPRETED-FUNCTION-CACHE-THRESHOLD*." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "" "If an interpreted function goes uncalled for more than this many GCs, then\n" " it is eligible for flushing from the cache." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "" "Clear all entries in the eval function cache. This allows the internal\n" " representation of the functions to be reclaimed, and also lazily forces\n" " macroexpansions to be recomputed." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "C::%UNKNOWN-VALUES should never be in interpreter's IR1." msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "Unknown XOP ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "Unknown inline function: ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "Can't find ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~|~%;;;; Byte component ~S~2%" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid ";;; Functions:~%" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~%;;;Disassembly:~2%" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "<bogus index>" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "Entry point, frame-size=~D~%" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-local ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-arg ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-const ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-sys-const ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-int ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-neg-int ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "pop-local ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "pop-n ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~:[~;named-~]call, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~:[~;named-~]tail-call, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~:[~;named-~]multiple-call, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "local call ~D, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "local tail-call ~D, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "local multiple-call ~D, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "return, ~D vals" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "branch ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "if-true ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "if-false ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "if-eq ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "xop ~A~@[ ~D~]" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "inline ~A" msgstr "" -#: target:pcl/init.lisp target:pcl/defclass.lisp target:pcl/macros.lisp +#: src/pcl/init.lisp src/pcl/defclass.lisp src/pcl/macros.lisp msgid "Malformed plist in doplist, odd number of elements." msgstr "" -#: target:pcl/macros.lisp +#: src/pcl/macros.lisp msgid "~@<~S is not a legal class name.~@:>" msgstr "" -#: target:pcl/macros.lisp +#: src/pcl/macros.lisp msgid "No class named ~S." msgstr "" -#: target:pcl/macros.lisp +#: src/pcl/macros.lisp msgid "~S is not a legal class name." msgstr "" -#: target:pcl/macros.lisp +#: src/pcl/macros.lisp msgid "" "Returns the PCL class metaobject named by SYMBOL. An error of type\n" " SIMPLE-ERROR is signaled if the class does not exist unless ERRORP\n" " is NIL in which case NIL is returned. SYMBOL cannot be a keyword." msgstr "" -#: target:pcl/low.lisp +#: src/pcl/low.lisp msgid "Set the name of a compiled function object and return the function." msgstr "" -#: target:pcl/low.lisp +#: src/pcl/low.lisp msgid "" "PCL debugging aid that breaks into the debugger each time\n" "`compile-lambda' is invoked." msgstr "" -#: target:pcl/low.lisp +#: src/pcl/low.lisp msgid "" "If true (the default), then `compile-lambda' will try to silence\n" "the compiler as completely as possible. Currently this means that\n" "`*compile-print*' will be bound to nil during compilation." msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "" "~@<The declaration ~S is not understood by ~S. ~\n" " Please put ~S on one of the lists ~S, ~S, or " @@ -18959,53 +19358,57 @@ msgid "" " argument).~@:>" msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "~@<Invalid slot access specifier ~s in ~s.~@:>" msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "~@<Invalid slot access declaration ~s.~@:>" msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "~@<Invalid auto-compile specifier ~s in ~s.~@:>" msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "~@<Invalid auto-compile declaration ~s.~@:>" msgstr "" -#: target:pcl/fin.lisp +#: src/pcl/fin.lisp msgid "" "~@<Attempt to funcall a funcallable instance without first ~\n" " setting its function.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp +msgid "Defclass already names a declaration: ~S." +msgstr "" + +#: src/pcl/defclass.lisp msgid "~S is not a legal defclass option." msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "" "~@<The value of the ~s option (~s) is not a legal ~\n" " class name.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "~@<~S is not a legal slot specification.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "" "~@<In the class definintion of ~s, the slot specification ~s ~\n" " is obsolete. Convert it to ~s.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "~@<~S is not a class in *early-class-definitions*.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "" "~@<More than one early class defines a slot with the ~\n" " name ~S. This can't work because the bootstrap ~\n" @@ -19013,55 +19416,59 @@ msgid "" " slots.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "Discard it." msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "" "~@<The defclass option ~S is not supported by ~\n" " the bootstrap object system.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "Slot ~S not found in class ~S" msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "" "~@<Trying to load (or compile) PCL in an environment in which it ~\n" " has already been loaded. This doesn't work, you will have to ~\n" " get a fresh lisp (reboot) and then load PCL.~@:>" msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "Try loading (or compiling) PCL anyways." msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp +msgid "Obsolete, don't use." +msgstr "" + +#: src/pcl/defs.lisp msgid "~@<~S is not a legal specializer type.~@:>" msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "~@<~s is neither a type nor a specializer.~@:>" msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "Bad argument to type-class." msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "~s is not a type." msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "" "For class slots, the class defininig the slot.\n" "For inherited class slots, this is the superclass from which the slot\n" "was inherited." msgstr "" -#: target:pcl/fngen.lisp +#: src/pcl/fngen.lisp msgid "" "Flush cached emf functions. If GF is supplied, it should be a\n" " generic function metaobject or the name of a generic function, and\n" @@ -19069,137 +19476,137 @@ msgid "" " function. If GF is not supplied, all cached emfs are flushed." msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Wrapper ~S" msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Unknown wrapper state" msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "" "~@<PCL cannot handle the specializer ~S ~\n" " (meta-specializer ~S).~@:>" msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Line is reserved." msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "" "~@<Bad cache ~S: Value at location ~D is ~D ~\n" " lines from its home, limit is ~D.~@:>" msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Attempt to fill a reserved cache line." msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Transfering something into a reserved cache line." msgstr "" -#: target:pcl/dlisp.lisp +#: src/pcl/dlisp.lisp msgid "Every metatype is T." msgstr "" -#: target:pcl/dlisp.lisp +#: src/pcl/dlisp.lisp msgid "Can't do a slot reg for this metatype." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~~@<Generic function ~a: ~?.~~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Invalid generic function parameter name ~a" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "Optional and key parameters of generic functions ~\n" " may not have default values or supplied-p ~\n" " parameters: ~<~s~>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~s is not allowed in generic function lambda lists" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~~@<Generic function ~~s: ~?.~~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "The option ~s appears more than once" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Declaration specifier ~s is not allowed" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "Argument precedence order must list all ~\n" " required parameters and only those: ~s" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "Duplicate parameter names in argument ~\n" " precedence order: ~s" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Special operators cannot be made generic functions" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Unsupported option ~s" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "If true, allow inlining of methods in effective methods." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<Defining method ~s ~s ~s using inline slot access in a ~\n" " non-null lexical environment means that it cannot be ~\n" " automatically recompiled.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "The method-lambda argument to make-method-function, ~S,~\n" " is not a lambda form" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "Assignment to method parameter~p ~{~s~^, ~} ~\n" " might prevent CLOS optimizations" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Wrong number of args." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "1 or 2 args expected." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "1 arg expected." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<The set of methods ~s applicable to argument~p ~\n" " ~{~s~^, ~} to call-next-method is different from ~\n" @@ -19207,11 +19614,11 @@ msgid "" " method argument~p ~{~s~^, ~}.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "When true, compile interpreted method functions." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~&~@<At the time the method with qualifiers ~S and ~\n" " specializers ~S on the generic function ~S ~\n" @@ -19221,381 +19628,381 @@ msgid "" " may mean that this method was compiled improperly.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<~S already names an ordinary function or a macro. ~\n" " If you want to replace it with a generic function, you should remove ~\n" " the existing definition beforehand.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<Discard the existing definition of ~S.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<The lambda-list ~S is incompatible with ~\n" " existing methods of ~S.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~~@<Attempt to add the method ~~S to the generic ~\n" " function ~~S, but ~?.~~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "more" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "fewer" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "the method has ~A required arguments than the ~\n" " generic function" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "the method has ~S optional arguments than the ~\n" " generic function" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "the method and generic function differ in whether ~\n" " they accept rest or keyword arguments" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "the method does not accept each of the keyword ~\n" " arguments ~S" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<The function ~S is not already defined.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<~S should be on the list ~S.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<The function of the funcallable instance ~S ~\n" " has not been set.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<No way to determine the lambda list~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<The ~s argument (~S) was neither a class nor a ~\n" " symbol naming a class.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~S is not an early-method." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Early add-method didn't get a funcallable instance." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Early add-method didn't get an early method." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Early remove-method didn't get a funcallable instance." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Early remove-method didn't get an early method." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Can't get early method." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<Qualifiers must be non-null atoms: ~s~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<~S used as a specializer, ~\n" " but is not the name of a class.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~S is not a legal specializer." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Set to true to activate the inline slot access optimization." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "When true, check slot values against specified slot types." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "When true, optimize slot access through slot reader/writer functions." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Cannot optimize slot access to" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "The class is not a standard class" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "The class doesn't contain a slot with name ~s" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Slot ~s is a class slot" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "There are non-standard accessors for slot ~s" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "" "Slot ~s is not at the same location ~\n" " in the class and all of its subclasses" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Auto-compiling method ~s." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "" "Methods may need to be recompiled for the changed ~\n" " class layout of" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "The class is not defined at compile time" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "" "~s has a method that is not a standard ~\n" " slot accessor" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Methods of ~s access different slots" msgstr "" -#: target:pcl/slots-boot.lisp +#: src/pcl/slots-boot.lisp msgid "~@<~S is not a standard-class.~@:>" msgstr "" -#: target:pcl/slots-boot.lisp +#: src/pcl/slots-boot.lisp msgid "" "~@<Slot ~S in class ~S ~\n" " does not have standard allocation.~@:>" msgstr "" -#: target:pcl/slots-boot.lisp +#: src/pcl/slots-boot.lisp msgid "" "~@<Slot ~S in class ~S ~\n" " does not have standard allocation.~@:>" msgstr "" -#: target:pcl/slots-boot.lisp +#: src/pcl/slots-boot.lisp msgid "" "~@<The wrapper for class ~S does not have ~\n" " the slot ~S.~@:>" msgstr "" -#: target:pcl/defcombin.lisp target:pcl/combin.lisp +#: src/pcl/defcombin.lisp src/pcl/combin.lisp msgid "has more than one qualifier" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "has an invalid qualifier" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "" "~@<~s was called outside the dynamic scope ~\n" " of a method combination function (inside the body of ~\n" " ~s or a method on the generic function ~s).~@:>" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "~@<~S used outside of a effective method form.~@:>" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "" "~@<Invalid keyword argument~p ~{~s~^, ~}. ~\n" " Valid keywords are: ~{~s~^, ~}.~@:>" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "Invalid keyword argument ~s" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~@<Slot ~s of class ~s is unbound in object ~s~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "" "~@<Cannot get standard value of slot ~s of class ~s ~\n" " in object ~s~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~&Name ~S caching cost ~D dispatch cost ~D~%" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "" "Precompute effective methods at method load time if the generic\n" " function has less than this number of methods. If zero,\n" " no effective methods are precomputed at method load time." msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~@<The function ~S requires at least ~D arguments.~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~<The function ~S requires at least ~D arguments.~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "" "~@<Vicious metacircle: The computation of an ~\n" " effective method of ~s for arguments of types ~s uses ~\n" " the effective method being computed.~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "This can't happen." msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~@<~s cannot handle the second argument ~s.~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~&There are ~4d dfuns of type ~s" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~&DFUN constructor caching is ~A." msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "enabled" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "disabled" msgstr "" -#: target:pcl/ctor.lisp +#: src/pcl/ctor.lisp msgid "~@<Not a property list: ~S.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<The function of the funcallable instance ~S ~\n" " has not been set.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<Slot allocation ~S is not supported ~\n" " in bootstrap.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "The standard method combination." msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "In *built-in-classes*: ~S has ~S as a superclass,~%~\n" " but ~S is not itself a class in *built-in-classes*." msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "~@<~S is not the name of a class.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<No matching method for the generic function ~\n" " ~S, when called with arguments ~S.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "Retry call to ~S." msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "~@<In method ~S: No next method for arguments ~S.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<Generic function ~S: ~\n" " No primary method given arguments ~S~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<In a call to ~s with arguments ~:s: ~\n" " The method ~s has invalid qualifiers for method ~\n" " combination ~s.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<In a call to ~s with arguments ~:s: ~\n" " The methods ~{~s~^, ~} have invalid qualifiers for ~\n" " method combination ~s.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "~@<The slot ~S is unbound in the object ~S.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "is not a symbol and so cannot be bound" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "is a keyword and so cannot be bound" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "cannot be bound" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "is a constant and so cannot be bound" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "" "~@<The slot ~s has neither ~s nor ~s ~\n" " allocation, so it can't be read by the default " @@ -19603,13 +20010,13 @@ msgid "" " method.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "" "~@<The slot ~s has neither ~s nor ~s allocation, ~\n" " so it can't be written by the default ~s method.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "" "~@<The slot ~s has neither ~s nor ~s ~\n" " allocation, so it can't be read by the default " @@ -19617,241 +20024,241 @@ msgid "" " method.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "Structure slots cannot be unbound." msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "Condition slots cannot be unbound." msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "" "~~@<When attempting to ~A, the slot ~S is missing ~\n" " from the object ~S.~~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "read the slot's value (slot-value)" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "set the slot's value to ~S (setf of slot-value)" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "test to see if slot is bound (slot-boundp)" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "make the slot unbound (slot-makunbound)" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "~@<Can't allocate an instance of class ~S.~@:>" msgstr "" -#: target:pcl/init.lisp +#: src/pcl/init.lisp msgid "" "~@<Invalid initialization argument~P ~2I~_~\n" " ~<~{~S~^, ~}~@:> ~I~_in call for class ~S.~:>" msgstr "" -#: target:pcl/seal.lisp +#: src/pcl/seal.lisp msgid "~@<Invalid sealing specifier ~s.~@:>" msgstr "" -#: target:pcl/seal.lisp +#: src/pcl/seal.lisp msgid "~s is sealed wrt ~a" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "" "~~@<While computing the class precedence list ~\n" " of the class ~A: ~?.~~@:>" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "named ~S" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "The class ~A is a forward referenced class" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "" "The class ~A is a forward referenced class. ~\n" " The class ~A is ~A." msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "a direct superclass of the class ~A" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "" "reached from the class ~A by following~@\n" " the direct superclass chain through: ~A~\n" " ~% ending at the class ~A" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "~{~% the class ~A,~}" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "" "It is not possible to compute the class precedence list because ~\n" " there ~A in the local precedence relations. ~\n" " ~A because:~{~% ~A~}." msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "are circularities" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "is a circularity" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "These arise" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "This arises" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "the class ~A appears in the supers of the class ~A" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "the class ~A follows the class ~A in the supers of the class ~A" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "Instance" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<Structure slots must have ~s allocation.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<~S doesn't seem to have a method function.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<Attempt to reinitialize the method ~S. ~\n" " Method objects cannot be reinitialized.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<When initializing the method ~S, ~\n" " the ~S initialization argument was ~S, ~\n" " which ~A.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "is not a string or NULL" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "is not a function" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "Contains ~S which ~A" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "is not a non-null atom" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "is neither a class object nor an eql specializer" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "The value of the ~s initarg, ~s, ~A." msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~~@<When initializing the generic-function ~S: ~\n" " The ~S initialization argument was ~A. ~\n" " It must be ~A.~~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<~S does not name a generic function.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<There is no method for the generic function ~S ~\n" " matching argument specifiers ~S.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<No method on ~S with qualifiers ~S and ~\n" " specializers ~S.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<No method on ~S with qualifiers ~S and ~\n" " specializers ~S.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<The generic function ~s takes ~d required argument~p.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<The method ~S is already part of the generic ~\n" " function ~S. It can't be added to another generic ~\n" " function until it is removed from the first one.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<Method ~s contains invalid qualifiers for ~\n" " the standard method combination.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<Method ~s contains invalid qualifiers for ~\n" " the method combination ~s.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<Generic function ~S requires at least ~D arguments.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "In get-accessor-method-function." msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "The key for the last case arg to mcase was not T." msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "" "~@<Invalid options to a short method combination type. ~\n" " The method combination type ~S accepts one option which ~\n" " must be either ~s or ~s.~@:>" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "" "~@<The method ~S ~A. ~\n" " The method combination type ~S was defined with the ~\n" @@ -19860,95 +20267,95 @@ msgid "" " ~s.~@:>" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "has no qualifiers" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "has an illegal qualifier" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "" "~@<More than one method of type ~S ~\n" " with the same specializers.~@:>" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "No ~S methods." msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "" "~@<In the method group specifier ~S, ~\n" " ~S isn't a valid qualifier pattern.~@:>" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "methods matching one of the patterns: ~{~S, ~} ~S" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "methods matching the pattern: ~S" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "Invalid parameter specifier: ~s" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~%~S is an instance of class ~S:" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~% The following slots have :INSTANCE allocation:" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~% The following slots have :CLASS allocation:" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~% The following slots have allocation as shown:" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~A is a generic function.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Its lambda-list is:~% ~S~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Generic function documentation:~% ~s~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Its methods are:~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid " Method documentation: ~s~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&~@<~S is a class, it is an instance of ~S.~@:>~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Its proper name is ~S.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Its name is ~S, but this is not a proper name.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "It has no name (the name is NIL).~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "" "The direct superclasses are: ~:S, and the direct~%~\n" " subclasses are: ~:S. The class is ~:[not ~;~]finalized. ~\n" @@ -19956,92 +20363,84 @@ msgid "" " There are ~D methods specialized for this class." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&Its direct slots are:~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid " ~a, documentation ~s~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&~S is a ~S.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "It has ~D internal and ~D external symbols (~D total).~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "It uses the packages ~{~S~^, ~}.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "It is used by the packages ~{~S~^, ~}.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&~S is an ~a hash table." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&Its size is ~d buckets." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&Its rehash-size is ~d." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&Its rehash-threshold is ~d." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~@<Default ~s method for ~s called.~@>" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~@<Can't dump wrapper for anonymous class ~S.~@:>" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~@<Can't use anonymous or undefined class as constant: ~S~:@>" msgstr "" -#: target:pcl/cmucl-documentation.lisp -msgid "Invalid function name ~s" -msgstr "" - -#: target:pcl/cmucl-documentation.lisp -msgid "~@<~S is not the name of a structure type.~@:>" -msgstr "" - -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Returns a type specifier for the kind of object returned by the\n" " Stream. Class FUNDAMENTAL-CHARACTER-STREAM provides a default method\n" " which returns CHARACTER." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Return true if Stream is not closed. A default method is provided\n" " by class FUNDAMENTAL-STREAM which returns true if CLOSE has not been\n" " called on the stream." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Closes the given Stream. No more I/O may be performed, but\n" " inquiries may still be made. If :Abort is non-nil, an attempt is made\n" " to clean up the side effects of having created the stream." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This reads one character from the stream. It returns either a\n" " character object, or the symbol :EOF if the stream is at end-of-file.\n" @@ -20049,14 +20448,14 @@ msgid "" " method for this function." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Un-does the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.\n" " Returns NIL. Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM\n" " must define a method for this function." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This is used to implement READ-CHAR-NO-HANG. It returns either a\n" " character, or NIL if no input is currently available, or :EOF if\n" @@ -20066,14 +20465,14 @@ msgid "" " their own method." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Used to implement PEEK-CHAR; this corresponds to peek-type of NIL.\n" " It returns either a character or :EOF. The default method calls\n" " STREAM-READ-CHAR and STREAM-UNREAD-CHAR." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Used by LISTEN. Returns true or false. The default method uses\n" " STREAM-READ-CHAR-NO-HANG and STREAM-UNREAD-CHAR. Most streams should \n" @@ -20081,7 +20480,7 @@ msgid "" " always be more efficient than the default method." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Used by READ-LINE. A string is returned as the first value. The\n" " second value is true if the string was terminated by end-of-file\n" @@ -20089,24 +20488,24 @@ msgid "" " calls to STREAM-READ-CHAR." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Implements CLEAR-INPUT for the stream, returning NIL. The default\n" " method does nothing." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "Implements READ-SEQUENCE for the stream." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Writes character to the stream and returns the character. Every\n" " subclass of FUNDAMENTAL-CHARACTER-OUTPUT-STREAM must have a method\n" " defined for this function." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This function returns the column number where the next character\n" " will be written, or NIL if that is not meaningful for this stream.\n" @@ -20117,11 +20516,11 @@ msgid "" " always return NIL." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "Return the stream line length or Nil." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This is a predicate which returns T if the stream is positioned at\n" " the beginning of a line, else NIL. It is permissible to always return\n" @@ -20137,7 +20536,7 @@ msgid "" " either STREAM-START-LINE-P or STREAM-FRESH-LINE." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This is used by WRITE-STRING. It writes the string to the stream,\n" " optionally delimited by start and end, which default to 0 and NIL.\n" @@ -20146,13 +20545,13 @@ msgid "" " STREAM-WRITE-CHAR." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Writes an end of line, as for TERPRI. Returns NIL. The default\n" " method does (STREAM-WRITE-CHAR stream #NEWLINE)." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Outputs a new line to the Stream if it is not positioned at the\n" " begining of a line. Returns T if it output a new line, nil\n" @@ -20160,26 +20559,26 @@ msgid "" " STREAM-START-LINE-P and STREAM-TERPRI." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Attempts to ensure that all output sent to the Stream has reached\n" " its destination, and only then returns false. Implements\n" " FINISH-OUTPUT. The default method does nothing." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Attempts to force any buffered output to be sent. Implements\n" " FORCE-OUTPUT. The default method does nothing." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Clears the given output Stream. Implements CLEAR-OUTPUT. The\n" " default method does nothing." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Writes enough blank space so that the next character will be\n" " written at the specified column. Returns true if the operation is\n" @@ -20189,23 +20588,23 @@ msgid "" " #SPACE character; it returns NIL if STREAM-LINE-COLUMN returns NIL." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "Implements WRITE-SEQUENCE for the stream." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Used by READ-BYTE; returns either an integer, or the symbol :EOF\n" " if the stream is at end-of-file." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Implements WRITE-BYTE; writes the integer to the stream and\n" " returns the integer as the result." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid " Gray Streams Protocol Support" msgstr "" diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po b/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po index 7267ae1c5..b7b6a0969 100644 --- a/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po +++ b/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po @@ -14,18 +14,18 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/bsd-os.lisp +#: src/code/bsd-os.lisp msgid "Version string for supporting software" msgstr "소프트 웨어를 지ì›í•˜ê¸°ìœ„í•œ ë²„ì „ 문ìžì—´" -#: target:code/bsd-os.lisp +#: src/code/bsd-os.lisp msgid "Returns a string describing version of the supporting software." msgstr "문ìžì—´ì„ 지ì›í•˜ëŠ” ì†Œí”„íŠ¸ì›¨ì–´ì˜ ë²„ì „ì„ ì„¤ëª…ì„ ë°˜í™˜í•©ë‹ˆë‹¤." -#: target:code/bsd-os.lisp +#: src/code/bsd-os.lisp msgid "Unix system call getrusage failed: ~A." msgstr "ìœ ë‹‰ìŠ¤ 시스템 í˜¸ì¶œì— ì‹¤íŒ¨ getrusage: ~A 등급." -#: target:code/bsd-os.lisp +#: src/code/bsd-os.lisp msgid "Getpagesize failed: ~A" msgstr "Getpagesize 실패: ~ A 등급" diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po b/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po index 1d7dce1f7..3ec1d37fc 100644 --- a/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po +++ b/i18n/locale/ko/LC_MESSAGES/cmucl-mp.po @@ -14,59 +14,59 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Class not yet defined: ~S" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Syscall ~A failed: ~A" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Return the real time in seconds." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Return the run time in seconds" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Return the process state which is either Run, Killed, or a wait reason." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Returns the current process." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "A list of all alive processes." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Return a list of all the live processes." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Execute the body the scheduling disabled." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Increaments the reference by delta in a single atomic operation" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Decrements the reference by delta in a single atomic operation" msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Atomically push object onto place." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Atomically pop place." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Make a process which will run FUNCTION when it starts up. By\n" " default the process is created in a runnable (active) state.\n" @@ -99,37 +99,37 @@ msgid "" "\telement." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Interrupt process and cause it to evaluate function." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Destroy a process. The process is sent a interrupt which throws to\n" " the end of the process allowing it to unwind gracefully." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Restart process by unwinding it to its initial state and calling its\n" " initial function." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Restart process, unwinding it to its initial state and calls\n" " function with args." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Disable process from being runnable until enabled." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Allow process to become runnable again after it has been disabled." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Causes the process to wait until predicate returns True. Processes\n" " can only call process-wait when scheduling is enabled, and the predicate\n" @@ -138,7 +138,7 @@ msgid "" " The single True predicate value is returned." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Causes the process to wait until predicate returns True, or the\n" " number of seconds specified by timeout has elapsed. The timeout may\n" @@ -146,7 +146,7 @@ msgid "" " returned, or NIL if the timeout was reached." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Try to gracefully destroy all the processes giving them some\n" " chance to unwinding, before shutting down multi-processing. This is\n" @@ -154,13 +154,13 @@ msgid "" " Multi-processing can be restarted by calling init-multi-processing." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Destroyed ~d process; remaining ~d~%" msgid_plural "Destroyed ~d processes; remaining ~d~%" msgstr[0] "" msgstr[1] "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "An idle loop to be run by the initial process. The select based event\n" " server is called with a timeout calculated from the minimum of the\n" @@ -173,36 +173,36 @@ msgid "" " to unwind." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Allow other processes to run." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Return the accrued real time elapsed while the given process was\n" " scheduled. The returned time is a double-float in seconds." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Return the accrued run time elapsed for the given process. The returned\n" " time is a double-float in seconds." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Return the real time elapsed since the given process was last\n" " descheduled. The returned time is a double-float in seconds." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Start a regular SIGALRM interrupt which calls process-yield. An optional\n" " time in seconds and micro seconds may be provided. Note that CMUCL code\n" " base is not too interrupt safe so this may cause problems." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Wait until FD is usable for DIRECTION and return True. DIRECTION should be\n" " either :INPUT or :OUTPUT. TIMEOUT, if supplied, is the number of seconds " @@ -210,31 +210,31 @@ msgid "" " wait before giving up and returing NIL." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "This function causes execution to be suspended for N seconds. N may\n" " be any non-negative, non-complex number." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Executes body and returns the values of the last form in body. However, if\n" " the execution takes longer than timeout seconds, abort it and evaluate\n" " timeout-forms, returning the values of last form." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Show the all the processes, their whostate, and state. If the optional\n" " verbose argument is true then the run, real, and idle times are also\n" " shown." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "Top-level READ-EVAL-PRINT loop for processes." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Enter the idle loop, starting a new process to run the top level loop.\n" " The awaking of sleeping processes is timed better with the idle loop " @@ -245,7 +245,7 @@ msgid "" " default when there is better MP debug support etc." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Create a Lisp connection listener, listening on a TCP port for new\n" " connections and starting a new top-level loop for each. If a password\n" @@ -254,7 +254,7 @@ msgid "" " defaults to 1025." msgstr "" -#: target:code/multi-proc.lisp +#: src/code/multi-proc.lisp msgid "" "Execute the body with the lock held. If the lock is held by another\n" " process then the current process waits until the lock is released or\n" diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po b/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po index 8aad97bb1..edbc074a8 100644 --- a/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po +++ b/i18n/locale/ko/LC_MESSAGES/cmucl-sse2.po @@ -14,129 +14,129 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:compiler/x86/float-sse2.lisp -msgid "Ignoring bogus i387 Constant ~a" +#: src/compiler/x86/sse2-array.lisp src/compiler/x86/sse2-c-call.lisp +#: src/compiler/x86/sse2-sap.lisp src/compiler/x86/float-sse2.lisp +msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" -#: target:compiler/x86/sse2-array.lisp target:compiler/x86/sse2-c-call.lisp -#: target:compiler/x86/sse2-sap.lisp target:compiler/x86/float-sse2.lisp -msgid "Unknown SC to SC-Case for ~S:~% ~S" +#: src/compiler/x86/float-sse2.lisp +msgid "Ignoring bogus i387 Constant ~a" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "float move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "float to pointer coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "" "Load TN allocated, but no move function?~@\n" "\t VM definition inconsistent, recompile and try again." msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "pointer to float coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex float to pointer coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex double-double float to pointer coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "pointer to complex float coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "float argument move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex float argument move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex double-double-float argument move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline float arithmetic" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline float comparison" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline float coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline float truncate" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex single-float creation" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex double-float creation" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex float realpart" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "complex float imagpart" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline dummy FP register bias" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double-double float move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double double float to pointer coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "pointer to double-double-float coercion" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double double-float argument move" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline double-double-float creation" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double-double high part" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "double-double low part" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex double-double-float creation" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex float arithmetic" msgstr "" -#: target:compiler/x86/float-sse2.lisp +#: src/compiler/x86/float-sse2.lisp msgid "inline complex float/float arithmetic" msgstr "" diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po b/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po index f0d863817..8b29d3e82 100644 --- a/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po +++ b/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po @@ -14,679 +14,679 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Size of control character vector." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Successful" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation not permitted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No such file or directory" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No such process" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Interrupted system call" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "I/O error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Device not configured" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Arg list too long" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Exec format error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad file descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No child process" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Resource deadlock avoided" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No more processes" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Try again" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Out of memory" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Permission denied" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad address" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Block device required" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Device or resource busy" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File exists" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cross-device link" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No such device" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Not a director" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Is a directory" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid argument" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File table overflow" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many open files" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Inappropriate ioctl for device" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Text file busy" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File too large" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No space left on device" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Illegal seek" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read-only file system" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many links" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Broken pipe" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Numerical argument out of domain" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Result too large" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Math result not representable" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation would block" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Resource temporarily unavailable" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation now in progress" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation already in progress" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Socket operation on non-socket" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Destination address required" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Message too long" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol wrong type for socket" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol not available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol not supported" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Socket type not supported" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation not supported on socket" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol family not supported" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Address family not supported by protocol family" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Address already in use" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Can't assign requested address" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Network is down" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Network is unreachable" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Network dropped connection on reset" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Software caused connection abort" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Connection reset by peer" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No buffer space available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Socket is already connected" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Socket is not connected" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Can't send after socket shutdown" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many references: can't splice" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Connection timed out" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Connection refused" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many levels of symbolic links" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File name too long" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Host is down" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No route to host" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Directory not empty" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many processes" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many users" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Disc quota exceeded" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "namei should continue locally" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "namei was handled remotely" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Remote file system error _N" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "syscall was handled by Vice" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No message of desired type" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Identifier removed" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Channel number out of range" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Level 2 not synchronized" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Level 3 halted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Level 3 reset" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Link number out of range" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol driver not attached" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No CSI structure available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Level 2 halted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Deadlock situation detected/avoided" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No record locks available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 47" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 48" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad exchange descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad request descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Message tables full" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Anode table overflow" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad request code" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid slot" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File locking deadlock" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bad font file format" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Not a stream device" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No data available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Timer expired" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Out of stream resources" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Machine is not on the network" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Package not installed" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Object is remote" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Link has been severed" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Advertise error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Srmount error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Communication error on send" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Protocol error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Multihop attempted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Not a data message" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Value too large for defined data type" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Name not unique on network" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File descriptor in bad state" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Remote address changed" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Can not access a needed shared library" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Accessing a corrupted shared library" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid ".lib section in a.out corrupted" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Attempting to link in more shared libraries than system limit" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Can not exec a shared library directly" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 88" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation not applicable" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Number of symbolic links encountered during path name traversal exceeds " "MAXSYMLINKS" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 91" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error 92" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Option not supported by protocol" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Operation not supported on transport endpoint" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cannot assign requested address" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Network dropped connection because of reset" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Transport endpoint is already connected" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Transport endpoint is not connected" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cannot send after socket shutdown" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many references: cannot splice" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Stale NFS file handle" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Resource deadlock would occur" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Function not implemented" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Too many symbolic links encountered" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid exchange" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid request descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Exchange full" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No anode" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Invalid request code" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File locking deadlock error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Device not a stream" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Out of streams resources" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "RFS specific error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Attempting to link in too many shared libraries" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cannot exec a shared library directly" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Illegal byte sequence" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Interrupted system call should be restarted _N" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Streams pipe error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Address family not supported by protocol" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Cannot send after transport endpoint shutdown" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Structure needs cleaning" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Not a XENIX named type file" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "No XENIX semaphores available" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Is a named type file" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Remote I/O error" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Quota exceeded" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Returns a string describing the error number which was returned by a\n" " UNIX system call." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unknown error [~d]" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Class not yet defined: ~S" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Syscall ~A failed: ~A" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Set the user ID of the calling process to UID.\n" " If the calling process is the super-user, set the real\n" @@ -694,7 +694,7 @@ msgid "" " if not, the effective user ID is set to UID." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Set the group ID of the calling process to GID.\n" " If the calling process is the super-user, set the real\n" @@ -702,23 +702,23 @@ msgid "" " if not, the effective group ID is set to GID." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Test for read permission" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Test for write permission" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Test for execute permission" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Test for presence of file" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given a file path (a string) and one of four constant modes,\n" " unix-access returns T if the file is accessible with that\n" @@ -732,61 +732,61 @@ msgid "" "\tf_ok Presence of file." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given a file path string, unix-chdir changes the current working \n" " directory to the one specified." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set user ID on execution" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set group ID on execution" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Save text image after execution" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read by owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Write by owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Execute (search directory) by owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read by group" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Write by group" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Execute (search directory) by group" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read by others" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Write by others" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Execute (search directory) by others" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given a file path string and a constant mode, unix-chmod changes the\n" " permission mode for that file to the one specified. The new mode\n" @@ -812,7 +812,7 @@ msgid "" " otherwise." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given an integer file descriptor and a mode (the same as those\n" " used for unix-chmod), unix-fchmod changes the permission mode\n" @@ -820,7 +820,7 @@ msgid "" " was successful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Given a file path, an integer user-id, and an integer group-id,\n" " unix-chown changes the owner of the file and the group of the\n" @@ -829,27 +829,27 @@ msgid "" " fail if the caller is not the superuser." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-fchown is like unix-chown, except that it accepts an integer\n" " file descriptor instead of a file path name." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getdtablesize returns the maximum size of the file descriptor\n" " table. (i.e. the maximum number of descriptors that can exist at\n" " one time.)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-close takes an integer file descriptor as an argument and\n" " closes the file associated with it. T is returned upon successful\n" " completion, otherwise NIL and an error number." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-creat accepts a file name and a mode (same as those for\n" " unix-chmod) and creates a file by that name with the specified\n" @@ -859,14 +859,14 @@ msgid "" " This interface is made obsolete by UNIX-OPEN." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-dup duplicates an existing file descriptor (given as the\n" " argument) and return it. If FD is not a valid file descriptor, NIL\n" " and an error number are returned." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-dup2 duplicates an existing file descriptor just as unix-dup\n" " does only the new value of the duplicate descriptor may be requested\n" @@ -875,71 +875,71 @@ msgid "" " assigned to the duplicate." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Duplicate a file descriptor" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get file desc. flags" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set file desc. flags" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get file flags" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set file flags" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get lock" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set owner" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set lock" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set lock, wait for release" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Non-blocking reads" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Append on each write" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Signal pgrp when data ready" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Create if nonexistant" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Truncate to zero length" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error if already created" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-fcntl manipulates file descriptors according to the\n" " argument CMD which can be one of the following:\n" @@ -963,25 +963,25 @@ msgid "" " " msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-link creates a hard link from the file with name1 to the\n" " file with name2." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "set the file pointer" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "increment the file pointer" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "extend the file size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-lseek accepts a file descriptor and moves the file pointer ahead\n" " a certain offset for that file. Whence can be any of the following:\n" @@ -992,58 +992,58 @@ msgid "" " _N" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-mkdir creates a new directory with the specified name and mode.\n" " (Same as those for unix-chmod.) It returns T upon success, otherwise\n" " NIL and an error number." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read-only flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Write-only flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Read-write flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Non-blocking I/O" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Append flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Create if nonexistant flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Truncate flag." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error if already exists." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Don't assign controlling tty" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Non-blocking mode" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Synchronous writes (on ext2)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-open opens the file whose pathname is specified by path\n" " for reading and/or writing as specified by the flags argument.\n" @@ -1061,7 +1061,7 @@ msgid "" " integer file descriptor is returned by unix-open." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-pipe sets up a unix-piping mechanism consisting of\n" " an input pipe and an output pipe. Unix-Pipe returns two\n" @@ -1071,7 +1071,7 @@ msgid "" " the unix error code." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-read attempts to read from the file described by fd into\n" " the buffer buf until it is full. Len is the length of the buffer.\n" @@ -1079,7 +1079,7 @@ msgid "" " number if an error occured." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-readlink invokes the readlink system call on the file name\n" " specified by the simple string path. It returns up to two values:\n" @@ -1087,19 +1087,19 @@ msgid "" " NIL and the Unix error number." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-rename renames the file with string name1 to the string\n" " name2. NIL and an error code is returned if an error occured." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-rmdir attempts to remove the directory name. NIL and\n" " an error number is returned if an error occured." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Perform the UNIX select(2) system call.\n" " (declare (type (integer 0 #.FD-SETSIZE) num-descriptors)\n" @@ -1110,143 +1110,143 @@ msgid "" "\t (optimize (speed 3) (safety 0) (inhibit-warnings 3)))" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-select examines the sets of descriptors passed as arguments\n" " to see if they are ready for reading and writing. See the UNIX\n" " Programmers Manual for more information." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-sync writes all information in core memory which has been\n" " modified to disk. It returns NIL and an error code if an error\n" " occured." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-fsync writes the core image of the file described by\n" " fd to disk." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-truncate truncates the named file to the length (in\n" " bytes) specified by len. NIL and an error number is returned\n" " if the call is unsuccessful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-ftruncate is similar to unix-truncate except that the first\n" " argument is a file descriptor rather than a file name." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-symlink creates a symbolic link named name2 to the file\n" " named name1. NIL and an error number is returned if the call\n" " is unsuccessful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-unlink removes the directory entry for the named file.\n" " NIL and an error code is returned if the call fails." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-write attempts to write a character buffer (buf) of length\n" " len to the file described by the file descriptor fd. NIL and an\n" " error is returned if the call is unsuccessful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-ioctl performs a variety of operations on open i/o\n" " descriptors. See the UNIX Programmer's Manual for more\n" " information." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get terminal attributes." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set terminal attributes." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get terminal output speed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set terminal output speed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Bogus baud rate ~S" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get terminal input speed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set terminal input speed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Send break" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Wait for output for finish" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "See tcflush(3)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Flow control" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set the tty-process-group for the unix file-descriptor FD to PGRP." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Get the tty-process-group for the unix file-descriptor FD." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Get the tty-process-group for the unix file-descriptor FD. If not " "supplied,\n" " FD defaults to /dev/tty." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Set the tty-process-group for the unix file-descriptor FD to PGRP. If not\n" " supplied, FD defaults to /dev/tty." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Set the socket process-group for the unix file-descriptor FD to PGRP." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-exit terminates the current process with an optional\n" " error code. If successful, the call doesn't return. If\n" " unsuccessful, the call returns NIL and an error number." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-stat retrieves information about the specified\n" " file returning them in the form of multiple values.\n" @@ -1255,33 +1255,33 @@ msgid "" " and an error number is returned instead." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-lstat is similar to unix-stat except the specified\n" " file must be a symbolic link." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-fstat is similar to unix-stat except the file is specified\n" " by the file descriptor fd." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "The calling process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Terminated child processes." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Like call getrusage, but return only the system and user time, and returns\n" " the seconds and microseconds as separate values." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getrusage returns information about the resource usage\n" " of the process specified by who. Who can be either the\n" @@ -1290,13 +1290,13 @@ msgid "" " is returned if the call fails." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" " and its children." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "If it works, unix-gettimeofday returns 5 values: T, the seconds and\n" " microseconds of the current time of day, the timezone (in minutes west\n" @@ -1304,95 +1304,95 @@ msgid "" " returns NIL and the errno." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-utimes sets the 'last-accessed' and 'last-updated'\n" " times on a specified file. NIL and an error number is\n" " returned if the call is unsuccessful." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-setreuid sets the real and effective user-id's of the current\n" " process to the specified ones. NIL and an error number is returned\n" " if the call fails." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-setregid sets the real and effective group-id's of the current\n" " process process to the specified ones. NIL and an error number is\n" " returned if the call fails." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getpid returns the process-id of the current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getppid returns the process-id of the parent of the current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getgid returns the real group-id of the current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getegid returns the effective group-id of the current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getpgrp returns the group-id of the calling process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-setpgrp sets the process group on the process pid to\n" " pgrp. NIL and an error number are returned upon failure." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-setpgid sets the process group of the process pid to\n" " pgrp. If pgid is equal to pid, the process becomes a process\n" " group leader. NIL and an error number are returned upon failure." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getuid returns the real user-id associated with the\n" " current process." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-getpagesize returns the number of bytes in a system page." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Unix-gethostname returns the name of the host machine as a string." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-gethostid returns a 32-bit integer which provides unique\n" " identification for the host machine." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Executes the unix fork system call. Returns 0 in the child and the pid\n" " of the child in the parent if it works, or NIL and an error number if it\n" " doesn't work." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Get the value of the environment variable named Name. If no such\n" " variable exists, Nil is returned." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Adds the environment variable named Name to the environment with\n" " the given Value if Name does not already exist. If Name does exist,\n" @@ -1400,36 +1400,36 @@ msgid "" " the value is not changed." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Adds or changes the environment. Name-value must be a string of\n" " the form \"name=value\". If the name does not exist, it is added.\n" " If name does exist, the value is updated to the given value." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Removes the variable Name from the environment" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Returns either :file, :directory, :link, :special, or NIL." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Returns the pathname with all symbolic links resolved." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Error reading link ~S: ~S" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Accepts a Unix file descriptor and returns T if the device\n" " associated with it is a terminal." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Executes the Unix execve system call. If the system call suceeds, lisp\n" " will no longer be running in this process. If the system call fails " @@ -1443,7 +1443,7 @@ msgid "" " function bashes together to form the environment for the exec'ed program." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Unix-getitimer returns the INTERVAL and VALUE slots of one of\n" " three system timers (:real :virtual or :profile). On success,\n" @@ -1451,7 +1451,7 @@ msgid "" " T, it-interval-secs, it-interval-usec, it-value-secs, it-value-usec." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" " Unix-setitimer sets the INTERVAL and VALUE slots of one of\n" " three system timers (:real :virtual or :profile). A SIGALRM signal\n" @@ -1463,83 +1463,83 @@ msgid "" " slots as in unix-getitimer." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Return a USER-INFO structure for the user identified by LOGIN, or NIL if not " "found." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Return a USER-INFO structure for the user identified by UID, or NIL if not " "found." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "The maximum size of the group entry buffer" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Return a GROUP-INFO structure for the group identified by NAME, or NIL if " "not found." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Return a GROUP-INFO structure for the group identified by GID, or NIL if not " "found." msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "CPU time per process (in milliseconds)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Maximum file size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Data segment size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Stack size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Core file size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Number of open files" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Maximum mapped memory" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "CPU time per process" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "File size" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Addess space (resident set size)" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Locked-in-memory address space" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "Number of processes" msgstr "" -#: target:code/unix.lisp +#: src/code/unix.lisp msgid "" "Get the limits on the consumption of system resouce specified by\n" " Resource. If successful, return three values: T, the current (soft)\n" diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po b/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po index 38b072ad0..36dd8ebc8 100644 --- a/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po +++ b/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po @@ -14,87 +14,83 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Returns a string describing the type of the local machine." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Returns a string describing the version of the local machine." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Unknown code-object-fixup kind ~s." msgstr "" -#: target:code/x86-vm.lisp -msgid "Unknown foreign symbol: ~S" -msgstr "" - -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare object's slot value to test-value and if EQ store\n" " new-value in the slot. The original value of the slot is returned." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare symbol's value to test-value and if EQ store\n" " new-value in symbol's value slot and return the original value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare the car of CONS to test-value and if EQ store\n" " new-value its car and return the original value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare the cdr of CONS to test-value and if EQ store\n" " new-value its cdr and return the original value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "" "Atomically compare an element of vector to test-value and if EQ store\n" " new-value the element and return the original value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe push of val onto the list in the symbol global value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe pop from the list in the symbol global value." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe push of val onto the list in the car of cons." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe push of val onto the list in the cdr of cons." msgstr "" -#: target:code/x86-vm.lisp +#: src/code/x86-vm.lisp msgid "Thread safe push of val onto the list in the vector element." msgstr "" -#: target:compiler/x86/c-call.lisp target:compiler/x86/insts.lisp +#: src/compiler/x86/c-call.lisp src/compiler/x86/insts.lisp msgid "Class not yet defined: ~S" msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "Move SRC into DST unless they are location=." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Loads the type bits of a pointer into target independent of\n" " byte-ordering issues." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Allocate an object with a size in bytes given by Size.\n" " The size may be an integer or a TN.\n" @@ -103,30 +99,30 @@ msgid "" " appropriate, allocate from the stack." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Allocate an other-pointer object of fixed Size with a single\n" " word header having the specified Type-Code. The result is placed in\n" " Result-TN." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "Cause an error. ERROR-CODE is the error to cause." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Cause a continuable error. If the error is continued, execution resumes at\n" " LABEL." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Generate-Error-Code Error-code Value*\n" " Emit code for an error with the specified Error-Code and context Values." msgstr "" -#: target:compiler/x86/macros.lisp +#: src/compiler/x86/macros.lisp msgid "" "Generate-CError-Code Error-code Value*\n" " Emit code for a continuable error with the specified Error-Code and\n" @@ -134,139 +130,316 @@ msgid "" " the GENERATE-CERROR-CODE form." msgstr "" -#: target:compiler/x86/array.lisp target:compiler/x86/call.lisp -#: target:compiler/x86/alloc.lisp target:compiler/x86/cell.lisp -#: target:compiler/x86/debug.lisp target:compiler/x86/arith.lisp -#: target:compiler/x86/memory.lisp target:compiler/x86/char.lisp -#: target:compiler/x86/move.lisp +#: src/compiler/x86/array.lisp src/compiler/x86/call.lisp +#: src/compiler/x86/alloc.lisp src/compiler/x86/cell.lisp +#: src/compiler/x86/debug.lisp src/compiler/x86/arith.lisp +#: src/compiler/x86/memory.lisp src/compiler/x86/char.lisp +#: src/compiler/x86/float.lisp src/compiler/x86/move.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "fixnum untagging" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "constant load" msgstr "" -#: target:compiler/x86/call.lisp target:compiler/x86/debug.lisp -#: target:compiler/x86/char.lisp target:compiler/x86/move.lisp +#: src/compiler/x86/call.lisp src/compiler/x86/debug.lisp +#: src/compiler/x86/char.lisp src/compiler/x86/float.lisp +#: src/compiler/x86/move.lisp msgid "" "Load TN allocated, but no move function?~@\n" "\t VM definition inconsistent, recompile and try again." msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "integer to untagged word coercion" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "fixnum tagging" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "signed word to integer coercion" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "unsigned word to integer coercion" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "word integer move" msgstr "" -#: target:compiler/x86/move.lisp +#: src/compiler/x86/move.lisp msgid "word integer argument move" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/float.lisp +msgid "Ignoring bogus i387 Constant ~a" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to complex float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex double-double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float arithmetic" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float comparison" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline float truncate" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline NPX function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline tan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline sin/cos function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline exp function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline expm1 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log10 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline pow function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalbn function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline scalb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline log1p with limited x range function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline logb function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline atan2 function" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex single-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex long-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float realpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "complex float imagpart" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline dummy FP register bias" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double float move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double float to pointer coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "pointer to double-double-float coercion" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double double-float argument move" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline double-double-float creation" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double high part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "double-double low part" +msgstr "" + +#: src/compiler/x86/float.lisp +msgid "inline complex double-double-float creation" +msgstr "" + +#: src/compiler/x86/char.lisp msgid "character untagging" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/char.lisp msgid "character tagging" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/char.lisp msgid "character move" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/char.lisp msgid "character arg move" msgstr "" -#: target:compiler/x86/char.lisp +#: src/compiler/x86/char.lisp msgid "inline comparison" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline fixnum arithmetic" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (signed-byte 32) arithmetic" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (unsigned-byte 32) arithmetic" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline ASH" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (signed-byte 32) integer-length" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (unsigned-byte 32) logcount" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline fixnum comparison" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (signed-byte 32) comparison" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "inline (unsigned-byte 32) comparison" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "SHIFT-TOWARDS-START" msgstr "" -#: target:compiler/x86/arith.lisp +#: src/compiler/x86/arith.lisp msgid "SHIFT-TOWARDS-END" msgstr "" -#: target:compiler/x86/c-call.lisp +#: src/compiler/x86/c-call.lisp msgid "Too many result values from c-call." msgstr "" -#: target:compiler/x86/c-call.lisp +#: src/compiler/x86/c-call.lisp msgid "Method ~S not defined for ~S" msgstr "" -#: target:compiler/x86/c-call.lisp +#: src/compiler/x86/c-call.lisp msgid "" "Cons up a piece of code which calls call-callback with INDEX and a\n" "pointer to the arguments." msgstr "" -#: target:compiler/x86/call.lisp +#: src/compiler/x86/call.lisp msgid "more-arg-context" msgstr "" -#: target:compiler/x86/array.lisp +#: src/compiler/x86/array.lisp msgid "inline array access" msgstr "" -#: target:compiler/x86/array.lisp +#: src/compiler/x86/array.lisp msgid "inline array store" msgstr "" diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po b/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po index dd65e7c6b..c2a1855dc 100644 --- a/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po +++ b/i18n/locale/ko/LC_MESSAGES/cmucl-x87.po @@ -14,7 +14,7 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:compiler/x86/x87-array.lisp target:compiler/x86/x87-c-call.lisp -#: target:compiler/x86/x87-sap.lisp +#: src/compiler/x86/x87-array.lisp src/compiler/x86/x87-c-call.lisp +#: src/compiler/x86/x87-sap.lisp msgid "Unknown SC to SC-Case for ~S:~% ~S" msgstr "" diff --git a/i18n/locale/ko/LC_MESSAGES/cmucl.po b/i18n/locale/ko/LC_MESSAGES/cmucl.po index 62ad9363a..cc35c7038 100644 --- a/i18n/locale/ko/LC_MESSAGES/cmucl.po +++ b/i18n/locale/ko/LC_MESSAGES/cmucl.po @@ -15,113 +15,49 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: target:code/intl.lisp -msgid "" -"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n" -" Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this." +#: src/code/struct.lisp +msgid "The size of a stream in-buffer." msgstr "" -#: target:pcl/cpl.lisp target:pcl/dfun.lisp target:pcl/vector.lisp -#: target:pcl/boot.lisp target:pcl/cache.lisp target:pcl/fngen.lisp -#: target:pcl/defs.lisp target:pcl/info.lisp pcl:defsys.lisp -#: target:compiler/byte-comp.lisp target:compiler/eval-comp.lisp -#: target:compiler/generic/new-genesis.lisp target:compiler/generic/core.lisp -#: target:compiler/dump.lisp target:compiler/dyncount.lisp -#: target:compiler/xref.lisp target:compiler/srctran.lisp -#: target:compiler/typetran.lisp target:compiler/ir1util.lisp -#: target:compiler/main.lisp target:compiler/knownfun.lisp -#: target:compiler/new-assem.lisp target:compiler/disassem.lisp -#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp -#: target:compiler/ctype.lisp target:compiler/node.lisp -#: target:compiler/sset.lisp target:compiler/backend.lisp -#: target:compiler/generic/vm-macs.lisp target:compiler/macros.lisp -#: target:code/intl.lisp target:compiler/globaldb.lisp -#: target:code/defstruct.lisp target:code/remote.lisp target:code/wire.lisp -#: target:code/internet.lisp target:code/loop.lisp -#: target:code/run-program.lisp target:code/parse-time.lisp -#: target:code/profile.lisp target:code/ntrace.lisp -#: target:code/rand-mt19937.lisp target:code/debug.lisp -#: target:code/debug-int.lisp target:code/debug-info.lisp -#: target:code/eval.lisp target:code/filesys.lisp target:code/pathname.lisp -#: target:code/fd-stream.lisp target:code/extfmts.lisp -#: target:code/serve-event.lisp target:code/reader.lisp -#: target:code/package.lisp target:code/format.lisp target:code/pprint.lisp -#: target:code/stream.lisp target:code/room.lisp target:code/dfixnum.lisp -#: target:code/commandline.lisp target:code/unidata.lisp -#: target:compiler/proclaim.lisp target:code/hash-new.lisp -#: target:code/byte-interp.lisp target:code/c-call.lisp -#: target:code/alieneval.lisp target:code/type.lisp target:code/class.lisp -#: target:code/typedefs.lisp target:code/error.lisp target:code/fwrappers.lisp -#: target:assembly/assemfile.lisp target:code/struct.lisp +#: src/pcl/cpl.lisp src/pcl/dfun.lisp src/pcl/vector.lisp src/pcl/boot.lisp +#: src/pcl/cache.lisp src/pcl/fngen.lisp src/pcl/defs.lisp src/pcl/info.lisp +#: src/pcl/defsys.lisp src/compiler/byte-comp.lisp src/compiler/eval-comp.lisp +#: src/compiler/generic/new-genesis.lisp src/compiler/generic/core.lisp +#: src/compiler/dump.lisp src/compiler/dyncount.lisp src/compiler/xref.lisp +#: src/compiler/srctran.lisp src/compiler/ir1util.lisp src/compiler/main.lisp +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/disassem.lisp src/compiler/meta-vmdef.lisp +#: src/compiler/vop.lisp src/compiler/ctype.lisp src/compiler/node.lisp +#: src/compiler/sset.lisp src/compiler/backend.lisp +#: src/compiler/generic/vm-macs.lisp src/compiler/macros.lisp +#: src/code/intl.lisp src/compiler/globaldb.lisp src/code/defstruct.lisp +#: src/code/remote.lisp src/code/wire.lisp src/code/internet.lisp +#: src/code/loop.lisp src/code/run-program.lisp src/code/parse-time.lisp +#: src/code/profile.lisp src/code/ntrace.lisp src/code/rand-mt19937.lisp +#: src/code/debug.lisp src/code/debug-int.lisp src/code/debug-info.lisp +#: src/code/eval.lisp src/code/filesys.lisp src/code/pathname.lisp +#: src/code/fd-stream.lisp src/code/extfmts.lisp src/code/serve-event.lisp +#: src/code/reader.lisp src/code/package.lisp src/code/format.lisp +#: src/code/pprint.lisp src/code/stream.lisp src/code/room.lisp +#: src/code/dfixnum.lisp src/code/commandline.lisp src/code/unidata.lisp +#: src/compiler/proclaim.lisp src/code/hash-new.lisp src/code/byte-interp.lisp +#: src/code/c-call.lisp src/code/alieneval.lisp src/code/type.lisp +#: src/code/class.lisp src/code/typedefs.lisp src/code/error.lisp +#: src/code/fwrappers.lisp src/code/struct.lisp msgid "Class not yet defined: ~S" msgstr "" -#: target:code/intl.lisp -msgid "Encountered illegal token: =" -msgstr "" - -#: target:code/intl.lisp -msgid "Encountered illegal token: ~C" -msgstr "" - -#: target:code/intl.lisp -msgid "Expected : in ?: construct" -msgstr "" - -#: target:code/intl.lisp -msgid "Expected close-paren." -msgstr "" - -#: target:code/intl.lisp -msgid "Unexpected token: ~S." -msgstr "" - -#: target:code/intl.lisp -msgid "Expecting end of expression. ~S." -msgstr "" - -#: target:code/intl.lisp -msgid "" -"Look up STRING in the current message domain and return its translation." -msgstr "" - -#: target:code/intl.lisp -msgid "Look up the singular or plural form of a message in the current domain." -msgstr "" - -#: target:code/intl.lisp -msgid "" -"Look up STRING in the specified message domain and return its translation." -msgstr "" - -#: target:code/intl.lisp -msgid "" -"Look up the singular or plural form of a message in the specified domain." -msgstr "" - -#: target:code/intl.lisp -msgid "_@ is a reserved reader macro prefix." -msgstr "" - -#: target:code/intl.lisp -msgid "~&Dumping ~D messages for domain ~S~%" -msgstr "" - -#: target:code/struct.lisp -msgid "The size of a stream in-buffer." -msgstr "" - -#: target:code/sysmacs.lisp +#: src/code/sysmacs.lisp msgid "Register the feature as having influenced the CMUCL build process." msgstr "" -#: target:code/sysmacs.lisp +#: src/code/sysmacs.lisp msgid "" "Register the feature as having influenced the CMUCL build process,\n" "and also the CMUCL C runtime." msgstr "" -#: target:code/sysmacs.lisp +#: src/code/sysmacs.lisp msgid "" "Given any Array, binds Data-Var to the array's data vector and Start-Var " "and\n" @@ -135,149 +71,149 @@ msgid "" " include Svalue." msgstr "" -#: target:code/sysmacs.lisp +#: src/code/sysmacs.lisp msgid "Executes the forms in the body without doing a garbage collection." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Return the 24 bits of data in the header of object X, which must be an\n" " other-pointer object." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Sets the 24 bits of data in the header of object X (which must be an\n" " other-pointer object) to VAL." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Returns the length of the closure X. This is one more than the number\n" " of variables closed over." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Returns the three-bit lowtag for the object X." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Returns the 8-bit header type for the object X." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Return a System-Area-Pointer pointing to the data for the vector X, which\n" " must be simple." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return a System-Area-Pointer pointing to the end of the binding stack." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Returns a System-Area-Pointer pointing to the next free work of the current\n" " dynamic space." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return a System-Area-Pointer pointing to the end of the control stack." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return the header typecode for FUNCTION. Can be set with SETF." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extracts the arglist from the function header FUNC." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extracts the name from the function header FUNC." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extracts the type from the function header FUNC." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extracts the function from CLOSURE." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Return the length of VECTOR. There is no reason to use this, 'cause\n" " (length (the vector foo)) is the same." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return the SXHASH for the simple-string STRING." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Return the SXHASH for the first LENGTH characters of the simple-string\n" " STRING." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Extract the INDEXth slot from CLOSURE." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n" " WORDS words long. Note: it is your responsibility to assure that the\n" " relation between LENGTH and WORDS is correct." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Allocate an array header with type code TYPE and rank RANK." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "Return a SAP pointing to the instructions part of CODE-OBJ." msgstr "" -#: target:code/kernel.lisp +#: src/code/kernel.lisp msgid "" "Extract the INDEXth element from the header of CODE-OBJ. Can be set with\n" " setf." msgstr "" -#: target:code/format.lisp target:code/print.lisp target:code/irrat-dd.lisp -#: target:code/irrat.lisp target:code/float.lisp target:code/numbers.lisp -#: target:code/kernel.lisp +#: src/code/format.lisp src/code/print.lisp src/code/irrat-dd.lisp +#: src/code/irrat.lisp src/code/float.lisp src/code/numbers.lisp +#: src/code/kernel.lisp msgid "Argument ~A is not a ~S: ~S." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Holds a list of symbols that describe features provided by the\n" " implementation." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Features affecting the runtime" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "The fixnum closest in value to positive infinity." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "The fixnum closest in value to negative infinity." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "When (typep condition *break-on-signals*) is true, then calls to SIGNAL " "will\n" " enter the debugger prior to signalling that condition." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Invokes the signal facility on a condition formed from datum and arguments.\n" " If the condition is not handled, nil is returned. If\n" @@ -286,53 +222,53 @@ msgid "" " any signalling is done." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "~A~%Break entered because of *break-on-signals* (now NIL.)" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Ignore the additional arguments." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "You may not supply additional arguments ~\n" "\t\t\t\t when giving ~S to ~S." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Bad argument to ~S: ~S" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Invokes the signal facility on a condition formed from datum and arguments.\n" " If the condition is not handled, the debugger is invoked." msgstr "" -#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp +#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp msgid "Help! " msgstr "" -#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp +#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp msgid " nested errors. " msgstr "" -#: target:pcl/dfun.lisp target:code/interr.lisp target:code/lispinit.lisp +#: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Prints a message and invokes the debugger without allowing any possibility\n" " of condition handling occurring." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Return from BREAK." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Warns about a situation by signalling a condition formed by datum and\n" " arguments. While the condition is being signaled, a muffle-warning " @@ -340,19 +276,19 @@ msgid "" " exists that causes WARN to immediately return nil." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "a warning condition" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Skip warning." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "~&~@<Warning: ~3i~:_~A~:>~%" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Invokes the signal facility on a condition formed from datum and arguments.\n" " If the condition is not handled, the debugger is invoked. This function\n" @@ -360,129 +296,129 @@ msgid "" " simple-program-error, instead of program-error." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gives the world a shove and hopes it spins." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Functions to be invoked during cleanup at Lisp exit." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Terminates the current Lisp. Things are cleaned up unless Recklessly-P is\n" " non-Nil." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "This function causes execution to be suspended for N seconds. N may\n" " be any non-negative, non-complex number." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Zero the unused portion of the control stack so that old objects are not\n" " kept alive because of uninitialized stack variables." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Holds a list of all the values returned by the most recent top-level EVAL." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of / when a new value is computed." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of // when a new value is computed." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Holds the value of the most recent top-level EVAL." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of * when a new value is computed." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of ** when a new value is computed." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Holds the value of the most recent top-level READ." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of + when a new value is read." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Gets the previous value of ++ when a new value is read." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Holds the form curently being evaluated." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "The top-level prompt string. This also may be a function of no arguments\n" " that returns a simple-string." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "True if we are within the Top-Level-Catcher. This is used by interrupt\n" " handlers to see whether it is o.k. to throw." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, +" "+,\n" " +, ///, //, /, and -." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Go on with * set to NIL." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "EVAL returned an unbound marker." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "How many pages to reserve from the total heap space so we can handle\n" "heap overflow." msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "Top-level READ-EVAL-PRINT loop. Do not call this." msgstr "" -#: target:code/lispinit.lisp -msgid "Return to Top-Level." -msgstr "" - -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "" "~&Received EOF on *standard-input*, ~\n" "\t\t\t\t\tswitching to *terminal-io*.~%" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "~&Received more than ~D EOFs; Aborting.~%" msgstr "" -#: target:code/lispinit.lisp +#: src/code/lispinit.lisp msgid "~&Received EOF.~%" msgstr "" -#: target:pcl/walk.lisp +#: src/code/lispinit.lisp +msgid "Return to Top-Level." +msgstr "" + +#: src/pcl/walk.lisp msgid "" "~@<The evaluator was called to evaluate a form in a macroexpansion ~\n" " environment constructed by the PCL portable code walker. These ~\n" @@ -494,38 +430,38 @@ msgid "" " to use the PCL portable code walker to build its own evaluator.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "~@<~S is not a recognized variable declaration.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "~@<Can't get template for ~S.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "" "~@<~S is a special form, not defined in the CommonLisp ~\n" "\t\t manual. This code walker doesn't know how to walk it. ~\n" "\t\t Define a template for this special form and try again.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "" "~@<While handling repeat: ~\n" " Ran into stop while still in repeat template.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "" "~@<Encountered declare ~S in a place where a ~\n" " declare was not expected.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "~@<Can't understand something in the arglist ~S.~@:>" msgstr "" -#: target:pcl/walk.lisp +#: src/pcl/walk.lisp msgid "" "~@<In the form ~S: ~\n" " IF only accepts three arguments, you are using ~D. ~\n" @@ -539,7 +475,7 @@ msgid "" "your source code.~@:>" msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "A funcallable instance used to implement fwrappers.\n" " The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n" @@ -548,48 +484,48 @@ msgid "" " function of the fwrapper object." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Print-function for struct FWRAPPER." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Return FUN if it is an fwrapper or nil if it isn't." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Evaluate BODY with VAR bound to consecutive fwrappers of\n" " FDEFN. Return RESULT at the end." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Return tha last encapsulation of FDEFN or NIL if none." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Prepend encapsulation F to the definition of FUNCTION-NAME.\n" " Signal an error if FUNCTION-NAME is an undefined function." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Remove fwrapper F from the definition of FUNCTION-NAME." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Return a list of all fwrappers of FUNCTION-NAME, ordered\n" " from outermost to innermost." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Set FUNCTION-NAMES's fwrappers to elements of the list\n" " FWRAPPERS, which is assumed to be ordered from outermost to\n" " innermost. FWRAPPERS null means remove all fwrappers." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n" " created by calling CONSTRUCTOR. CONSTRUCTOR is a function\n" @@ -600,7 +536,7 @@ msgid "" " FWRAPPER)." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Remove fwrappers from the function named FUNCTION-NAME.\n" " If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n" @@ -608,27 +544,27 @@ msgid "" " If both are not specified, remove all fwrappers." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Update the funcallable instance function of fwrapper F from its\n" " constructor." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Update fwrapper function definitions of FUNCTION-NAME.\n" " If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n" " If TEST is supplied, update fwrappers satisfying TEST." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Find an fwrapper of FUNCTION-NAME.\n" " If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n" " If TEST is supplied, find an fwrapper satisfying TEST." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "Like DEFUN, but define a function wrapper.\n" " In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n" @@ -639,30 +575,30 @@ msgid "" " invokes the next function with the supplied args." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "Return the expansion of a DEFINE-FWRAPPER." msgstr "" -#: target:code/fwrappers.lisp -msgid "&MORE not supported in fwrapper lambda lists" -msgstr "" - -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "" "First value is true if BODY refers to any of the variables in\n" " OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n" " returns. Second value is true if BODY refers to REST." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp +msgid "&MORE not supported in fwrapper lambda lists" +msgstr "" + +#: src/code/fwrappers.lisp msgid "Fwrapper for old-style encapsulations." msgstr "" -#: target:code/fwrappers.lisp +#: src/code/fwrappers.lisp msgid "This function is deprecated; use fwrappers instead." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Define (NAME ...) to be a valid function name whose syntax is checked\n" " by BODY. In BODY, VAR is bound to an actual function name of the\n" @@ -672,68 +608,68 @@ msgid "" " and in similar situations." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "First value is true if NAME has valid function name syntax.\n" " Second value is the name, a symbol, to use as a block name in DEFUNs\n" " and in similar situations." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Return the fdefn object for NAME. If it doesn't already exist and CREATE\n" " is non-NIL, create a new (unbound) one." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "Invalid function name: ~S" msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Return the FDEFN of NAME. Signal an error if there is none\n" " or if it's function is null." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Returns the definition for name, including any encapsulations. Settable\n" " with SETF." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Return FUNCTION-NAME's global function definition.\n" " If FUNCTION-NAME is fwrapped, return the primary function definition\n" " stored in the innermost fwrapper." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "This holds functions that (SETF FDEFINITION) invokes before storing the\n" " new value. These functions take the function name and the new value." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "" "Set FUNCTION-NAME's global function definition to NEW-VALUE.\n" " If FUNCTION-NAME is fwrapped, set the primary function stored\n" " in the innermost fwrapper." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "Return true if name has a global function definition." msgstr "" -#: target:code/fdefinition.lisp +#: src/code/fdefinition.lisp msgid "Make Name have no global function definition." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "&rest keyword is ~:[missing~;misplaced~]." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Return a list of all the currently active restarts ordered from most\n" " recently established to less recently established. If Condition is\n" @@ -741,11 +677,11 @@ msgid "" " condition) will be returned." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Returns the name of the given restart object." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*\n" " Evaluates the Forms in a dynamic environment where the restarts in the " @@ -757,7 +693,7 @@ msgid "" " to the error currently being debugged. See also RESTART-CASE." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Executes forms in a dynamic context where the given restart bindings are\n" " in effect. Users probably want to use RESTART-CASE. When clauses " @@ -765,13 +701,13 @@ msgid "" " the same restart name, FIND-RESTART will find the first such clause." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Unnamed restart does not have a ~\n" "\t\t\t\t\treport function -- ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Returns the first restart named name. If name is a restart, it is returned\n" " if it is currently active. If no such restart is found, nil is " @@ -782,7 +718,7 @@ msgid "" " condition) will be returned." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Calls the function associated with the given restart, passing any given\n" " arguments. If the argument restart is not a restart or a currently " @@ -790,18 +726,18 @@ msgid "" " non-nil restart name, then a control-error is signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Restart ~S is not active." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Calls the function associated with the given restart, prompting for any\n" " necessary arguments. If the argument restart is not a restart or a\n" " currently active non-nil restart name, then a control-error is signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "(RESTART-CASE form\n" " {(case-name arg-list {keyword value}* body)}*)\n" @@ -818,7 +754,7 @@ msgid "" " the new restarts." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)\n" " body)\n" @@ -827,39 +763,39 @@ msgid "" " returns the values nil and t." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Condition ~S was signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "No REPORT? Shouldn't happen!" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Condition slot is not bound: ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Slot ~S of ~S missing." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Make an instance of a condition object using the specified initargs." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~S is not a condition class." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Bad thing for class arg:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Condition already names a declaration: ~S." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*\n" " Define NAME as a condition type. This new type inherits slots and its\n" @@ -892,39 +828,39 @@ msgid "" " SLOT-VALUE may not be used on condition objects." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Keyword slot name indicates probable syntax error:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Malformed condition slot spec:~% ~S." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "More than one :INITFORM in:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "More than one slot :DOCUMENTATION in~% ~s" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Slot :DOCUMENTATION is not a string in~% ~s" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Unknown slot option:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Bad option:~% ~S" msgstr "" -#: target:compiler/new-assem.lisp target:code/error.lisp +#: src/compiler/new-assem.lisp src/code/error.lisp msgid "Unknown option: ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "(HANDLER-BIND ( {(type handler)}* ) body)\n" " Executes body in a dynamic context where the given handler bindings are\n" @@ -933,67 +869,67 @@ msgid "" " signalled condition." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Ill-formed handler bindings." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~&~@<Error in function ~S: ~3i~:_~?~:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Control stack overflow" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Heap (dynamic space) overflow" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~@<Type-error in ~S: ~3i~:_~S is not of type ~S~:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Layout-invalid error in ~S:~@\n" "\t\t Type test of class ~S was passed obsolete instance:~% ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~@<~S fell through ~S expression. ~:_Wanted one of ~:S.~:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "End-of-File on ~S" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~&~@<File-error in function ~S: ~3i~:_~?~:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Error in ~S: the variable ~S is unbound." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Error in ~S: the function ~S is undefined." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "~@<Destructive function ~S called on ~\n" " constant data.~@:>" msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Arithmetic error ~S signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "~%Operation was ~S, operands ~S." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "(HANDLER-CASE form\n" " { (type ([var]) body) }* )\n" @@ -1007,203 +943,203 @@ msgid "" " var specification." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Executes forms after establishing a handler for all error conditions that\n" " returns from this form nil and the condition signalled." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "Found an \"abort\" restart that failed to transfer control dynamically." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfers control to a restart named abort, signalling a control-error if\n" " none exists." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfers control to a restart named muffle-warning, signalling a\n" " control-error if none exists." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfer control to a restart named continue, returning nil if none exists." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfer control and value to a restart named store-value, returning nil if\n" " none exists." msgstr "" -#: target:code/error.lisp +#: src/code/error.lisp msgid "" "Transfer control and value to a restart named use-value, returning nil if\n" " none exists." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "Forms that must happen before top level forms are run." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "Can't cold-load-init other forms along with an eval-when." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "~S is not a defined type class." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "Missing type method for ~S" msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "~S is not a defined type class method." msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*" msgstr "" -#: target:code/typedefs.lisp +#: src/code/typedefs.lisp msgid "DEFINE-TYPE-CLASS Name [Inherits]" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Layout for ~S~@[, Invalid=~S~]" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "The inclusive upper bound on LAYOUT-HASH values." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Layout depth conflict: ~S~% ~\n" "\t\t (~S collides at ~S with ~S)~%" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Can't use anonymous or undefined class as constant:~% ~S" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Return the class with the specified Name. If ERRORP is false, then NIL is\n" " returned when no such class exists." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Class not yet defined:~% ~S" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Illegal to redefine standard type ~S." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Changing meta-class of ~S from ~S to ~S." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Redefining DEFTYPE type to be a class: ~S." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Return the class of the supplied object, which may be any Lisp object, not\n" " just a CLOS STANDARD-OBJECT." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Modifing ~(~A~) class ~S; making it writable." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Subclassing sealed class ~S; unsealing it." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" -"Change in superclasses of class ~S:~% ~\n" -"\t\t ~A superclasses: ~S~% ~\n" -"\t\t ~A superclasses: ~S" -msgstr "" - -#: target:code/class.lisp -msgid "" -"In class ~S:~% ~\n" -"\t\t ~:(~A~) definition of superclass ~S incompatible with~% ~\n" -"\t\t ~A definition." +"Change in the inheritance structure of class ~S~% ~\n" +"\t\t between the ~A definition and the ~A definition." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Change in instance length of class ~S:~% ~\n" "\t\t ~A length: ~D~% ~\n" "\t\t ~A length: ~D" msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" -"Change in the inheritance structure of class ~S~% ~\n" -"\t\t between the ~A definition and the ~A definition." +"In class ~S:~% ~\n" +"\t\t ~:(~A~) definition of superclass ~S incompatible with~% ~\n" +"\t\t ~A definition." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp +msgid "" +"Change in superclasses of class ~S:~% ~\n" +"\t\t ~A superclasses: ~S~% ~\n" +"\t\t ~A superclasses: ~S" +msgstr "" + +#: src/code/class.lisp msgid "" "Loading a reference to class ~S when the compile~\n" "\t\t ~% time definition was incompatible with the current ~\n" "\t\t one." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Invalidate current definition." msgstr "" -#: target:code/class.lisp -msgid "New definition of ~S must be loaded eventually." +#: src/code/class.lisp +msgid "Smash current layout, preserving old code." msgstr "" -#: target:code/class.lisp -msgid "Smash current layout, preserving old code." +#: src/code/class.lisp +msgid "Ignore the incompatibility, leave class alone." +msgstr "" + +#: src/code/class.lisp +msgid "New definition of ~S must be loaded eventually." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Any old ~S instances will be in a bad way.~@\n" "\t\t I hope you know what you're doing..." msgstr "" -#: target:code/class.lisp -msgid "Ignore the incompatibility, leave class alone." -msgstr "" - -#: target:code/class.lisp +#: src/code/class.lisp msgid "" "Assuming the current definition of ~S is correct, and~@\n" "\t\t that the loaded code doesn't care about the ~\n" "\t\t incompatibility." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Topological sort failed due to constraint on ~S." msgstr "" -#: target:code/class.lisp +#: src/code/class.lisp msgid "Something strange with forward layout for ~S:~% ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "" "*Use-Implementation-Types* is a semi-public flag which determines how\n" " restrictive we are in determining type membership. If two types are the\n" @@ -1215,131 +1151,395 @@ msgid "" " affects array types." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Subtypep is illegal on this type:~% ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "&Aux in a FUNCTION or VALUES type: ~S." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Keyword type description is not a two-list: ~S." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Repeated keyword ~S in lambda list: ~S." msgstr "" -#: target:code/type.lisp -msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s" -msgstr "" - -#: target:code/type.lisp +#: src/code/type.lisp msgid "" "The maximum length of a union of integer types before we take a\n" " short cut and return a simpler union." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Bad thing to be a type specifier: ~S." msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "VALUES type illegal in this context:~% ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp +msgid "Bad N specified for MOD type specifier: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Bad size specified for SIGNED-BYTE type specifier: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Bad float format: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Arrays can't have a negative number of dimensions: ~D." +msgstr "" + +#: src/code/type.lisp +msgid "Array type has too many dimensions: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Bad dimension in array type: ~S." +msgstr "" + +#: src/code/type.lisp +msgid "Array dimensions is not a list, integer or *:~% ~S" +msgstr "" + +#: src/code/type.lisp +msgid "Type of characters that aren't base-char's. None in CMU CL." +msgstr "" + +#: src/code/type.lisp +msgid "Type corresponding to the charaters required by the standard." +msgstr "" + +#: src/code/type.lisp +msgid "Type for any keyword symbol." +msgstr "" + +#: src/code/type.lisp +msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s" +msgstr "" + +#: src/code/type.lisp msgid "The SATISFIES predicate name is not a symbol: ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Weird CONS type ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "The component type for COMPLEX is not numeric: ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "The component type for COMPLEX is not real: ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "" "The component type for COMPLEX (EQL X) ~\n" " is complex: ~S" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "" "~@<(known bug #145): The type ~S is too hairy to be \n" " used for a COMPLEX component.~:@>" msgstr "" -#: target:code/type.lisp +#: src/code/type.lisp msgid "Bound is not *, a ~A or a list of a ~A: ~S" msgstr "" -#: target:code/type.lisp -msgid "Bad N specified for MOD type specifier: ~S." +#: src/compiler/generic/vm-type.lisp +msgid "~S isn't an integer type?" msgstr "" -#: target:code/type.lisp -msgid "Bad size specified for SIGNED-BYTE type specifier: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is an array-header-p and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is an arrayp and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Bad float format: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is an atom and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Arrays can't have a negative number of dimensions: ~D." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a base-char-p and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Array type has too many dimensions: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a bignump and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Bad dimension in array type: ~S." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a bit-vector-p and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Array dimensions is not a list, integer or *:~% ~S" +#: src/code/pred.lisp +msgid "Return T if OBJECT is a characterp and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Type of characters that aren't base-char's. None in CMU CL." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a code-component-p and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Type corresponding to the charaters required by the standard." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a consp and NIL otherwise." msgstr "" -#: target:code/type.lisp -msgid "Type for any keyword symbol." +#: src/code/pred.lisp +msgid "Return T if OBJECT is a compiled-function-p and NIL otherwise." msgstr "" -#: target:compiler/generic/vm-type.lisp -msgid "~S isn't an integer type?" +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complexp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complex-double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complex-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a complex-double-double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complex-rational-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a complex-single-float-p and NIL otherwise." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp +msgid "Return T if OBJECT is a double-double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a fdefn-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a fixnump and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a floatp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a functionp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is an integerp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a listp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a long-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a lra-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a not and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a null and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a numberp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a rationalp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a ratiop and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a realp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a scavenger-hook-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a short-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-array-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-bit-vector-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-string-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-vector-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a single-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a stringp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a %instancep and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a symbolp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a system-area-pointer-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a weak-pointer-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a vectorp and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is an unsigned-byte-32-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a signed-byte-32-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-2-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-4-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-8-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-16-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-unsigned-byte-32-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-array-signed-byte-8-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-signed-byte-16-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-signed-byte-30-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-signed-byte-32-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-array-single-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "Return T if OBJECT is a simple-array-double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-double-double-float-p and NIL otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-complex-single-float-p and NIL " +"otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-complex-double-float-p and NIL " +"otherwise." +msgstr "" + +#: src/code/pred.lisp +msgid "" +"Return T if OBJECT is a simple-array-complex-double-double-float-p and NIL " +"otherwise." +msgstr "" + +#: src/code/pred.lisp msgid "Return the type of OBJECT." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "" "Return the element type that will actually be used to implement an array\n" " with the specifier :ELEMENT-TYPE Spec." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "" "Return two values indicating the relationship between type1 and type2:\n" " T and T: type1 definitely is a subtype of type2.\n" @@ -1347,43 +1547,43 @@ msgid "" " NIL and NIL: who knows?" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Return T iff OBJECT is of type TYPE." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "~@<unknown element type in array type: ~2I~_~S~:>" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Unknown type specifier: ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Invalid type specifier: ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Function types are not a legal argument to TYPEP:~% ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Class has not yet been defined: ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "TYPEP on obsolete object (was class ~S)." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Class is currently invalid: ~S" msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "" "Returns T if X and Y are EQL or if they are structured components\n" " whose elements are EQUAL. Strings and bit-vectors are EQUAL if they\n" @@ -1391,7 +1591,7 @@ msgid "" " EQ to be EQUAL." msgstr "" -#: target:code/pred.lisp +#: src/code/pred.lisp msgid "" "Just like EQUAL, but more liberal in several respects.\n" " Numbers may be of different types, as long as the values are identical\n" @@ -1400,74 +1600,74 @@ msgid "" " in their type restriction." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "No alien type class ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "No method ~S" msgstr "" -#: target:code/alieneval.lisp -msgid "Method ~S not defined for ~S" -msgstr "" - -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Parse the list structure TYPE as an alien type specifier and return\n" " the resultant alien-type structure." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unknown alien type: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "No translator for primitive alien type ~S?" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Definition missing for alien type ~S?" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Attempt to multiple define ~A ~S." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Attempt to shadow definition of ~A ~S." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Convert the alien-type structure TYPE back into a list specification of\n" " the type." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp +msgid "Method ~S not defined for ~S" +msgstr "" + +#: src/code/alieneval.lisp msgid "" "Define the alien type NAME to be equivalent to TYPE. Name may be NIL for\n" " STRUCT and UNION types, in which case the name is taken from the type\n" " specifier." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Redefining ~A ~S to be:~% ~S,~%was:~% ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "~S is a built-in alien type." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Redefining ~S to be:~% ~S,~%was~% ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Return T iff TYPE1 and TYPE2 describe equivalent alien types." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Return T iff the alien type TYPE1 is a subtype of TYPE2. Currently, the\n" " only supported subtype relationships are that any pointer type is a\n" @@ -1476,114 +1676,111 @@ msgid "" " ALIEN-TYPE-=." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Return T iff OBJECT is an alien of type TYPE." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot represent ~S typed aliens." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot pass aliens of type ~S as arguments to call-out" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot return aliens of type ~S from call-out" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot extract ~D bit integers." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Redefining alien enum ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unknown enum type: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Empty enum type: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "An enumeration must contain at least one element." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Enumeration element ~S is not a keyword." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Element value ~S is not an integer." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Element value ~S used more than once." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Enumeration element ~S used more than once." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Can't represent enums needing more than 32 bits." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot deposit aliens of type ~S (unknown size)." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "First dimension is not a non-negative fixnum or NIL: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Dimension is not a non-negative fixnum: ~S" msgstr "" -#: target:pcl/simple-streams/socket.lisp target:pcl/simple-streams/file.lisp -#: target:pcl/simple-streams/internal.lisp -#: target:pcl/simple-streams/classes.lisp target:pcl/env.lisp -#: target:pcl/fixup.lisp target:pcl/methods.lisp target:pcl/cpl.lisp -#: target:pcl/seal.lisp target:pcl/dfun.lisp -#: target:pcl/method-slot-access-optimization.lisp target:pcl/boot.lisp -#: target:pcl/dlisp.lisp target:pcl/cache.lisp target:pcl/defclass.lisp -#: target:pcl/low.lisp target:compiler/disassem.lisp target:code/pathname.lisp -#: target:code/format.lisp target:code/pprint-loop.lisp -#: target:code/pprint.lisp target:code/bignum.lisp target:code/alieneval.lisp +#: src/pcl/env.lisp src/pcl/fixup.lisp src/pcl/methods.lisp src/pcl/cpl.lisp +#: src/pcl/seal.lisp src/pcl/dfun.lisp +#: src/pcl/method-slot-access-optimization.lisp src/pcl/boot.lisp +#: src/pcl/dlisp.lisp src/pcl/cache.lisp src/pcl/defclass.lisp +#: src/pcl/low.lisp src/compiler/disassem.lisp src/code/pathname.lisp +#: src/code/pprint-loop.lisp src/code/pprint.lisp src/code/bignum.lisp +#: src/code/alieneval.lisp msgid "Required argument missing" msgstr "" -#: target:compiler/aliencomp.lisp target:code/alieneval.lisp +#: src/compiler/aliencomp.lisp src/code/alieneval.lisp msgid "Unknown size: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unknown alignment: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "A hash table used to detect cycles while comparing record types." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.\n" "If so return true; otherwise call ALTERNATIVE." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot use values types here." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Badly formed alien name." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Define NAME as an external alien variable of type TYPE. NAME should be\n" " a list of a string holding the alien name and a symbol to use as the " @@ -1593,13 +1790,13 @@ msgid "" " from the one supplied." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Access the alien variable named NAME, assuming it is of type TYPE. This\n" " is SETFable." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Establish some local alien variables. Each BINDING is of the form:\n" " VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]\n" @@ -1617,26 +1814,26 @@ msgid "" " the external alien given by EXTERNAL-NAME." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Return true if X (which must be an Alien pointer) is null, false otherwise." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Convert the System-Area-Pointer SAP to an Alien of the specified Type (not\n" " evaluated.) Type must be pointer-like." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Cannot make aliens of type ~S out of SAPs" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Return a System-Area-Pointer pointing to Alien's data." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Allocate an alien of type TYPE and return an alien pointer to it. If SIZE\n" " is supplied, how it is interpreted depends on TYPE. If TYPE is an array\n" @@ -1647,42 +1844,42 @@ msgid "" " functions which use ``free''." msgstr "" -#: target:code/alieneval.lisp -msgid "Cannot override the size of zero-dimensional arrays." -msgstr "" - -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Size of ~S unknown." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Alignment of ~S unknown." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp +msgid "Cannot override the size of zero-dimensional arrays." +msgstr "" + +#: src/code/alieneval.lisp msgid "" "Dispose of the storage pointed to by ALIEN. ALIEN must have been allocated\n" " by MAKE-ALIEN or ``malloc''." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "No slot named ~S in ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Extract SLOT from the Alien STRUCT or UNION ALIEN. May be set with SETF." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Too many indices when derefing ~S: ~D" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Incorrect number of indices when derefing ~S: ~D" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "De-reference an Alien pointer or array. If an array, the indices are used\n" " as the indices of the array element to access. If a pointer, one index " @@ -1690,68 +1887,68 @@ msgid "" " optionally be specified, giving the equivalent of C pointer arithmetic." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Something is wrong; local-alien-info not found: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "~S isn't forced to memory. Something went wrong." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Return an Alien pointer to the data addressed by Expr, which must be a call\n" " to SLOT or DEREF, or a reference to an Alien variable." msgstr "" -#: target:code/alieneval.lisp -msgid "Something is wrong, local-alien-info not found: ~S" +#: src/code/alieneval.lisp +msgid "~S is not a valid L-value" msgstr "" -#: target:code/alieneval.lisp -msgid "~S is not a valid L-value" +#: src/code/alieneval.lisp +msgid "Something is wrong, local-alien-info not found: ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Convert ALIEN to an Alien of the specified TYPE (not evaluated). Both " "types\n" " must be Alien array, pointer or function types." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "~S cannot be cast." msgstr "" -#: target:compiler/aliencomp.lisp target:code/alieneval.lisp +#: src/compiler/aliencomp.lisp src/code/alieneval.lisp msgid "Cannot cast to alien type ~S" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Return the size of the alien type TYPE. UNITS specifies the units to\n" " use and can be either :BITS, :BYTES, or :WORDS." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unknown size for alien type ~S." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Call the foreign function ALIEN with the specified arguments. ALIEN's\n" " type specifies the argument and result types." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Wrong number of arguments for ~S~%Expected ~D, got ~D." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "~S is not an alien function." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "Def-Alien-Routine Name Result-Type\n" " {(Arg-Name Arg-Type [Style])}*\n" @@ -1797,43 +1994,34 @@ msgid "" " the return value being determined by accessing the object on return." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Bogus argument style ~S in ~S." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Can't use :out or :in-out on pointer-like type:~% ~S" msgstr "" -#: target:code/alieneval.lisp -msgid "" -"A callback consists of a piece assembly code -- the trampoline --\n" -"and a lisp function. We store the function type (including return\n" -"type and arg types), so we can detect incompatible redefinitions." -msgstr "" - -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Vector of all callbacks." msgstr "" -#: target:pcl/simple-streams/string.lisp target:compiler/tn.lisp -#: target:compiler/main.lisp target:code/describe.lisp -#: target:code/debug-int.lisp target:code/debug-info.lisp -#: target:code/foreign-linkage.lisp target:code/reader.lisp -#: target:code/stream.lisp target:code/hash-new.lisp target:code/array.lisp -#: target:code/alieneval.lisp +#: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp +#: src/code/debug-int.lisp src/code/debug-info.lisp +#: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp +#: src/code/hash-new.lisp src/code/array.lisp src/code/alieneval.lisp msgid "~S is not an array with a fill-pointer." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unable to mprotect ~S bytes (~S) at ~S (~S). Callbacks may not work." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Return the trampoline pointer for the callback NAME." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "~\n" "Attempt to redefine callback with incompatible return type.\n" @@ -1841,21 +2029,21 @@ msgid "" " New type is: ~A" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "~\n" "Create new trampoline (old trampoline calls old lisp function)." msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unsupported argument type: ~A" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "Unsupported return type: ~A" msgstr "" -#: target:code/alieneval.lisp +#: src/code/alieneval.lisp msgid "" "(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n" " {doc-string} {decls}* {FORM}*)\n" @@ -1871,103 +2059,103 @@ msgid "" "incremental redefinition of callback functions." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return T iff the SAP X points to a smaller address then the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "" "Return T iff the SAP X points to a smaller or the same address as\n" " the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return T iff the SAP X points to the same address as the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "" "Return T iff the SAP X points to a larger or the same address as\n" " the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return T iff the SAP X points to a larger address then the SAP Y." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return a new sap OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Return the byte offset between SAP1 and SAP2." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Converts a System Area Pointer into an integer." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Converts an integer into a System Area Pointer." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 8-bit byte at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 16-bit word at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 32-bit dualword at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 64-bit quadword at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 32-bit single-float at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the 64-bit double-float at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the long-float at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the signed 16-bit word at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP." msgstr "" -#: target:code/sap.lisp +#: src/code/sap.lisp msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "The number of bits to process at a time." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "The maximum number of bits that can be dealt with during a single call." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing\n" " bits from the ``start.'' On big-endian machines this is a left-shift and\n" @@ -1976,122 +2164,122 @@ msgid "" " of count are significant." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing\n" " bits from the ``end.'' On big-endian machines this is a right-shift and\n" " on little-endian machines this is a left-shift." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for\n" " the remaining ``end'' bits. Only the lower 5 bits of COUNT are " "significant." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for\n" " the remaining ``start'' bits. Only the lower 5 bits of COUNT are\n" " significant." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "Align the SAP to a word boundry, and update the offset accordingly." msgstr "" -#: target:code/bit-bash.lisp +#: src/code/bit-bash.lisp msgid "" "Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits." msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "This is the interpreter's evaluation stack." msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "This is the next free element of the interpreter's evaluation stack." msgstr "" -#: target:code/byte-interp.lisp -msgid "Unknown inline function, id=~D" +#: src/code/byte-interp.lisp +msgid "Undefined XOP." msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Unbound variable: ~S" msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Non-list argument to CAR: ~S" msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Non-list argument to CDR: ~S" msgstr "" -#: target:code/byte-interp.lisp -msgid "Undefined XOP." +#: src/code/byte-interp.lisp +msgid "Unknown inline function, id=~D" msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Wrong number of arguments." msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "Not enough arguments." msgstr "" -#: target:pcl/boot.lisp target:code/byte-interp.lisp +#: src/pcl/boot.lisp src/code/byte-interp.lisp msgid "Too many arguments." msgstr "" -#: target:pcl/combin.lisp target:code/interr.lisp target:code/byte-interp.lisp +#: src/pcl/combin.lisp src/code/interr.lisp src/code/byte-interp.lisp msgid "Odd number of keyword arguments." msgstr "" -#: target:code/interr.lisp target:code/byte-interp.lisp +#: src/code/interr.lisp src/code/byte-interp.lisp msgid "Unknown keyword: ~S" msgstr "" -#: target:code/byte-interp.lisp +#: src/code/byte-interp.lisp msgid "function-end breakpoints not supported." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "The exclusive upper bound on the rank of an array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "The exclusive upper bound any given dimension of an array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "The exclusive upper bound on the total number of elements in an array." msgstr "" -#: target:code/array.lisp -msgid "End ~D is greater than total size ~D." +#: src/code/array.lisp +msgid "Start ~D is greater than end ~D." msgstr "" -#: target:code/array.lisp -msgid "Start ~D is greater than end ~D." +#: src/code/array.lisp +msgid "End ~D is greater than total size ~D." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "List of weak-pointers to static vectors. Needed for GCing static vectors" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Cannot make a static array of element type ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Failed to allocate space for static array of length ~S of type ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Creates an array of the specified Dimensions and properties. See the\n" " manual for details.\n" @@ -2120,91 +2308,85 @@ msgid "" " created. This array is created by calling malloc." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Can't specify :displaced-index-offset without :displaced-to" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Cannot make an adjustable static array" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Cannot make a displaced array static" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Cannot specify both :initial-element and ~\n" "\t\t:initial-contents" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "~D elements in the initial-contents, but the ~\n" "\t\tvector length is ~D." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Only vectors can have fill pointers." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Invalid fill-pointer ~D" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Neither :initial-element nor :initial-contents ~\n" "\t\t can be specified along with :displaced-to" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "One can't displace an array of type ~S into ~\n" " another of type ~S." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~S doesn't have enough elements." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~&Freeing foreign vector at #x~X~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Finalizing static vectors ~S~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "static vector ~A. header = ~X~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid " static vector ~A in use~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid " Free static vector ~A~%" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Cannot supply both :initial-contents and :initial-element to\n" " either make-array or adjust-array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~S cannot be used to initialize an array of type ~S." msgstr "" -#: target:code/array.lisp -msgid "" -"Malformed :initial-contents. Dimension of ~\n" -"\t\t\t axis ~D is ~D, but ~S is ~D long." -msgstr "" - -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Malformed :initial-contents. ~S is not a ~\n" "\t\t\t sequence, but ~D more layer needed." @@ -2214,104 +2396,110 @@ msgid_plural "" msgstr[0] "" msgstr[1] "" -#: target:code/array.lisp +#: src/code/array.lisp +msgid "" +"Malformed :initial-contents. Dimension of ~\n" +"\t\t\t axis ~D is ~D, but ~S is ~D long." +msgstr "" + +#: src/code/array.lisp msgid "Constructs a simple-vector from the given objects." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Wrong number of subscripts, ~D, for array of rank ~D" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Invalid index ~D in ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns T if the Subscipts are in bounds for the Array, Nil otherwise." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the element of the Array specified by the Subscripts." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Returns the element of array corressponding to the row-major index. This " "is\n" " SETF'able." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the Index'th element of the given Simple-Vector." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the bit from the Bit-Array at the specified Subscripts." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the bit from the Simple-Bit-Array at the specified Subscripts." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the type of the elements of the array" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the number of dimensions of the Array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns length of dimension Axis-Number of the Array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Vector axis is not zero: ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~D is too big; ~S only has ~D dimension" msgid_plural "~D is too big; ~S only has ~D dimensions" msgstr[0] "" msgstr[1] "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns a list whose elements are the dimensions of the array" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the total number of elements in the Array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Returns values of :displaced-to and :displaced-index-offset options to\n" " make-array, or the defaults nil and 0 if not a displaced array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Returns T if (adjust-array array...) would return an array identical\n" " to the argument, this happens for complex arrays." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns T if the given Array has a fill pointer, or Nil otherwise." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Returns the Fill-Pointer of the given Vector." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "New fill pointer, ~S, is larger than the length of the vector." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Attempts to set the element of Array designated by the fill pointer\n" " to New-El and increment fill pointer by one. If the fill pointer is\n" @@ -2320,103 +2508,103 @@ msgid "" " returned." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Like Vector-Push except that if the fill pointer gets too large, the\n" " Array is extended rather than Nil being returned." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Attempts to decrease the fill-pointer by 1 and return the element\n" " pointer to by the new fill pointer. If the original value of the fill\n" " pointer is 0, an error occurs." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Nothing left to pop." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Adjusts the Array's dimensions to the given Dimensions and stuff." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Number of dimensions not equal to rank of array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "New element type, ~S, is incompatible with old." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Static arrays are not adjustable." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Multidimensional arrays can't have fill pointers." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Initial contents may not be specified with ~\n" "\t\t the :initial-element or :displaced-to option." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "The :initial-element option may not be specified ~\n" "\t with :displaced-to." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "One can't displace an array of type ~S into another of ~\n" "\t type ~S." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "The :displaced-to array is too small." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Cannot adjust-array an array (~S) to a size (~S) that is ~\n" "\t smaller than it's fill pointer (~S)." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Cannot supply a non-NIL value (~S) for :fill-pointer ~\n" "\t in adjust-array unless the array (~S) was originally ~\n" " \t created with a fill pointer." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Cannot supply a value for :fill-pointer (~S) that is larger ~\n" "\t than the new length of the vector (~S)." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Bogus value for :fill-pointer in adjust-array: ~S" msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Destructively alters the Vector, changing its length to New-Size, which\n" " must be less than or equal to its current size." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "Fills in array header with provided information. Returns array." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "~S and ~S do not have the same dimensions." msgstr "~S 와 ~S 는 ê·¸ ìš”ì†Œì˜ ìˆ˜ê°€ 다르다." -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2425,7 +2613,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGIOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2434,7 +2622,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGXOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2443,7 +2631,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGEQV on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2452,7 +2640,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGNAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2461,7 +2649,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGNOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2470,7 +2658,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGANDC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2479,7 +2667,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGANDC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2488,7 +2676,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGORC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2497,7 +2685,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Perform a bit-wise LOGORC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2506,7 +2694,7 @@ msgid "" " created. All the arrays must have the same rank and dimensions." msgstr "" -#: target:code/array.lisp +#: src/code/array.lisp msgid "" "Performs a bit-wise logical NOT on the elements of BIT-ARRAY,\n" " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n" @@ -2514,21 +2702,21 @@ msgid "" " created. Both arrays must have the same rank and dimensions." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Structure used to implement hash tables." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Almost-Primify returns an almost prime number greater than or equal\n" " to NUM." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Define a new kind of hash table test." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Creates and returns a new hash table. The keywords are as follows:\n" " :TEST -- Indicates what kind of test to use. Only EQ, EQL, EQUAL,\n" @@ -2557,48 +2745,44 @@ msgid "" " backward compatibility, a value of T is the same as :KEY." msgstr "" -#: target:code/hash-new.lisp -msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S" -msgstr "" - -#: target:code/hash-new.lisp -msgid ";; Creating unsupported weak-p hash table~%" +#: src/code/hash-new.lisp +msgid "Cannot make a weak ~A hashtable with test: ~S" msgstr "" -#: target:code/hash-new.lisp -msgid "Cannot make a weak ~A hashtable with test: ~S" +#: src/code/hash-new.lisp +msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S" msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Returns the number of entries in the given HASH-TABLE." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Return the rehash-size HASH-TABLE was created with." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Return the rehash-threshold HASH-TABLE was created with." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Return a size that can be used with MAKE-HASH-TABLE to create a hash\n" " table that can hold however many entries HASH-TABLE can hold without\n" " having to be grown." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Return the test HASH-TABLE was created with." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Return T if HASH-TABLE will not keep entries for keys that would\n" " otherwise be garbage, and NIL if it will." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n" " value and T as multiple values, or returns DEFAULT and NIL if there is " @@ -2606,31 +2790,31 @@ msgid "" " such entry. Entries can be added using SETF." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "Remove the entry in HASH-TABLE associated with KEY. Returns T if there\n" " was such an entry, and NIL if not." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "This removes all the entries from HASH-TABLE and returns the hash table\n" " itself." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "This removes all the entries from HASH-TABLE and returns the hash table\n" " itself, shrinking the size to free memory." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n" " of the entry; returns NIL." msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "" "WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n" " provides a method of manually looping over the elements of a hash-table.\n" @@ -2640,226 +2824,226 @@ msgid "" " the second and third values are the key and the value of the next object." msgstr "" -#: target:pcl/slots.lisp target:code/hash-new.lisp +#: src/pcl/slots.lisp src/code/hash-new.lisp msgid "What kind of instance is this?" msgstr "" -#: target:code/hash-new.lisp +#: src/code/hash-new.lisp msgid "Computes a hash code for S-EXPR and returns it as an integer." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp #, fuzzy msgid "Returns all but the first object." msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 2nd object in a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the 1st sublist." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the 1st sublist." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns all but the 1st two objects of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in the cddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in the cadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in the caar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the caar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cdar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cdar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the caaar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the caadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the caddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cdddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cdddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the caaar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cdaar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cddar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cadar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cdaar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cdadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the car of the cddar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the caadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cadar of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the caddr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the cdr of the cdadr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns a list with se1 as the car and se2 as the cdr." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns T if X and Y are isomorphic trees with identical leaves." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "The recommended way to test for the end of a list. True if Object is nil,\n" " false if Object is a cons, and an error for any other types of arguments." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the length of the given List, or Nil if the List is circular." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the nth object in a list where the car is the zero-th element." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 1st object in a list or NIL if the list is empty." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 2nd object in a list or NIL if there is no 2nd object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 3rd object in a list or NIL if there is no 3rd object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 4th object in a list or NIL if there is no 4th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 5th object in a list or NIL if there is no 5th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 6th object in a list or NIL if there is no 6th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 7th object in a list or NIL if there is no 7th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 8th object in a list or NIL if there is no 8th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 9th object in a list or NIL if there is no 9th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the 10th object in a list or NIL if there is no 10th object." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Means the same as the cdr of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Performs the cdr function n times on a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the last N conses (not the last element!) of a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns constructs and returns a list of its arguments." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns a list of the arguments with last cons a dotted pair" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Constructs a list with size elements each set to value" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "~S is not a proper list" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Typically, returns a new list that is the concatenation of Args.\n" "\n" @@ -2872,233 +3056,233 @@ msgid "" " last Arg is not a list, the returned value is not a list either." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "~S is not a list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns a new list EQUAL but not EQ to list" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns a new association list equal to alist, constructed in space" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Copy-Tree recursively copys trees of conses." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns (append (reverse x) y)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Concatenates the lists given as arguments (by changing them)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Argument is not a list -- ~S." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns (nconc (nreverse x) y)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "First argument is not a proper list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns a new list the same as List without the last N conses.\n" " List must not be circular." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Modifies List to remove the last N conses. List must not be circular." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns a new list, whose elements are those of List that appear before\n" " Object. If Object is not a tail of List, a copy of List is returned.\n" " List must be a proper list or a dotted list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Changes the car of x to y and returns the new x." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Changes the cdr of x to y and returns the new x." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Sets the Nth element of List (zero based) to Newval." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "~S is too large an index for SETF of NTH." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp #, fuzzy msgid "Returns what was passed to it." msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Builds a new function that returns T whenever FUNCTION returns NIL and\n" " NIL whenever FUNCTION returns T." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees matching old." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees for which test is true." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees for which test is false." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees of tree for which test is true." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes new for subtrees of tree for which test is false." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Substitutes from alist into tree nondestructively." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns tail of list beginning with first element satisfying EQLity,\n" " :test, or :test-not with a given item." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp #, fuzzy msgid "" "Returns tail of list beginning with first element satisfying test(element)" msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:code/list.lisp +#: src/code/list.lisp #, fuzzy msgid "" "Returns tail of list beginning with first element not satisfying test(el)" msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns true if Object is the same as some tail of List, otherwise\n" " returns false. List must be a proper list or a dotted list." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Add item to list unless it is already a member" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the union of list1 and list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Test and test-not both supplied." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Destructively returns the union list1 and list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the intersection of list1 and list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Destructively returns the intersection of list1 and list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns the elements of list1 which are not in list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Destructively returns the elements of list1 which are not in list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Return new list of elements appearing exactly once in LIST1 and LIST2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Destructively return a list with elements which appear but once in LIST1\n" " and LIST2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns T if every element in list1 is also in list2." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Construct a new alist by adding the pair (key . datum) to alist" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Construct an association list from keys and data (adding to alist)" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "The lists of keys and data are of unequal length." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the cons in alist whose car is equal (by a given test or EQL) to\n" " the Item." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the first cons in alist whose car satisfies the Predicate. If\n" " key is supplied, apply it to the car of each cons before testing." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the first cons in alist whose car does not satisfiy the Predicate.\n" " If key is supplied, apply it to the car of each cons before testing." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n" " the Item." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the first cons in alist whose cdr satisfies the Predicate. If key\n" " is supplied, apply it to the cdr of each cons before testing." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Returns the first cons in alist whose cdr does not satisfy the Predicate.\n" " If key is supplied, apply it to the cdr of each cons before testing." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n" " It Maps function over the arglists in the appropriate way. It is done when " @@ -3108,158 +3292,158 @@ msgid "" " function and accumulating results as desired." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "" "Applies fn to successive elements of lists, returns its second argument." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive elements of list, returns list of results." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive elements of list, returns NCONC of results." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive CDRs of list, returns ()." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive CDRs of list, returns list of results." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Applies fn to successive CDRs of lists, returns NCONC of results." msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns tail of list beginning with first element eq to item" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Return the first pair of alist where item EQ the key of pair" msgstr "" -#: target:code/list.lisp +#: src/code/list.lisp msgid "Returns list with all elements with all elements EQ to ITEM deleted." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a list of the Nth element of each of the sequences. Used by MAP\n" " and friends." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns a sequence of the same type as SEQUENCE and the given LENGTH." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the broad class of which TYPE is a specific subclass." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "NIL output type invalid for this sequence function." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S is too hairy for sequence functions." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S is a bad type specifier for sequence functions." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Error in ~S: ~S: Index too large." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns a sequence of the given TYPE and LENGTH." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the element of SEQUENCE specified by INDEX." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Store NEWVAL as the component of SEQUENCE specified by INDEX." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns an integer that is the length of SEQUENCE." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S is a bad type specifier for sequences" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Shouldn't happen! Weird type" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The length of ~S does not match the specified ~\n" " length of ~S." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the given Type and Length, with elements initialized\n" " to :Initial-Element." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The length of ~S does not match the specified ~\n" " length of ~S." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S is a bad type specifier for sequences." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a copy of a subsequence of SEQUENCE starting with element number \n" " START and continuing to the end of SEQUENCE or the optional END." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Replace the specified elements of SEQUENCE with ITEM." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The target sequence is destructively modified by copying successive\n" " elements into it from the source sequence." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a new sequence containing the same elements but in reverse order." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same elements in reverse order; the argument\n" " is destroyed." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a new sequence of all the argument sequences concatenated together\n" " which shares no structure with the original argument sequences of the\n" " specified OUTPUT-TYPE-SPEC." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "FUNCTION must take as many arguments as there are sequences provided. The \n" " result is a sequence such that element i is the result of applying " @@ -3267,14 +3451,14 @@ msgid "" " to element i of each of the argument sequences." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "PREDICATE is applied to the elements with index 0 of the sequences, then \n" " possibly to those with index 1, and so on. SOME returns the first \n" " non-() value encountered, or () if the end of a sequence is reached." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "PREDICATE is applied to the elements with index 0 of the sequences, then\n" " possibly to those with index 1, and so on. EVERY returns () as soon\n" @@ -3282,7 +3466,7 @@ msgid "" " is non-()." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "PREDICATE is applied to the elements with index 0 of the sequences, then \n" " possibly to those with index 1, and so on. NOTANY returns () as soon\n" @@ -3290,7 +3474,7 @@ msgid "" " of a sequence is reached." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "PREDICATE is applied to the elements with index 0 of the sequences, then\n" " possibly to those with index 1, and so on. NOTEVERY returns T as soon\n" @@ -3298,57 +3482,57 @@ msgid "" " is non-()." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The specified Sequence is ``reduced'' using the given Function.\n" " See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Coerces the Object to an object of type Output-Type-Spec." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "~S can't be converted to type ~S." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence formed by destructively removing the specified Item from\n" " the given Sequence." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence formed by destructively removing the elements satisfying\n" " the specified Predicate from the given Sequence." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence formed by destructively removing the elements not\n" " satisfying the specified Predicate from the given Sequence." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a copy of SEQUENCE with elements satisfying the test (default is\n" " EQL) with ITEM removed." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a copy of sequence with elements such that predicate(element)\n" " is non-null are removed" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a copy of sequence with elements such that predicate(element)\n" " is null are removed" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The elements of Sequence are compared pairwise, and if any two match,\n" " the one occuring earlier is discarded, unless FROM-END is true, in\n" @@ -3358,7 +3542,7 @@ msgid "" " The :TEST-NOT argument is deprecated." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The elements of Sequence are examined, and if any two match, one is\n" " discarded. The resulting sequence, which may be formed by destroying " @@ -3368,28 +3552,28 @@ msgid "" " The :TEST-NOT argument is deprecated." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements equal to Old are replaced with New. See manual\n" " for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements satisfying the Test are replaced with New. See\n" " manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements not satisfying the Test are replaced with New.\n" " See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements equal to Old are replaced with New. The " @@ -3397,64 +3581,64 @@ msgid "" " may be destroyed. See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements satisfying the Test are replaced with New. The\n" " Sequence may be destroyed. See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns a sequence of the same kind as Sequence with the same elements\n" " except that all elements not satisfying the Test are replaced with New.\n" " The Sequence may be destroyed. See manual for details." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns the zero-origin index of the first element in SEQUENCE\n" " satisfying the test (default is EQL) with the given ITEM" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the zero-origin index of the first element satisfying test(el)" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns the zero-origin index of the first element not satisfying test(el)" msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns the first element in SEQUENCE satisfying the test (default\n" " is EQL) with the given ITEM" msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the first element in SEQUENCE satisfying the test." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the first element in SEQUENCE not satisfying the test." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "Returns the number of elements in SEQUENCE satisfying a test with ITEM,\n" " which defaults to EQL." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid ":TEST and :TEST-NOT are both present." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "Returns the number of elements in SEQUENCE satisfying TEST(el)." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "The specified subsequences of Sequence1 and Sequence2 are compared\n" " element-wise. If they are of equal length and match in every element, " @@ -3470,7 +3654,7 @@ msgid "" " rightmost position in which the sequences differ is returned." msgstr "" -#: target:code/seq.lisp +#: src/code/seq.lisp msgid "" "A search is conducted using EQL for the first subsequence of sequence2 \n" " which element-wise matches sequence1. If there is such a subsequence " @@ -3479,7 +3663,7 @@ msgid "" " otherwise () is returned." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Test if C is a surrogate. C may be either an integer or a\n" " character. Surrogate-type indicates what kind of surrogate to test\n" @@ -3488,13 +3672,13 @@ msgid "" " tests for any surrogate value (high or low)." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert the given Hi and Lo surrogate characters to the\n" " corresponding codepoint value" msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Return the codepoint value from String at position I. If that\n" " position is a surrogate, it is combined with either the previous or\n" @@ -3504,14 +3688,14 @@ msgid "" " surrogate value, respectively." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Return the high and low surrogate characters for Codepoint. If\n" " Codepoint is in the BMP, the first return value is the corresponding\n" " character and the second is NIL." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Set the codepoint at string position I to the Codepoint. If the\n" " codepoint requires a surrogate pair, the high (leading surrogate) is\n" @@ -3519,7 +3703,7 @@ msgid "" " I+1" msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Check if String is a valid UTF-16 string. If the string is valid,\n" " T is returned. If the string is not valid, NIL is returned, and the\n" @@ -3527,7 +3711,7 @@ msgid "" " A string is also invalid if it contains any unassigned codepoints." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Coerces X into a string. If X is a string, X is returned. If X is a\n" " symbol, X's pname is returned. If X is a character then a one element\n" @@ -3535,66 +3719,66 @@ msgid "" " into a string, an error occurs." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "~S cannot be coerced to a string." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string and a non-negative integer index less than the length of\n" " the string, returns the character object representing the character at\n" " that position in the string." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "SCHAR returns the character object at an indexed position in a string\n" " just as CHAR does, except the string must be a simple-string." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically less than\n" " the second string, returns the longest common prefix (using char=)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically greater than\n" " the second string, returns the longest common prefix (using char=)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically less than\n" " or equal to the second string, returns the longest common prefix\n" " (using char=) of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically greater\n" " than or equal to the second string, returns the longest common prefix\n" " (using char=) of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings (string1 and string2), and optional integers start1,\n" " start2, end1 and end2, compares characters in string1 to characters in\n" " string2 (using char=)." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is not lexicographically equal\n" " to the second string, returns the longest common prefix (using char=)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Return a new string with the case folded according to Casing as follows:\n" "\n" @@ -3604,18 +3788,18 @@ msgid "" " Default Casing is :SIMPLE." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings (string1 and string2), and optional integers start1,\n" " start2, end1 and end2, compares characters in string1 to characters in\n" " string2 (using char-equal)." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "Improper bounds for string comparison." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is not lexicographically equal\n" " to the second string, returns the longest common prefix (using char-" @@ -3623,71 +3807,71 @@ msgid "" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "Improper substring for comparison." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically less than\n" " the second string, returns the longest common prefix (using char-equal)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically greater than\n" " the second string, returns the longest common prefix (using char-equal)\n" " of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically greater\n" " than or equal to the second string, returns the longest common prefix\n" " (using char-equal) of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given two strings, if the first string is lexicographically less than\n" " or equal to the second string, returns the longest common prefix\n" " (using char-equal) of the two strings. Otherwise, returns ()." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a character count and an optional fill character, makes and returns\n" " a new string Count long filled with the fill character." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a new string that is a copy of it with all\n" " lower case alphabetic characters converted to uppercase." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a new string that is a copy of it with all\n" " lower case alphabetic characters converted to uppercase. Casing is\n" " :simple or :full for simple or full case conversion, respectively." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a new string that is a copy of it with all\n" " upper case alphabetic characters converted to lowercase." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a new string that is a copy of it with all\n" " upper case alphabetic characters converted to lowercase. Casing is\n" " :simple or :full for simple or full case conversion, respectively." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a copy of the string with the first\n" " character of each ``word'' converted to upper-case, and remaining\n" @@ -3696,7 +3880,7 @@ msgid "" " non-case-modifiable chars." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns a copy of the string with the first\n" " character of each ``word'' converted to upper-case, and remaining\n" @@ -3706,19 +3890,19 @@ msgid "" " simple or full case conversion, respectively." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns that string with all lower case alphabetic\n" " characters converted to uppercase." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns that string with all upper case alphabetic\n" " characters converted to lowercase." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a string, returns that string with the first\n" " character of each ``word'' converted to upper-case, and remaining\n" @@ -3727,7 +3911,7 @@ msgid "" " non-case-modifiable chars." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns\n" " a copy of the string with the characters in the set removed from the\n" @@ -3735,7 +3919,7 @@ msgid "" " properly handled." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns\n" " a copy of the string with the characters in the set removed from the\n" @@ -3743,7 +3927,7 @@ msgid "" " properly handled." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns a\n" " copy of the string with the characters in the set removed from both\n" @@ -3751,28 +3935,28 @@ msgid "" " properly handled." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns\n" " a copy of the string with the characters in the set removed from the\n" " left end." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns\n" " a copy of the string with the characters in the set removed from the\n" " right end." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Given a set of characters (a list or string) and a string, returns a\n" " copy of the string with the characters in the set removed from both\n" " ends." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "GLYPH returns the glyph at the indexed position in a string, and the\n" " position of the next glyph (or NIL) as a second value. A glyph is\n" @@ -3780,39 +3964,39 @@ msgid "" " subsequent combining characters." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "SGLYPH returns the glyph at the indexed position, the same as GLYPH,\n" " except that the string must be a simple-string" msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert String to Unicode Normalization Form D (NFD) using the\n" " canonical decomposition. The NFD string is returned" msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert String to Unicode Normalization Form KD (NFKD) uisng the\n" " compatible decomposition form. The NFKD string is returned." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert String to Unicode Normalization Form C (NFC). If the\n" " string a simple string and is already normalized, the original\n" " string is returned." msgstr "" -#: target:code/string.lisp +#: src/code/string.lisp msgid "" "Convert String to Unicode Normalization Form KC (NFKC). If the\n" " string is a simple string and is already normalized, the original\n" " string is returned." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "Compares the substrings specified by String1 and String2 and returns\n" "NIL if the strings are String=, or the lowest index of String1 in\n" @@ -3822,11 +4006,11 @@ msgid "" "be simple strings." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "Like %sp-string-compare, only backwards." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Find-Character-With-Attribute String, Start, End, Table, Mask\n" " The codes of the characters of String from Start to End are used as " @@ -3837,11 +4021,11 @@ msgid "" " index into the String is returned. The corresponds to SCANC on the Vax." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "Like %SP-Find-Character-With-Attribute, only sdrawkcaB." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Find-Character String, Start, End, Character\n" " Searches String for the Character from Start to End. If the character is\n" @@ -3849,7 +4033,7 @@ msgid "" " returned." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Reverse-Find-Character String, Start, End, Character\n" " Searches String for Character from End to Start. If the character is\n" @@ -3857,21 +4041,21 @@ msgid "" " returned." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Skip-Character String, Start, End, Character\n" " Returns the index of the first character between Start and End which\n" " is not Char= to Character, or NIL if there is no such character." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-Skip-Character String, Start, End, Character\n" " Returns the index of the last character between Start and End which\n" " is not Char= to Character, or NIL if there is no such character." msgstr "" -#: target:code/mipsstrops.lisp +#: src/code/mipsstrops.lisp msgid "" "%SP-String-Search String1, Start1, End1, String2, Start2, End2\n" " Searches for the substring of String1 specified in String2.\n" @@ -3879,85 +4063,85 @@ msgid "" " found." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. This symbol's current special\n" " value is returned." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. Return NIL if this symbol is\n" " unbound, T if it has a value." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. This symbol's special value cell is\n" " set to the specified new value." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Nihil ex nihil, can't set NIL." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Veritas aeterna, can't set T." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Can't set keywords." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. This symbol is made unbound,\n" " removing any value it may currently have." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "VARIABLE must evaluate to a symbol. This symbol's current definition\n" " is returned. Settable with SETF." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "VARIABLE must evaluate to a symbol. Return its property list." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "VARIABLE must evaluate to a symbol. Return its print name." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "VARIABLE must evaluate to a symbol. Return its package." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Make and return a new symbol with the STRING as its print name." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Return the hash value for symbol." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Look on the property list of SYMBOL for the specified INDICATOR. If this\n" " is found, return the associated value, else return DEFAULT." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "~S has an odd number of items in its property list." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "The VALUE is added as a property of SYMBOL under the specified INDICATOR.\n" " Returns VALUE." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Look on property list of SYMBOL for property with specified\n" " INDICATOR. If found, splice this indicator and its value out of\n" @@ -3969,7 +4153,7 @@ msgid "" "value." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Searches the property list stored in Place for an indicator EQ to " "Indicator.\n" @@ -3977,18 +4161,18 @@ msgid "" " returned." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Malformed property list: ~S" msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Like GETF, except that Indicator-List is a list of indicators which will\n" " be looked for in the property list stored in Place. Three values are\n" " returned, see manual for details." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Make and return a new uninterned symbol with the same print name\n" " as SYMBOL. If COPY-PROPS is false, the new symbol is neither bound\n" @@ -3996,15 +4180,15 @@ msgid "" " function, value and property list." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Returns true if Object is a symbol in the keyword package." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Counter for generating unique GENSYM symbols." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "" "Creates a new uninterned symbol whose name is a prefix string (defaults\n" " to \"G\"), followed by a decimal number. Thing, when supplied, will\n" @@ -4014,50 +4198,50 @@ msgid "" " it is used." msgstr "" -#: target:code/symbol.lisp +#: src/code/symbol.lisp msgid "Creates a new symbol interned in package Package with the given Prefix." msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "" "When the bignum pieces are smaller than this many words, we use the\n" "classical multiplication algorithm instead of recursing all the way\n" "down to individual words." msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "Use Karatsuba if the bignums have at least this many bits" msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "WITH-BIGNUM-BUFFERS ({(var size [init])}*) Form*" msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "Unexpected zero bignums?" msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "Can't represent result of left shift." msgstr "" -#: target:code/bignum.lisp +#: src/code/bignum.lisp msgid "Too large to be represented as a ~S:~% ~S" msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "More types than vars." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Duplicate case: ~S." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "More vars than types." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "NUMBER-DISPATCH ({(Var Type)}*) {((Type*) Form*) | (Symbol Arg*)}*\n" " A vaguely case-like macro that does number cross-product dispatches. The\n" @@ -4080,349 +4264,373 @@ msgid "" " the call as a list of cases. This process is not applied recursively." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the element type of the most specialized COMPLEX number type that\n" " can hold parts of type Spec." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Assume this is a subtype of REAL anyway." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Cannot determine if ~S is a subtype of REAL." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Complex numbers cannot have components of type ~S." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Builds a complex number from the specified components." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Extracts the real part of a number." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Extracts the imaginary part of a number." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the complex conjugate of NUMBER. For non-complex numbers, this is\n" " an identity." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "If NUMBER is zero, return NUMBER, else return (/ NUMBER (ABS NUMBER))." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Return the numerator of NUMBER, which must be rational." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Return the denominator of NUMBER, which must be rational." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the sum of its arguments. With no args, returns 0." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the product of its arguments. With no args, returns 1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Subtracts the second and all subsequent arguments from the first.\n" " With one arg, negates it." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Divides the first arg by each of the following arguments, in turn.\n" " With one arg, returns reciprocal." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns NUMBER + 1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns NUMBER - 1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns number (or number/divisor) as an integer, rounded toward 0.\n" " The second returned value is the remainder." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the greatest integer not greater than number, or number/divisor.\n" " The second returned value is (mod number divisor)." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the smallest integer not less than number, or number/divisor.\n" " The second returned value is the remainder." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Rounds number (or number/divisor) to nearest integer.\n" " The second returned value is the remainder." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns second result of TRUNCATE." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns second result of FLOOR." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Same as TRUNCATE, but returns first value as a float." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Same as FLOOR, but returns first value as a float." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Same as CEILING, but returns first value as a float." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Same as ROUND, but returns first value as a float." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if all of its arguments are numerically equal, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if no two of its arguments are numerically equal, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if its arguments are in strictly increasing order, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if its arguments are in strictly decreasing order, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if arguments are in strictly non-decreasing order, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns T if arguments are in strictly non-increasing order, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the greatest of its arguments." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the least of its arguments." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Return T if OBJ1 and OBJ2 represent the same object, otherwise NIL." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the bit-wise or of its arguments. Args must be integers." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the bit-wise exclusive or of its arguments. Args must be integers." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the bit-wise and of its arguments. Args must be integers." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the bit-wise equivalence of its arguments. Args must be integers." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the complement of the logical AND of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the complement of the logical OR of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the logical AND of (LOGNOT integer1) and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the logical AND of integer1 and (LOGNOT integer2)." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the logical OR of (LOGNOT integer1) and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the logical OR of integer1 and (LOGNOT integer2)." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the bit-wise logical not of integer." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp +msgid "Returns the complement of the AND of integer1 and integer2" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the complement of the OR of integer1 and integer2" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the AND of (LOGNOT integer1) and integer2" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the AND of integer1 and (LOGNOT integer2)" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the OR of (LOGNOT integer1) and integer2" +msgstr "" + +#: src/code/numbers.lisp +msgid "Returns the OR of integer1 and (LOGNOT integer2)" +msgstr "" + +#: src/code/numbers.lisp msgid "" "Count the number of 1 bits if INTEGER is positive, and the number of 0 bits\n" " if INTEGER is negative." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Predicate which returns T if logand of integer1 and integer2 is not zero." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Predicate returns T if bit index of integer is a 1. The least\n" "significant bit of INTEGER is bit 0." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Shifts integer left by count places preserving sign. - count shifts right." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the number of significant bits in the absolute value of integer." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns a byte specifier which may be used by other byte functions." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the size part of the byte specifier bytespec." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns the position part of the byte specifier bytespec." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Extract the specified byte from integer, and right justify result." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if any of the specified bits in integer are 1's." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Extract the specified byte from integer, but do not right justify result." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns new integer with newbyte in specified position, newbyte is right " "justified." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns new integer with newbyte in specified position, newbyte is not right " "justified." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return 0." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return -1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return integer1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return complement of integer1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return complement of integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logand of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logior of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logxor of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logeqv of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Boole function op, makes BOOLE return log nand of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return lognor of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Boole function op, makes BOOLE return logandc1 of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Boole function op, makes BOOLE return logandc2 of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logorc1 of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Boole function op, makes BOOLE return logorc2 of integer1 and integer2." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Bit-wise boolean function on two integers. Function chosen by OP:\n" "\t0\tBOOLE-CLR\n" @@ -4443,53 +4651,53 @@ msgid "" "\t15\tBOOLE-ORC2" msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the greatest common divisor of the arguments, which must be\n" " integers. Gcd with no arguments is defined to be 0." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the least common multiple of one or more integers. LCM of no\n" " arguments is defined to be 1." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T iff X is a positive prime integer." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "" "Returns the root of the nearest integer less than n which is a perfect\n" " square." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number = 0, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number > 0, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number < 0, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number is odd, NIL otherwise." msgstr "" -#: target:code/numbers.lisp +#: src/code/numbers.lisp msgid "Returns T if number is even, NIL otherwise." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "Unknown float trap kind: ~S." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "" "This function sets options controlling the floating-point hardware. If a\n" " keyword is not supplied, then the current value is preserved. Possible\n" @@ -4523,11 +4731,11 @@ msgid "" " currently in effect." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "Unknown rounding mode: ~S." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "" "This function returns a list representing the state of the floating point\n" " modes. The list is in the same format as the keyword arguments to\n" @@ -4538,18 +4746,18 @@ msgid "" "op)." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "" "Current-Float-Trap Trap-Name*\n" " Return true if any of the named traps are currently trapped, false\n" " otherwise." msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "SIGFPE with no exceptions currently enabled?" msgstr "" -#: target:code/float-trap.lisp +#: src/code/float-trap.lisp msgid "" "Execute BODY with the floating point exceptions listed in TRAPS\n" " masked (disabled). TRAPS should be a list of possible exceptions\n" @@ -4559,53 +4767,53 @@ msgid "" " their testing within, and restored on exit." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "Return true if the float X is denormalized." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "Return true if the float X is an infinity (+ or -)." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "Return true if the float X is a NaN (Not a Number)." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "Return true if the float X is a trapping NaN (Not a Number)." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns a non-negative number of significant digits in it's float argument.\n" " Will be less than FLOAT-DIGITS if denormalized or zero." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns a floating-point number that has the same sign as\n" " float1 and, if float2 is given, has the same absolute value\n" " as float2." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns a non-negative number of radix-b digits used in the\n" " representation of it's argument. See Common Lisp: The Language\n" " by Guy Steele for more details." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns (as an integer) the radix b of its floating-point\n" " argument." msgstr "" -#: target:code/irrat.lisp target:code/float.lisp +#: src/code/irrat.lisp src/code/float.lisp msgid "Can't decode NAN or infinity: ~S." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns three values:\n" " 1) an integer representation of the significand.\n" @@ -4619,7 +4827,7 @@ msgid "" " 3) -1 or 1 (i.e. the sign of the argument.)" msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns three values:\n" " 1) a floating-point number representing the significand. This is always\n" @@ -4628,27 +4836,27 @@ msgid "" " 3) -1.0 or 1.0 (i.e. the sign of the argument.)" msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Returns the value (* f (expt (float 2 f) ex)), but with no unnecessary loss\n" " of precision or overflow." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Converts any REAL to a float. If OTHER is not provided, it returns a\n" " SINGLE-FLOAT if NUMBER is not already a FLOAT. If OTHER is provided, the\n" " result is the same float format as OTHER." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "RATIONAL produces a rational number for any real numeric argument. This is\n" " more efficient than RATIONALIZE, but it assumes that floating-point is\n" " completely accurate, giving a result that isn't as pretty." msgstr "" -#: target:code/float.lisp +#: src/code/float.lisp msgid "" "Converts any REAL to a RATIONAL. Floats are converted to a simple rational\n" " representation exploiting the assumption that floats are only accurate to\n" @@ -4656,39 +4864,39 @@ msgid "" " (= x (float (rationalize x) x))" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return e raised to the power NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "The absolute value of ~S exceeds limit ~S." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Continue with calculation" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Continue with calculation, update limit" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Returns BASE raised to the POWER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the logarithm of NUMBER in the base BASE, which defaults to e." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the square root of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Returns the absolute value of the number." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Returns the angle part of the polar representation of a complex number.\n" " For complex numbers, this is (atan (imagpart number) (realpart number)).\n" @@ -4696,75 +4904,75 @@ msgid "" " numbers this is PI." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the sine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the cosine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the tangent of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return cos(Theta) + i sin(Theta), AKA exp(i Theta)." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Argument to CIS is complex: ~S" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the arc sine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the arc cosine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the arc tangent of Y if X is omitted or Y/X if X is supplied." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic sine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic cosine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic tangent of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic arc sine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic arc cosine of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "Return the hyperbolic arc tangent of NUMBER." msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Compute 2^N * X without compute 2^N first (use properties of the\n" "underlying floating-point format" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Same as logb but X is not infinity and non-zero and not a NaN, so\n" "that we can always return an integer" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Compute an integer N such that 1 <= |2^(-N) * x| < 2.\n" "For the special cases, the following values are used:\n" @@ -4775,342 +4983,342 @@ msgid "" " 0 -infinity\n" msgstr "" -#: target:code/irrat.lisp +#: src/code/irrat.lisp msgid "" "Create complex number with real part X and imaginary part Y such that\n" "it has the same type as Z. If Z has type (complex rational), the X\n" "and Y are coerced to single-float." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Principle square root of Z\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute log(2^j*z).\n" "\n" "This is for use with J /= 0 only when |z| is huge." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Log of Z = log |Z| + i * arg Z\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "Compute atanh z = (log(1+z) - log(1-z))/2" msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "Compute tanh z = sinh z / cosh z" msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute acos z = pi/2 - asin z\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute acosh z = 2 * log(sqrt((z+1)/2) + sqrt((z-1)/2))\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute asin z = asinh(i*z)/i\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute asinh z = log(z + sqrt(1 + z*z))\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute atan z = atanh (i*z) / i\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp target:code/irrat.lisp +#: src/code/irrat-dd.lisp src/code/irrat.lisp msgid "" "Compute tan z = -i * tanh(i * z)\n" "\n" "Z may be any number, but the result is always a complex." msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "log(most-positive-double-double-float)" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "log(least-positive-double-double-float" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "log(2)" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Log base 2 of e" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "log2(e)-1" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Pi" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Pi/2" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Pi/4" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Sqrt(1/2)" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "exp(x) - 1" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "396 (hex) digits of 2/pi" msgstr "" -#: target:code/irrat-dd.lisp +#: src/code/irrat-dd.lisp msgid "Overflow" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "" "~S uses lambda-list keyword naming convention, but is not a recognized " "lambda-list keyword." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &optional in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &rest in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &more in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &key in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &allow-other-keys in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Misplaced &aux in lambda-list: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Found garbage in lambda-list when expecting a keyword: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "&rest not followed by required variable." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Illegal function name: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Special form is an illegal function name: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "" "Defining as a SETF function a name that already has a SETF macro:~\n" " ~% ~S" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Assume redefinition is compatible and allow it" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Redefining slot accessor ~S for structure type ~S" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "~S previously defined as a macro." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Unknown optimization quality ~S in ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Malformed optimization quality specifier ~S in ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "" "DECLAIM Declaration*\n" " Do a declaration for the global environment." msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp +#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp msgid "Malformed PROCLAIM spec: ~S." msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp +#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp msgid "Variable name is not a symbol: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Nihil ex nihil, can't declare ~S special." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Veritas aeterna, can't declare ~S special." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Can't declare ~S special, it is a keyword." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Proceed anyway." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Trying to declare ~S special, which is ~A." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "a constant" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "an alien variable" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "a symbol macro" msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp +#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp msgid "Declared functional type is not a function type: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Ignoring FTYPE declaration for slot accesor:~% ~S" msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Declaration to be RECOGNIZED is not a symbol: ~S." msgstr "" -#: target:compiler/proclaim.lisp +#: src/compiler/proclaim.lisp msgid "Declaration already names a type: ~S." msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/proclaim.lisp +#: src/compiler/ir1tran.lisp src/compiler/proclaim.lisp msgid "Unrecognized proclamation: ~S." msgstr "" -#: target:code/unidata.lisp +#: src/code/unidata.lisp msgid "The Unicode data file is broken." msgstr "" -#: target:code/unidata.lisp +#: src/code/unidata.lisp msgid "Unicode data file is for Unicode ~D.~D.~D" msgstr "" -#: target:code/unidata.lisp +#: src/code/unidata.lisp msgid "No data in file." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "The upper exclusive bound on values produced by CHAR-CODE." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "The upper exclusive bound on the value of a Unicode codepoint" msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "This is the alist of (character-name . character) for characters with\n" " long names. The first name in this list for a given character is used\n" " on typeout and is the preferred form for input." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns the integer code of CHAR." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns the integer code of CHAR. This is the same as char-code, as\n" " CMU Common Lisp does not implement character bits or fonts." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns the character with the code CODE." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Coerces its argument into a character object if possible. Accepts\n" " characters, strings and symbols of length 1." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "String is not of length one: ~S" msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Symbol name is not of length one: ~S" msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "~S cannot be coerced to a character." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Given a character object, char-name returns the name for that\n" " object (a symbol)." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Given an argument acceptable to string, name-char returns a character\n" " object whose name is that symbol, if one exists, otherwise NIL." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object. Standard-char-p returns T if the\n" " argument is a standard character -- one of the 95 ASCII printing " @@ -5118,230 +5326,230 @@ msgid "" " or <return>." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Return T if and only if THING is a standard-char. Differs from\n" " standard-char-p in that THING doesn't have to be a character." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object. Graphic-char-p returns T if the\n" " argument is a printing character, otherwise returns NIL." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object. Alpha-char-p returns T if the\n" " argument is an alphabetic character; otherwise NIL." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object; upper-case-p returns T if the\n" " argument is an upper-case character, NIL otherwise." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object; lower-case-p returns T if the \n" " argument is a lower-case character, NIL otherwise." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object; title-case-p returns T if the\n" " argument is a title-case character, NIL otherwise." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "The argument must be a character object. Both-case-p returns T if the\n" " argument is an alphabetic character and if the character exists in\n" " both upper and lower case. For ASCII, this is the same as Alpha-char-p." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "If char is a digit in the specified radix, returns the fixnum for\n" " which that digit stands, else returns NIL. Radix defaults to 10\n" " (decimal)." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Given a character-object argument, alphanumericp returns T if the\n" " argument is either numeric or alphabetic." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns T if all of its arguments are the same character." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns T if no two of its arguments are the same character." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns T if its arguments are in strictly increasing alphabetic order." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns T if its arguments are in strictly decreasing alphabetic order." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-decreasing alphabetic order." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-increasing alphabetic order." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if all of its arguments are the same character.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if no two of its arguments are the same character.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly increasing alphabetic order.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly decreasing alphabetic order.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-decreasing alphabetic order.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-increasing alphabetic order.\n" " Case is ignored." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns CHAR converted to upper-case if that is possible." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns CHAR converted to title-case if that is possible." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "Returns CHAR converted to lower-case if that is possible." msgstr "" -#: target:code/char.lisp +#: src/code/char.lisp msgid "" "All arguments must be integers. Returns a character object that\n" " represents a digit of the given weight in the specified radix. Returns\n" " NIL if no such character exists." msgstr "" -#: target:pcl/cmucl-documentation.lisp target:code/misc.lisp +#: src/code/misc.lisp msgid "" "Returns the documentation string of Doc-Type for X, or NIL if\n" " none exists. System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,\n" " SETF, and T." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "~S is not the name of a structure type." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "" "If X is an atom, see if it is present in *FEATURES*. Also\n" " handle arbitrary combinations of atoms using NOT, AND, OR." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Unknown operator in feature expression: ~S." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string describing the implementation type." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string describing the implementation version." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid " Unicode" msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string giving the name of the local machine." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "The value of SOFTWARE-TYPE. Set in FOO-os.lisp." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string describing the supporting software." msgstr "" -#: target:code/misc.lisp -msgid "Unknown" +#: src/code/misc.lisp +msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." msgstr "" -#: target:code/misc.lisp -msgid "The value of SHORT-SITE-NAME. Set in library:site-init.lisp." +#: src/code/misc.lisp +msgid "Unknown" msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string with the abbreviated site name." msgstr "" -#: target:code/misc.lisp -msgid "Site name not initialized" +#: src/code/misc.lisp +msgid "The value of LONG-SITE-NAME. Set in library:site-init.lisp." msgstr "" -#: target:code/misc.lisp -msgid "The value of LONG-SITE-NAME. Set in library:site-init.lisp." +#: src/code/misc.lisp +msgid "Site name not initialized" msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Returns a string with the long form of the site name." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "" "With a file name as an argument, dribble opens the file and\n" " sends a record of further I/O to that file. Without an\n" " argument, it closes the dribble file, and quits logging." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "Not currently dribbling." msgstr "" -#: target:code/misc.lisp +#: src/code/misc.lisp msgid "" "Default implementation of ed. This does nothing. If hemlock is\n" " loaded, ed can be used to edit a file" msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "This function can be used as the default value for keyword arguments that\n" " must be always be supplied. Since it is known by the compiler to never\n" @@ -5354,11 +5562,11 @@ msgid "" " corresponding to required arguments." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "A required keyword argument was not supplied." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "FILE-COMMENT String\n" " When COMPILE-FILE sees this form at top-level, it places the constant " @@ -5370,11 +5578,11 @@ msgid "" " etc." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "See listen. Any whitespace in the input stream will be flushed." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Does what one might expect, saving the old values and setting the " "generalized\n" @@ -5384,7 +5592,7 @@ msgid "" " and the once-only evaluation of subforms." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Like letf*, but evaluates all the implicit subforms and new values of all\n" " the implied setfs before altering any values. However, the store forms\n" @@ -5392,17 +5600,17 @@ msgid "" " protects to protect the environment." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Causes the output of the indenting Stream to indent More spaces. More is\n" " evaluated twice." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Just like dolist, but with one-dimensional arrays." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Iterate Name ({(Var Initial-Value)}*) Declaration* Form*\n" " This is syntactic sugar for Labels. It creates a local function Name " @@ -5413,11 +5621,11 @@ msgid "" " of the call is return from the macro." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Malformed iterate variable spec: ~S." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Collect ({(Name [Initial-Value] [Function])}*) {Form}*\n" " Collect some values somehow. Each of the collections specifies a bunch " @@ -5451,11 +5659,11 @@ msgid "" " position, including macros and lambdas." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Malformed collection specifier: ~S." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Once-Only ({(Var Value-Expression)}*) Form*\n" " Create a Let* which evaluates each Value-Expression, binding a temporary\n" @@ -5465,23 +5673,23 @@ msgid "" " temporary variable." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Malformed Once-Only binding spec: ~S." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Ill-formed ~S -- possibly illegal old style DO?" msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "~S step variable is not a symbol: ~S" msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "~S is an illegal form for a ~S varlist." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "DO-ANONYMOUS ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n" " Like DO, but has no implicit NIL block. Each Var is initialized in " @@ -5496,13 +5704,13 @@ msgid "" " of the DO." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "DO-HASH (Key-Var Value-Var Table [Result]) Declaration* Form*\n" " Iterate over the entries in a hash-table." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "DEFINE-HASH-CACHE Name ({(Arg-Name Test-Function)}*) {Key Value}*\n" " Define a hash cache that associates some number of argument values to a\n" @@ -5551,62 +5759,62 @@ msgid "" " specified name. Default PROGN." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Number of default values ~S differs from :VALUES ~D." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "Bad arg spec: ~S." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "DEFUN-CACHED (Name {Key Value}*) ({(Arg-Name Test-Function)}*) Form*\n" " Some syntactic sugar for defining a function whose values are cached by\n" " DEFINE-HASH-CACHE." msgstr "" -#: target:code/extensions.lisp +#: src/code/extensions.lisp msgid "" "Return an EQ hash of X. The value of this hash for any given object can " "(of\n" " course) change at arbitary times." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "A list of all the command line arguments after --" msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "A list of cmd-switch's representing the arguments used to invoke\n" " this process." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "The string name that was used to invoke this process." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "A list of words between the utility name and the first switch." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "A list of strings obtained from the command line that invoked this process." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "An Alist of (\"argument-name\" . demon-function)" msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "When True runs lisp with its input coming from standard-input.\n" " If an error is detected returns error code 1, otherwise 0." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "Accepts the name of a switch as a string and returns the value of the\n" " switch. If no value was specified, then any following words are " @@ -5616,17 +5824,17 @@ msgid "" " specified, then nil is returned." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "When set, invoking switch demons complains about illegal switches that have\n" " not been defined with DEFSWITCH." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "~S is an illegal switch" msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "" "Associates function with the switch name in *command-switch-demons*. Name\n" " is a simple-string that does not begin with a hyphen, unless the switch " @@ -5638,11 +5846,11 @@ msgid "" " switches. This can be inhibited with *complain-about-illegal-switches*." msgstr "" -#: target:code/commandline.lisp +#: src/code/commandline.lisp msgid "a symbol or function" msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Returns information about the symbol VAR in the lexical environment ENV.\n" "Three values are returned:\n" @@ -5656,7 +5864,7 @@ msgid "" " 3) An a-list containing information about any declarations that apply." msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Returns information about declarations named by the symbol DECLARATION-" "NAME.\n" @@ -5671,11 +5879,11 @@ msgid "" " A list of the declaration names the have been proclaimed as valid." msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "Unsupported declaration ~S." msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Process a macro in the same way that DEFMACRO or MACROLET would.\n" "Three values are returned:\n" @@ -5684,7 +5892,7 @@ msgid "" " 3) An environment" msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Returns information about the function name FUNCTION in the lexical " "environment ENV.\n" @@ -5698,7 +5906,7 @@ msgid "" " 3) An a-list containing information about the declarations that apply." msgstr "" -#: target:code/env-access.lisp +#: src/code/env-access.lisp msgid "" "Return a new environment containing information in ENV that is augmented\n" "by the specified parameters:\n" @@ -5711,97 +5919,89 @@ msgid "" " :DECLARE a list of declaration specifiers" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "increments dfixnum v by dfixnum i" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "dfixnum became too big ~a + ~a" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "increments dfixnum v by i (max half fixnum)" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "not a half-fixnum: ~a" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "decrement dfixnum v by dfixnum i" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "dfixnum became negative ~a - ~a (~a/~a)" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "decrement dfixnum v by half-fixnum i" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "" "increments dfixnum by an interger which may be bigger than fixnum.\n" " May cons" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "returns a new dfixnum from number i" msgstr "" -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "increments a pair of halffixnums by another pair" msgstr "" -#: target:code/profile.lisp target:code/dfixnum.lisp -msgid "dfixnum became too big ~a/~a + ~a/~a" -msgstr "" - -#: target:code/dfixnum.lisp +#: src/code/dfixnum.lisp msgid "decrement dfixnum pair by another pair" msgstr "" -#: target:code/profile.lisp target:code/dfixnum.lisp -msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)" -msgstr "" - -#: target:code/room.lisp +#: src/code/room.lisp msgid "~2&Summary of spaces: ~(~{~A ~}~)~%" msgstr "" -#: target:code/room.lisp -msgid "~%Summary total:~% ~:D bytes, ~:D objects.~%" -msgstr "" - -#: target:code/room.lisp +#: src/code/room.lisp msgid "~%~A:~% ~:D bytes, ~:D object" msgid_plural "~%~A:~% ~:D bytes, ~:D objects" msgstr[0] "" msgstr[1] "" -#: target:code/room.lisp +#: src/code/room.lisp +msgid "~%Summary total:~% ~:D bytes, ~:D objects.~%" +msgstr "" + +#: src/code/room.lisp msgid "~2&Breakdown for ~(~A~) space:~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~13:D bytes for ~9:D other object.~%" msgid_plural " ~13:D bytes for ~9:D other objects.~%" msgstr[0] "" msgstr[1] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~13:D bytes for ~9:D ~(~A~) object.~%" msgid_plural " ~13:D bytes for ~9:D ~(~A~) objects.~%" msgstr[0] "" msgstr[1] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~13:D bytes for ~9:D ~(~A~) object (space total.)~%" msgid_plural " ~13:D bytes for ~9:D ~(~A~) objects (space total.)~%" msgstr[0] "" msgstr[1] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Print out information about the heap memory in use. :Print-Spaces is a " "list\n" @@ -5817,27 +6017,27 @@ msgid "" " be combined as OTHER." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "Print info about how much code and no-ops there are in Space." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~:D code-object bytes, ~:D code words, with ~:D no-ops (~D%).~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "Bogus type: ~D" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~:D words allocated for descriptor objects.~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~:D bytes data/~:D words header for non-descriptor objects.~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Print a breakdown by instance type of all the instances allocated in\n" " Space. If TOP-N is true, print only information for the the TOP-N types " @@ -5845,117 +6045,117 @@ msgid "" " largest usage." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~2&~@[Top ~D ~]~(~A~) instance types:~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~32A: ~7:D bytes, ~5D object.~%" msgid_plural " ~32A: ~7:D bytes, ~5D objects.~%" msgstr[0] "" msgstr[1] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " Other types: ~:D bytes, ~D: object~:P.~%" msgid_plural " Other types: ~:D bytes, ~D: object~:P.~%" msgstr[0] "" msgstr[1] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid " ~:(~A~) instance total: ~:D bytes, ~:D object.~%" msgid_plural " ~:(~A~) instance total: ~:D bytes, ~:D objects.~%" msgstr[0] "" msgstr[1] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "In ~A space:~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~D bytes at #x~X~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "No source for ~S" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~%Package ~A: ~32T~9:D bytes, ~9:D object.~%" msgid_plural "~%Package ~A: ~32T~9:D bytes, ~9:D objects.~%" msgstr[0] "" msgstr[1] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~30@A: ~9:D bytes, ~9:D object.~%" msgid_plural "~30@A: ~9:D bytes, ~9:D objects.~%" msgstr[0] "" msgstr[1] "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Given a hashtable, print a histogram of the contents. Function should give\n" " the value to plot when applied to the hashtable values." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Report the Top-N entries in the hashtable Table, when sorted by Function\n" " applied to the hash value. If Top-N is NIL, report all entries." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~8:D: Other~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "~8:D: Total~%" msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Return a hashtable mapping each function in for which a call appears in\n" " Space to the number of times such a call appears." msgstr "" -#: target:code/room.lisp +#: src/code/room.lisp msgid "" "Return a hashtable translating code objects to function constant counts for\n" " all code objects in Space with more than Above function constants." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Oh no. The current dynamic space is missing!" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Dynamic Space Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "ë™ì 공간 사용량 : ~13:D ë°”ì´íŠ¸ (~4:D 메가바ì´íŠ¸ì˜) 아웃.~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Read-Only Space Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "ë™ì 공간 사용량 : ~13:D ë°”ì´íŠ¸ (~4:D 메가바ì´íŠ¸ì˜) 아웃.~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Static Space Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "ë™ì 공간 사용량 : ~13:D ë°”ì´íŠ¸ (~4:D 메가바ì´íŠ¸ì˜) 아웃.~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Control Stack Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "컨트롤 ìŠ¤íƒ ì‚¬ìš©: ~13:D ë°”ì´íŠ¸ (~4:D 메가바ì´íŠ¸ì˜) 아웃.~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Binding Stack Usage: ~13:D bytes (out of ~4:D MB).~%" msgstr "ë°”ì¸ë”© ìŠ¤íƒ ì‚¬ìš©: ~13:D ë°”ì´íŠ¸ (~4:D 메가바ì´íŠ¸ì˜) 아웃.~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "The current dynamic space is ~D.~%" msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Garbage collection is currently ~:[enabled~;DISABLED~].~%" msgstr "가비지 ì»¬ë ‰ì…˜ì€ í˜„ìž¬ ~:[활성화~;비활성화~]ë˜ì–´ìžˆìŠµë‹ˆë‹¤.~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Prints to *STANDARD-OUTPUT* information about the state of internal\n" " storage and its management. The optional argument controls the\n" @@ -5972,7 +6172,7 @@ msgstr "" " 금액입니다. ë˜í•œ VM:MEMORY-USAGE ë°ë³´ê¸° ì–‘ì§ˆì˜ ë³´ê³ ì„œë¥¼ ì œì–´\n" " VM:INSTANCE-USAGE." -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "No way man! The optional argument to ROOM must be T, NIL, ~\n" "\t\t or :DEFAULT.~%What do you think you are doing?" @@ -5980,17 +6180,17 @@ msgstr "" "ë§ë„ ì•ˆë¼ ë‚¨ìž! ROOMì— ì„ íƒì ì¸ìˆ˜ T, NIL,ë˜ì–´ì•¼í•©ë‹ˆë‹¤ ~\n" "\t\të˜ëŠ” :DEFAULT.~% 왜 ë‹¹ì‹ ì´ ë˜ ìƒê°í•˜ëŠ”거야?" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "resetting GC counters" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Returns the number of bytes consed since the first time this function\n" " was called. The first time it is called, it returns zero." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "This number specifies the minimum number of bytes of dynamic space\n" " that must be consed before the next gc will occur." @@ -5998,7 +6198,7 @@ msgstr "" "ë°”ì´íŠ¸ 처ìŒë¶€í„°ì´ ê¸°ëŠ¥ì„ consedì˜ ìˆ˜ë¥¼ 반환\n" " ë¼ê³ 했다. 그것ì´ë¼ê³ 처ìŒìœ¼ë¡œ, 0ì„ ë°˜í™˜í•©ë‹ˆë‹¤." -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "The total CPU time spend doing garbage collection (as reported by\n" " GET-INTERNAL-RUN-TIME.)" @@ -6006,19 +6206,19 @@ msgstr "" "ì´ CPU 시간 (ë¡œì— ì˜í•´ë³´ê³ ë˜ëŠ” ì“°ë ˆê¸°ë¥¼ ìˆ˜ê±°í•˜ê³ ì§€ì¶œ\n" " GET-INTERNAL-RUN-TIME.)" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "A list of functions that are called before garbage collection occurs.\n" " The functions should take no arguments." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "A list of functions that are called after garbage collection occurs.\n" " The functions should take no arguments." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Should be bound to a function or NIL. If it is a function, this\n" " function should take one argument, the current amount of dynamic\n" @@ -6026,7 +6226,7 @@ msgid "" " continue and non-NIL if it should be inhibited. Use with caution." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "When non-NIL, causes the functions bound to *GC-NOTIFY-BEFORE* and\n" " *GC-NOTIFY-AFTER* to be called before and after a garbage collection\n" @@ -6035,7 +6235,7 @@ msgid "" " annoyingly." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "~&; [GC threshold exceeded with ~:D bytes in use. ~\n" " Commencing GC.]~%" @@ -6043,22 +6243,22 @@ msgstr "" "~&; [GC ë¬¸í„±ì€ ~:D ë°”ì´íŠ¸ë¡œ ì‚¬ìš©ì¤‘ì¸ ì´ˆê³¼í–ˆë‹¤. ~\n" " 시작 GC.]~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "This function bound to this variable is invoked before GC'ing (unless\n" " *GC-VERBOSE* is NIL) with the current amount of dynamic usage (in\n" " bytes). It should notify the user that the system is going to GC." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "~&; [GC completed with ~:D bytes retained and ~:D bytes freed.]~%" msgstr "~&; [ìœ ì§€ë˜ëŠ” ~:Dì˜ ë°”ì´íŠ¸ ë° í•´ë°©ë˜ëŠ” ~:Dì˜ ë°”ì´íŠ¸ë¡œ 완료ë˜ëŠ” GC.]~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "~&; [GC will next occur when at least ~:D bytes are in use.]~%" msgstr "~&; [GC는 ë‹¤ìŒ ì ì–´ë„ ~:Dì˜ ë°”ì´íŠ¸ê°€ ì‚¬ìš©ì¤‘ì¸ ì¼ ë•Œ ì¼ì–´ë‚ 것ì´ë‹¤.]~%" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "The function bound to this variable is invoked after GC'ing (unless\n" " *GC-VERBOSE* is NIL) with the amount of dynamic usage (in bytes) now\n" @@ -6067,32 +6267,24 @@ msgid "" " finished GC'ing." msgstr "" -#: target:code/gc.lisp -msgid "Attempt to set GC trigger to something bogus: ~S" -msgstr "" - -#: target:code/gc.lisp -msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A" -msgstr "" - -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "The value of *BYTES-CONSED-BETWEEN-GCS*, ~S, is not an ~\n" "\t integer. Resetting it to ~D." msgstr "" -#: target:code/gc.lisp -msgid "~&Adjusting *last-bytes-in-use* from ~:D to ~:D, gen ~d, pre ~:D ~%" +#: src/code/gc.lisp +msgid "(FUNCALL ~S~{ ~S~}) lost:~%~A" msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Initiates a garbage collection. The optional argument, VERBOSE-P,\n" " which defaults to the value of the variable *GC-VERBOSE* controls\n" " whether or not GC statistics are printed." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Initiates a garbage collection. The keyword :VERBOSE, which\n" " defaults to the value of the variable *GC-VERBOSE* controls whether or\n" @@ -6100,21 +6292,21 @@ msgid "" " controls the number of generations to garbage collect." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Return the amount of memory that will be allocated before the next garbage\n" " collection is initiated. This can be set with SETF." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Enables the garbage collector." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "Disables the garbage collector." msgstr "" -#: target:code/gc.lisp +#: src/code/gc.lisp msgid "" "Return some GC statistics for the specified GENERATION. The\n" " statistics are the number of bytes allocated in this generation; the\n" @@ -6124,7 +6316,7 @@ msgid "" " generation. See the gencgc source code for more info." msgstr "" -#: target:code/purify.lisp +#: src/code/purify.lisp msgid "" "This function optimizes garbage collection by moving all currently live\n" " objects into non-collected storage. ROOT-STRUCTURES is an optional list " @@ -6143,19 +6335,19 @@ msgid "" " supplied, then environment compaction is inhibited." msgstr "" -#: target:code/purify.lisp +#: src/code/purify.lisp msgid "[Doing purification: " msgstr "" -#: target:code/purify.lisp +#: src/code/purify.lisp msgid "Done.]" msgstr "" -#: target:code/scavhook.lisp +#: src/code/scavhook.lisp msgid "Returns T if OBJECT is a scavenger-hook, and NIL if not." msgstr "" -#: target:code/scavhook.lisp +#: src/code/scavhook.lisp msgid "" "Create a new scavenger-hook with the specified VALUE and FUNCTION. For\n" " as long as the scavenger-hook is alive, the scavenger in the garbage\n" @@ -6163,17 +6355,17 @@ msgid "" " to be funcalled." msgstr "" -#: target:code/scavhook.lisp +#: src/code/scavhook.lisp msgid "Returns the VALUE being monitored by SCAVHOOK. Can be setf." msgstr "" -#: target:code/scavhook.lisp +#: src/code/scavhook.lisp msgid "" "Returns the FUNCTION invoked when the monitored value is moved. Can be\n" " setf." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "This is a list of functions which are called before creating a saved core\n" " image. These functions are executed in the child process which has no " @@ -6181,7 +6373,7 @@ msgid "" " so they cannot do anything that tries to talk to the outside world." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "This is a list of functions which are called when a saved core image starts\n" " up. The system itself should be initialized at this point, but " @@ -6189,19 +6381,19 @@ msgid "" " might not be." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "An alist mapping environment variables (as keywords) to either values" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Non-NIL if environment-init has been called" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "This is true if and only if the lisp was started with the -edit switch." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "Saves a CMU Common Lisp core image in the file of the specified name. The\n" " following keywords are defined:\n" @@ -6257,19 +6449,19 @@ msgid "" " will always be in batch-mode, regardless of any command-line switches." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Directory ~S does not exist" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Skip remaining initializations." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Error in batch processing:~%~A~%" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "Determines what PRINT-HERALD prints (the system startup banner.) This is a\n" " database which can be augmented by each loaded system. The format is a\n" @@ -6284,155 +6476,155 @@ msgid "" " functions are called with an output stream argument." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid ", running on " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "With core: " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Dumped on: " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid " on " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "See <http://www.cons.org/cmucl/> for support information." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Loaded subsystems:" msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid " Unicode " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "with Unicode version " msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "" "Print some descriptive information about the Lisp system version and\n" " configuration." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Unrecognized *HERALD-ITEMS* entry: ~S." msgstr "" -#: target:code/save.lisp +#: src/code/save.lisp msgid "Change *PACKAGE* to the USER package and try again." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Terminal I/O stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Default input stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Default output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Error output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Query I/O stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Trace output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Interactive debugging stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not an input stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not an output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not a character input stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not a character output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not a binary input stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "~S is not a binary input stream ~\n" " or does not support multi-byte read operations." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is not a binary output stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is closed." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~S is an unsupported Gray stream." msgstr "" -#: target:pcl/gray-streams.lisp target:code/stream.lisp +#: src/pcl/gray-streams.lisp src/code/stream.lisp msgid "Returns non-nil if the given Stream can perform input operations." msgstr "" -#: target:pcl/gray-streams.lisp target:code/stream.lisp +#: src/pcl/gray-streams.lisp src/code/stream.lisp msgid "Returns non-nil if the given Stream can perform output operations." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Return true if Stream is not closed." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Returns a type specifier for the kind of object returned by the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Return true if Stream does I/O on a terminal or other interactive device." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Can't set interactive flag on ~S." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Returns the external format used by the given Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Closes the given Stream. No more I/O may be performed, but inquiries\n" " may still be made. If :Abort is non-nil, an attempt is made to clean\n" " up the side effects of having created the stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "With one argument returns the current position within the file\n" " File-Stream is open to. If the second argument is supplied, then\n" @@ -6440,59 +6632,59 @@ msgid "" " be :start or :end for the start and end of the file, respectively." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "This function returns the length of the file that File-Stream is open to." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a line of text read from the Stream as a string, discarding the\n" " newline character." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Inputs a character from Stream and returns it." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Puts the Character back on the front of the input Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Nothing to unread." msgstr "" -#: target:code/stream.lisp -msgid "Impossible case reached in PEEK-CHAR" -msgstr "" - -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Peeks at the next character in the input Stream. See manual for details." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "~@<bad PEEK-TYPE=~S, ~_expected ~S~:>" msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp +msgid "Impossible case reached in PEEK-CHAR" +msgstr "" + +#: src/code/stream.lisp msgid "Returns T if a character is available on the given Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Returns the next character from the Stream if one is available, or nil." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Clears any buffered input associated with the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Returns the next byte of the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Reads Numbytes bytes into the Buffer starting at Start, returning the " "number\n" @@ -6506,126 +6698,126 @@ msgid "" " read is less than Count and eof has not been hit." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Outputs the Character to the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Outputs a new line to the Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Outputs a new line to the Stream if it is not positioned at the beginning " "of\n" " a line. Returns T if it output a new line, nil otherwise." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Outputs the String to the given Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Outputs the String to the given Stream, followed by a newline character." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns the number of characters on the current line of output of the given\n" " Stream, or Nil if that information is not availible." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns the number of characters that will fit on a line of output on the\n" " given Stream, or Nil if that information is not available." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Attempts to ensure that all output sent to the Stream has reached its\n" " destination, and only then returns." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Attempts to force any buffered output to be sent." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Clears the given output Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Outputs the Integer to the binary Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns an output stream which sends its output to all of the given\n" "streams." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a stream which performs its operations on the stream which is the\n" " value of the dynamic variable named by Symbol." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a bidirectional stream which gets its input from Input-Stream and\n" " sends its output to Output-Stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a stream which takes its input from each of the Streams in turn,\n" " going on to the next at EOF." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns an echo stream that takes input from Input-stream and sends\n" "output to Output-stream" msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a bidirectional stream which gets its input from Input-Stream and\n" " sends its output to Output-Stream. In addition, all input is echoed to\n" " the output stream" msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns an input stream which will supply the characters of String between\n" " Start and End in order." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns an Output stream which will accumulate all output given to it for\n" " the benefit of the function Get-Output-Stream-String." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a string of all the characters sent to a stream made by\n" " Make-String-Output-Stream since the last call to this function." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Dumps the characters buffer up in the In-Stream to the Out-Stream as\n" " Get-Output-Stream-String would return them." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Returns an output stream which indents its output by some amount." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Returns a stream that sends all output to the stream TARGET, but modifies\n" " the case of letters, depending on KIND, which should be one of:\n" @@ -6638,7 +6830,7 @@ msgid "" " case and everything else to lower case." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "This takes a stream and waits for text or a command to appear on it. If\n" " text appears before a command, this returns nil, and otherwise it " @@ -6646,7 +6838,7 @@ msgid "" " a command." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Destructively modify SEQ by reading elements from STREAM.\n" "\n" @@ -6669,23 +6861,19 @@ msgid "" "\t less than END because the end of file was reached." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "The stream is not open." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "The stream is not open for input." msgstr "" -#: target:code/stream.lisp -msgid "Trying to read characters from a binary stream." -msgstr "" - -#: target:code/stream.lisp -msgid "Trying to read binary data from a text stream." +#: src/code/stream.lisp +msgid "Trying to read characters from a binary stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "" "Writes the elements of the Seq bounded by Start and End to Stream.\n" "\n" @@ -6700,82 +6888,82 @@ msgid "" " SEQ:\ta proper SEQUENCE\n" msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "The stream is not open for output." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Trying to output an element of unproper type to a stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Trying to output a string to a binary stream." msgstr "" -#: target:code/stream.lisp +#: src/code/stream.lisp msgid "Trying to output binary data to a text stream." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "If true, all objects will printed readably. If readably printing is\n" " impossible, an error will be signalled. This overrides the value of\n" " *PRINT-ESCAPE*." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Flag which indicates that slashification is on. See the manual" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Flag which indicates that pretty printing is to be used" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "The output base for integers and rationals." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "This flag requests to verify base when printing rationals." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "How many levels deep to print. Unlimited if null." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "How many elements to print on each level. Unlimited if null." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Whether to worry about circular list structures. See the manual." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "What kind of case the printer should use by default" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Whether the array should print it's guts out" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "If true, symbols with no home package are printed with a #: prefix.\n" " If false, no prefix is printed." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "The maximum number of lines to print. If NIL, unlimited." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "The position of the right margin in ems. If NIL, try to determine this\n" " from the stream in use." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "If the remaining space between the current column and the right margin\n" " is less than this, then print using ``miser-style'' output. Miser\n" @@ -6783,13 +6971,13 @@ msgid "" " turned off. If NIL, never use miser mode." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "The pprint-dispatch-table that controls how to pretty print objects. See\n" " COPY-PPRINT-DISPATH, PPRINT-DISPATCH, and SET-PPRINT-DISPATCH." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Bind the reader and printer control variables to values that enable READ\n" " to reliably read the results of PRINT. These values are:\n" @@ -6804,6 +6992,7 @@ msgid "" " *PRINT-LEVEL*\t\t\tNIL\n" " *PRINT-LINES*\t\t\tNIL\n" " *PRINT-MISER-WIDTH*\t\tNIL\n" +" *PRINT-PPRINT-DISPATCH* The standard pprint dispatch table\n" " *PRINT-PRETTY*\t\t\tNIL\n" " *PRINT-RADIX*\t\t\tNIL\n" " *PRINT-READABLY*\t\t\tT\n" @@ -6815,63 +7004,61 @@ msgid "" " *READTABLE*\t\t\tthe standard readtable." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Outputs OBJECT to the specified stream, defaulting to *standard-output*" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Outputs a mostly READable printed representation of OBJECT on the specified\n" " stream." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Outputs an asthetic but not READable printed representation of OBJECT on " "the\n" " specified stream." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Outputs a terpri, the mostly READable printed represenation of OBJECT, and \n" " space to the stream." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Prettily outputs the Object preceded by a newline." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Returns the printed representation of OBJECT as a string." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Returns the printed representation of OBJECT as a string with \n" " slashification on." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Returns the printed representation of OBJECT as a string with\n" -" slashification off." +" slashification off and readability off." msgstr "" -#: target:compiler/byte-comp.lisp target:compiler/dyncount.lisp -#: target:compiler/knownfun.lisp target:compiler/new-assem.lisp -#: target:compiler/meta-vmdef.lisp target:compiler/vop.lisp -#: target:compiler/node.lisp target:compiler/sset.lisp -#: target:compiler/backend.lisp target:compiler/macros.lisp -#: target:code/print.lisp +#: src/compiler/byte-comp.lisp src/compiler/dyncount.lisp +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/meta-vmdef.lisp src/compiler/vop.lisp src/compiler/node.lisp +#: src/compiler/sset.lisp src/compiler/backend.lisp src/code/print.lisp msgid "~S cannot be printed readably." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Determines whether or not the character is considered whitespace." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Check to see if OBJECT is a circular reference, and return something non-" "NIL\n" @@ -6884,49 +7071,49 @@ msgid "" " non-NIL when ASSIGN is T, then you must call HANDLE-CIRCULARITY on it." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Handle the results of CHECK-FOR-CIRCULARITY. If this returns T then\n" " you should go ahead and print the object. If it returns NIL, then\n" " you should blow it off." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Attempt to use CHECK-FOR-CIRCULARITY when circularity ~\n" "\t checking has not been initiated." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "The current level we are printing at, to be compared against *PRINT-LEVEL*.\n" " See the macro DESCEND-INTO for a handy interface to depth abbreviation." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Automatically handle *print-level* abbreviation. If we are too deep, then\n" " a # is printed to STREAM and BODY is ignored." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Punt if INDEX is equal or larger then *PRINT-LENGTH* (and *PRINT-READABLY*\n" " is NIL) by outputting \"...\" and returning from the block named NIL." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "The current pretty printer. Should be either a function that takes two\n" " arguments (the object and the stream) or NIL to indicate that there is\n" " no pretty printer installed." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Output OBJECT to STREAM observing all printer control variables." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Output OBJECT to STREAM observing all printer control variables except\n" " for *PRINT-PRETTY*. Note: if *PRINT-PRETTY* is non-NIL, then the pretty\n" @@ -6934,166 +7121,166 @@ msgid "" " itself." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Invalid *PRINT-CASE* value: ~S" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Invalid READTABLE-CASE value: ~S" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Outputs the printed representation of any array in either the #< or #A\n" " form." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Obsolete Instance" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unprintable Instance" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "~A is not a reasonable value for *Print-Base*." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Compute a list of pairs (2^i . r^{2^i}), stopping with the largest r^{2^i}\n" "greater than n." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp +msgid "overflow in digit-to-char" +msgstr "" + +#: src/code/print.lisp msgid "" "Convert digit into a character representation. We use 0..9, a..z for\n" "10..35, and A..Z for 36..52." msgstr "" -#: target:code/print.lisp -msgid "overflow in digit-to-char" -msgstr "" - -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Print a fixnum N to stream S, maybe with leading zeros. This isn't\n" "ever-so efficient, but we probably don't need to care." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Use the power list (see power-list) PL to split N roughly in half; then\n" "print the left and right halves using (cdr PL). Make sure we count the\n" "leading zeroes correctly." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Primary fast bignum-printing interface. Prints integer N to stream S in\n" "radix-R. If you have a power-list then pass it in as PL." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Minimum power of 10 that allows the float printer to use free format,\n" " instead of exponential format. See section 22.1.3.1.3: Printing Floats\n" " in the ANSI CL standard." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "" "Maximum power of 10 that allows the float printer to use free format,\n" " instead of exponential format. See section 22.1.3.1.3: Printing Floats\n" " in the ANSI CL standard." msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Convert a DD number to a lisp rational" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Print out a double-double to a string" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Weak Pointer: " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Broken Weak Pointer" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Bogus Code Object" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Code Object" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Return PC Object" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "FDEFINITION object for " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Function " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Interpreted Function ~S" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Byte Compiled Function" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Byte Compiled Closure" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Closure Over " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unknown Function" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Value Cell " msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unknown Pointer Object, type=" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unbound Marker" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Unknown Immediate Object, lowtag=" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid ", type=" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Continue anyway" msgstr "" -#: target:code/print.lisp +#: src/code/print.lisp msgid "Cannot find ~S, so unicode support is not available" msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Insert an annotation into the pretty-printing stream STREAM.\n" "HANDLER is a function, and RECORD is an arbitrary datum. The\n" @@ -7109,18 +7296,18 @@ msgid "" "with the arguments RECORD, STREAM and nil." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "Insert ANNOTATION into the queue of annotations in STREAM." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Insert all annotations in STREAM from the queue of pending\n" "operations into the queue of annotations. When END is non-nil, \n" "stop before reaching the queued-op END." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Dequeue the next annotation from the queue of annotations of STREAM\n" "and return it. Return nil if there are no more annotations. When\n" @@ -7128,22 +7315,22 @@ msgid "" "this, also return nil." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output the buffer of STREAM up to (excluding) the buffer index END.\n" "When annotations are present, invoke them at the right positions." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Invoke all annotations in STREAM up to (including) the buffer index END." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "Output-partial-line called when nothing can be output." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Group some output into a logical block. STREAM-SYMBOL should be either a\n" " stream, T (for *TERMINAL-IO*), or NIL (for *STANDARD-OUTPUT*). The " @@ -7151,11 +7338,11 @@ msgid "" " control variable *PRINT-LEVEL* is automatically handled." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "Cannot specify both a prefix and a per-line-prefix." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Cause the closest enclosing use of PPRINT-LOGICAL-BLOCK to return\n" " if it's list argument is exhausted. Can only be used inside\n" @@ -7163,13 +7350,13 @@ msgid "" " PPRINT-LOGICAL-BLOCK is supplied." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "PPRINT-EXIT-IF-LIST-EXHAUSTED must be lexically inside ~\n" "\t PPRINT-LOGICAL-BLOCK." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Return the next element from LIST argument to the closest enclosing\n" " use of PPRINT-LOGICAL-BLOCK, automatically handling *PRINT-LENGTH*\n" @@ -7178,11 +7365,11 @@ msgid "" " is poped, but the *PRINT-LENGTH* testing still happens." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "PPRINT-POP must be lexically inside PPRINT-LOGICAL-BLOCK." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output a conditional newline to STREAM (which defaults to\n" " *STANDARD-OUTPUT*) if it is a pretty-printing stream, and do\n" @@ -7204,7 +7391,7 @@ msgid "" " next line. (See PPRINT-INDENT.)" msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Specify the indentation to use in the current logical block if STREAM\n" " (which defaults to *STANDARD-OUTPUT*) is a pretty-printing stream\n" @@ -7217,7 +7404,7 @@ msgid "" " break. The indention value is silently truncated to an integer." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "If STREAM (which defaults to *STANDARD-OUTPUT*) is a pretty-printing\n" " stream, perform tabbing based on KIND, otherwise do nothing. KIND can\n" @@ -7233,7 +7420,7 @@ msgid "" " of the current section, not the start of the line." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output LIST to STREAM putting :FILL conditional newlines between each\n" " element. If COLON? is NIL (defaults to T), then no parens are printed\n" @@ -7241,7 +7428,7 @@ msgid "" " can be used with the ~/.../ format directive." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output LIST to STREAM putting :LINEAR conditional newlines between each\n" " element. If COLON? is NIL (defaults to T), then no parens are printed\n" @@ -7250,7 +7437,7 @@ msgid "" " can be used with the ~/.../ format directive." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "" "Output LIST to STREAM tabbing to the next column that is an even multiple\n" " of TABSIZE (which defaults to 16) between each element. :FILL style\n" @@ -7260,45 +7447,45 @@ msgid "" " the ~/.../ format directive." msgstr "" -#: target:code/pprint.lisp +#: src/code/pprint.lisp msgid "CONS PPRINT dispatch ignored w/o compiler loaded:~% ~S" msgstr "" -#: target:pcl/env.lisp target:pcl/methods.lisp target:pcl/std-class.lisp -#: target:pcl/defclass.lisp target:code/format.lisp -#: target:code/pprint-loop.lisp target:code/pprint.lisp +#: src/pcl/env.lisp src/pcl/methods.lisp src/pcl/std-class.lisp +#: src/pcl/defclass.lisp src/code/format.lisp src/code/pprint-loop.lisp +#: src/code/pprint.lisp msgid "No more arguments." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "~:[~;Error in format: ~]~\n" "\t ~?~@[~% ~A~% ~V@T^~]" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "A justification directive cannot be in the same format string~%~\n" " as ~~W, ~~I, ~~:T, or a logical-block directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "String ended before directive was found." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many colons supplied." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many at-signs supplied." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No matching closing slash." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "Provides various facilities for formatting output.\n" " CONTROL-STRING contains a string to be output, possibly with embedded\n" @@ -7327,267 +7514,246 @@ msgid "" " details." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Unknown format directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Unknown directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many parameters, expected no more than ~D" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many parameters, expected no more than 0" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Table of ordinal ones-place digits in English" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Table of ordinal tens-place digits in English" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Number too large to print in old Roman numerals: ~:D" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Number too large to print in Roman numerals: ~:D" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No previous argument." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify the colon modifier with this directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify either colon or atsign for this directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify both colon and atsign for this directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify the at-sign modifier." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify both colon and at-sign." msgstr "" -#: target:code/format.lisp -msgid "" -"Index ~D out of bounds. Should have been ~\n" -"\t\t\t\t between 0 and ~D." -msgstr "" - -#: target:code/format.lisp -msgid "" -"Index ~D out of bounds. Should have been ~\n" -"\t\t\t\tbetween 0 and ~D." -msgstr "" - -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "Index ~D out of bounds. Should have been ~\n" "\t\t\t\t between 0 and ~D." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "Index ~D out of bounds. Should have been ~\n" "\t\t\t between 0 and ~D." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify the colon modifier." msgstr "" -#: target:pcl/seal.lisp target:pcl/method-slot-access-optimization.lisp -#: target:pcl/low.lisp target:code/format.lisp +#: src/pcl/seal.lisp src/pcl/method-slot-access-optimization.lisp +#: src/pcl/low.lisp src/code/format.lisp msgid "~A~%while processing indirect format string:" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding close paren." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding open paren." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding close bracket." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Cannot specify both the colon and at-sign modifiers." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Can only specify one section" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Must specify exactly two sections." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "~~; not contained within either ~~[...~~] or ~~<...~~>." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding open bracket." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Attempt to use ~~:^ outside a ~~:{...~~} construct." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding close brace." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No corresponding open brace." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "~D illegal directive found inside justification block" msgid_plural "~D illegal directives found inside justification block" msgstr[0] "" msgstr[1] "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No parameters can be supplied with ~~<...~~:>." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "" "Cannot include format directives inside the ~\n" "\t\t\t ~:[suffix~;prefix~] segment of ~~<...~~:>" msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Too many segments for ~~<...~~:>." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "Malformed ~~/ directive." msgstr "" -#: target:code/format.lisp +#: src/code/format.lisp msgid "No package named ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "The list of packages to use by default of no :USE argument is supplied\n" " to MAKE-PACKAGE or other package creation forms." msgstr "" -#: target:code/package.lisp -msgid "" -"Standard structure for the description of a package. Consists of \n" -" a list of all hash tables, the name of the package, the nicknames of\n" -" the package, the use-list for the package, the used-by- list, hash-\n" -" tables for the internal and external symbols, and a list of the\n" -" shadowing symbols." -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "The ~A package, ~D/~D internal, ~D/~D external" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "The ~A package" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "deleted package" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "The current package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~&~@<Attempt to modify the locked package ~A, by ~3i~:_~?~:>" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "redefining function ~A" msgstr "" -#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp +#: src/code/macros.lisp src/code/defstruct.lisp src/code/package.lisp msgid "Ignore the lock and continue" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Disable package's definition-lock, then continue" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Disable all package locks, then continue" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Bogus ~A name: ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Can't do anything to a deleted package: ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Given PACKAGE-SPECIFIER, a package, symbol or string, return the\n" " parent package. If there is not a parent, signal an error." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "The parent of ~a does not exist." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "There is no parent of ~a." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Given PACKAGE-SPECIFIER, a package, symbol or string, return all the\n" " packages which are in the hierarchy 'under' the given package. If\n" " :recurse is nil, then only return the immediate children of the package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Find the package having the specified name." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Make this package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "#<Package-Hashtable: Size = ~D, Free = ~D, Deleted = ~D>" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "DO-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECLARATION}* {TAG | FORM}*\n" " Executes the FORMs at least once for each symbol accessible in the given\n" " PACKAGE with VAR bound to the current symbol." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "DO-EXTERNAL-SYMBOLS (VAR [PACKAGE [RESULT-FORM]]) {DECL}* {TAG | FORM}*\n" " Executes the FORMs once for each external symbol in the given PACKAGE " @@ -7595,14 +7761,14 @@ msgid "" " VAR bound to the current symbol." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "DO-ALL-SYMBOLS (VAR [RESULT-FORM]) {DECLARATION}* {TAG | FORM}*\n" " Executes the FORMs once for each symbol in every package with VAR bound\n" " to the current symbol." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Within the lexical scope of the body forms, MNAME is defined via macrolet\n" " such that successive invocations of (mname) will return the symbols,\n" @@ -7610,23 +7776,19 @@ msgid "" " any of :inherited :external :internal." msgstr "" -#: target:code/package.lisp -msgid "~@<~S does not name a package ~:>" -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Must supply at least one of :internal, ~\n" "\t :external, or :inherited." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "~S is not one of :internal, :external, ~\n" "\t\t or :inherited." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Defines a new package called PACKAGE. Each of OPTIONS should be one of the\n" " following:\n" @@ -7642,65 +7804,65 @@ msgid "" " All options except :SIZE and :DOCUMENTATION can be used multiple times." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Bogus DEFPACKAGE option: ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Can't specify :SIZE twice." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Bogus :SIZE, must be a positive integer: ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Can't specify :DOCUMENTATION twice." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Parameters ~S and ~S must be disjoint ~\n" "\t but have common elements ~% ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A is a nick-name for the package ~A" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A also shadows the following symbols:~% ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A previously used the following packages:~% ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A also exports the following symbols:~% ~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~A does not contain a symbol ~A" msgstr "" -#: target:code/package.lisp -msgid "Ignore this nickname." -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is a package name, so it cannot be a nickname for ~S." msgstr "" -#: target:code/package.lisp -msgid "Redefine this nickname." +#: src/code/package.lisp +msgid "Ignore this nickname." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is already a nickname for ~S." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp +msgid "Redefine this nickname." +msgstr "" + +#: src/code/package.lisp msgid "" "Makes a new package having the specified Name and Nicknames. The\n" " package will inherit all external symbols from each package in\n" @@ -7709,15 +7871,15 @@ msgid "" " will ultimately be present in the package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Leave existing package alone." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "A package named ~S already exists" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Sets *PACKAGE* to package with given NAME, creating the package if\n" " it does not exist. If the package already exists then it is modified\n" @@ -7727,47 +7889,47 @@ msgid "" " list." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Old-style IN-PACKAGE." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "The package named ~S doesn't exist." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Changes the name and nicknames for a package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "A package named ~S already exists." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Delete the PACKAGE-OR-NAME from the package system data structures." msgstr "" -#: target:code/package.lisp -msgid "Return NIL" +#: src/code/package.lisp +msgid "No package of name ~S." msgstr "" -#: target:code/package.lisp -msgid "No package of name ~S." +#: src/code/package.lisp +msgid "Return NIL" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Remove dependency in other packages." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Returns a list of all existing packages." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Returns a symbol having the specified name, creating it if necessary." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Returns the symbol NAME in PACKAGE. If such a symbol is found\n" " then the second value is :internal, :external or :inherited to indicate\n" @@ -7775,116 +7937,112 @@ msgid "" " are NIL." msgstr "" -#: target:code/package.lisp -msgid "interning symbol ~A" -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Makes SYMBOL no longer present in PACKAGE. If SYMBOL was present\n" " then T is returned, otherwise NIL. If PACKAGE is SYMBOL's home\n" " package, then it is made uninterned." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "uninterning symbol ~A" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Disable package's lock then continue" msgstr "" -#: target:code/macros.lisp target:code/defstruct.lisp target:code/package.lisp +#: src/code/macros.lisp src/code/defstruct.lisp src/code/package.lisp msgid "Unlock all packages, then continue" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "prompt for a symbol to shadowing-import." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Uninterning symbol ~S causes name conflict among these symbols:~%~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Symbol to shadowing-import: " msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is not a symbol." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is not one of the conflicting symbols." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is neither a symbol nor a list of symbols." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Exports SYMBOLS from PACKAGE, checking that no name conflicts result." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Exporting these symbols from the ~A package:~%~S~%~\n" "\t results in name conflicts with these packages:~%~{~A ~}" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Unintern conflicting symbols." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Skip exporting conflicting symbols." msgstr "" -#: target:code/package.lisp -msgid "Import these symbols into the ~A package." +#: src/code/package.lisp +msgid "These symbols are not accessible in the ~A package:~%~S" msgstr "" -#: target:code/package.lisp -msgid "These symbols are not accessible in the ~A package:~%~S" +#: src/code/package.lisp +msgid "Import these symbols into the ~A package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Makes SYMBOLS no longer exported from PACKAGE." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "unexporting symbols ~A" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "~S is not accessible in the ~A package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Make SYMBOLS accessible as internal symbols in PACKAGE. If a symbol\n" " is already accessible then it has no effect. If a name conflict\n" " would result from the importation, then a correctable error is signalled." msgstr "" -#: target:code/package.lisp -msgid "Import these symbols with Shadowing-Import." -msgstr "" - -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Importing these symbols into the ~A package ~\n" "\t\tcauses a name conflict:~%~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp +msgid "Import these symbols with Shadowing-Import." +msgstr "" + +#: src/code/package.lisp msgid "" "Import SYMBOLS into PACKAGE, disregarding any name conflict. If\n" " a symbol of the same name is present, then it is uninterned.\n" " The symbols are added to the Package-Shadowing-Symbols." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Make an internal symbol in PACKAGE with the same name as each of the\n" " specified SYMBOLS, adding the new symbols to the Package-Shadowing-" @@ -7894,74 +8052,74 @@ msgid "" " not already present." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Add all the PACKAGES-TO-USE to the use list for PACKAGE so that\n" " the external symbols of the used packages are accessible as internal\n" " symbols in PACKAGE." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Unintern the conflicting symbols in the ~2*~A package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Use'ing package ~A results in name conflicts for these symbols:~%~S" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Remove PACKAGES-TO-UNUSE from the use list for PACKAGE." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "Return a list of all symbols in the system having the specified name." msgstr "" -#: target:code/describe.lisp target:code/package.lisp +#: src/code/describe.lisp src/code/package.lisp msgid "special variable" msgstr "" -#: target:code/describe.lisp target:code/package.lisp +#: src/code/describe.lisp src/code/package.lisp msgid "constant" msgstr "" -#: target:code/describe.lisp target:code/package.lisp +#: src/code/describe.lisp src/code/package.lisp msgid "undefined variable" msgstr "" -#: target:code/describe.lisp target:code/package.lisp +#: src/code/describe.lisp src/code/package.lisp msgid "symbol macro" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "alien variable" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "value: " msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "macro" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "special operator" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "function" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "class" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "type" msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Call FUN with each symbol that contains STRING.\n" " If PACKAGE is supplied then only use symbols present in\n" @@ -7969,7 +8127,7 @@ msgid "" " symbols exported from the specified package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Briefly describe all symbols which contain the specified STRING.\n" " If PACKAGE is supplied then only describe symbols present in\n" @@ -7977,60 +8135,54 @@ msgid "" " external symbols in the specified package." msgstr "" -#: target:code/package.lisp +#: src/code/package.lisp msgid "" "Identical to APROPOS, except that it returns a list of the symbols\n" " found instead of describing them." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Float format for 1.0E1" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Variable bound to current readtable." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Reader error ~@[at ~D ~]on ~S:~%~?" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Unexpected EOF on ~S ~A." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Standard lisp readtable. This is for recovery from broken\n" " read-tables, and should not normally be user-visible." msgstr "" -#: target:code/reader.lisp -msgid "" -"Readtable is a data structure that maps characters into syntax\n" -" types for the Common Lisp expression reader." -msgstr "" - -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Value of *package* at the start of the last read or Nil." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Undefined read-macro character ~S" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "A copy is made of from-readtable and place into to-readtable." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Causes the syntax of to-char to be the same as from-char in the \n" " optional readtable (defaults to the current readtable). The\n" " from-table defaults the standard lisp readtable by being nil." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Causes char to be a macro character which invokes function when\n" " seen by the reader. The non-terminatingp flag can be used to\n" @@ -8039,156 +8191,156 @@ msgid "" " returns T." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Returns the function associated with the specified char which is a macro\n" " character. The optional readtable argument defaults to the current\n" " readtable." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Bind *read-buffer* to a fresh buffer and execute Body." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "If true, only warn when there is an extra close paren, otherwise error." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Reads from stream and returns the object read, preserving the whitespace\n" " that followed the object." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Reads in the next object in the stream, which defaults to\n" " *standard-input*. For details see the I/O chapter of\n" " the manual." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Reads objects from input-stream until the next character after an\n" " object's representation is endchar. A list of those objects read\n" " is returned." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Nothing appears before . in list." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Nothing appears after . in list." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "More than one object follows . in list." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Ignoring unmatched close parenthesis~\n" "\t\t ~@[ at file position ~D~]." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Unmatched close parenthesis." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "after escape character" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "inside extended token" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "invalid constituent" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Suppresses most interpreting of the reader when T" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "The radix that Lisp reads numbers in." msgstr "" -#: target:code/reader.lisp -msgid "This function is just an fsm that recognizes numbers and symbols." -msgstr "" - -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "impossible!" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "dot context error" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "too many dots" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "too many colons in ~S" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "after reading a colon" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "package ~S not found" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Use symbol anyway." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "The symbol ~S is not external in the ~A package." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Symbol ~S not found in the ~A package." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp +msgid "This function is just an fsm that recognizes numbers and symbols." +msgstr "" + +#: src/code/reader.lisp msgid "" "For semi-external use: returns 3 values: the string for the token,\n" " a flag for whether there was an escape char, and the position of any\n" " package delimiter." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp +msgid "after escape" +msgstr "" + +#: src/code/reader.lisp msgid "" "For semi-external use: read an extended token with the first character\n" " escaped. Returns the string for the token." msgstr "" -#: target:code/reader.lisp -msgid "after escape" -msgstr "" - -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Holds the mapping of base to 'safe' number of digits to read for a fixnum." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Holds the largest fixnum power of the base for make-integer." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Minimizes bignum-fixnum multiplies by reading a 'safe' number of digits, \n" " then multiplying by a power of the base and adding." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Fast bignum-reading interface. Reads from stream S an integer in radix\n" "R. If we find some kind of error (bad characters, EOF), then NIL is\n" @@ -8197,27 +8349,27 @@ msgid "" "the end of the stream." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Internal error in floating point reader." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Underflow" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Floating-point number not representable" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Invalid ratio: ~S/~S" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "No dispatch function defined for ~S." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "Causes char to become a dispatching macro character in readtable\n" " (which defaults to the current readtable). If the non-terminating-p\n" @@ -8225,47 +8377,55 @@ msgid "" " macro-character returns T." msgstr "" -#: target:code/reader.lisp -msgid "" -"Causes function to be called whenever the reader reads\n" -" disp-char followed by sub-char. Set-dispatch-macro-character\n" -" returns T." -msgstr "" - -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "Dispatch Sub-Char must not be a decimal digit: ~S" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "~S is not a dispatch character." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp +msgid "" +"Causes function to be called whenever the reader reads\n" +" disp-char followed by sub-char. Set-dispatch-macro-character\n" +" returns T." +msgstr "" + +#: src/code/reader.lisp msgid "" "Returns the macro character function for sub-char under disp-char\n" " or nil if there is no associated function." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "inside dispatch character" msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "No dispatch table for dispatch char." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "A resource of string streams for Read-From-String." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp msgid "" "The characters of string are successively given to the lisp reader\n" " and the lisp object built by the reader is returned. Macro chars\n" " will take effect." msgstr "" -#: target:code/reader.lisp +#: src/code/reader.lisp +msgid "There are no digits in this string: ~S" +msgstr "" + +#: src/code/reader.lisp +msgid "There's junk in this string: ~S." +msgstr "" + +#: src/code/reader.lisp msgid "" "Examine the substring of string delimited by start and end\n" " (default to the beginning and end of the string) It skips over\n" @@ -8273,149 +8433,141 @@ msgid "" " radix parameter must be between 2 and 36." msgstr "" -#: target:code/reader.lisp -msgid "There are no digits in this string: ~S" -msgstr "" - -#: target:code/reader.lisp -msgid "There's junk in this string: ~S." -msgstr "" - -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Numeric argument ignored in #~D~A." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Unrecognized character name: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Ill-formed vector: #~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Vector longer than specified length: #~S~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Escape character appeared after #*" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "You have to give a little bit for non-zero #* bit-vectors." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Illegal element given for bit-vector: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Bit vector is longer than specified length #~A*~A" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Symbol following #: contains a package marker: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "If false, then the #. read macro is disabled." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Attempt to read #. while *READ-EVAL* is bound to NIL." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Radix missing in #R." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Illegal radix for #R: ~D." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "#~A (base ~D) value is not a rational: ~S." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "" "#~DA axis ~D is empty, but axis ~\n" "\t\t\t\t ~D is non-empty." msgstr "" -#: target:code/sharpm.lisp -msgid "Non-list following #S" -msgstr "" - -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Non-list following #S: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Structure type is not a symbol: ~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "~S is not a defined structure type." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "The ~S structure does not have a default constructor." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp +msgid "Non-list following #S" +msgstr "" + +#: src/code/sharpm.lisp msgid "Missing label for #=." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Multiply defined label: #~D=" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Have to tag something more than just #~D#." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Missing label for ##." msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "reference to undefined label #~D#" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Illegal complex number format: #C~S" msgstr "" -#: target:code/sharpm.lisp +#: src/code/sharpm.lisp msgid "Illegal sharp character ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid "How deep we are into backquotes" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid ",@ after backquote in ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid ",. after backquote in ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid "Comma not inside a backquote." msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid ",@ after dot in ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid ",. after dot in ~S" msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid "" "Given a lisp form containing the magic functions BACKQ-LIST, BACKQ-LIST*,\n" " BACKQ-APPEND, etc. produced by the backquote reader macro, will return a\n" @@ -8428,60 +8580,69 @@ msgid "" " level of parentheses should be added." msgstr "" -#: target:code/backq.lisp +#: src/code/backq.lisp msgid "### illegal dotted backquote form ###" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Make an object set for use by a RPC/xevent server. Name is for\n" " descriptive purposes only." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "You lose, object: ~S" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" -"Return the handler function in Object-Set for the operation specified by\n" -" Message-ID, if none, NIL is returned." +"Return as multiple values the object and object-set mapped to by xwindow." +msgstr "" + +#: src/code/serve-event.lisp +msgid "Add a new xwindow/object/object-set association." +msgstr "" + +#: src/code/serve-event.lisp +msgid "Remove xwindow and its associated object/object-set pair." msgstr "" -#: target:code/serve-event.lisp -msgid "Sets the handler function for an object set operation." +#: src/code/serve-event.lisp +msgid "" +"Return the handler function in Object-Set for the operation specified by\n" +" Message-ID, if none, NIL is returned." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "#<Handler for ~A on ~:[~;BOGUS ~]descriptor ~D: ~S>" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "List of all the currently active handlers for file descriptors" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Arange to call FUNCTION whenever FD is usable. DIRECTION should be\n" " either :INPUT or :OUTPUT. The value returned should be passed to\n" " SYSTEM:REMOVE-FD-HANDLER when it is no longer needed." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Invalid direction ~S, must be either :INPUT or :OUTPUT" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Removes HANDLER from the list of active handlers." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Remove any handers refering to FD. This should only be used when attempting\n" " to recover from a detected inconsistency." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Establish a handler with SYSTEM:ADD-FD-HANDLER for the duration of BODY.\n" " DIRECTION should be either :INPUT or :OUTPUT, FD is the file descriptor " @@ -8490,29 +8651,29 @@ msgid "" msgstr "" #. This needs more work. -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp +msgid "~S ~[have~;has a~:;have~] bad file descriptor." +msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors." +msgstr[0] "" +msgstr[1] "" + +#: src/code/serve-event.lisp msgid "Remove bogus handlers." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Retry bogus handlers." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Go on, leaving handlers marked as bogus." msgstr "" -#: target:code/serve-event.lisp -msgid "~S ~[have~;has a~:;have~] bad file descriptor." -msgid_plural "~S ~[have~;has a~:;have~] bad file descriptors." -msgstr[0] "" -msgstr[1] "" - -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Timeout is not a real number or NIL: ~S" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Wait until FD is usable for DIRECTION. DIRECTION should be either :INPUT or\n" " :OUTPUT. TIMEOUT, if supplied, is the number of seconds to wait before " @@ -8520,11 +8681,11 @@ msgid "" " up." msgstr "" -#: target:code/time.lisp target:code/serve-event.lisp +#: src/code/time.lisp src/code/serve-event.lisp msgid "Syscall ~A failed: ~A" msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "This is an alist mapping displays to user functions to be called when\n" " SYSTEM:SERVE-EVENT notices input on a display connection. Do not modify\n" @@ -8532,7 +8693,7 @@ msgid "" " should be represented here only once." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "SERVE-ALL-EVENTS calls SERVE-EVENT with the specified timeout. If\n" " SERVE-EVENT does something (returns T) it loops over SERVE-EVENT with " @@ -8541,7 +8702,7 @@ msgid "" " SERVE-EVENT did something and NIL if not." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "" "Receive on all ports and Xevents and dispatch to the appropriate handler\n" " function. If timeout is specified, server will wait the specified time " @@ -8550,51 +8711,51 @@ msgid "" " Server returns T if something happened and NIL otherwise." msgstr "" -#: target:code/serve-event.lisp +#: src/code/serve-event.lisp msgid "Event-listen was true, but handler didn't handle: ~%~S" msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Attempting unimplemented external-format I/O." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Nonsensical argument (~S) to DEFINE-EXTERNAL-FORMAT." msgstr "" -#: target:code/extfmts.lisp -msgid "External-format aliases file ends early." +#: src/code/extfmts.lisp +msgid "Bad entry in external-format aliases file: ~S => ~S." msgstr "" -#: target:code/extfmts.lisp -msgid "Bad entry in external-format aliases file: ~S => ~S." +#: src/code/extfmts.lisp +msgid "External-format aliases file ends early." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "External-format aliasing depth exceeded." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "~S is a Composing-External-Format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "~S is not a Composing-External-Format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "~S is not a valid external format name." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "External format ~S not found." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Attempting I/O through void external-format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Convert String to octets using the specified External-format. The\n" " string is bounded by Start (defaulting to 0) and End (defaulting to\n" @@ -8602,7 +8763,7 @@ msgid "" " there. If not, a new buffer is created." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Octets-to-string converts an array of octets in Octets to a string\n" " according to the specified External-format. The array of octets is\n" @@ -8620,7 +8781,7 @@ msgid "" " external format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Encode the given String using External-Format and return a new\n" " string. The characters of the new string are the octets of the\n" @@ -8628,7 +8789,7 @@ msgid "" " code-char. This is the inverse to String-Decode" msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Decode String using the given External-Format and return the new\n" " string. The input string is treated as if it were an array of\n" @@ -8636,7 +8797,7 @@ msgid "" " the inverse of String-Encode." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "" "Change the external format of the standard streams to Terminal.\n" " The standard streams are sys::*stdin*, sys::*stdout*, and\n" @@ -8647,37 +8808,37 @@ msgid "" " set to the specified format." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Can't find external-format ~S." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "Change it anyway." msgstr "" -#: target:code/extfmts.lisp +#: src/code/extfmts.lisp msgid "The external-format for encoding filenames is already set." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "List of available buffers. Each buffer is an sap pointing to\n" " bytes-per-buffer of memory." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Number of bytes per buffer." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "The maximum supported byte size for a stream element-type." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Timeout ~(~A~)ing ~S." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "List of all available output routines. Each element is a list of the\n" " element-type output, the kind of buffering, the function name, and the " @@ -8685,80 +8846,80 @@ msgid "" " of bytes per element." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Write would have blocked, but SERVER told us to go." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "While writing ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "Output THING to stream. THING can be any kind of vector or a sap. If " "THING\n" " is a SAP, END must be supplied (as length won't work)." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Just go on as if nothing happened..." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "~S called with :END before :START!" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "List of all available input routines. Each element is a list of the\n" " element-type input, the function name, and the number of bytes per element." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error reading ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Could not find any input routine for ~S" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Could not find any output routine for ~S buffered ~S." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Element sizes for input (~S:~S) and output (~S:~S) differ?" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Input type (~S) and output type (~S) are unrelated?" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Go on as if nothing bad happened." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Could not restore ~S to its original contents: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "~s is not a stream associated with a file." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error fstating ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error lseek'ing ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Invalid position given to file-position: ~S" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "Create a stream for the given unix file descriptor.\n" " If input is non-nil, allow input operations.\n" @@ -8773,15 +8934,15 @@ msgid "" " Name is used to identify the stream when printed." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "File descriptor must be opened either for input or output." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "** Closed ~A~%" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "This is a string that OPEN tacks on the end of a file namestring to produce\n" " a name for the :if-exists :rename-and-delete and :rename options. Also,\n" @@ -8789,60 +8950,60 @@ msgid "" " namestring." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Enter new value for ~*~S" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "~S is invalid for ~S. Must be one of~{ ~S~}" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Enter new value for ~S: " msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Try to rename it anyway." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "File ~S is not writable." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Use :SUPERSEDE instead." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Could not rename ~S to ~S: ~A." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Cannot open ~S for output: Is a directory." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Cannot find ~S: ~A" msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp #, fuzzy msgid "Return NIL." msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error opening ~S, ~A." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Error creating ~S, path does not exist." msgstr "" -#: target:pcl/braid.lisp target:code/fd-stream.lisp +#: src/pcl/braid.lisp src/code/fd-stream.lisp msgid "Try again." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "Return a stream which reads from or writes to Filename.\n" " Defined keywords:\n" @@ -8855,262 +9016,262 @@ msgid "" " See the manual for details." msgstr "" -#: target:code/fd-stream.lisp +#: src/pcl/std-class.lisp src/pcl/boot.lisp src/pcl/defs.lisp +#: src/pcl/defclass.lisp src/code/fd-stream.lisp +msgid "Odd-length property list in REMF." +msgstr "" + +#: src/code/fd-stream.lisp msgid "Do it anyway." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Can't create simple-streams with an element-type." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "Unable to open streams of class ~S." msgstr "" -#: target:pcl/std-class.lisp target:pcl/boot.lisp target:pcl/defs.lisp -#: target:pcl/defclass.lisp target:code/macros.lisp target:code/fd-stream.lisp -msgid "Odd-length property list in REMF." -msgstr "" - -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "The stream connected to the controlling terminal or NIL if there is none." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "The stream connected to the standard input (file descriptor 0)." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "The stream connected to the standard output (file descriptor 1)." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "The stream connected to the standard error output (file descriptor 2)." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "This is called in BEEP to feep the user. It takes a stream." msgstr "" -#: target:code/fd-stream.lisp +#: src/code/fd-stream.lisp msgid "" "Return the delta in Stream's FILE-POSITION that would be caused by writing\n" " Object to Stream. Non-trivial only in implementations that support\n" " international character sets." msgstr "" -#: target:code/fd-stream-extfmt.lisp -msgid "Loading simple-streams should redefine this" +#: src/code/fd-stream-extfmt.lisp +msgid "Don't know how to set external-format for ~S." msgstr "" -#: target:code/fd-stream-extfmt.lisp -msgid "Don't know how to set external-format for ~S." +#: src/code/fd-stream-extfmt.lisp +msgid "Loading simple-streams should redefine this" msgstr "" -#: target:code/fd-stream-extfmt.lisp +#: src/code/fd-stream-extfmt.lisp msgid "Setting external-format on Gray streams not supported." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "When non-nil, attempt to load \"library:<host>.translations\" to resolve\n" " an otherwise undefined logical host." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "A path specification, either a string, file-stream or pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Convert thing (a pathname, string or stream) into a pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Construct a filled in pathname by completing the unspecified components\n" " from the defaults." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "~S is not allowed as a directory component." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Makes a new pathname from the component arguments. Note that host is\n" "a host-structure or string." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Silly argument for a unix ~A: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Silly argument for a unix PATHNAME-NAME: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Illegal pathname: ~\n" " Directory with ~S immediately followed by ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for the pathname's host." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for pathname's device." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for the pathname's directory list." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for the pathname's name." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Accessor for the pathname's version." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Parse error in namestring: ~?~% ~A~% ~V@T^" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "When Host arg is not supplied, Defaults arg must ~\n" "\t\t have a non-null PATHNAME-HOST." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Host in namestring: ~S~@\n" "\t\t does not match explicit host argument: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Converts pathname, a pathname designator, into a pathname structure,\n" " for a physical pathname, returns the printed representation. Host may be\n" " a physical host structure or host namestring." msgstr "" -#: target:code/pathname.lisp -msgid "" -"A LIST representing a pathname host is not ~\n" -" supported in this implementation:~% ~S" -msgstr "" - -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Hosts do not match: ~S and ~S." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Can't figure out the file associated with stream:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp +msgid "" +"A LIST representing a pathname host is not ~\n" +" supported in this implementation:~% ~S" +msgstr "" + +#: src/code/pathname.lisp msgid "Construct the full (name)string form of the pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Cannot determine the namestring for pathnames with no ~\n" "\t\t host:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Returns a string representation of the name of the host in the pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Cannot determine the namestring for pathnames with no host:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Returns a string representation of the directories used in the pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Returns a string representation of the name used in the pathname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Returns an abbreviated pathname sufficent to identify the pathname relative\n" " to the defaults." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Predicate for determining whether pathname contains any wildcards." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Pathname matches the wildname template?" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Not enough wildcards in FROM pattern to match ~\n" "\t\t TO pattern:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Can't substitute this into the middle of a word:~\n" "\t\t\t ~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Pathname components from Source and From args to TRANSLATE-PATHNAME~@\n" "\t did not match:~% ~S ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" ":WILD-INFERIORS not paired in from and to ~\n" "\t\t\t patterns:~% ~S ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Use the source pathname to translate the from-wildname's wild and\n" " unspecified elements into a completed to-pathname based on the to-" "wildname." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "~S doesn't match ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Search-list ~a not defined." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Clear the current definition for the search-list NAME. Returns T if such\n" " a definition existed, and NIL if not." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Clear the definition for all search-lists. Only use this if you know\n" " what you are doing." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "~S doesn't start with a search-list." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Return the expansions for the search-list starting PATHNAME. If PATHNAME\n" " does not start with a search-list, then an error is signaled. If\n" @@ -9118,30 +9279,30 @@ msgid "" " The expansion for a search-list can be set with SETF." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Search list ~S has not been defined yet." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Returns T if the search-list starting PATHNAME is currently defined, and\n" " NIL otherwise. An error is signaled if PATHNAME does not start with a\n" " search-list." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "That would result in a circularity:~% ~\n" "\t\t ~A~{ -> ~A~} -> ~A" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Search-lists cannot expand into pathnames that have ~\n" "\t\t a name, type, or ~%version specified:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Execute BODY with VAR bound to each successive possible expansion for\n" " PATHNAME and then return RESULT. Note: if PATHNAME does not contain a\n" @@ -9150,107 +9311,107 @@ msgid "" " VAR is *not* bound inside of RESULT." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Undefined search list: ~A" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Logical namestring character ~\n" "\t\t\t is not alphanumeric or hyphen:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Logical host not yet defined: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Double asterisk inside of logical ~\n" "\t\t\t\t word: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Illegal character for logical pathname:~% ~S" msgstr "" -#: target:code/pathname.lisp -msgid "Expecting ~A, got ~:[nothing~;~:*~S~]." -msgstr "" - -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a host name" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a directory name" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a file name" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Expecting a dot, got ~S." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a file type" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "a positive integer, * or NEWEST" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp +msgid "Expecting ~A, got ~:[nothing~;~:*~S~]." +msgstr "" + +#: src/code/pathname.lisp msgid "" "Expected a positive integer, ~\n" "\t\t\t\t\t got ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Extra stuff after end of file name." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Converts the pathspec argument to a logical-pathname and returns it." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Logical namestring does not specify a host:~% ~S" msgstr "" -#: target:code/filesys.lisp target:code/pathname.lisp +#: src/code/filesys.lisp src/code/pathname.lisp msgid "Invalid directory component: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Invalid keyword: ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Logical pathname translation is not a two-list:~% ~S" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Return the (logical) host object argument's list of translations." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Set the translations list for the logical host argument.\n" " Return translations." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Clobber search-list host with logical pathname host" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "~S names a CMUCL search-list" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "" "Search for a logical pathname named host, if not already defined. If " "already\n" @@ -9260,29 +9421,29 @@ msgid "" " successfully, T is returned, else error." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid ";; Loading pathname translations from ~A~%" msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "Translates pathname to a physical pathname, which is returned." msgstr "" -#: target:code/pathname.lisp +#: src/code/pathname.lisp msgid "No translation for ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Remove any occurrences of \\ from the string because we've already\n" " checked for whatever may have been backslashed." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Backslash in bad place." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "If non-NIL, Unix shell-style wildcards are ignored when parsing\n" " pathname namestrings. They are also ignored when computing\n" @@ -9291,59 +9452,59 @@ msgid "" " printing pathnames." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "``['' with no corresponding ``]''" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~A already names a logical host" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Invalid pattern piece: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid ":BACK cannot be represented in namestrings." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a directory separator in a pathname name: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a dot in a pathname name without a pathname type: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Invalid value for a pathname name: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify the type without a file: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a directory separator in a pathname type: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a dot in a pathname type: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot specify a version without a file: ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~S cannot be represented relative to ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Cannot supply a type without a name:~% ~S" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Convert PATHNAME into a string that can be used with UNIX system calls.\n" " Search-lists and wild-cards are expanded. If optional argument\n" @@ -9352,83 +9513,83 @@ msgid "" " unless an executable version of PATHNAME exists." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~S is ambiguous:~{~% ~A~}" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Return the pathname for the actual file described by the pathname\n" " An error of type file-error is signalled if no such file exists,\n" " or the pathname is wild." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Bad place for a wild pathname." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "The file ~S does not exist." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Return a pathname which is the truename of the file if it exists, NIL\n" " otherwise. An error of type file-error is signalled if pathname is wild." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Rename File to have the specified New-Name. If file is a stream open to a\n" " file, then the associated file is renamed." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~S can't be created." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Failed to rename ~A to ~A: ~A" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Delete the specified file." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~S doesn't exist." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Could not delete ~A: ~A." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Delete old versions of files matching the given Pathname,\n" "optionally keeping some of the most recent old versions." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Returns the home directory of the logged in user as a pathname.\n" " This is obtained from the logical name \"home:\"." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Return file's creation date, or NIL if it doesn't exist.\n" " An error of type file-error is signalled if file is a wild pathname" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Returns the file author as a string, or nil if the author cannot be\n" " determined. Signals an error of type file-error if file doesn't exist,\n" " or file is a wild pathname." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Returns a list of pathnames, one for each file that matches the given\n" " pathname. Supplying :ALL as nil causes this to ignore Unix dot files. " @@ -9444,7 +9605,7 @@ msgid "" " not followed." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Like Directory, but prints a terse, multi-column directory listing\n" " instead of returning a list of pathnames. When :all is supplied and\n" @@ -9453,131 +9614,131 @@ msgid "" " information is output one file per line." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Directory of ~A:~%" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Couldn't stat ~A -- ~A.~%" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Return a list of all files which are possible completions of Pathname.\n" " We look in the directory specified by Defaults as well as looking down\n" " the search list." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "File-writable accepts a pathname and returns T if the current\n" " process can write it, and NIL otherwise." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Returns the pathname for the default directory. This is the place where\n" " a file will be written if no directory is specified. This may be changed\n" " with setf." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "" "Tests whether the directories containing the specified file\n" " actually exist, and attempts to create them if they do not.\n" " Portable programs should avoid using the :MODE keyword argument." msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "~&Creating directory: ~A~%" msgstr "" -#: target:code/filesys.lisp +#: src/code/filesys.lisp msgid "Can't create directory ~A." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The default for the :IF-SOURCE-NEWER argument to load." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The source file types which LOAD recognizes." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "A list of the object file types recognized by LOAD." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "A list of the object file types recognized by LOAD for logical pathnames." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The default for the :VERBOSE argument to Load." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The default for the :PRINT argument to Load." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The TRUENAME of the file that LOAD is currently loading." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The defaulted pathname that LOAD is currently loading." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Count of the number of recursive loads." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "~A was compiled for fasl-file version ~X, ~\n" " but this is version ~X" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "List of free fop tables for the fasloader." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The fop stack (we only need one!)." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Vector indexed by a FaslOP that yields the FOP's name." msgstr "" -#: target:code/load.lisp -msgid "Losing FOP!" -msgstr "" - -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "Vector indexed by a FaslOP that yields a function of 0 arguments which\n" " will perform the operation." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp +msgid "Losing FOP!" +msgstr "" + +#: src/code/load.lisp msgid "Loading ~S.~%" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Loading stuff from ~S.~%" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Attempt to load an empty FASL FILE:~% ~S" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Bad FASL file format." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "Loads the file named by Filename into the Lisp environment. The file type\n" " (a.k.a extension) is defaulted if missing. These options are defined:\n" @@ -9620,149 +9781,145 @@ msgid "" " types that we use for defaulting when none is specified." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Return NIL from load of ~S." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "~S does not exist." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "See if it exists now." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Prompt for a new name." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "New name: " msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Load it as a source file." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "File has a fasl file type, but no fasl file header:~% ~S" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "Loading object file ~A,~@\n" "\t\t which is older than the presumed source:~% ~A." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "Loading source file ~A,~@\n" "\t\t which is newer than the presumed object file:~% ~A." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Compile of source failed, cannot load object." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "" "Object file ~A is~@\n" "\t\t older than the presumed source:~% ~A." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "load source file" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "load object file" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Fop-End-Header was executed???" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Fasl table of improper size. Bug!" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Fasl stack not empty. Bug!" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "The package ~S does not exist." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Losing i-vector element size: ~S" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "Load ~A anyway" msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "~A was compiled for a ~A, but this is a ~A" msgstr "" -#: target:compiler/dfo.lisp target:code/load.lisp +#: src/compiler/dfo.lisp src/code/load.lisp msgid "Top-Level Form" msgstr "" -#: target:compiler/generic/core.lisp target:code/load.lisp +#: src/compiler/generic/core.lisp src/code/load.lisp msgid "Unaligned function object, offset = #x~X." msgstr "" -#: target:code/load.lisp +#: src/code/load.lisp msgid "~S defined~%" msgstr "" -#: target:compiler/generic/core.lisp target:code/load.lisp -msgid "Unknown foreign symbol: ~S" -msgstr "" - -#: target:code/load.lisp +#: src/code/load.lisp msgid "Cannot load assembler code." msgstr "" -#: target:compiler/generic/core.lisp target:code/load.lisp +#: src/compiler/generic/core.lisp src/code/load.lisp msgid "Undefined assembler routine: ~S" msgstr "" -#: target:code/foreign-linkage.lisp +#: src/code/foreign-linkage.lisp msgid "~A is not defined as a foreign symbol" msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "This is a list of module names that have been loaded into Lisp so far.\n" " It is used by PROVIDE and REQUIRE." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "*load-verbose* is bound to this before loading files." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "See function documentation for REQUIRE" msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "Defines a module by registering the files that need to be loaded when\n" " the module is required. If name is a symbol, its print name is used\n" " after downcasing it." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "Adds a new module name to *modules* indicating that it has been loaded.\n" " Module-name may be any valid string designator. All comparisons are\n" " done using string=, i.e. module names are case-sensitive." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "Loads a module when it has not been already. Pathname, if supplied,\n" " is a single pathname or list of pathnames to be loaded if the module\n" @@ -9788,15 +9945,15 @@ msgid "" " which defaults to t." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "Don't know how to load ~A" msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "Coerce a string designator to a module name." msgstr "" -#: target:code/module.lisp +#: src/code/module.lisp msgid "" "Derive a default pathname to try to load for an undefined module\n" "named module-name. The default pathname is constructed from the\n" @@ -9805,19 +9962,19 @@ msgid "" "each, separately, converted from :case :common to :case :local." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Keywords that you can put in a lambda-list, supposing you should want\n" " to do such a thing." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "The exclusive upper bound on the number of arguments which may be passed\n" " to a function, including rest args." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "The exclusive upper bound on the number of parameters which may be specifed\n" " in a given lambda list. This is actually the limit on required and " @@ -9825,13 +9982,13 @@ msgid "" " parameters. With &key and &aux you can get more." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "The exclusive upper bound on the number of multiple-values that you can\n" " have." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "This variable controls whether assignments to unknown variables at top-" "level\n" @@ -9844,53 +10001,53 @@ msgid "" " NIL -- Never declare the variable, giving warnings on each use." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Evaluates its single arg in a null lexical environment, returns the\n" " result or results." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Wrong number of args to FUNCTION:~% ~S." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "~S is a macro." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "~S is a special operator." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Wrong number of args to QUOTE:~% ~S." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Odd number of args to SETQ:~% ~S." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Declaring ~S special." msgstr "" -#: target:compiler/ir1tran.lisp target:code/eval.lisp +#: src/compiler/ir1tran.lisp src/code/eval.lisp msgid "Bad Eval-When situation list: ~S." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Attempt to evaluation a complex expression:~% ~S~@\n" "\t This expression must be compiled, but the compiler is not loaded." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~\n" "\t ~% ~S~%" msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Given a function, return three values:\n" " 1] A lambda expression that could be used to define the function, or NIL " @@ -9904,11 +10061,11 @@ msgid "" " any object, CMU CL always returns a valid function name or a string." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "If the symbol globally names a special form, returns T, otherwise NIL." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "The value of this variable must be a function that can take three\n" " arguments, a macro expander function, the macro form to be expanded,\n" @@ -9918,28 +10075,28 @@ msgid "" " FUNCALL." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Invoke *MACROEXPAND-HOOK* on FUN, FORM, and ENV after coercing it to\n" " a function." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "If SYMBOL names a macro in ENV, returns the expansion function,\n" " else returns NIL. If ENV is unspecified or NIL, use the global\n" " environment only." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "~S names a special form." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Cannot funcall macro functions." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "If form is a macro (or symbol macro), expands it once. Returns two values,\n" " the expanded form and a T-or-NIL flag indicating whether the form was, " @@ -9949,7 +10106,7 @@ msgid "" " to the null environment." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Repetitively call MACROEXPAND-1 until the form can no longer be expanded.\n" " Returns the final resultant form, and T if it was expanded. ENV is the\n" @@ -9957,7 +10114,7 @@ msgid "" " environment." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "If NAME names a compiler-macro, returns the expansion function,\n" " else returns NIL. Note: if the name is shadowed in ENV by a local\n" @@ -9965,27 +10122,27 @@ msgid "" " set with SETF." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "If FORM is a function call for which a compiler-macro has been defined,\n" " invoke the expander function using *macroexpand-hook* and return the\n" " results and T. Otherwise, return the original form and NIL." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Repetitively call COMPILER-MACROEXPAND-1 until the form can no longer be\n" " expanded. ENV is the lexical environment to expand in, or NIL (the\n" " default) for the null environment." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "True of any Lisp object that has a constant value: types that eval to\n" " themselves, keywords, constants, and list whose car is QUOTE." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "" "Applies FUNCTION to a list of arguments produced by evaluating ARGS in\n" " the manner of LIST*. That is, a list is made of the values of all but " @@ -9995,77 +10152,205 @@ msgid "" " list." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Calls Function with the given Arguments." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Returns all of its arguments, in order, as values." msgstr "" -#: target:code/eval.lisp +#: src/code/eval.lisp msgid "Returns all of the elements of List, in order, as values." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "A list of unix signal structures." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "~S is not a valid signal name or number." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Return the name of the signal as a string. Signal should be a valid\n" " signal number or a keyword of the standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Return a string describing signal. Signal should be a valid signal\n" " number or a keyword of the standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Return the number of the given signal. Signal should be a valid\n" " signal number or a keyword of the standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp +msgid "Check" +msgstr "" + +#: src/code/signal.lisp +msgid "Hangup" +msgstr "" + +#: src/code/signal.lisp +msgid "Interrupt" +msgstr "" + +#: src/code/signal.lisp +msgid "Quit" +msgstr "" + +#: src/code/signal.lisp +msgid "Illegal instruction" +msgstr "" + +#: src/code/signal.lisp +msgid "Trace trap" +msgstr "" + +#: src/code/signal.lisp +msgid "Iot instruction" +msgstr "" + +#: src/code/signal.lisp +msgid "C abort()" +msgstr "" + +#: src/code/signal.lisp +msgid "Emt instruction" +msgstr "" + +#: src/code/signal.lisp +msgid "Floating point exception" +msgstr "" + +#: src/code/signal.lisp +msgid "Kill" +msgstr "" + +#: src/code/signal.lisp +msgid "Bus error" +msgstr "" + +#: src/code/signal.lisp +msgid "Segmentation violation" +msgstr "" + +#: src/code/signal.lisp +msgid "Bad argument to system call" +msgstr "" + +#: src/code/signal.lisp +msgid "Write on a pipe with no one to read it" +msgstr "" + +#: src/code/signal.lisp +msgid "Alarm clock" +msgstr "" + +#: src/code/signal.lisp +msgid "Software termination signal" +msgstr "" + +#: src/code/signal.lisp +msgid "Urgent condition present on socket" +msgstr "" + +#: src/code/signal.lisp +msgid "Stop" +msgstr "" + +#: src/code/signal.lisp +msgid "Stop signal generated from keyboard" +msgstr "" + +#: src/code/signal.lisp +msgid "Continue after stop" +msgstr "" + +#: src/code/signal.lisp +msgid "Child status has changed" +msgstr "" + +#: src/code/signal.lisp +msgid "Background read attempted from control terminal" +msgstr "" + +#: src/code/signal.lisp +msgid "Background write attempted to control terminal" +msgstr "" + +#: src/code/signal.lisp +msgid "I/O is possible on a descriptor" +msgstr "" + +#: src/code/signal.lisp +msgid "Cpu time limit exceeded" +msgstr "" + +#: src/code/signal.lisp +msgid "File size limit exceeded" +msgstr "" + +#: src/code/signal.lisp +msgid "Virtual time alarm" +msgstr "" + +#: src/code/signal.lisp +msgid "Profiling timer alarm" +msgstr "" + +#: src/code/signal.lisp +msgid "Window size change" +msgstr "" + +#: src/code/signal.lisp +msgid "User defined signal 1" +msgstr "" + +#: src/code/signal.lisp +msgid "User defined signal 2" +msgstr "" + +#: src/code/signal.lisp msgid "Returns a mask given a set of signals." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-kill sends the signal signal to the process with process \n" " id pid. Signal should be a valid signal number or a keyword of the\n" " standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-killpg sends the signal signal to the all the process in process\n" " group PGRP. Signal should be a valid signal number or a keyword of\n" " the standard UNIX signal name." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-sigblock cause the signals specified in mask to be\n" " added to the set of signals currently being blocked from\n" " delivery. The macro sigmask is provided to create masks." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-sigpause sets the set of masked signals to its argument\n" " and then waits for a signal to arrive, restoring the previous\n" " mask upon its return." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Unix-sigsetmask sets the current set of masked signals (those\n" " being blocked from delivery) to the argument. The macro sigmask\n" @@ -10073,91 +10358,87 @@ msgid "" " mask is returned." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "Enable all the default signals that Lisp knows how to deal with." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "Execute BODY in a context impervious to interrupts." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "Allow interrupts while executing BODY. As interrupts are normally allowed,\n" " this is only useful inside a WITHOUT-INTERRUPTS." msgstr "" -#: target:code/signal.lisp +#: src/code/signal.lisp msgid "" "With-enabled-interrupts ({(interrupt function)}*) {form}*\n" " Establish function as a handler for the Unix signal interrupt which\n" " should be a number between 1 and 31 inclusive." msgstr "" -#: target:code/interr.lisp -msgid "~S isn't one of the required args." -msgstr "" - -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Unknown error:~{ ~S~})" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Invalid number of arguments: ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Attempt to RETURN-FROM a block or GO to a tag that no longer exists" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Attempt to THROW to a tag that does not exist: ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Function with declared result type NIL returned:~% ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Invalid array index, ~D for ~S. Array has no elements." msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "Invalid array index, ~D for ~S. Should have greater than or equal to 0." msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Invalid array index, ~D for ~S. Should have been less than ~D" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Undefined foreign symbol: ~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "The maximum number of nested errors allowed. Internal errors are\n" " double-counted." msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "The current number of nested errors." msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Unknown internal error, ~D? args=~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "Internal error ~D: ~A. args=~S" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "~2&~@<A control stack overflow has occurred: ~\n" " the program has entered the yellow control stack guard zone. ~\n" @@ -10165,14 +10446,14 @@ msgid "" " enter the red control stack guard zone while debugging.~@:>~2%" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "~2&~@<Fatal control stack overflow. You have entered~%~\n" " the red control stack guard zone while debugging.~%~\n" " Returning to Top-Level.~@:>~2%" msgstr "" -#: target:code/interr.lisp +#: src/code/interr.lisp msgid "" "~2&~@<Imminent dynamic space overflow has occurred:~%~\n" " Only a small amount of dynamic space is available now.~%~\n" @@ -10181,171 +10462,171 @@ msgid "" " warning if you run out of space while debugging.~@:>~%" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "All debug-conditions inherit from this type. These are serious conditions\n" " that must be handled, but they are not programmer errors." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "There is absolutely no debugging information available." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "No debugging information available." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "The system could not return values from a frame with debug-function since\n" " it lacked information about returning values." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "~&Cannot return values from ~:[frame~;~:*~S~] since ~\n" "\t\t\tthe debug information lacks details about returning ~\n" "\t\t\tvalues here." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "The debug-function has no debug-block information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S has no debug-block information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "The debug-function has no debug-variable information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S has no debug-variable information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "The debug-function has no lambda-list since argument debug-variables are\n" " unavailable." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S has no lambda-list information available." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S has :invalid or :unknown value in ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S names more than one valid variable in ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "All programmer errors from using the interface for building debugging\n" " tools inherit from this type." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&Unhandled debug-condition:~%~A" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&Invalid use of an unknown code-location -- ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&~S not in ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Invalid control stack pointer." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~&Form was preprocessed for ~S,~% but called on ~S:~% ~S" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the name of the debug-variable. The name is the name of the symbol\n" " used as an identifier when writing the code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the package name of the debug-variable. This is the package name " "of\n" " the symbol used as an identifier when writing the code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the integer that makes debug-variable's name and package name " "unique\n" " with respect to other debug-variable's in the same function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the frame immediately above frame on the stack. When frame is\n" " the top of the stack, this returns nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the debug-function for the function whose call frame represents." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the code-location where the frame's debug-function will continue\n" " running when program execution returns to this frame. If someone\n" " interrupted this frame, the result could be an unknown code-location." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "#<Compiled-Frame ~S~:[~;, interrupted~]>" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "#<~A-Debug-Function ~S>" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the list of possible code-locations where execution may continue\n" " when the basic-block represented by debug-block completes its execution." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns whether debug-block represents elsewhere code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the breakpoint's function the system calls when execution " "encounters\n" " the breakpoint, and it is active. This is SETF'able." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns the breakpoint's what specification." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns the breakpoint's kind specification." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the debug-function representing information about the function\n" " corresponding to the code-location." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the number of top-level forms processed by the compiler before\n" " compiling this source. If this source is uncompiled, this is zero. " @@ -10357,7 +10638,7 @@ msgid "" " zero -- the compiler saw no other top-level forms before it." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns an indication of the type of source. The following are the " "possible\n" @@ -10367,7 +10648,7 @@ msgid "" " :stream from a non-file stream." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the actual source in some sense represented by debug-source, which\n" " is related to DEBUG-SOURCE-FROM:\n" @@ -10376,19 +10657,19 @@ msgid "" " :stream some descriptive string that's otherwise useless." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the universal time someone created the source. This may be nil if\n" " it is unavailable." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the time someone compiled the source. This is nil if the source\n" " is uncompiled." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This function returns the file position of each top-level form as an array\n" " if debug-source is from a :file. If DEBUG-SOURCE-FROM is :lisp or :" @@ -10396,74 +10677,66 @@ msgid "" " this returns nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns whether object is a debug-source." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the top frame of the control stack as it was before calling this\n" " function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Flush all of the frames above FRAME, and renumber all the frames below\n" " FRAME." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the frame immediately below frame on the stack. When frame is\n" " the bottom of the stack, this returns nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "When set, the debugger foregoes making interpreted-frames, so you can\n" " debug the functions that manifest the interpreter." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Zero or more than one ~A variable in ~\n" "\t\t\t EVAL::INTERNAL-APPLY-LOOP?" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Return a string describing the foreign function near ADDRESS" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Foreign function call land" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Return t if COMPONENT contains code from assembly routines." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Return the name of the assembly routine at offset PC in COMPONENT.\n" "The result is a symbol or nil if the routine cannot be found." msgstr "" -#: target:code/debug-int.lisp -msgid "no debug info: ~A:~A" -msgstr "" - -#: target:code/debug-int.lisp -msgid "find the PC" -msgstr "" - -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns an a-list mapping catch tags to code-locations. These are\n" " code-locations at which execution would continue with frame as the top\n" " frame if someone threw to the corresponding tag." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Executes the forms in a context with block-var bound to each debug-block in\n" " debug-function successively. Result is an optional form to execute for\n" @@ -10472,7 +10745,7 @@ msgid "" " debug-function lacks debug-block information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Executes body in a context with var bound to each debug-variable in\n" " debug-function. This returns the value of executing result (defaults to\n" @@ -10482,35 +10755,35 @@ msgid "" " preserved argument information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the Common Lisp function associated with the debug-function. This\n" " returns nil if the function is unavailable or is non-existent as a user\n" " callable function object." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the name of the function represented by debug-function. This may\n" " be a string or a cons; do not assume it is a symbol." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns a debug-function that represents debug information for function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the kind of the function which is one of :optional, :external,\n" " :top-level, :cleanup, nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns whether there is any variable information for debug-function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns a list of debug-variables in debug-function having the same name\n" " and package as symbol. If symbol is uninterned, then this returns a list " @@ -10522,7 +10795,7 @@ msgid "" " knows about its arguments." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns a list of debug-variables in debug-function whose names contain\n" " name-prefix-string as an intial substring. The result of this function " @@ -10532,7 +10805,7 @@ msgid "" " example, possibly debug-function only knows about its arguments." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns a list representing the lambda-list for debug-function. The list\n" " has the following structure:\n" @@ -10553,17 +10826,17 @@ msgid "" " condition when there is no argument list information." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Malformed arguments description." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns whether basic-code-location is unknown. It returns nil when the\n" " code-location is known." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the debug-block containing code-location if it is available. Some\n" " debug policies inhibit debug-block information, and if none is " @@ -10571,11 +10844,11 @@ msgid "" " then this signals a no-debug-blocks condition." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns the code-location's debug-source." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the number of top-level forms before the one containing\n" " code-location as seen by the compiler in some compilation unit. A\n" @@ -10583,18 +10856,18 @@ msgid "" " debug-sources." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Unknown code location? It should be known." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the number of the form corresponding to code-location. The form\n" " number is derived by a walking the subforms of a top-level form in\n" " depth-first order." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Return the kind of CODE-LOCATION, one of:\n" " :interpreted, :unknown-return, :known-return, :internal-error,\n" @@ -10602,48 +10875,40 @@ msgid "" " :non-local-entry" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Returns whether obj1 and obj2 are the same place in the code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Executes forms in a context with code-var bound to each code-location in\n" " debug-block. This returns the value of executing result (defaults to " "nil)." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "??? Can't get name of debug-block's function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the symbol from interning DEBUG-VARIABLE-NAME in the package named\n" " by DEBUG-VARIABLE-PACKAGE." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the value stored for debug-variable in frame. If the value is not\n" " :valid, then this signals an invalid-value error." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns the value stored for debug-variable in frame. The value may be\n" " invalid. This is SETF'able." msgstr "" -#: target:code/debug-int.lisp -msgid "Local non-descriptor register access?" -msgstr "" - -#: target:code/debug-int.lisp -msgid "Local interior register access?" -msgstr "" - -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Returns three values reflecting the validity of debug-variable's value\n" " at basic-code-location:\n" @@ -10652,14 +10917,14 @@ msgid "" " :unknown The value's availability is unknown." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This returns a table mapping form numbers to source-paths. A source-path\n" " indicates a descent into the top-level-form form, going directly to the\n" " subform corressponding to the form number." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Form is a top-level form, and path is a source-path into it. This returns\n" " the form indicated by the source-path. Context is the number of " @@ -10671,11 +10936,11 @@ msgid "" " immediately before the form indicated by path." msgstr "" -#: target:code/debug.lisp target:code/debug-int.lisp +#: src/code/debug.lisp src/code/debug-int.lisp msgid "Source path no longer exists." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Return a function of one argument that evaluates form in the lexical\n" " context of the basic-code-location loc. PREPROCESS-FOR-EVAL signals a\n" @@ -10687,23 +10952,23 @@ msgid "" " ambiguous-variable-name, and frame-function-mismatch" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Evaluate Form in the lexical context of Frame's current code location,\n" " returning the results of the evaluation." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Find and return the debug catch tag for a given frame, if it exists." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Evaluate Form in the lexical context of Frame's current code location,\n" " returning from the current frame the results of the evaluation." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This creates and returns a breakpoint. When program execution encounters\n" " the breakpoint, the system calls hook-function. Hook-function takes the\n" @@ -10737,27 +11002,27 @@ msgid "" " This signals an error if what is an unknown code-location." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Cannot make a breakpoint at an unknown code location -- ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Breakpoints in interpreted code are currently unsupported." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" ":FUNCTION-END breakpoints are currently unsupported ~\n" "\t\t for the known return convention." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" ":function-end breakpoints are currently unsupported ~\n" "\t for interpreted-debug-functions." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This takes a function-end-cookie and a frame, and it returns whether the\n" " cookie is still valid. A cookie becomes invalid when the frame that\n" @@ -10771,7 +11036,7 @@ msgid "" " series of cookies is valid." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This causes the system to invoke the breakpoint's hook-function until the\n" " next call to DEACTIVATE-BREAKPOINT or DELETE-BREAKPOINT. The system " @@ -10779,29 +11044,29 @@ msgid "" " breakpoint hook functions in the opposite order that you activate them." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Cannot activate a deleted breakpoint -- ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "I don't know how you made this, but they're unsupported -- ~S" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "This stops the system from invoking the breakpoint's hook-function." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This returns the user maintained info associated with breakpoint. This\n" " is SETF'able." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "This returns whether breakpoint is currently active." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This frees system storage and removes computational overhead associated " "with\n" @@ -10810,19 +11075,15 @@ msgid "" " never become active again." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Unknown breakpoint in ~S at offset ~S." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Breakpoint that nobody wants?" msgstr "" -#: target:code/debug-int.lisp -msgid "BREAKPOINT-DO-DISPLACED-INST returned?" -msgstr "" - -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "Make a bogus LRA object that signals a breakpoint trap when returned to. " "If\n" @@ -10833,7 +11094,7 @@ msgid "" " the PC offset for the trap instruction." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "The editor calls this remotely in the slave to set breakpoints. Package is\n" " the string name of a package or nil, and name-str is a string " @@ -10849,44 +11110,44 @@ msgid "" " the top-level form." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "Editor installed breakpoint." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "We don't currently support breakpoints in interpreted code." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "~%Cannot set breakpoints for editor when source file no ~\n" "\t\t longer exists:~% ~A." msgstr "" -#: target:code/debug-int.lisp -msgid "" -"Cannot set breakpoints for editor when ~\n" -"\t\t\t\t there is no start positions map." -msgstr "" - -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "~%While setting a breakpoint for the editor, noticed ~\n" "\t\t\tsource file has been modified since compilation:~% ~A~@\n" "\t\t\tUsing form offset instead of character position.~%" msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp +msgid "" +"Cannot set breakpoints for editor when ~\n" +"\t\t\t\t there is no start positions map." +msgstr "" + +#: src/code/debug-int.lisp msgid "" "The editor calls this in the slave with a remote-object representing a\n" " code-location to set a breakpoint." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "The editor calls this remotely in the slave to delete a breakpoint." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "" "This returns a code-location before the body of a function and after all\n" " the arguments are in place. If this cannot determine that location due " @@ -10894,184 +11155,115 @@ msgid "" " a lack of debug information, it returns nil." msgstr "" -#: target:code/debug-int.lisp +#: src/code/debug-int.lisp msgid "~S code location at ~D" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "*PRINT-LEVEL* is bound to this value when debug prints a function call. If\n" " null, use *PRINT-LEVEL*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "*PRINT-LENGTH* is bound to this value when debug prints a function call. " "If\n" " null, use *PRINT-LENGTH*." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "default value for the verbose argument to print-frame-call. If set to >= 2, " "source will be printed for all frames" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "This is T while in the debugger." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Pushes and pops/exits inside the debugger change this." msgstr "" -#: target:code/debug.lisp -msgid "" -"If this is bound before the debugger is invoked, it is used as the stack\n" -" top by the debugger." -msgstr "" - -#: target:code/debug.lisp -msgid "" -"This is a function of no arguments that prints the debugger prompt\n" -" on *debug-io*." -msgstr "" - -#: target:code/debug.lisp -msgid "" -"\n" -"The prompt is right square brackets, the number indicating how many\n" -" recursive command loops you are in.\n" -"Debug commands do not affect * and friends, but evaluation in the debug " -"loop\n" -" do affect these variables.\n" -"Any command may be uniquely abbreviated.\n" -"\n" -"Getting in and out of DEBUG:\n" -" Q throws to top level.\n" -" GO calls CONTINUE which tries to proceed with the restart " -"'continue.\n" -" RESTART invokes restart numbered as shown (prompt if not given).\n" -" ERROR prints the error condition and restart cases.\n" -" FLUSH toggles *flush-debug-errors*, which is initially t.\n" -" \n" -" The name of any restart, or its number, is a valid command, and is the " -"same\n" -" as using RESTART to invoke that restart.\n" -"\n" -"Changing frames:\n" -" U up frame D down frame T top frame B bottom frame\n" -"\n" -" F n goes to frame n.\n" -"\n" -"Inspecting frames:\n" -" BACKTRACE [n] shows n frames going down the stack.\n" -" L [prefix] lists locals starting with the given prefix in current " -"function.\n" -" P displays current function call.\n" -" PP verbose display of current function, with source.\n" -" SOURCE [n] displays frame's source form with n levels of enclosing " -"forms.\n" -" VSOURCE [n] displays frame's source form without any ellipsis.\n" -" DESCRIBE describe the current function.\n" -"\n" -"Breakpoints and steps:\n" -" LIST-LOCATIONS [{function | :c}] list the locations for breakpoints.\n" -" Specify :c for the current frame. Abbreviation: LL\n" -" LIST-BREAKPOINTS list the active breakpoints.\n" -" Abbreviations: LB, LBP\n" -" DELETE-BREAKPOINT [n] remove breakpoint n or all breakpoints.\n" -" Abbreviations: DEL, DBP \n" -" BREAKPOINT {n | :end | :start} [:break form] [:function function]\n" -" [{:print form}*] [:condition form] set a breakpoint.\n" -" Abbreviations: BR, BP\n" -" STEP [n] step to the next location or step n " -"times.\n" -"\n" -"Actions on frames:\n" -" DEBUG-RETURN expression\n" -" returns expression's values from the current frame, exiting the " -"debugger.\n" -" Abbreviations: R\n" -"\n" -"Variables:\n" -" (DEBUG:VAR name [id]) Returns variable's value if possible. If " -"multiple\n" -" variables with the same name exist, use id to " -"select\n" -" one\n" -" (DEBUG:ARG n) Returns the n'th argument's value if possible.\n" -" Argument zero is the first argument.\n" -"\n" -"See the CMU Common Lisp User's Manual for more information.\n" -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp +msgid "" +"If this is bound before the debugger is invoked, it is used as the stack\n" +" top by the debugger." +msgstr "" + +#: src/code/debug.lisp +msgid "" +"This is a function of no arguments that prints the debugger prompt\n" +" on *debug-io*." +msgstr "" + +#: src/code/debug.lisp msgid "" "When true, the LIST-LOCATIONS command only displays block start locations.\n" " Otherwise, all locations are displayed." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "If true, list the code location type in the LIST-LOCATIONS command." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%Unknown location: using block start.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&~S: ~S in ~S" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&~S: FUNCTION-START in ~S" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&~S: FUNCTION-END in ~S" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%Return values: ~S" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&*Step (to a breakpoint)*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "*Step*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&*Breakpoint hit*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Error in main-hook-function: unknown breakpoint" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Cannot step, in elsewhere code~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "Currently only compiled code can be stepped.~%~\n" " Trying to compile the passed form resulted in ~\n" " the following error:~% ~A" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~2&Stepping the form~% ~S~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&using the debugger. Type HELP for help.~2%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "STEP implements a debugging paradigm wherein the programmer is allowed\n" " to step through the evaluation of a form. We use the debugger's " @@ -11084,7 +11276,7 @@ msgid "" " error is signalled." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "Show a listing of the call stack going down from the current frame. In the\n" " debugger, the current frame is indicated by the prompt. Count is how " @@ -11092,39 +11284,39 @@ msgid "" " frames to show." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "unavaliable-rest-arg" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "lambda-list-unavailable" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "error printing object {~X}" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "unused-arg" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "unavailable-arg" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%Source: " msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Error finding source: ~A" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Unable to display error condition~@[: ~A~]" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "This is either nil or a function of two arguments, a condition and the " "value\n" @@ -11136,86 +11328,70 @@ msgid "" " around the invocation." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~2&~A~% [Condition of type ~S]~2&" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "The CMU Common Lisp debugger. Type h for help." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&Restarts:~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~2&Debug (type H for help)~2%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "When set, avoid calling INVOKE-DEBUGGER recursively when errors occur while\n" " executing in the debugger. The 'flush' command toggles this." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "When non-NIL, becomes the system *READTABLE* in the debugger\n" " read-eval-print loop" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "When non-NIL, print the current frame when entering the debugger." msgstr "" -#: target:code/debug.lisp -msgid "~&Error flushed ..." +#: src/code/debug.lisp +msgid "Unknown stream-command -- ~S." msgstr "" -#: target:code/debug.lisp -msgid "Return to debug level ~D." +#: src/code/debug.lisp +msgid "Ambiguous debugger command: ~S." msgstr "" -#: target:code/debug.lisp -msgid "Unknown stream-command -- ~S." +#: src/code/debug.lisp +msgid "~&Your command, ~S, is ambiguous:~%" msgstr "" -#: target:code/debug.lisp -msgid "Ambiguous debugger command: ~S." +#: src/code/debug.lisp +msgid "Return to debug level ~D." msgstr "" -#: target:code/debug.lisp -msgid "~&Your command, ~S, is ambiguous:~%" +#: src/code/debug.lisp +msgid "~&Error flushed ..." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "When set (the default), evaluations in the debugger's command loop occur\n" " relative to the current frame's environment without the need of debugger\n" " forms that explicitly control this kind of evaluation." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Setting * to NIL -- was unbound marker." msgstr "" -#: target:code/debug.lisp -msgid "No known valid variables match ~S." -msgstr "" - -#: target:code/debug.lisp -msgid "Specification ambiguous:~%~{ ~A~%~}" -msgstr "" - -#: target:code/debug.lisp -msgid "Invalid variable ID, ~D, should have been one of ~S." -msgstr "" - -#: target:code/debug.lisp -msgid "Specify variable ID to disambiguate ~S. Use one of ~S." -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "Returns a variable's value if possible. Name is a simple-string or symbol.\n" " If it is a simple-string, it is an initial substring of the variable's " @@ -11238,7 +11414,23 @@ msgid "" " information. This is SETF'able." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp +msgid "No known valid variables match ~S." +msgstr "" + +#: src/code/debug.lisp +msgid "Specification ambiguous:~%~{ ~A~%~}" +msgstr "" + +#: src/code/debug.lisp +msgid "Invalid variable ID, ~D, should have been one of ~S." +msgstr "" + +#: src/code/debug.lisp +msgid "Specify variable ID to disambiguate ~S. Use one of ~S." +msgstr "" + +#: src/code/debug.lisp msgid "" "Returns the n'th argument's value if possible. Argument zero is the first\n" " argument in a frame's default printed representation. Count keyword/" @@ -11246,67 +11438,63 @@ msgid "" " pairs as separate arguments." msgstr "" -#: target:code/debug.lisp -msgid "No argument values are available." -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Unused arguments have no values." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Invalid argument value." msgstr "" -#: target:code/debug.lisp -msgid "Argument specification out of range -- ~S." +#: src/code/debug.lisp +msgid "No argument values are available." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Unused rest-arg before n'th argument." msgstr "" -#: target:code/debug.lisp -msgid "Invalid rest-arg before n'th argument." +#: src/code/debug.lisp +msgid "Argument specification out of range -- ~S." msgstr "" -#: target:code/debug.lisp -msgid "Invoking debugger command while outside the debugger." +#: src/code/debug.lisp +msgid "Invalid rest-arg before n'th argument." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Unknown debug command name -- ~S" msgstr "" -#: target:code/debug.lisp -msgid "~&Top of stack." +#: src/code/debug.lisp +msgid "Invoking debugger command while outside the debugger." msgstr "" -#: target:code/debug.lisp -msgid "~&Bottom of stack." +#: src/code/debug.lisp +msgid "~&Top of stack." msgstr "" -#: target:code/debug.lisp -msgid "Frame number: " +#: src/code/debug.lisp +msgid "~&Bottom of stack." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "You are here." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Bottom of stack encountered." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Top of stack encountered." msgstr "" -#: target:code/debug.lisp -msgid "debug-return: " +#: src/code/debug.lisp +msgid "Frame number: " msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "~@<can't find a tag for this frame ~\n" " ~2I~_(hint: try increasing the DEBUG optimization quality " @@ -11314,129 +11502,133 @@ msgid "" " and recompiling)~:@>" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp +msgid "debug-return: " +msgstr "" + +#: src/code/debug.lisp msgid "No restart named continue." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Restart: " msgstr "" -#: target:code/debug.lisp -msgid "~S is invalid as a restart name.~%" +#: src/code/debug.lisp +msgid "No such restart." msgstr "" -#: target:code/debug.lisp -msgid "No such restart." +#: src/code/debug.lisp +msgid "~S is invalid as a restart name.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "This controls how many lines the debugger's help command prints before\n" " printing a prompting line to continue with output." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%[RETURN FOR MORE, Q TO QUIT HELP TEXT]: " msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "No local variables ~@[starting with ~A ~]~\n" "\t in function." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "All variables ~@[starting with ~A ~]currently ~\n" "\t have invalid values." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "No variable information available." msgstr "" -#: target:code/debug.lisp -msgid "No start positions map." -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Source file no longer exists:~% ~A." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~%; File: ~A~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "~%; File has been modified since compilation:~%; ~A~@\n" "\t\t ; Using form offset instead of character position.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp +msgid "No start positions map." +msgstr "" + +#: src/code/debug.lisp msgid "Couldn't continue." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "::FUNCTION-START " msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid " *Active*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid " *Continue here*" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&::FUNCTION-END *Active* " msgstr "" -#: target:code/debug.lisp -msgid "Location number, :start, or :end: " -msgstr "" - -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Note: previous breakpoint removed.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "~&Added." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp +msgid "Location number, :start, or :end: " +msgstr "" + +#: src/code/debug.lisp msgid "Breakpoint ~S removed.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Breakpoint doesn't exist." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "All breakpoints deleted.~%" msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Errors now flushed." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Errors now create nested debug levels." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "Can't figure out the function for this frame." msgstr "" -#: target:code/debug.lisp +#: src/code/debug.lisp msgid "" "The debugger's EDIT-SOURCE command only works in slave Lisps ~\n" "\t connected to a Hemlock editor." msgstr "" -#: target:code/query.lisp +#: src/code/query.lisp msgid "" "Y-OR-N-P prints the message, if any, and reads characters from *QUERY-IO*\n" " until the user enters y or Y as an affirmative, or either n or N as a\n" @@ -11444,28 +11636,28 @@ msgid "" " enter any other characters." msgstr "" -#: target:code/query.lisp +#: src/code/query.lisp msgid "Type \"y\" for yes or \"n\" for no. " msgstr "" -#: target:code/query.lisp +#: src/code/query.lisp msgid "" "YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the \n" " input buffer, beeps, and uses READ-LINE to get the strings \n" " YES or NO." msgstr "" -#: target:code/query.lisp +#: src/code/query.lisp msgid "Type \"yes\" for yes or \"no\" for no. " msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "" "Generate an random state vector from the given SEED. The seed can be\n" " either an integer or a vector of (unsigned-byte 32)" msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "" "Make a random state object. If STATE is not supplied, return a copy\n" " of the default random state. If STATE is a random state, then return a\n" @@ -11473,84 +11665,84 @@ msgid "" " the universal time or /dev/urandom if available." msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "Argument is not a RANDOM-STATE, T or NIL: ~S" msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "" "Generate a uniformly distributed pseudo-random number between zero\n" " and Arg. State, if supplied, is the random state to use." msgstr "" -#: target:code/rand-mt19937.lisp +#: src/code/rand-mt19937.lisp msgid "Argument is not a positive integer or a positive float: ~S" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "This is bound to the returned values when evaluating :BREAK-AFTER and\n" " :PRINT-AFTER forms." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "If the trace indentation exceeds this value, then indentation restarts at\n" " 0." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "The default value for the :ENCAPSULATE option to trace." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "List of package names. Encapsulate functions from these packages\n" " by default. This should at least include the packages of functions\n" " used by TRACE, directly or indirectly." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Can't trace special form ~S." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Breaking ~A traced call to ~S:" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "~S returned" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Function ~S already TRACE'd, retracing it." msgstr "" -#: target:code/ntrace.lisp -msgid "Tracing shared code for ~S:~% ~S" -msgstr "" - -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "~S name is not a defined global function: ~S" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Can't use encapsulation to trace anonymous function ~S." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Can't use encapsulation to trace local flet/labels function ~S." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp +msgid "Tracing shared code for ~S:~% ~S" +msgstr "" + +#: src/code/ntrace.lisp msgid "Missing argument to ~S TRACE option." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Unknown TRACE option: ~S" msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "TRACE {Option Global-Value}* {Name {Option Value}*}*\n" " TRACE is a debugging tool that prints information when specified " @@ -11649,64 +11841,169 @@ msgid "" " -ALL forms are evaluated in the null environment." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "Function is not TRACE'd -- ~S." msgstr "" -#: target:code/ntrace.lisp +#: src/code/ntrace.lisp msgid "" "Removes tracing from the specified functions. With no args, untraces all\n" " functions." msgstr "" -#: target:code/sort.lisp +#: src/code/profile.lisp +msgid "List of functions that are currently being timed." +msgstr "" + +#: src/code/profile.lisp +msgid "A list of profiled functions which weren't called." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"If the number of profiled functions that were not called is less than\n" +"this, the functions are listed. If NIL, then always list the functions." +msgstr "" + +#: src/code/profile.lisp +msgid "dfixnum became negative ~a/~a - ~a/~a(~a/~a)" +msgstr "" + +#: src/code/profile.lisp +msgid "dfixnum became too big ~a/~a + ~a/~a" +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Ensure that a profile fwrapper for functions with NREQ required\n" +" arguments and optional arguments according to OPTIONALS-P exists.\n" +" Return the name of that fwrapper." +msgstr "" + +#: src/code/profile.lisp +msgid "Return the profile FWRAPPER object on function NAME, if any." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Return the PROFILE-INFO for function NAME.\n" +" Signal an error if NAME is not profiled." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"PROFILE Name*\n" +" Wraps profiling code around the named functions. As in TRACE, the names " +"are\n" +" not evaluated. If a function is already profiled, then unprofile and\n" +" reprofile (useful to notice function redefinition.) If a name is " +"undefined,\n" +" then we give a warning and ignore it.\n" +"\n" +" CLOS methods can be profiled by specifying names of the form\n" +" (METHOD <name> <qualifier>* (<specializer>*)), like in TRACE.\n" +"\n" +" :METHODS Function-Form is a way of specifying that all methods of a\n" +" generic functions should be profiled. The Function-Form is\n" +" evaluated immediately, and the methods of the resulting generic\n" +" function are profiled.\n" +"\n" +" If :CALLERS T appears, subsequent names have counts of the most\n" +" common calling functions recorded.\n" +"\n" +" See also UNPROFILE, REPORT-TIME and RESET-TIME." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"PROFILE-ALL\n" +"\n" +" Wraps profiling code around all functions in PACKAGE, which defaults\n" +" to *PACKAGE*. If a function is already profiled, then unprofile and\n" +" reprofile (useful to notice function redefinition.) If a name is\n" +" undefined, then we give a warning and ignore it. If CALLERS-P is T\n" +" names have counts of the most common calling functions recorded.\n" +"\n" +" When called with arguments :METHODS T, profile all methods of all\n" +" generic function having names in the given package. Generic functions\n" +" themselves, that is, their dispatch functions, are left alone.\n" +"\n" +" See also UNPROFILE, REPORT-TIME and RESET-TIME. " +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Unwraps the profiling code around the named functions. Names defaults to\n" +" the list of all currently profiled functions." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Resets the time counter for the named functions. Names defaults to the " +"list\n" +" of all currently profiled functions." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Reports the time spent in the named functions. Names defaults to the list\n" +" of all currently profiled functions." +msgstr "" + +#: src/code/profile.lisp +msgid "" +"Reports the time spent in the named functions. Names defaults to the list\n" +" of all currently profiled functions. Uses printfunction." +msgstr "" + +#: src/code/sort.lisp msgid "" "Destructively sorts sequence. Predicate should returns non-Nil if\n" " Arg1 is to precede Arg2." msgstr "" -#: target:code/sort.lisp +#: src/code/sort.lisp msgid "~S is not a sequence." msgstr "" -#: target:code/sort.lisp +#: src/code/sort.lisp msgid "" "The sequences Sequence1 and Sequence2 are destructively merged into\n" " a sequence of type Result-Type using the Predicate to order the elements." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "The number of internal time units that fit into a second. See\n" " Get-Internal-Real-Time and Get-Internal-Run-Time." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Return the real time in the internal time format. This is useful for\n" " finding elapsed time. See Internal-Time-Units-Per-Second." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Return the run time in the internal time format. This is useful for\n" " finding CPU usage." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Returns a single integer for the current time of\n" " day in universal time format." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Returns nine values specifying the current time as follows:\n" " second, minute, hour, date, month, year, day of week (0 = Monday), T\n" " (daylight savings times) or NIL (standard time), and timezone." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Converts a universal-time to decoded time format returning the following\n" " nine values: second, minute, hour, date, month, year, day of week (0 =\n" @@ -11714,23 +12011,23 @@ msgid "" " Completely ignores daylight-savings-time when time-zone is supplied." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "The time values specified in decoded format are converted to \n" " universal time, which is returned." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "Evaluates the Form and prints timing information on *Trace-Output*." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "TIME form in a non-null environment, forced to interpret.~@\n" "\t Compiling entire form will produce more accurate times." msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "Evaluation took:~% ~\n" "\t\t ~S seconds of real time~% ~\n" @@ -11738,7 +12035,7 @@ msgid "" "\t\t ~S seconds of system run time~% " msgstr "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "" "~:D ~A cycle~% ~\n" "\t\t ~@[[Run times include ~S seconds GC run time]~% ~]" @@ -11748,439 +12045,439 @@ msgid_plural "" msgstr[0] "" msgstr[1] "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "~S page fault and~% " msgid_plural "~S page faults and~% " msgstr[0] "" msgstr[1] "" -#: target:code/time.lisp +#: src/code/time.lisp msgid "~:D byte consed.~%" msgid_plural "~:D bytes consed.~%" msgstr[0] "" msgstr[1] "" -#: target:code/weak.lisp +#: src/code/weak.lisp msgid "Allocates and returns a weak pointer which points to OBJECT." msgstr "" -#: target:code/weak.lisp +#: src/code/weak.lisp msgid "" "If WEAK-POINTER is valid, returns the value of WEAK-POINTER and T.\n" " If the referent of WEAK-POINTER has been garbage collected, returns\n" " the values NIL and NIL." msgstr "" -#: target:code/weak.lisp +#: src/code/weak.lisp msgid "Updates WEAK-POINTER to point to a new object." msgstr "" -#: target:code/final.lisp +#: src/code/final.lisp msgid "" "Arrange for FUNCTION to be called when there are no more references to\n" " OBJECT. FUNCTION takes no arguments." msgstr "" -#: target:code/final.lisp +#: src/code/final.lisp msgid "Cancel any finalization registers for OBJECT." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Depth of recursive descriptions allowed." msgstr "허용ë˜ëŠ” 재귀ì ì¸ ë¬˜ì‚¬ì˜ ê¹Šì´." -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "If non-nil, descriptions may provide interpretations of information and\n" " pointers to additional information. Normally nil." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "*print-level* gets bound to this inside describe. If null, use\n" " *print-level*" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "*print-length* gets bound to this inside describe. If null, use\n" " *print-length*." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Number of spaces that sets off each line of a recursive description." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Used to tell whether we are doing a recursive describe." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Used to implement recursive description cutoff. Don't touch." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "An output stream used by Describe for indenting and stuff." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "List of all objects describe within the current top-level call to describe." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "The last object passed to describe." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Prints a description of the object X." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "*describe-level* should be a nonnegative integer - ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is a ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its code is #x~4,'0x." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its name is ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a ~:[high (leading)~;low (trailing)~] surrogate character." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is a ~(~A~) of type ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is a ~:[~;displaced ~]vector of length ~D." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It has a fill pointer, currently ~d" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It has no fill pointer." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is ~:[an~;a displaced~] array of rank ~A" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~%Its dimensions are ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its element type is specialized to ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is adjustable." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is static." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a prime number." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a composite number." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its components are ~S and ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~S is an ~A hash table." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its size is ~D buckets." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its rehash-size is ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its rehash-threshold is ~S." msgstr "" -#: target:pcl/env.lisp target:code/describe.lisp +#: src/pcl/env.lisp src/code/describe.lisp msgid "~&It currently holds ~d entries." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is weak ~A table." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~d symbols total: ~d internal and ~d external." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~@(~A documentation:~)~& ~A" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its ~(~A~) argument types are:~% ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its result type is:~% ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "" "~&It is currently declared ~(~A~);~\n" "\t\t ~:[no~;~] expansion is available." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~@(~@[~A ~]arguments:~%~)" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid " There are no arguments." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its closure environment is:" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its definition is:~% ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&On ~A it was compiled from:" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~A~% Created: " msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~& Comment: ~A" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid " There is no argument information available." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Macro-function: ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Function: ~S" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~S is a function." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is an unknown type of function." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~A is an ~A symbol in the ~A package." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~A is an uninterned symbol." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&~@<It is an alien at #x~8,'0X of type ~3I~:_~S.~:>~%" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~@<Its current value is ~3I~:_~S.~:>" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a ~A with expansion: ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a ~A; its value is ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is a ~A; no current value." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its declared type is ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Special form" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Structure" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Type" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "Setf macro" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Documentation on the ~(~A~):~%~A" msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It names a class ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It names a PCL class ~A." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It names a type specifier." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&Its ~S property is ~S." msgstr "" -#: target:code/describe.lisp +#: src/code/describe.lisp msgid "~&It is defined in:~&~A" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%That slot is unbound.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%This object contains nothing to inspect.~%~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%Enter a VALID number (~:[0-~D~;0~]).~%~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%Bottom of Stack.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~%Returning to INSPECTOR.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "TTY-Inspector Help:" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " R - recompute current object." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " D - redisplay current object." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " U - Move upward through the object stack." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " <number> - Inspect this slot." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " Q, E - Quit TTY-INSPECTOR." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid " ?, H, Help - Show this help." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Unbound" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~s is a symbol.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Value" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Function" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Plist" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Package" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~s is an instance of ~s.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "- (slot is unbound)" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "~s is a ~(~A~).~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Function ~s.~@[~%Argument List: ~a~]." msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Object is a ~:[~;displaced ~]vector of length ~d.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Object is a LIST of length ~d.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Object is a CONS.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "" "Object is ~:[a displaced~;an~] array of ~a.~%~\n" " Its dimensions are ~s.~%" msgstr "" -#: target:code/tty-inspect.lisp +#: src/code/tty-inspect.lisp msgid "Object is an atom.~%" msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "" "Format-Universal-Time formats a string containing the time and date\n" " given by universal-time in a common manner. The destination is any\n" @@ -12196,27 +12493,27 @@ msgid "" " printing of the obvious part of the time/date." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Not a valid format destination." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Universal-Time should be an integer." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Timezone should be a rational between -24 and 24." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Timezone is not a second (1/3600) multiple." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Unrecognized :style keyword value." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "" "Format-Decoded-Time formats a string containing decoded-time\n" " expressed in a humanly-readable manner. The destination is any\n" @@ -12230,79 +12527,79 @@ msgid "" " parts of the string." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Seconds should be an integer between 0 and 59." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Minutes should be an integer between 0 and 59." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Hours should be an integer between 0 and 23." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Day should be an integer between 1 and 31." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Month should be an integer between 1 and 12." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Hours should be an non-negative integer." msgstr "" -#: target:code/format-time.lisp +#: src/code/format-time.lisp msgid "~A: Timezone should be an integer between 0 and 32." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "" "If t, an error will be signalled if parse-time is unable\n" " to determine the time/date format of the string." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "\"~A\" is not a recognized word or abbreviation." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "" "Can't parse time/date string.~%>>> ~A~\n" "\t\t\t\t ~%~VT^-- Bogus character encountered here." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Unrecognized symbol: ~A" msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "~D is not an AM hour, dummy." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "~A isn't AM/PM - this shouldn't happen." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Invalid number of days (~D) for month ~D in ~D" msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Ignore." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Specified day (~@(~A~)) doesn't match actual day (~@(~A~))" msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "Unrecognized symbol in form list: ~A." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "" "Tries very hard to make sense out of the argument time-string and\n" " returns a single integer representing the universal time if\n" @@ -12315,33 +12612,33 @@ msgid "" " are 00:00:00 on the current date, current time-zone." msgstr "" -#: target:code/parse-time.lisp +#: src/code/parse-time.lisp msgid "\"~A\" is not a recognized time/date format." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Return any available status information on child processed. " msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "List of process structures for all active processes." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "Return the current status of process. The result is one of :running,\n" " :stopped, :exited, :signaled." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Wait for PROC to quit running for some reason. Returns PROC." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "TIOCPGRP ioctl failed: ~S" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "Hand SIGNAL to PROC. If whom is :pid, use the kill Unix system call. If\n" " whom is :process-group, use the killpg Unix system call. If whom is\n" @@ -12350,42 +12647,42 @@ msgid "" " in the foreground." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Returns T if the process is still alive, NIL otherwise." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "Close all streams connected to PROC and stop maintaining the status slot." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "List of file descriptors to close when RUN-PROGRAM exits due to an error." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "List of file descriptors to close when RUN-PROGRAM returns in the parent." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "List of handlers installed by RUN-PROGRAM." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Returns the master fd, the slave fd, and the name of the tty" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not find a pty." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not UNIX:UNIX-DUP ~D: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "" "RUN-PROGRAM creates a new process and runs the unix program in the\n" " file specified by the simple-string PROGRAM. ARGS are the standard\n" @@ -12446,71 +12743,78 @@ msgid "" " process changes. The function takes the process as an argument." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "All args to program must be simple strings -- ~S." msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "No such program: ~S" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not fork child process: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not select on sub-process: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not read input from sub-process: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not open \"/dev/null\": ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not create pipe: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Direction must be either :INPUT or :OUTPUT, not ~S" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not duplicate file descriptor: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Could not open a temporary file in /tmp" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Cound not create pipe: ~A" msgstr "" -#: target:code/run-program.lisp +#: src/code/run-program.lisp msgid "Invalid option to run-program: ~S" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp +msgid "" +"If not NIL, this must be a list of two things:\n" +"a LET-like macro, and a SETQ-like macro, which perform LOOP-style " +"destructuring." +msgstr "" + +#: src/code/loop.lisp msgid "LOOP-BODY called with non-synched before- and after-loop lists." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~?~%Current LOOP context:~{ ~S~}." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "LOOP couldn't verify that ~S is a subtype of the required type ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Specified data type ~S is not a subtype of ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "Causes the iteration to terminate \"normally\", the same as implicit\n" "termination by an iteration driving clause, or by use of WHILE or\n" @@ -12518,226 +12822,226 @@ msgid "" "collected result will be returned as the value of the LOOP." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where LOOP keyword expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Secondary clause misplaced at top level in LOOP macro: ~S ~S ~S ..." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S is an unknown keyword in LOOP macro." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "LOOP source code ran out when another token was expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Compound form expected, but found ~A." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "LOOP code ran out where a form was expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "LOOP clause is providing a value for the iteration,~@\n" "\t however one was already established by a ~S clause." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "~:[This LOOP~;The LOOP ~:*~S~] clause is not permitted inside a conditional." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "This LOOP clause is not permitted with anonymous collectors." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "This anonymous collection LOOP clause is not permitted with aggregate " "booleans." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "~S found where a LOOP keyword, LOOP type keyword, or LOOP type pattern " "expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where a LOOP keyword or LOOP type keyword expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Destructuring type pattern ~S contains unrecognized type keyword ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Destructuring type pattern ~S doesn't match variable pattern ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Duplicated LOOP iteration variable ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Duplicated variable ~S in LOOP parallel binding." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Bad variable ~S somewhere in LOOP." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Variable ~S has already been used" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Invalid LOOP variable passed in: ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where keyword expected getting LOOP clause after ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S does not introduce a LOOP clause that can follow ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S is an invalid name for your LOOP." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "The NAMED ~S clause occurs too late." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "You may only use one NAMED clause in your loop: NAMED ~S ... NAMED ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Value accumulation recipient name, ~S, is not a symbol." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Variable ~S cannot be used in INTO clause" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "Incompatible kinds of LOOP value accumulation specified for collecting~@\n" "\t\t ~:[as the value of the LOOP~;~:*INTO ~S~]: ~S and ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "Unequal datatypes specified in different LOOP value accumulations~@\n" "\t\t into ~S: ~S and ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Iteration in LOOP follows body code." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S is an unknown keyword in FOR or AS clause in LOOP." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Use of QUOTE around stepping function in LOOP will be left verbatim." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where ITS or EACH expected in LOOP iteration path syntax." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Unrecognizable LOOP iteration path syntax. Missing EACH or THE?" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S found where a LOOP iteration path name was expected." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "~S is not the name of a LOOP iteration path." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "\"Inclusive\" iteration is not possible with the ~S LOOP iteration path." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Unused USING variables: ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "Value passed back by LOOP iteration path function for path ~S has invalid " "length." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "A ~S prepositional phrase occurs multiply for some LOOP clause." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Preposition ~S used when some other preposition has subsumed it." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "The variable substitution for ~S occurs twice in a USING phrase,~@\n" "\t\t with ~S and ~S." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "" "~S invalid preposition in sequencing or sequence path.~@\n" "\t Invalid prepositions specified in iteration path descriptor or " "something?" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Conflicting stepping directions in LOOP sequencing path" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Missing OF or IN phrase in sequence path" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Don't know where to start stepping." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Too many prepositions!" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Missing OF or IN in ~S iteration path." msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Unknown preposition ~S" msgstr "" -#: target:code/loop.lisp +#: src/code/loop.lisp msgid "Destructuring is not valid for package symbol iteration." msgstr "" -#: target:code/stream-vector-io.lisp +#: src/code/stream-vector-io.lisp msgid "endian-swap ~a is illegal for element-type of vector ~a" msgstr "" -#: target:code/stream-vector-io.lisp +#: src/code/stream-vector-io.lisp msgid "" "Read from Stream into Vector. The Start and End indices of Vector\n" " is in octets, and must be an multiple of the octets per element of\n" @@ -12745,11 +13049,11 @@ msgid "" " endian swapping to be done. " msgstr "" -#: target:code/stream-vector-io.lisp +#: src/code/stream-vector-io.lisp msgid "Wrong vector type ~a for read-vector on stream ~a." msgstr "" -#: target:code/stream-vector-io.lisp +#: src/code/stream-vector-io.lisp msgid "" "Write Vector to Stream. The Start and End indices of Vector is in\n" " octets, and must be an multiple of the octets per element of the\n" @@ -12757,61 +13061,33 @@ msgid "" " endian swapping to be done. " msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Could not create temporary file ~S: ~A" msgstr "" -#: target:code/foreign.lisp -msgid "Not enough memory left." -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Make sure the header starts with the ELF magic value." msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Return the `osabi' field in the padding of the ELF file." msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Given a file type number, determine whether the file is executable." msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Make sure the header starts with the mach-o magic value." msgstr "" -#: target:code/foreign.lisp -msgid ";;; Loading object file...~%" -msgstr "" - -#: target:code/foreign.lisp -msgid "Could not open ~S: ~A" -msgstr "" - -#: target:code/foreign.lisp -msgid "~A is not an ELF file." -msgstr "" - -#: target:code/foreign.lisp -msgid "~A is not a ~A executable, it's a ~A executable." -msgstr "" - -#: target:code/foreign.lisp -msgid "~A is not executable." -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "" "Parse symbol table file created by load-foreign script. Modified\n" "to skip undefined symbols which don't have an address." msgstr "" -#: target:code/foreign.lisp -msgid ";;; Parsing symbol table...~%" -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "" "Load-foreign loads a list of C object files into a running Lisp. The files\n" " argument should be a single file or a list of files. The files may be\n" @@ -12828,369 +13104,345 @@ msgid "" " the linker. The default is the environment passed to Lisp." msgstr "" -#: target:code/foreign.lisp -msgid ";;; Running library:load-foreign.csh...~%" -msgstr "" - -#: target:code/foreign.lisp -msgid "" -"Object file is wrong format, so can't load-foreign:~\n" -"\t\t ~% ~S" -msgstr "" - -#: target:code/foreign.lisp -msgid "" -"Object file is not relocatable, so can't load-foreign:~\n" -"\t\t ~% ~S" -msgstr "" - -#: target:code/foreign.lisp -msgid "Could not run library:load-foreign.csh" -msgstr "" - -#: target:code/foreign.lisp -msgid "library:load-foreign.csh failed:~%~A" -msgstr "" - -#: target:code/foreign.lisp -msgid ";;; Done.~%" -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Lazy function call binding" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Immediate function call binding" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Mask of binding time value" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "" "If set the symbols of the loaded object and its dependencies are\n" " made visible as if the object were linked directly into the program" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp +msgid "" +"Load C object files into the running Lisp. The FILES argument\n" +"should be a single file or a list of files. The files may be specified\n" +"as namestrings or as pathnames. The LIBRARIES argument should be a\n" +"list of library files as would be specified to ld. They will be\n" +"searched in the order given. The default is just \"-lc\", i.e., the C\n" +"library. The BASE-FILE argument is used to specify a file to use as\n" +"the starting place for defined symbols. The default is the C start up\n" +"code for Lisp. The ENV argument is the Unix environment variable\n" +"definitions for the invocation of the linker. The default is the\n" +"environment passed to Lisp." +msgstr "" + +#: src/code/foreign.lisp msgid "Can't open global symbol table: ~S" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Can't open object ~S: ~S" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "LOAD-OBJECT-FILE: Unresolved symbols in file ~S: ~S" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Couldn't open library ~S: ~S" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Reloaded library ~S~%" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Ignore library and continue" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Try reloading again" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Choose new library path" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Enter new library path: " msgstr "" -#: target:code/foreign.lisp -msgid "" -"Load C object files into the running Lisp. The FILES argument\n" -"should be a single file or a list of files. The files may be specified\n" -"as namestrings or as pathnames. The LIBRARIES argument should be a\n" -"list of library files as would be specified to ld. They will be\n" -"searched in the order given. The default is just \"-lc\", i.e., the C\n" -"library. The BASE-FILE argument is used to specify a file to use as\n" -"the starting place for defined symbols. The default is the C start up\n" -"code for Lisp. The ENV argument is the Unix environment variable\n" -"definitions for the invocation of the linker. The default is the\n" -"environment passed to Lisp." +#: src/code/foreign.lisp +msgid ";;; Opening as shared library ~A ...~%" msgstr "" -#: target:code/foreign.lisp -msgid ";;; Opening as shared library ~A ...~%" +#: src/code/foreign.lisp +msgid ";;; Done.~%" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid ";;; Trying as object file ~A...~%" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid ";;; Running ~A...~%" msgstr "" -#: target:code/foreign.lisp -msgid "File does not exist: ~A." -msgstr "" - -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "Could not run ~A" msgstr "" -#: target:code/foreign.lisp +#: src/code/foreign.lisp msgid "~A failed:~%~A" msgstr "" -#: target:code/internet.lisp +#: src/code/foreign.lisp +msgid "File does not exist: ~A." +msgstr "" + +#: src/code/internet.lisp msgid "AList of socket kinds and protocol values." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Internet protocol :DATA-GRAM is deprecated. Using :DATAGRAM" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Invalid kind (~S) for internet domain sockets." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "" "Return a host-entry for the given host. The host may be an address\n" " string or an IP address in host order." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error creating socket: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error connecting socket to [~A]: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error binding socket to path ~a: ~a" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error listening to socket: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error accepting a connection: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "bind Socket to (local) Host and Port" msgstr "" -#: target:code/internet.lisp -msgid "Unknown host: ~S." +#: src/code/internet.lisp +msgid "Error binding socket to port ~A: ~A" msgstr "" -#: target:code/internet.lisp -msgid "Error binding socket to port ~A: ~A" +#: src/code/internet.lisp +msgid "Unknown host: ~S." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "The host may be an address string or an IP address in host order." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error connecting socket to [~A:~A]: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Get an integer value socket option." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Set an integer value socket option." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error ~S setting socket option on socket ~D." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error closing socket: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Return the peer host address and port in host order." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error ~s getting peer host and port on FD ~d." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error ~s getting socket host and port on FD ~d." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Ignore it" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error recving oob data on ~A: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "No oob handler defined for ~S on ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Got a SIGURG, but couldn't find any out-of-band data." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Arrange to funcall HANDLER when CHAR shows up out-of-band on FD." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Remove any handlers for CHAR on FD." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Remove all handlers for FD." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error sending ~S OOB to across ~A: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "" "A packaging of the unix recvfrom call. Returns three values:\n" "bytecount, source address as integer, and source port. bytecount\n" "can of course be negative, to indicate faults." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "A packaging of the unix sendto call. Return value like sendto" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "" "A packaging of the unix shutdown call. An error is signaled if shutdown " "fails." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Error on shutdown of socket: ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "" "Return a network stream. HOST may be an address string or an integer\n" "IP address." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "Unknown host format: ~S." msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "network connection to ~A" msgstr "" -#: target:code/internet.lisp +#: src/code/internet.lisp msgid "network connection from ~D.~D.~D.~D:~D" msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "The wire the form we are currently evaluating came across." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Unique identifier for this host." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Unique identifier for this process." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Hash table mapping local objects to the corresponding remote id." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Hash table mapping remote id's to the curresponding local object." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Next available id for remote objects." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "There is a problem with ~A." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Received EOF on ~A." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Error ~A ~A: ~A." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Returns T iff the given remote object is defined locally." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Returns T iff the two objects refer to the same (eq) object in the same\n" " process." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Return the associated value for the given remote object. It is an error if\n" " the remote object was not created in this process or if\n" " FORGET-REMOTE-TRANSLATION has been called on this remote object." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "~S is defined is a different process." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Use the value of NIL" msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "No value for ~S -- FORGET-REMOTE-TRANSLATION was called to early." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Convert the given local object to a remote object." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Forget the translation from the given local to the corresponding remote\n" "object. Passing that remote object to remote-object-value will new return " "NIL." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Return T iff anything is in the input buffer or available on the socket." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "listening to" msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Read data off the socket, filling the input buffer. The buffer is cleared\n" "first. If fill-input-buffer returns, it is guarenteed that there will be at\n" @@ -13198,15 +13450,15 @@ msgid "" "is signaled." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "reading" msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Return the next byte from the wire." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Read a number off the wire. Numbers are 4 bytes in network order.\n" "The optional argument controls weather or not the number should be " @@ -13214,96 +13466,92 @@ msgid "" "signed (defaults to T)." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Reads an arbitrary integer sent by WIRE-OUTPUT-BIGNUM from the wire and\n" " return it." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Reads a string from the wire. The first four bytes spec the size." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Reads the next object from the wire and returns it." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Attempt to read symbol, ~A, of wire into non-existent ~\n" "\t\t package, ~A." msgstr "" -#: target:code/wire.lisp -msgid "writing" -msgstr "" - -#: target:code/wire.lisp -msgid "Not everything wrote." -msgstr "" - -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Send any info still in the output buffer down the wire and clear it. " "Nothing\n" "harmfull will happen if called when the output buffer is empty." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp +msgid "writing" +msgstr "" + +#: src/code/wire.lisp +msgid "Not everything wrote." +msgstr "" + +#: src/code/wire.lisp msgid "Output the given (8-bit) byte on the wire." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Output the given (32-bit) number on the wire." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Outputs an arbitrary integer, but less effeciently than WIRE-OUTPUT-NUMBER." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Output the given string. First output the length using WIRE-OUTPUT-NUMBER,\n" "then output the bytes." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "" "Output the given object on the given wire. If cache-it is T, enter this\n" "object in the cache for future reference." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Error: Cannot output objects of type ~s across a wire." msgstr "" -#: target:code/wire.lisp +#: src/code/wire.lisp msgid "Send the function and args down the wire as a funcall." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "AList of wire . remote-wait structs" msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Evaluates the given forms remotly. No values are returned, as the remote\n" "evaluation is asyncronus." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Bind VARS to the multiple values of FORM (which is executed remotely). The\n" "forms in BODY are only executed if the remote function returned (as apposed\n" "to aborting due to a throw)." msgstr "" -#: target:code/remote.lisp -msgid "Remote server unwound" -msgstr "" - -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Execute the single form remotly. The value of the form is returned.\n" " The optional form on-server-unwind is only evaluated if the server " @@ -13311,7 +13559,7 @@ msgid "" " instead of returning." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Create a request server on the given port. Whenever anyone connects to it,\n" " call the given function with the newly created wire and the address of " @@ -13322,51 +13570,47 @@ msgid "" " DESTROY-REQUEST-SERVER accepts to kill the request server." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "Quit accepting connections to the given request server." msgstr "" -#: target:code/remote.lisp +#: src/code/remote.lisp msgid "" "Connect to a remote request server addressed with the given host and port\n" " pair. This returns the created wire." msgstr "" -#: target:code/setf-funs.lisp -msgid "Hairy setf expander for function ~S." -msgstr "" - -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "Controls compiling DEFSTRUCT :print-function and :print-method\n" " options according to ANSI spec. MUST be NIL to compile CMUCL & PCL" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Allocate a new instance with LENGTH data slots." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Given an instance, return its length." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Return the value from the INDEXth slot of INSTANCE. This is SETFable." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Set the INDEXth slot of INSTANCE to NEW-VALUE." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Class not yet defined or was undefined: ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Class is not a structure class: ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "DEFSTRUCT {Name | (Name Option*)} {Slot | (Slot [Default] {Key Value}*)}\n" " Define the structure type Name. Instances are created by MAKE-<name>, " @@ -13401,110 +13645,110 @@ msgid "" " If true, no setter function is defined for this slot." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "defining structure ~A" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Disable package's definition lock then continue" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Defstruct already names a declaration: ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Can't have more than one :INCLUDE option." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "~S is a bad :TYPE for Defstruct." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "The Defstruct option :NAMED takes no arguments." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Unknown DEFSTRUCT option~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Unrecognized DEFSTRUCT option: ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Can't specify :OFFSET unless :TYPE is specified." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Silly to specify :PRINT-FUNCTION with :TYPE." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Silly to specify :MAKE-LOAD-FORM-FUN with :TYPE." msgstr "" -#: target:code/defstruct.lisp -msgid "" -"Keyword slot name indicates probable syntax ~\n" -"\t\t error in DEFSTRUCT -- ~S." -msgstr "" - -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Duplicate slot name ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Slot ~S must be read-only in subtype ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp +msgid "" +"Keyword slot name indicates probable syntax ~\n" +"\t\t error in DEFSTRUCT -- ~S." +msgstr "" + +#: src/code/defstruct.lisp msgid ":TYPE option mismatch between structures ~S and ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid ":TYPE'd defstruct ~S not found for inclusion." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "(:CONSTRUCTOR NIL) combined with other :CONSTRUCTORs." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "~@<Non-overwritten accessor ~S does not access ~\n" " slot with name ~S (accessing an inherited slot ~\n" " instead).~:@>" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Obsolete structure accessor function called." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Structure for accessor ~S is not a ~S:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Structure for setter ~S is not a ~S:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "New-Value for setter ~S is not a ~S:~% ~S." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Structure for copier is not a ~S:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "Shouldn't happen! Some strange thing in LAYOUT-INFO:~\n" "\t\t ~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "Incompatibly redefining slots of structure class ~S~@\n" "\t Make sure any uses of affected accessors are recompiled:~@\n" @@ -13513,165 +13757,149 @@ msgid "" "\t ~@[ These slots were deleted:~% ~S~%~]" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "Redefining class ~S incompatibly with the current ~\n" "\t\tdefinition." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Invalidate already loaded code and instances, use new definition." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Previously loaded ~S accessors will no longer work." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "" "Any old ~S instances will be in a bad way.~@\n" "\t I hope you know what you're doing..." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Removing old subclasses of ~S:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Return a copy of Structure with the same (EQL) slot values." msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Copying an obsolete structure:~% ~S" msgstr "" -#: target:code/defstruct.lisp +#: src/code/defstruct.lisp msgid "Structures of type ~S cannot be dumped as constants." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "A list of tests that do argument counting at expansion time." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Let bindings that are done to make lambda-list parsing possible." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Let bindings that the user has explicitly supplied." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Unsupplied optional and keyword arguments get this value defaultly." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "" "Returns as multiple-values a parsed body, any local-declarations that\n" " should be made where this body is inserted, and a doc-string if there is\n" " one." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "&Whole must appear first in ~S lambda-list." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "&environment not valid with ~S." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "&environment only valid at top level of lambda-list." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Invalid ~a" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Ignore extra noise." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "" "More than variable, initform, and suppliedp ~\n" "\t\t\t in &optional binding - ~S" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Non-symbol in lambda-list - ~S." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Illegal optional variable name: ~S" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "" "Takes a non-keyword symbol, symbol, and returns the corresponding keyword." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Illegal or ill-formed ~A argument in ~A~@[ ~S~]." msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Error while parsing arguments to ~A in ~S:~%" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Error while parsing arguments to ~A ~S:~%" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Bogus sublist:~% ~S~%to satisfy lambda-list:~% ~:S~%" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "" "Invalid number of elements in:~% ~:S~%~\n" "\t to satisfy lambda-list:~% ~:S~%" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Expected at least ~D" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Expected exactly ~D" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid "Expected between ~D and ~D" msgstr "" -#: target:code/defmacro.lisp +#: src/code/defmacro.lisp msgid ", but got ~D." msgstr "" -#: target:compiler/globaldb.lisp -msgid "Type not defined yet." -msgstr "" - -#: target:compiler/globaldb.lisp -msgid "~S is not a defined info class." -msgstr "" - -#: target:compiler/globaldb.lisp -msgid "~S is not a defined info type." -msgstr "" - -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "Define-Info-Class Class\n" " Define a new class of global information." msgstr "" -#: target:compiler/globaldb.lisp -msgid "Out of INFO type numbers!" -msgstr "" - -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "Define-Info-Type Class Type default Type-Spec\n" " Define a new type of global information for Class. Type is the symbol " @@ -13687,23 +13915,39 @@ msgid "" " value of Info will also be true." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp +msgid "Type not defined yet." +msgstr "" + +#: src/compiler/globaldb.lisp +msgid "~S is not a defined info class." +msgstr "" + +#: src/compiler/globaldb.lisp +msgid "~S is not a defined info type." +msgstr "" + +#: src/compiler/globaldb.lisp +msgid "Out of INFO type numbers!" +msgstr "" + +#: src/compiler/globaldb.lisp msgid "Redefine it." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "Changing type number for ~A ~A." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "Go for it." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "Reusing type number for ~A ~A." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "Return the information of the specified Type and Class for Name.\n" " The second value is true if there is any such information recorded. If\n" @@ -13712,11 +13956,11 @@ msgid "" " is NIL." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "Set the global information for Name." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "DO-INFO (Env &Key Name Class Type Value) Form*\n" " Iterate over all the values stored in the Info-Env Env. Name is bound to\n" @@ -13724,32 +13968,32 @@ msgid "" " (represented as strings), and Value is bound to the entry's value." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "Return a new compact info environment that holds the same information as\n" " Env." msgstr "" -#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp +#: src/compiler/knownfun.lisp src/compiler/globaldb.lisp msgid "No info environment?" msgstr "" -#: target:compiler/knownfun.lisp target:compiler/globaldb.lisp +#: src/compiler/knownfun.lisp src/compiler/globaldb.lisp msgid "Cannot modify this environment: ~S." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "0 is not a legal INFO name." msgstr "" -#: target:compiler/globaldb.lisp +#: src/compiler/globaldb.lisp msgid "" "Clear the information of the specified Type and Class for Name in the\n" " current environment, allowing any inherited info to become visible. We\n" " return true if there was any info." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "This function is to parse the declarations and doc-string out of the body " "of\n" @@ -13764,91 +14008,87 @@ msgid "" " and the doc-string, or NIL if none." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "defining macro ~A" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Disable the package's definition-lock then continue" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Define a compiler-macro for NAME." msgstr "" -#: target:compiler/ir1tran.lisp target:code/macros.lisp +#: src/compiler/ir1tran.lisp src/code/macros.lisp msgid "Symbol macro name is not a symbol: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Symbol macro name already declared special: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Symbol macro name already declared constant: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Syntax like DEFMACRO, but defines a new type." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~S -- Type name not a symbol." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "defining type ~A" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Disable package's definition-lock then continue" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Deftype already names a declaration: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Illegal to redefine standard type: ~S." msgstr "" -#: target:code/macros.lisp -msgid "Redefining class ~S to be a DEFTYPE." -msgstr "" - -#: target:code/macros.lisp -msgid "Setf expander for ~S cannot be called with ~S args." +#: src/code/macros.lisp +msgid "Redefining class ~S to be a DEFTYPE." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Syntax like DEFMACRO, but creates a Setf-Expansion generator. The body\n" " must be a form that returns the five magical values." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~S -- Access-function name not a symbol in DEFINE-SETF-EXPANDER." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Obsolete, use define-setf-expander." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Defining setf macro for destruct slot accessor; redefining as ~\n" "\t a normal function:~% ~S" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Defining setf macro for ~S, but ~S is fbound." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Bind the variables in LAMBDA-LIST to the contents of ARG-LIST." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "For defining global constants at top level. The DEFCONSTANT says that the\n" " value is constant and may be compiled into code. If the variable already " @@ -13858,15 +14098,15 @@ msgid "" " argument is an optional documentation string for the variable." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Go ahead and change the value." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Constant ~S being redefined." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "For defining global variables at top level. Declares the variable\n" " SPECIAL and, optionally, initializes it. If the variable already has a\n" @@ -13874,7 +14114,7 @@ msgid "" " documentation string for the variable." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Defines a parameter that is not normally changed by the program,\n" " but that may be changed without causing an error. Declares the\n" @@ -13882,33 +14122,33 @@ msgid "" " an optional documentation string for the parameter." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "First arg is a predicate. If it is non-null, the rest of the forms are\n" " evaluated as a PROGN." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "First arg is a predicate. If it is null, the rest of the forms are\n" " evaluated as a PROGN." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Cond clause is not a list: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Varlist is not a list of symbols: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Evaluates FORM and returns the Nth value (zero based). This involves no\n" " consing when N is a trivial constant integer." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Returns five values needed by the SETF machinery: a list of temporary\n" " variables, a list of values with which to fill them, a list of " @@ -13916,32 +14156,32 @@ msgid "" " for the new values, the setting function, and the accessing function." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Obsolete: use GET-SETF-EXPANSION." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Obsolete: use GET-SETF-EXPANSION and handle multiple store values." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "GET-SETF-METHOD used for a form with multiple store ~\n" "\t variables:~% ~S" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Associates a SETF update function or macro with the specified access\n" " function or macro. The format is complex. See the manual for\n" " details." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Ill-formed DEFSETF for ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Takes pairs of arguments like SETQ. The first is a place and the second\n" " is the value that is supposed to go into that place. Returns the last\n" @@ -13949,11 +14189,11 @@ msgid "" " knows a corresponding setting form." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Odd number of args to SETF." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "This is to SETF as PSETQ is to SETQ. Args are alternating place\n" " expressions and values to go into those places. All of the subforms and\n" @@ -13961,11 +14201,11 @@ msgid "" " updated. Returns NIL." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Odd number of args to PSETF." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "One or more SETF-style place expressions, followed by a single\n" " value expression. Evaluates all of the expressions in turn, then\n" @@ -13973,7 +14213,7 @@ msgid "" " returning the value of the leftmost." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Takes any number of SETF-style place expressions. Evaluates all of the\n" " expressions in turn, then assigns to each place the value of the form to\n" @@ -13981,33 +14221,33 @@ msgid "" " Returns NIL." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Creates a new read-modify-write macro like PUSH or INCF." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Non-symbol &rest arg in definition of ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Illegal stuff after &rest arg in Define-Modify-Macro." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~S not allowed in Define-Modify-Macro lambda list." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Illegal stuff in lambda list of Define-Modify-Macro." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Takes an object and a location holding a list. Conses the object onto\n" " the list, returning the modified list. OBJ is evaluated before PLACE." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Takes an object and a location holding a list. If the object is already\n" " in the list, does nothing. Else, conses the object onto the list. " @@ -14015,25 +14255,25 @@ msgid "" " NIL. If there is a :TEST keyword, this is used for the comparison." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The argument is a location holding a list. Pops one item off the front\n" " of the list and returns it." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The first argument is some location holding a number. This number is\n" " incremented by the second argument, DELTA, which defaults to 1." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The first argument is some location holding a number. This number is\n" " decremented by the second argument, DELTA, which defaults to 1." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Place may be any place expression acceptable to SETF, and is expected\n" " to hold a property list or (). This list is destructively altered to\n" @@ -14041,18 +14281,18 @@ msgid "" " property was present, NIL if not." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Setf of Apply is only defined for function args like #'symbol." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The first argument is a byte specifier. The second is any place form\n" " acceptable to SETF. Replaces the specified byte of the number in this\n" " place with bits from the low-order end of the new value." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The first argument is a byte specifier. The second is any place form\n" " acceptable to SETF. Replaces the specified byte of the number in this " @@ -14060,27 +14300,27 @@ msgid "" " with bits from the corresponding position in the new value." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~S -- Bad clause in ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "No default clause allowed in ~S: ~S" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "T and OTHERWISE may not be used as key designators for ~A" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Bad style to use T or OTHERWISE in ECASE or CCASE" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Supply a new value for ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "CASE Keyform {({(Key*) | Key} Form*)}*\n" " Evaluates the Forms in the first clause with a Key EQL to the value\n" @@ -14088,7 +14328,7 @@ msgid "" " a default clause." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "CCASE Keyform {({(Key*) | Key} Form*)}*\n" " Evaluates the Forms in the first clause with a Key EQL to the value of\n" @@ -14096,14 +14336,14 @@ msgid "" " signalled." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "ECASE Keyform {({(Key*) | Key} Form*)}*\n" " Evaluates the Forms in the first clause with a Key EQL to the value of\n" " Keyform. If none of the keys matches then an error is signalled." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "TYPECASE Keyform {(Type Form*)}*\n" " Evaluates the Forms in the first clause for which TYPEP of Keyform\n" @@ -14111,7 +14351,7 @@ msgid "" " clause is a default clause." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "CTYPECASE Keyform {(Type Form*)}*\n" " Evaluates the Forms in the first clause for which TYPEP of Keyform and " @@ -14119,7 +14359,7 @@ msgid "" " is true. If no form is satisfied then a correctable error is signalled." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "ETYPECASE Keyform {(Type Form*)}*\n" " Evaluates the Forms in the first clause for which TYPEP of Keyform and " @@ -14127,7 +14367,7 @@ msgid "" " is true. If no form is satisfied then an error is signalled." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Signals an error if the value of test-form is nil. Continuing from this\n" " error using the CONTINUE restart will allow the user to alter the value " @@ -14135,50 +14375,50 @@ msgid "" " some locations known to SETF, starting over with test-form. Returns nil." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "The assertion ~S failed." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Retry assertion" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid " with new value for ~{~S~^, ~}." msgid_plural " with new values for ~{~S~^, ~}." msgstr[0] "" msgstr[1] "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The old value of ~S is ~S.~\n" "\t\t ~%Do you want to supply a new value? " msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "~&Type a form to be evaluated:~%" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Signals an error of type type-error if the contents of place are not of the\n" " specified type. If an error is signaled, this can only return if\n" " STORE-VALUE is invoked. It will store into place and start over." msgstr "" -#: target:code/macros.lisp -msgid "The value of ~S is ~S, which is not ~A." +#: src/code/macros.lisp +msgid "Supply a new value of ~S." msgstr "" -#: target:code/macros.lisp -msgid "The value of ~S is ~S, which is not of type ~S." +#: src/code/macros.lisp +msgid "The value of ~S is ~S, which is not ~A." msgstr "" -#: target:code/macros.lisp -msgid "Supply a new value of ~S." +#: src/code/macros.lisp +msgid "The value of ~S is ~S, which is not of type ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The file whose name is Filespec is opened using the Open-args and\n" " bound to the variable Var. If the call to open is unsuccessful, the\n" @@ -14186,27 +14426,27 @@ msgid "" " terminate, normally or otherwise, the file is closed." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "The form stream should evaluate to a stream. VAR is bound\n" " to the stream and the forms are evaluated as an implicit\n" " progn. The stream is closed upon exit." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Binds the Var to an input stream that returns characters from String and\n" " executes the body. See manual for details." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "If STRING is specified, it must be a string with a fill pointer;\n" " the output is incrementally appended to the string (as if by use of\n" " VECTOR-PUSH-EXTEND)." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "DO ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n" " Iteration construct. Each Var is initialized in parallel to the value of " @@ -14222,7 +14462,7 @@ msgid "" " used as an laternate exit mechanism." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "DO* ({(Var [Init] [Step])}*) (Test Exit-Form*) Declaration* Form*\n" " Iteration construct. Each Var is initialized sequentially (like LET*) to " @@ -14236,7 +14476,7 @@ msgid "" " allowing RETURN to be used as an laternate exit mechanism." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "PSETQ {var value}*\n" " Set the variables to the values, like SETQ, except that assignments\n" @@ -14244,21 +14484,21 @@ msgid "" " forms have been evaluated." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "variable ~S in PSETQ is not a SYMBOL" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Unknown declaration context: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "Context declaration spec should have context and at ~\n" "\t least one DECLARE form:~% ~S" msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "" "WITH-COMPILATION-UNIT ({Key Value}*) Form*\n" " This form affects compilations that take place within its dynamic extent. " @@ -14327,15 +14567,72 @@ msgid "" "\t etc." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Odd number of key/value pairs: ~S." msgstr "" -#: target:code/macros.lisp +#: src/code/macros.lisp msgid "Ignoring unknown option: ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/code/intl.lisp +msgid "" +"The message-lookup domain used by INTL:GETTEXT and INTL:NGETTEXT.\n" +" Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this." +msgstr "" + +#: src/code/intl.lisp +msgid "Encountered illegal token: =" +msgstr "" + +#: src/code/intl.lisp +msgid "Encountered illegal token: ~C" +msgstr "" + +#: src/code/intl.lisp +msgid "Expected : in ?: construct" +msgstr "" + +#: src/code/intl.lisp +msgid "Expected close-paren." +msgstr "" + +#: src/code/intl.lisp +msgid "Unexpected token: ~S." +msgstr "" + +#: src/code/intl.lisp +msgid "Expecting end of expression. ~S." +msgstr "" + +#: src/code/intl.lisp +msgid "" +"Look up STRING in the current message domain and return its translation." +msgstr "" + +#: src/code/intl.lisp +msgid "Look up the singular or plural form of a message in the current domain." +msgstr "" + +#: src/code/intl.lisp +msgid "" +"Look up STRING in the specified message domain and return its translation." +msgstr "" + +#: src/code/intl.lisp +msgid "" +"Look up the singular or plural form of a message in the specified domain." +msgstr "" + +#: src/code/intl.lisp +msgid "_@ is a reserved reader macro prefix." +msgstr "" + +#: src/code/intl.lisp +msgid "~&Dumping ~D messages for domain ~S~%" +msgstr "" + +#: src/compiler/macros.lisp msgid "" "Policy Node Condition*\n" " Test whether some conditions apply to the current compiler policy for " @@ -14355,11 +14652,11 @@ msgid "" " conversion." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Can't funcall the SYMBOL-FUNCTION of special forms." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Def-IR1-Translator Name (Lambda-List Start-Var Cont-Var {Key Value}*)\n" " [Doc-String] Form*\n" @@ -14373,12 +14670,7 @@ msgid "" " The function kind to associate with Name (default :special-form)." msgstr "" -#: target:compiler/ir2tran.lisp target:compiler/ltv.lisp -#: target:compiler/ir1tran.lisp target:compiler/macros.lisp -msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A." -msgstr "" - -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Def-Source-Transform Name Lambda-List Form*\n" " Define a macro-like source-to-source transformation for the function " @@ -14402,14 +14694,14 @@ msgid "" " parameters, then the Policy macro should be used to determine when to pass." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Def-Primitive-Translator Name Lambda-List Form*\n" " Define a function that converts a use of (%PRIMITIVE Name ...) into Lisp\n" " code. Lambda-List is a defmacro style lambda list." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Deftransform Name (Lambda-List [Arg-Types] [Result-Type] {Key Value}*)\n" " Declaration* [Doc-String] Form*\n" @@ -14492,11 +14784,11 @@ msgid "" " byte-code or both (default :native.)" msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Can't specify both DEFUN-ONLY and EVAL-NAME." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Defknown Name Arg-Types Result-Type [Attributes] {Key Value}* \n" " Declare the function Name to be a known function. We construct a type\n" @@ -14553,11 +14845,11 @@ msgid "" " optimizers that the function might have." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Function cannot have both good and bad attributes: ~S" msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Defoptimizer (Function Kind) (Lambda-List [Node-Var] Var*)\n" " Declaration* Form*\n" @@ -14584,7 +14876,7 @@ msgid "" " argument." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Blocks (Block-Var Component [Ends] [Result-Form]) {Declaration}* {Form}*\n" " Iterate over the blocks in a component, binding Block-Var to each block " @@ -14600,25 +14892,25 @@ msgid "" " If supplied, Result-Form is the value to return." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Losing Ends value: ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Blocks-Backwards (Block-Var Component [Ends] [Result-Form]) {Declaration}" "* {Form}*\n" " Like Do-Blocks, only iterate over the blocks in reverse order." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Uses (Node-Var Continuation [Result]) {Declaration}* {Form}*\n" " Iterate over the uses of Continuation, binding Node to each one " "succesively." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Nodes (Node-Var Cont-Var Block {Key Value}*) {Declaration}* {Form}*\n" " Iterate over the nodes in Block, binding Node-Var to the each node and\n" @@ -14628,13 +14920,13 @@ msgid "" " not supplied, this is an error.)" msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Do-Nodes-Backwards (Node-Var Cont-Var Block) {Declaration}* {Form}*\n" " Like Do-Nodes, only iterates in reverse order." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "With-IR1-Environment Node Form*\n" " Bind the IR1 context variables so that IR1 conversion can be done after " @@ -14642,7 +14934,7 @@ msgid "" " main conversion pass has finished." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "LEXENV-FIND Name Slot {Key Value}*\n" " Look up Name in the lexical environment namespace designated by Slot,\n" @@ -14650,11 +14942,11 @@ msgid "" " may be used to determine the name equality predicate." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "If true, defprinter print functions print each slot on a separate line." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Defprinter Name Slot-Desc*\n" " Define some kind of reasonable defstruct structure-print function. Name\n" @@ -14679,15 +14971,36 @@ msgid "" " Stream." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Losing Defprinter option: ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Unknown attribute name: ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp +msgid "" +"Automagically generated boolean attribute test function. See\n" +"\t Def-Boolean-Attribute." +msgstr "" + +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp +msgid "" +"Automagically generated boolean attribute setter. See\n" +"\t Def-Boolean-Attribute." +msgstr "" + +#: src/compiler/knownfun.lisp src/compiler/new-assem.lisp +#: src/compiler/vmdef.lisp src/compiler/node.lisp src/compiler/macros.lisp +msgid "" +"Automagically generated boolean attribute creation function. See\n" +"\t Def-Boolean-Attribute." +msgstr "" + +#: src/compiler/macros.lisp msgid "" "Def-Boolean-Attribute Name Attribute-Name*\n" " Define a new class of boolean attributes, with the attributes havin the\n" @@ -14706,59 +15019,41 @@ msgid "" " Return a set of the named attributes." msgstr "" -#: target:compiler/macros.lisp -msgid "" -"Automagically generated boolean attribute test function. See\n" -"\t Def-Boolean-Attribute." -msgstr "" - -#: target:compiler/macros.lisp -msgid "" -"Automagically generated boolean attribute setter. See\n" -"\t Def-Boolean-Attribute." -msgstr "" - -#: target:compiler/macros.lisp -msgid "" -"Automagically generated boolean attribute creation function. See\n" -"\t Def-Boolean-Attribute." -msgstr "" - -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Returns the union of all the sets of boolean attributes which are its\n" " arguments." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Returns the intersection of all the sets of boolean attributes which are " "its\n" " arguments." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Returns true if the attributes present in Attr1 are indentical to those in\n" " Attr2." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "~S is not the name of an event." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Return the number of times that Event has happened." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Return the function that is called when Event happens. If this is null,\n" " there is no action. The function is passed the node to which the event\n" " happened, or NIL if there is no relevant node. This may be set with SETF." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Return the non-negative integer which represents the level of significance\n" " of the event Name. This is used to determine whether to print a message " @@ -14766,7 +15061,7 @@ msgid "" " the event happens. This may be set with SETF." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Defevent Name Description\n" " Define a new kind of event. Name is a symbol which names the event and\n" @@ -14776,13 +15071,13 @@ msgid "" " whether to print a Note when the event happens." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "This variable is a non-negative integer specifying the lowest level of\n" " event that will print a Note when it occurs." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Event Name Node\n" " Note that the event with the specified Name has happened. Node is " @@ -14790,7 +15085,7 @@ msgid "" " to determine the node to which the event happened." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Print a listing of events and their counts, sorted by the count. Events\n" " that happened fewer than Min-Count times will not be printed. Stream is " @@ -14798,20 +15093,19 @@ msgid "" " stream to write to." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Find Element in a null-terminated List linked by the accessor function\n" " Next. Key, Test and Test-Not are the same as for generic sequence\n" " functions." msgstr "" -#: target:compiler/debug.lisp target:compiler/pack.lisp -#: target:compiler/represent.lisp target:compiler/copyprop.lisp -#: target:compiler/life.lisp target:compiler/macros.lisp +#: src/compiler/debug.lisp src/compiler/pack.lisp src/compiler/represent.lisp +#: src/compiler/copyprop.lisp src/compiler/life.lisp src/compiler/macros.lisp msgid "Silly to supply both :Test and :Test-Not." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Return the position of Element (or NIL if absent) in a null-terminated List\n" " linked by the accessor function Next. Key, Test and Test-Not are the same " @@ -14819,13 +15113,13 @@ msgid "" " for generic sequence functions." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Map Function over the elements in a null-terminated List linked by the\n" " accessor function Next, returning a list of the results." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Deletef-In Next Place Item\n" " Delete Item from a null-terminated list linked by the accessor function " @@ -14833,203 +15127,288 @@ msgid "" " that is stored in Place. Item must appear exactly once in the list." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Push Item onto a list linked by the accessor function Next that is stored " "in\n" " Place." msgstr "" -#: target:compiler/debug-dump.lisp target:compiler/checkgen.lisp -#: target:compiler/ir1util.lisp target:compiler/meta-vmdef.lisp -#: target:compiler/macros.lisp -msgid "Shouldn't happen?" -msgstr "" - -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "Redefining modular version ~S of ~S for width ~S." msgstr "" -#: target:compiler/macros.lisp +#: src/compiler/macros.lisp msgid "" "Lambda list keyword ~S is not supported for ~\n" " modular function lambda lists." msgstr "" -#: target:compiler/generic/vm-macs.lisp +#: src/compiler/generic/vm-macs.lisp msgid "No more slots can follow a :rest-p slot." msgstr "" -#: target:compiler/generic/vm-macs.lisp +#: src/compiler/generic/vm-macs.lisp msgid "" "Number of slots used by each ~S~\n" "\t\t\t\t ~@[~* including the header~]." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "" "Machine specific support routine ~S ~\n" "\t\t\t\t undefined for ~S" msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "Unknown VM support routine: ~A" msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "The backend for the machine we are running on. Do not change this." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "The backend we are attempting to compile." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "The backend we are using to compile with." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "Compute the *FEATURES* list to use with BACKEND." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "" "Same as EXT:FEATUREP, except use the features found in *TARGET-BACKEND*." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "Same as EXT:FEATUREP, except use the features found in *BACKEND*." msgstr "" -#: target:compiler/backend.lisp +#: src/compiler/backend.lisp msgid "" "Same as EXT:FEATUREP, except use the features found in *NATIVE-BACKEND*." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/x86/parms.lisp +msgid "Number of bits per word where a word holds one lisp descriptor." +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "" +"Number of bits per byte where a byte is the smallest addressable object." +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "Number of bits needed to represent a character" +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "Number of bytes needed to represent a character" +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "Number of bits to shift between word addresses and byte addresses." +msgstr "" + +#: src/compiler/x86/parms.lisp +msgid "Number of bytes in a word." +msgstr "" + +#: src/compiler/generic/objdef.lisp msgid "Number of bits at the low end of a pointer used for type information." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "Mask to extract the low tag bits from a pointer." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "" "Exclusive upper bound on the value of the low tag bits from a\n" " pointer." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "Number of bits used in the header word of a data block for typeing." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "Mask to extract the type from a header word." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "most-positive-fixnum in the target architecture." msgstr "" -#: target:compiler/generic/objdef.lisp +#: src/compiler/generic/objdef.lisp msgid "most-negative-fixnum in the target architecture." msgstr "" -#: target:compiler/generic/interr.lisp -msgid "Unknown internal error: ~S" +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each CONS." msgstr "" -#: target:compiler/bit-util.lisp -msgid "local-tn-limit not a vm:word-bits multiple." +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each RATIO including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each SINGLE-FLOAT including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each DOUBLE-FLOAT including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each COMPLEX including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each FDEFN including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each VALUE-CELL including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each SAP including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each WEAK-POINTER including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each SCAVENGER-HOOK including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each BINDING." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each UNWIND-BLOCK." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each CATCH-BLOCK." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each SYMBOL including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each COMPLEX-SINGLE-FLOAT including the header." msgstr "" -#: target:compiler/pack.lisp target:compiler/generic/vm-tran.lisp -#: target:compiler/life.lisp target:compiler/bit-util.lisp +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each COMPLEX-DOUBLE-FLOAT including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp +msgid "Number of slots used by each DOUBLE-DOUBLE-FLOAT including the header." +msgstr "" + +#: src/compiler/generic/objdef.lisp msgid "" -"Argument and/or result bit arrays not the same length:~\n" -"\t\t\t ~% ~S~% ~S ~% ~S" +"Number of slots used by each COMPLEX-DOUBLE-DOUBLE-FLOAT including the " +"header." msgstr "" -#: target:compiler/ctype.lisp -msgid "Function has an odd number of arguments in the keyword portion." +#: src/compiler/generic/interr.lisp +msgid "Unknown internal error: ~S" msgstr "" -#: target:compiler/ctype.lisp -msgid "Can't tell whether the result is a ~S." +#: src/compiler/bit-util.lisp +msgid "local-tn-limit not a vm:word-bits multiple." msgstr "" -#: target:compiler/ctype.lisp -msgid "The result is a ~S, not a ~S." +#: src/compiler/pack.lisp src/compiler/life.lisp src/compiler/bit-util.lisp +msgid "" +"Argument and/or result bit arrays not the same length:~\n" +"\t\t\t ~% ~S~% ~S ~% ~S" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp #, fuzzy msgid "Function called with ~R argument, but wants exactly ~R." msgid_plural "Function called with ~R arguments, but wants exactly ~R." msgstr[0] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" msgstr[1] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp #, fuzzy msgid "Function called with ~R argument, but wants at least ~R." msgid_plural "Function called with ~R arguments, but wants at least ~R." msgstr[0] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" msgstr[1] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp #, fuzzy msgid "Function called with ~R argument, but wants at most ~R." msgid_plural "Function called with ~R arguments, but wants at most ~R." msgstr[0] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" msgstr[1] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp +msgid "Function has an odd number of arguments in the keyword portion." +msgstr "" + +#: src/compiler/ctype.lisp +msgid "Can't tell whether the result is a ~S." +msgstr "" + +#: src/compiler/ctype.lisp +msgid "The result is a ~S, not a ~S." +msgstr "" + +#: src/compiler/ctype.lisp msgid "Can't tell whether the ~:R argument is a ~S." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument is a ~S, not a ~S." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument never returns a value." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument is not a constant." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "" "Can't tell whether the ~:R argument is a ~\n" "\t\t constant ~S:~% ~S" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument is not a constant ~S:~% ~S" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The ~:R argument (in keyword position) is not a constant." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "The value of ~S is not a constant" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "~S is not a known argument keyword." msgstr "" -#: target:compiler/ctype.lisp -#, fuzzy -msgid "" -"Function previously called with an odd number of arguments in ~\n" -"\t the keyword portion." -msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" - -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp #, fuzzy msgid "Function previously called with ~R argument, but wants at least ~R." msgid_plural "" @@ -15037,7 +15416,7 @@ msgid_plural "" msgstr[0] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" msgstr[1] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp #, fuzzy msgid "Function previously called with ~R argument, but wants at most ~R." msgid_plural "" @@ -15045,115 +15424,120 @@ msgid_plural "" msgstr[0] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" msgstr[1] "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp +#, fuzzy +msgid "" +"Function previously called with an odd number of arguments in ~\n" +"\t the keyword portion." +msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" + +#: src/compiler/ctype.lisp msgid "Can't tell whether previous ~? argument type ~S is a ~S." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "~:(~?~) argument should be a ~S but was a ~S in a previous call." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Function previously called with unknown argument keyword ~S." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "" "Definition's declared type for variable ~A:~% ~S~@\n" "\t\t conflicts with this type from ~A:~% ~S" msgstr "" -#. Translate FIXED above appropriately. -#: target:compiler/ctype.lisp +#. updated to allow better translations. +#: src/compiler/ctype.lisp +msgid "Definition has ~R ~A arg, but ~A has ~R." +msgid_plural "Definition has ~R ~A args, but ~A has ~R." +msgstr[0] "" +msgstr[1] "" + +#: src/compiler/ctype.lisp msgid "fixed" msgstr "" -#. Translate OPTIONAL above appropriately. -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "optional" msgstr "" -#. updated to allow better translations. -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "" "Definition ~:[doesn't have~;has~] ~A, but ~\n" "\t\t~A ~:[doesn't~;does~]." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "keyword args" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "rest args" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Defining a ~S keyword not present in ~A." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Definition lacks the ~S keyword present in ~A." msgstr "" -#: target:compiler/ctype.lisp -msgid "Definition has ~R ~A arg, but ~A has ~R." -msgid_plural "Definition has ~R ~A args, but ~A has ~R." -msgstr[0] "" -msgstr[1] "" - -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Definition has no ~A, but the ~A did." msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "optional args" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "rest arg" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "Definition has ~R arg, but the ~A has ~R." msgid_plural "Definition has ~R args, but the ~A has ~R." msgstr[0] "" msgstr[1] "" -#: target:compiler/ctype.lisp -msgid "previous declaration" -msgstr "" - -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "" "The result type from ~A:~% ~S~@\n" "\t conflicts with the definition's result type assertion:~% ~S" msgstr "" -#: target:compiler/ctype.lisp +#: src/compiler/ctype.lisp msgid "" "Assignment to argument: ~S~% ~\n" "\t\t\t prevents use of assertion from function ~\n" "\t\t\t type ~A:~% ~S~%" msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/ctype.lisp +msgid "previous declaration" +msgstr "" + +#: src/compiler/vmdef.lisp msgid "~S is not a defined template." msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/vmdef.lisp msgid "~S is not a defined storage class." msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/vmdef.lisp msgid "~S is not a defined storage base." msgstr "" -#: target:compiler/meta-vmdef.lisp target:compiler/vmdef.lisp +#: src/compiler/meta-vmdef.lisp src/compiler/vmdef.lisp msgid "~S is not a defined primitive type." msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/vmdef.lisp msgid "" "NOTE-THIS-LOCATION VOP Kind\n" " Note that the current code location is an interesting (to the debugger)\n" @@ -15164,7 +15548,7 @@ msgid "" " that the live set is computed." msgstr "" -#: target:compiler/vmdef.lisp +#: src/compiler/vmdef.lisp msgid "" "NOTE-NEXT-INSTRUCTION VOP Kind\n" " Similar to NOTE-THIS-LOCATION, except the use the location of the next\n" @@ -15172,7 +15556,7 @@ msgid "" " it." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-Storage-Base Name Kind {Key Value}*\n" " Define a storage base having the specified Name. Kind may be :Finite,\n" @@ -15184,15 +15568,15 @@ msgid "" " :Unbounded SB." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Size specification meaningless in a ~S SB." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Size not specified in a ~S SB." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-Storage-Class Name Number Storage-Base {Key Value}*\n" " Define a storage class Name that uses the named Storage-Base. Number is " @@ -15238,31 +15622,27 @@ msgid "" " SC by a move function." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Alignment is not a power of two: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "SC element ~D out of bounds for ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid ":Locations is meaningless in a ~S SB." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Reserve-Locations not a subset of Locations." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Meaningless to specify alternate or constant SCs in a ~S SB." msgstr "" -#: target:compiler/x86/vm.lisp target:compiler/meta-vmdef.lisp -msgid "Redefining SC number ~D from ~S to ~S." -msgstr "" - -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-Move-Function (Name Cost) lambda-list ({(From-SC*) (To-SC*)}*) form*\n" " Define the function Name and note it as the function used for moving " @@ -15276,11 +15656,11 @@ msgid "" " DEFINE-VOP." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed SCs spec: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-Move-VOP Name {:Move | :Move-Argument} {(From-SC*) (To-SC*)}*\n" " Make Name be the VOP used to move values in the specified From-SCs to the\n" @@ -15289,11 +15669,11 @@ msgid "" " an extra argument, which is the frame pointer of the frame to move into." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown kind ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Def-Primitive-Type Name (SC*) {Key Value}*\n" " Define a primitive type Name. Each SC specifies a Storage Class that " @@ -15306,13 +15686,13 @@ msgid "" " (defaults to Name.)" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "DEF-PRIMITIVE-TYPE-ALIAS Name Result\n" " Define name to be an alias for Result in VOP operand type restrictions." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Primitive-Type-VOP Vop (Kind*) Type*\n" " Annotate all the specified primitive Types with the named VOP under each " @@ -15324,171 +15704,170 @@ msgid "" " checking that the value is of this type in the process." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown kind: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Operand ~S isn't one of these kinds: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "~S is not an operand to ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "~S is not the name of a defined VOP." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "~:R argument missing: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Extra junk at end of ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "~:R argument is not a ~S: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed time specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown phase in time specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Cannot target a ~S operand: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/debug-dump.lisp src/compiler/checkgen.lisp +#: src/compiler/ir1util.lisp src/compiler/meta-vmdef.lisp +msgid "Shouldn't happen?" +msgstr "" + +#: src/compiler/meta-vmdef.lisp msgid "" "No move function defined to ~:[save~;load~] SC ~S~\n" "\t\t\t ~:[to~;from~] from SC ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Can't tell whether to ~:[save~;load~] with ~S~@\n" "\t\t\t\t or ~S when operand is in SC ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "SC ~S has no alternate~:[~; or constant~] SCs, yet it is~@\n" "\t mentioned in the restriction for operand ~S." msgstr "" -#: target:compiler/x86/nlx.lisp target:compiler/meta-vmdef.lisp -msgid "" -"Load TN allocated, but no move function?~@\n" -"\t VM definition inconsistent, recompile and try again." -msgstr "" - -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed operand specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "More operand isn't last: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Can only specify :FROM in a result: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Can only specify :TO in an argument: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown keyword in operand specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Cannot specify :TARGET in a :MORE operand." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Cannot specify :LOAD-IF in a :MORE operand." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed temporary spec: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed options list: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Odd number of arguments in keyword options: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Temporary spec allocates no temps:~% ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Bad temporary name: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Must specify exactly one SC for a temporary." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown temporary option: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Temporary lifetime doesn't begin before it ends: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Must specifiy :SC for all temporaries: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Malformed option specification: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Unknown option specifier: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "No move function defined to move ~:[from~;to~] SC ~\n" "\t ~S~%~:[to~;from~] alternate or constant SC ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Bad thing to be a operand type: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Bad PRIMITIVE-TYPE name in ~S: ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Can't include primitive-type ~\n" "\t\t\t\t alias ~S in a :OR restriction: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Can't :CONSTANT for a result." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Bad :CONSTANT argument type spec: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "In the ~A ~:[result~;argument~] to VOP ~S,~@\n" "\t none of the SCs allowed by the operand type ~S can ~\n" @@ -15497,28 +15876,28 @@ msgid "" "\t\t [* type operand must allow T's SCs.]~]" msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "~:[Result~;Argument~] ~A to VOP ~S~@\n" "\t has SC restriction ~S which is ~\n" "\t\t not allowed by the operand type:~% ~S" msgstr "" -#: target:compiler/meta-vmdef.lisp -msgid "Can't use :CONSTANT on VOP more args." -msgstr "" - -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Expected ~D ~:[result~;argument~] type: ~S." msgid_plural "Expected ~D ~:[result~;argument~] types: ~S." msgstr[0] "" msgstr[1] "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp +msgid "Can't use :CONSTANT on VOP more args." +msgstr "" + +#: src/compiler/meta-vmdef.lisp msgid "Expected ~D variant values: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Define-VOP (Name [Inherits]) Spec*\n" " Define the symbol Name to be a Virtual OPeration in the compiler. If\n" @@ -15697,14 +16076,14 @@ msgid "" " frame." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Emit-Template Node Block Template Args Results [Info]\n" " Call the emit function for Template, linking the result in at the end of\n" " Block." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "VOP Name Node Block Arg* Info* Result*\n" " Emit the VOP (or other template) Name at the end of the IR2-Block Block,\n" @@ -15723,15 +16102,15 @@ msgid "" " codegen info." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Cannot use VOP with variable operand count templates." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Called with ~D operands, but was expecting ~D." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "VOP* Name Node Block (Arg* More-Args) (Result* More-Results) Info*\n" " Like VOP, but allows for emission of templates with arbitrary numbers of\n" @@ -15751,19 +16130,19 @@ msgid "" " arguments." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Too many fixed arguments." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Too many fixed results." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Expected ~D info args." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "SC-Case TN {({(SC-Name*) | SC-Name | T} Form*)}*\n" " Case off of TN's SC. The first clause containing TN's SC is evaulated,\n" @@ -15774,37 +16153,27 @@ msgid "" " clause matches, then an error is signalled." msgstr "" -#: target:assembly/x86/arith.lisp target:assembly/x86/array.lisp -#: target:assembly/x86/assem-rtns.lisp target:compiler/x86/type-vops.lisp -#: target:compiler/x86/pred.lisp target:compiler/x86/print.lisp -#: target:compiler/x86/nlx.lisp target:compiler/x86/values.lisp -#: target:compiler/x86/subprim.lisp target:compiler/x86/static-fn.lisp -#: target:compiler/x86/system.lisp target:compiler/x86/sap.lisp -#: target:compiler/meta-vmdef.lisp -msgid "Unknown SC to SC-Case for ~S:~% ~S" -msgstr "" - -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "Illegal SC-Case clause: ~S." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "T case is not last in SC-Case." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "SC-Is TN SC*\n" " Returns true if TNs SC is any of the named SCs, false otherwise." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "Do-IR2-Blocks (Block-Var Component [Result]) Form*\n" " Iterate over the IR2 blocks in component, in emission order." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "DO-LIVE-TNS (TN-Var Live Block [Result]) Form*\n" " Iterate over all the TNs live at some point, with the live set represented " @@ -15812,24 +16181,24 @@ msgid "" " a local conflicts bit-vector and the IR2-Block containing the location." msgstr "" -#: target:compiler/meta-vmdef.lisp +#: src/compiler/meta-vmdef.lisp msgid "" "DO-ENVIRONMENT-IR2-BLOCKS (Block-Var Env [Result]) Form*\n" " Iterate over all the IR2 blocks in the environment Env, in emit order." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "The width of the column in which instruction-names are printed.\n" " NIL means use the default. A value of zero gives the effect of not\n" " aligning the arguments at all." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "The column in which end-of-line comments for notes are started." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Specify global disassembler params for C:*TARGET-BACKEND*.\n" " Keyword arguments include:\n" @@ -15845,7 +16214,7 @@ msgid "" " instruction, or NIL to use the default." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "DEFINE-ARGUMENT-TYPE Name {Key Value}*\n" " Define a disassembler argument type NAME (which can then be referenced in\n" @@ -15878,7 +16247,7 @@ msgid "" " value." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*\n" " Define an instruction format NAME for the disassembler's use. LENGTH is\n" @@ -15942,94 +16311,94 @@ msgid "" " label. If this is a function, it is called to filter the value." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "~d bits is not a byte-multiple" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Return ADDRESS aligned *upward* to a SIZE byte boundary." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return\n" " OLD-CONS, otherwise return (cons CAR CDR)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "A simple (one list arg) mapcar that avoids consing up a new list\n" " as long as the results of calling FUN on the elements of LIST are\n" " eq to the original." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Can't dump functions, so function ref form must be quoted: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown argument ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "~s must not have multiple values" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown arg-form kind ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Cannot label a multiple-field argument ~\n" "\t\t\t unless using a function: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Bogus! Can't use the :printed value of an arg!" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "number of constants doesn't match number of fields ~\n" "\t\t\t in: (~s :constant~{ ~s~})" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Can't compare differently sized fields: ~\n" "\t\t (~s :same-as ~s)" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Bogus test-form: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the first non-keyword symbol in a depth-first search of TREE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Illegal printer: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown printer element: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "First arg to :USING must be a string or #'function" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "No suitable choice found in ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns a version of the disassembly-template PRINTER with compile-time\n" " tests (e.g. :constant without a value), and any :CHOOSE operators " @@ -16039,94 +16408,86 @@ msgid "" " which every field reference refers to a valid arg." msgstr "" -#: target:compiler/disassem.lisp -msgid "~&; Using cached function ~s~%" -msgstr "" - -#: target:compiler/disassem.lisp -msgid "~&; Making new function ~s~%" -msgstr "" - -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown argument type: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "~@<In arg ~s: ~3i~:_~\n" " Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "~@<In arg ~s: ~3i~:_~\n" "\t\t\t\t Field ~s doesn't fit in an ~\n" "\t\t\t\t instruction-format ~d bits wide.~:>" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Generate a form to specify global disassembler params. See the\n" " documentation for SET-DISASSEM-PARAMS for more info." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Generate a form to define a disassembler argument type. See\n" " DEFINE-ARGUMENT-TYPE for more info." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Generate a form to define an instruction format. See\n" " DEFINE-INSTRUCTION-FORMAT for more info." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Field ~s in arg ~s overlaps some other field" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Unknown instruction format ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns non-NIL if the instruction SPECIAL is a more specific version of\n" " GENERAL (i.e., the same instruction, but with more constraints)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns an integer corresponding to the specifivity of the instruction INST." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Order the list of instructions INSTS with more specific (more constant\n" " bits, or same-as argument constains) ones first. Returns the ordered list." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Instructions either aren't related or conflict in some way:~% ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given a list of instructions INSTS, Sees if one of these instructions is a\n" " more general form of all the others, in which case they are put into its\n" " specializers list, and it is returned. Otherwise an error is signaled." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Multiple specializing masters: ~s" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns non-NIL if all constant-bits in INST match CHUNK." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given an instruction object, INST, and a bit-pattern, CHUNK, picks the\n" " most specific instruction on INST's specializer list who's constraints " @@ -16134,13 +16495,13 @@ msgid "" " met by CHUNK. If none do, then INST is returned." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns the instruction object within INST-SPACE corresponding to the\n" " bit-pattern CHUNK, or NIL if there isn't one." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns an instruction-space object corresponding to the list of\n" " instructions INSTS. If the optional parameter INITIAL-MASK is supplied, " @@ -16148,114 +16509,114 @@ msgid "" " bits it has set are used." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Prints a nicely formatted version of INST-SPACE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Print the inst space for the specified backend" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Converts a word-offset NUM to a byte-offset." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Converts a byte-offset NUM to a word-offset." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Get the value of the property called NAME in DSTATE. Also setf'able." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the absolute address of the current instruction in DSTATE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the absolute address of the next instruction in DSTATE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Offset of FUNCTION from the start of its code-component's instruction area." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Offset of FUNCTION from the start of its code-component." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the length of the instruction area in CODE-COMPONENT." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the address of the instruction area in CODE-COMPONENT." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the first function in CODE-COMPONENT." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Possible ~A header word" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Print the function-header (entry-point) pseudo-instruction at the current\n" " location in DSTATE to STREAM." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Iterate through the instructions in SEGMENT, calling FUNCTION\n" " for each instruction, with arguments of CHUNK, STREAM, and DSTATE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Make an initial non-printing disassembly pass through DSTATE, noting any\n" " addresses that are referenced by instructions in this segment." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If any labels in DSTATE have been added since the last call to this\n" " function, give them label-numbers, enter them in the hash-table, and make\n" " sure the label list is in sorted order." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Get the instruction-space from PARAMS, creating it if necessary." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Print the current address in DSTATE to STREAM, plus any labels that\n" " correspond to it, and leave the cursor in the instruction column." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Print a newline to STREAM, inserting any pending notes in DSTATE as\n" " end-of-line comments. If there is more than one note, a separate line\n" " will be used for each one." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Disassemble NUM bytes to STREAM as simple `BYTE' instructions" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Disassemble NUM machine-words to STREAM as simple `WORD' instructions" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Make a disassembler-state object." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Return a memory segment located at the system-area-pointer returned by\n" " SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.\n" @@ -16265,39 +16626,39 @@ msgid "" " object), and :HOOKS (a list of offs-hook objects)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Code-header ~s: size: ~s, trace-table-offset: ~s~%" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Fun-header ~s at offset ~d (words): ~s~a => ~s~%" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "The source file ~s no longer seems to exist" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "No start positions map" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Source file ~s has been modified; ~@\n" "\t\t\t\t\t Using form offset instead of file index" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Bogus form-number in form! The source file has probably ~@\n" "\t\t been changed too much to cope with" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Return the vector of debug-variables currently associated with DSTATE." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given the OFFSET of a location within the location-group called LG-NAME,\n" " see if there's a current mapping to a source variable in DSTATE, and if " @@ -16305,57 +16666,49 @@ msgid "" " return the offset of that variable in the current debug-variable vector." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Return a new vector which has the same contents as the old one VEC, plus\n" " new cells (for a total size of NEW-LEN). The additional elements are\n" " initailized to INITIAL-ELEMENT." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns a STORAGE-INFO struction describing the object-to-source\n" " variable mappings from DEBUG-FUNCTION." msgstr "" -#: target:compiler/disassem.lisp -msgid ";;; At offset ~d: ~s~%" -msgstr "" - -#: target:compiler/disassem.lisp -msgid ";;; SET: ~s[~d]~%" -msgstr "" - -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Add hooks to track to track the source code in SEGMENT during\n" " disassembly. SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE\n" " structure, in which case it is used to cache forms from files." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "No-arg-parsing entry point" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "~s entry point" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Return the PC of FUNCTION's header." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "If non-NIL, disassemble flets/labels too" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns a list of the segments of memory containing machine code\n" " instructions for FUNCTION." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns a list of the segments of memory containing machine code\n" " instructions for the code-component CODE. If START-OFFS and/or LENGTH is\n" @@ -16363,13 +16716,13 @@ msgid "" " constrained to lie within the code-segment)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Return the address of the instructions for function and its length.\n" " The length is computed using a heuristic, and so may not be accurate." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns two values: the amount by which the last instruction in the\n" " segment goes past the end of the segment, and the offset of the end of " @@ -16378,7 +16731,7 @@ msgid "" " perfectly, this will return 0 and 0." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Computes labels for all the memory segments in SEGLIST and adds them to\n" " DSTATE. It's important to call this function with all the segments " @@ -16386,29 +16739,29 @@ msgid "" " interested in, so it can find references from one to another." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Disassemble the machine code instructions in SEGMENT to STREAM." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassemble the machine code instructions in each memory segment in\n" " SEGMENTS in turn to STREAM." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Disassemble the machine code instructions for FUNCTION." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Cannot compile a lexical closure" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Can't make a compiled function from ~S" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassemble the machine code associated with OBJECT, which can be a\n" " function, a lambda expression, or a symbol with a function definition. " @@ -16418,7 +16771,7 @@ msgid "" " disassemble." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassembles the given area of memory starting at ADDRESS and LENGTH long.\n" " Note that if CODE-COMPONENT is NIL and this memory could move during a " @@ -16426,29 +16779,29 @@ msgid "" " you'd better disable it around the call to this function." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid " Address ~x not in the code component ~s." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassemble the machine code instructions associated with\n" " CODE-COMPONENT (this may include multiple entry points)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Disassemble the machine code instructions associated with\n" " ASSEM-SEGMENT (of type new-assem:segment)." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a\n" "symbol object that we know about." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given ADDRESS, try and figure out if which slot of which symbol is being\n" " refered to. Of course we can just give up, so it's not a big deal...\n" @@ -16456,7 +16809,7 @@ msgid "" " slot." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Given a BYTE-OFFSET from NIL, try and figure out if which slot of which\n" " symbol is being refered to. Of course we can just give up, so it's not a " @@ -16464,28 +16817,28 @@ msgid "" " deal... Returns two values, the symbol and the access function." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Returns the lisp object located BYTE-OFFSET from NIL." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns two values; the lisp-object located at BYTE-OFFSET in the constant\n" " area of the code-object in the current segment and T, or NIL and NIL if\n" " there is no code-object in the current segment." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "Build an address-name hash-table from the name-address hash" msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Returns the name of the primitive lisp assembler routine or foreign\n" " symbol located at ADDRESS, or NIL if there isn't one." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Store NOTE (which can be either a string or a function with a single\n" " stream argument) to be printed as an end-of-line comment after the " @@ -16493,21 +16846,21 @@ msgid "" " instruction is disassembled." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Store a note about the lisp constant located BYTE-OFFSET bytes from the\n" " current code-component, to be printed as an end-of-line comment after the\n" " current instruction is disassembled." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "Store a note about the lisp constant located at ADDR in the\n" " current code-component, to be printed as an end-of-line comment after the\n" " current instruction is disassembled." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n" " is a valid slot in a symbol, store a note describing which symbol and " @@ -16516,7 +16869,7 @@ msgid "" " disassembled. Returns non-NIL iff a note was recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n" " is a valid lisp object, store a note describing which symbol and slot, to\n" @@ -16524,7 +16877,7 @@ msgid "" " disassembled. Returns non-NIL iff a note was recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If ADDRESS is the address of a primitive assembler routine or\n" " foreign symbol, store a note describing which one, to be printed as\n" @@ -16533,7 +16886,7 @@ msgid "" " note of the address is also made." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If NIL-BYTE-OFFSET is the offset of static function, store a note\n" " describing which one, to be printed as an end-of-line comment after\n" @@ -16541,7 +16894,7 @@ msgid "" " was recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If there's a valid mapping from OFFSET in the storage class SC-NAME to a\n" " source variable, make a note of the source-variable name, to be printed " @@ -16550,7 +16903,7 @@ msgid "" " Returns non-NIL iff a note was recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "If there's a valid mapping from OFFSET in the storage-base called SB-NAME\n" " to a source variable, make a note equating ASSOC-WITH with the\n" @@ -16559,7 +16912,7 @@ msgid "" " recorded." msgstr "" -#: target:compiler/disassem.lisp +#: src/compiler/disassem.lisp msgid "" "When called from an error break instruction's :DISASSEM-CONTROL (or\n" " :DISASSEM-PRINTER) function, will correctly deal with printing the\n" @@ -16581,81 +16934,29 @@ msgid "" " return-values." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Set up the assembler." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Execute BODY (as a progn) without scheduling any of the instructions\n" " generated inside it. DO NOT throw or return-from out of it." msgstr "" -#: target:compiler/new-assem.lisp -msgid "~&~S reads ~S[~D for ~D]~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "~&~S writes ~S[~D for ~D]~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "~&Queuing ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid " reads ~S~% writes ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "~&Scheduling pending instructions...~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Flushing ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Queued branches: ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Initially emittable: ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Initially delayed: ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Filling branch delay slot with ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Emitting ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Emitting a NOP.~%" -msgstr "" - -#: target:compiler/new-assem.lisp -msgid "Now emittable: ~S~%" -msgstr "" - -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Emit BYTE to SEGMENT." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Output AMOUNT zeros (in bytes) to SEGMENT." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Attempt to emit ~S for the second time." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Note that the instruction stream has to be back-patched when label " "positions\n" @@ -16671,7 +16972,7 @@ msgid "" " ended up." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Note that the instruction stream here depends on the actual positions of\n" " various labels, so can't be output until label positions are known. " @@ -16693,140 +16994,132 @@ msgid "" " just like a BACK-PATCH. (See EMIT-BACK-PATCH.)" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "~S emitted ~D bytes, but claimed it's max was ~D" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "~S shrunk by ~D bytes, but claimed that it ~\n" "\t\t\t preserve ~D bits of alignment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Chooser ~S passed, but not before emitting ~D bytes." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Alignment ~S needs more space now? It was ~D, ~\n" "\t\t\t and is ~D now." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "~S emitted ~D bytes, but claimed it's was ~D" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Execute BODY (as a progn) with SEGMENT as the current segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Duplicate nested labels: ~S" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Emit the specified instruction to the current segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Unknown instruction: ~S" msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Emit LABEL at this location in the current segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Emit an alignment restriction to the current segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Return the current position for LABEL. Chooser maybe-shrink functions\n" " should supply IF-AFTER and DELTA to assure correct results." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Append OTHER-SEGMENT to the end of SEGMENT. Don't use OTHER-SEGMENT\n" " for anything after this." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Does any final processing of SEGMENT and returns the total number of bytes\n" " covered by this segment." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Call FUNCTION on all the output accumulated in SEGMENT. FUNCTION is called\n" " zero or more times with two arguments: a SAP and a number of bytes." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Releases any output buffers held on to by segment." msgstr "" -#: target:compiler/new-assem.lisp -msgid "~D isn't an even multiple of ~D" -msgstr "" - -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "" "Byte spec ~S either overlaps another byte spec, or ~\n" "\t\t extends past the end." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "There are holes." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp +msgid "~D isn't an even multiple of ~D" +msgstr "" + +#: src/compiler/new-assem.lisp msgid "Can only specify one emitter per instruction." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Can only specify delay once per instruction." msgstr "" -#: target:compiler/new-assem.lisp +#: src/compiler/new-assem.lisp msgid "Can only specify :vop-var once." msgstr "" -#: target:compiler/new-assem.lisp -msgid "You can't use INST without an ASSEMBLE inside emitters." -msgstr "" - -#: target:compiler/alloc.lisp +#: src/compiler/alloc.lisp msgid "" "defallocators {((name lambda-list [real-lambda-list]) thread-slot\n" " (deinit-form*)\n" "\t\t (reinit-form*))}*" msgstr "" -#: target:compiler/alloc.lisp -msgid "~S already deallocated!" -msgstr "" - -#: target:compiler/knownfun.lisp +#: src/compiler/knownfun.lisp msgid "optimize" msgstr "" -#: target:compiler/knownfun.lisp +#: src/compiler/knownfun.lisp msgid "~S is not a known function." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default value for the :Block-Compile argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default value for the :Byte-Compile argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-" "level\n" @@ -16834,39 +17127,39 @@ msgid "" " (the default.) When true, we decide to byte-compile." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Whether loop analysis should be done or not." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Whether the compiler should record cross-reference information." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default for the :VERBOSE argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default for the :PRINT argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "The default for the :PROGRESS argument to COMPILE-FILE." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The defaulted pathname of the file currently being compiled, or NIL if not\n" " compiling." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The TRUENAME of the file currently being compiled, or NIL if not\n" " compiling." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The user supplied source-info for the current compilation. \n" "This is the :source-info argument to COMPILE-FROM-STREAM and will be\n" @@ -16874,40 +17167,36 @@ msgid "" "in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The upper limit on the number of times that we will consecutively do IR1\n" " optimization that doesn't introduce any new code. A finite limit is\n" " necessary, since type inference may take arbitrarily long to converge." msgstr "" -#: target:compiler/main.lisp -msgid "*REOPTIMIZE-AFTER-TYPE-CHECK-MAX* exceeded." -msgstr "" - -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~|~%Disassembly of code for ~S~2%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~:[~;Byte ~]Compiling ~A: " msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Undefined ~(~A~) ~S~@[ ~A~]" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~D more use~:P of undefined ~(~A~) ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~\n" "\t\t~% ~{~<~% ~1:;~S~>~^ ~}" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "~2&; Compilation unit ~:[finished~;aborted~].~\n" " ~[~:;~:*~&; ~D fatal error~:P~]~\n" @@ -16916,100 +17205,87 @@ msgid "" " ~[~:;~:*~&; ~D note~:P~]~2%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~|~%;;;; Component: ~S~2%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~%~|~%;;;; IR2 component: ~S~2%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Entries:~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~4TL~D: ~S~:[~; [Closure]~]~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Read error at ~D:~% \"~A/\\~A\"~%~A" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Unable to recover from read error." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Read error in form starting at ~D:~%~@[ \"~A\"~%~]~A" msgstr "" -#: target:compiler/main.lisp -#, fuzzy -msgid "Skip this form." -msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" - -#: target:compiler/main.lisp -msgid "Attempt to load a file having a compile-time read error." -msgstr "" - -#: target:compiler/ir1tran.lisp target:compiler/main.lisp +#: src/compiler/ir1tran.lisp src/compiler/main.lisp msgid "(during macroexpansion)~%~A" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Bad FILE-COMMENT form: ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Ignoring extra file comment:~% ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~&; Comment: ~A~2&" msgstr "" -#: target:compiler/ir1tran.lisp target:compiler/main.lisp -msgid "Execution of a form compiled with errors:~% ~S" -msgstr "" - -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "EVAL-WHEN form is too short: ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "MACROLET form is too short: ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Load Time Value of ~S" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "(while making load form for ~S)~%~A" msgstr "" -#: target:compiler/main.lisp -msgid "Creation Form for ~A" +#: src/compiler/main.lisp +msgid "Circular references in creation form for ~S" msgstr "" -#: target:compiler/main.lisp -msgid "Circular references in creation form for ~S" +#: src/compiler/main.lisp +msgid "Creation Form for ~A" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Init Form~:[~;s~] for ~{~A~^, ~}" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~2&Fatal error, aborting compilation...~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Can't compile with no source files." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Similar to COMPILE-FILE, but compiles text from Stream into the current " "lisp\n" @@ -17032,19 +17308,19 @@ msgid "" " If true, then may compile to interpreted byte code." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~2&; Python version ~A, VM version ~A on ~A.~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "; Compiling: ~A ~A~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~&; Compilation ~:[aborted after~;finished in~] ~A.~&" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Compiles Source, producing a corresponding .FASL file. Source may be a " "list\n" @@ -17105,23 +17381,23 @@ msgid "" " The external format to use when opening the source file" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~2&; ~A written.~%" msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Can't :LOAD with no output file." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~S was defined in a non-null environment." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "Can't find a definition for ~S." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Compiles the function (or macro-function) whose name is NAME. If\n" " DEFINITION is supplied, it should be a lambda expression which will\n" @@ -17131,37 +17407,37 @@ msgid "" " is Nil, the compiled code object is returned." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Attempt to replace Name's definition with an interpreted version of that\n" " definition. If no interpreted definition is to be found, then signal an\n" " error." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "~S is already interpreted." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "Return a pathname describing what file COMPILE-FILE would write to given\n" " these arguments." msgstr "" -#: target:compiler/main.lisp +#: src/compiler/main.lisp msgid "" "The ~A parameter is a ~S, which is an invalid value ~@\n" " to COMPILE-FILE-PATHNAME." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "If true, argument and result type information derived from compilation of\n" " DEFUNs is used when compiling calls to that function. If false, only\n" " information from FTYPE proclamations will be used." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "If NIL, never trust dynamic-extent declarations.\n" "\n" @@ -17173,171 +17449,167 @@ msgid "" " otherwise they are not trusted." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~@<Invalid name ~s in a dynamic-extent declaration.~@:>" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Can't find slot ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Found macro name ~S ~A." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Found special-form name ~S ~A." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Cannot dump objects of type ~S into fasl files." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~S has already ended." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~S already has successors." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~S is already a predecessor of ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Misplaced declaration." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Illegal function call." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Attempt to reference undumpable constant." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Reading an ignored variable: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~&dynamic-extent args ~:s in ~s~%" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Conflicting type declarations ~\n" "\t\t\t\t ~S and ~S for ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Can't declare type of Alien variable: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Declaring symbol-macro ~S special." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Ignored variable ~S is being declared special." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Ignoring ~A declaration not at ~\n" "\t\t\t\t definition of local function:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Unrecognizable function or variable name: ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Ignoring free ignore declaration for ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Ignore declaration for unknown variable ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Declaring special variable ~S to be ignored." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "If true, processing of the VALUES declaration is inhibited." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "No type specified in FTYPE declaration: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Abbreviated type declaration: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Unrecognized declaration: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed declaration specifier ~S in ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Declaring an alien variable to be special: ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Declaring a constant to be special: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Lambda-variable is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Repeated variable in lambda-list: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Name of lambda-variable is a constant: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Multiple uses of keyword ~S in lambda-list." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Found a ~S when expecting a lambda expression:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Expecting a lambda, but form begins with ~S:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Lambda-list absent or not a list:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "ir1-convert-lambda: called by: ~S, parent-form: ~S~%" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Arg specifier is too long: ~S." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Malformed keyword arg specifier: ~S." +#: src/compiler/ir1tran.lisp +msgid "Malformed &aux binding specifier: ~S." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Malformed &aux binding specifier: ~S." +#: src/compiler/ir1tran.lisp +msgid "Malformed keyword arg specifier: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Progn Form*\n" " Evaluates each Form in order, returing the values of the last form. With " @@ -17345,14 +17617,22 @@ msgid "" " forms, returns NIL." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir2tran.lisp src/compiler/ltv.lisp src/compiler/ir1tran.lisp +msgid "Can't funcall the SYMBOL-FUNCTION of the special form ~A." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "If Predicate Then [Else]\n" " If Predicate evaluates to non-null, evaluate Then and returns its values,\n" " otherwise evaluate Else and return its values. Else defaults to NIL." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "Block name is not a symbol: ~S." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "Block Name Form*\n" " Evaluate the Forms as a PROGN. Within the lexical scope of the body,\n" @@ -17360,11 +17640,11 @@ msgid "" " result of Value-Form." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Block name is not a symbol: ~S." +#: src/compiler/ir1tran.lisp +msgid "Return for unknown block: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Return-From Block-Name Value-Form\n" " Evaluate the Value-Form, returning its values from the lexically " @@ -17373,19 +17653,15 @@ msgid "" " extent of the BLOCK." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Return for unknown block: ~S." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Repeated tagbody tag: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Illegal tagbody statement: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Tagbody {Tag | Statement}*\n" " Define tags for used with GO. The Statements are evaluated in order\n" @@ -17398,7 +17674,11 @@ msgid "" " body." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "Go to nonexistent tag: ~S." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "Go Tag\n" " Transfer control to the named Tag in the lexically enclosing TAGBODY. " @@ -17406,34 +17686,30 @@ msgid "" " is constrained to be used only within the dynamic extent of the TAGBODY." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Go to nonexistent tag: ~S." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Bad compiler-let binding spec: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "EVAL-WHEN (Situation*) Form*\n" " Evaluate the Forms in the specified Situations, any of :COMPILE-TOPLEVEL,\n" " :LOAD-TOPLEVEL, :EXECUTE." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Macro name ~S is not a symbol." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Local macro ~S has argument list that is not a list: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Local macro ~S is too short to be a legal definition." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "MACROLET ({(Name Lambda-List Form*)}*) Body-Form*\n" " Evaluate the Body-Forms in an environment with the specified local macros\n" @@ -17441,58 +17717,62 @@ msgid "" " destructuring lambda list, and the Forms evaluate to the expansion." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" -"Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*\n" -" Establish the specified compiler options for the (lexical) duration of\n" -" the body. The Value-Forms are evaluated at compile time." +"Bogus binding for ~\n" +"\t\t\t\t\t\t COMPILER-OPTION-BIND: ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" -"Bogus binding for ~\n" -"\t\t\t\t\t\t COMPILER-OPTION-BIND: ~S" +"Compiler-Option-Bind ({(Name Value-Form)}*) Body-Form*\n" +" Establish the specified compiler options for the (lexical) duration of\n" +" the body. The Value-Forms are evaluated at compile time." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Lisp error during evaluation of info args:~%~A" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "%Primitive name is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Undefined primitive name: ~A." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Primitive called with ~R argument~:P, ~\n" "\t \t\t but wants at least ~R." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Primitive called with ~R argument~:P, ~\n" "\t\t\t\t but wants exactly ~R." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "%Primitive used with a conditional template." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "%Primitive used with an unknown values template." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "QUOTE Value\n" " Return Value without evaluating it." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "Illegal function name: ~S" +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "FUNCTION Name\n" " Return the lexically apparent definition of the function Name. Name may " @@ -17500,63 +17780,59 @@ msgid "" " be a lambda." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "Illegal function name: ~S" -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Might be a symbol, so must call FDEFINITION at runtime." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "" -"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n" -" Define the Names as symbol macros with the given Expansions. Within the\n" -" body, references to a Name will effectively be replaced with the Expansion." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed symbol macro binding: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Repeated name in SYMBOL-MACROLET: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "" +"SYMBOL-MACROLET ({(Name Expansion)}*) Decl* Form*\n" +" Define the Names as symbol macros with the given Expansions. Within the\n" +" body, references to a Name will effectively be replaced with the Expansion." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "Name is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "New proclaimed type ~S for ~S conflicts with old type ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Attempt to proclaim constant ~S to be special." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed TYPE proclamation: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed FUNCTION proclamation: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed FTYPE proclamation: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed ~S binding spec: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "LET ({(Var [Value]) | Var}*) Declaration* Form*\n" " During evaluation of the Forms, Bind the Vars to the result of evaluating " @@ -17566,14 +17842,14 @@ msgid "" " evaluated." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "LOCALLY Declaration* Form*\n" " Sequentially evaluates a body of Form's in a lexical environment\n" " where the given Declaration's have effect." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "LET* ({(Var [Value]) | Var}*) Declaration* Form*\n" " Similar to LET, but the variables are bound sequentially, allowing each " @@ -17581,11 +17857,11 @@ msgid "" " form to reference any of the previous Vars." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Malformed ~S definition spec: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "FLET ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n" " Evaluate the Body-Forms with some local function definitions. The " @@ -17595,7 +17871,7 @@ msgid "" " the lexically apparent function definition in the enclosing environment." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "LABELS ({(Name Lambda-List Declaration* Form*)}*) Declaration* Body-Form*\n" " Evaluate the Body-Forms with some local function definitions. The " @@ -17605,18 +17881,18 @@ msgid "" " each other." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Type ~S in ~S declaration conflicts with enclosing assertion:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "THE Type Form\n" " Assert that Form evaluates to the specified type (which may be a VALUES\n" " type.)" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Truly-The Type Value\n" " Like the THE special form, except that it believes whatever you tell it. " @@ -17626,34 +17902,34 @@ msgid "" " can prove the assertion is wrong." msgstr "" -#: target:compiler/ir1tran.lisp -msgid "" -"SETQ {Var Value}*\n" -" Set the variables to the values. If more than one pair is supplied, the\n" -" assignments are done sequentially. If Var names a symbol macro, SETF the\n" -" expansion." -msgstr "" - -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Odd number of args to SETQ: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Attempt to set constant ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Setting an ignored variable: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp +msgid "" +"SETQ {Var Value}*\n" +" Set the variables to the values. If more than one pair is supplied, the\n" +" assignments are done sequentially. If Var names a symbol macro, SETF the\n" +" expansion." +msgstr "" + +#: src/compiler/ir1tran.lisp msgid "" "Throw Tag Form\n" " Do a non-local exit, return the values of Form from the CATCH whose tag\n" " evaluates to the same thing as Tag." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Catch Tag Form*\n" " Evaluates Tag and instantiates it as a catcher while the body forms are\n" @@ -17664,7 +17940,7 @@ msgid "" " and the thrown values will be returned." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "Unwind-Protect Protected Cleanup*\n" " Evaluate the form Protected, returning its values. The cleanup forms are\n" @@ -17673,125 +17949,125 @@ msgid "" " due to normal completion or a non-local exit such as THROW)." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "MULTIPLE-VALUE-CALL Function Values-Form*\n" " Call Function, passing all the values of each Values-Form as arguments,\n" " values from the first Values-Form making up the first argument, etc." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "" "MULTIPLE-VALUE-PROG1 Values-Form Form*\n" " Evaluate Values-Form and then the Forms, but return all the values of\n" " Values-Form." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Macro name is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Defining ~S to be a macro when it was ~(~A~) to be a function." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Attempt to redefine special form ~S as a macro." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "~&; Converted ~S.~%" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Attempt to define a compiler-macro for special form ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Constant name is not a symbol: ~S." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Can't change T." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Nihil ex nihil (Can't change NIL)." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Can't change the value of keywords." msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Redefining constant ~S as:~% ~S" msgstr "" -#: target:compiler/ir1tran.lisp +#: src/compiler/ir1tran.lisp msgid "Redefining ~(~A~) ~S to be a constant." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Return the TLF-NUMBER and FORM-NUMBER encoded as fixnum." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Return the tlf-number and form-number from an encoded FIXNUM." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Return a source-location for the call site." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Deleting unused function~:[.~;~:*~% ~S~]" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Block is already deleted." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Variable ~S defined but never used." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Deleting unreachable code." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "If CONT is a call to FUN with NUM-ARGS args, change those arguments\n" " to feed directly to the continuation-dest of CONT, which must be\n" " a combination." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "An upper limit on the number of inline function calls that will be expanded\n" " in any given code object (single function or block compilation.)" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "*Inline-Expansion-Limit* (~D) exceeded, ~\n" "\t\t\t probably trying to~% ~\n" "\t\t\t inline a recursive function." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "The value for *Print-Level* when printing compiler error messages." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "The value for *Print-Length* when printing compiler error messages." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "The value for *Print-Lines* when printing compiler error messages." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "The maximum number of enclosing non-original source forms (i.e. from\n" " macroexpansion) that we print in full. For additional enclosing forms, " @@ -17799,7 +18075,7 @@ msgid "" " print only the CAR." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "DEF-SOURCE-CONTEXT Name Lambda-List Form*\n" " This macro defines how to extract an abbreviated source context from the\n" @@ -17809,11 +18085,11 @@ msgid "" " list of subforms suitable for a \"~{~S ~}\" format string." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Compiler-Error with no bailout." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "This is the function called by the compiler to specially note a\n" "warning, comment, or error. The function must take five arguments: the\n" @@ -17823,27 +18099,27 @@ msgid "" "these can be NIL if unavailable or inapplicable." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "[Last message occurs ~D times]" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "~2&File: ~A" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "In:~{~<~% ~4:;~{ ~S~}~>~^ =>~}" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "replace form with call to ERROR." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "ignore it." msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "" "If non-null, then an upper limit on the number of unknown function or type\n" " warnings that the compiler will print for any given name in a single\n" @@ -17852,21 +18128,21 @@ msgid "" " a missing definition (as opposed to a typo in the use.)" msgstr "" -#: target:compiler/ir1util.lisp +#: src/compiler/ir1util.lisp msgid "Lisp error during ~A:~%~A" msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "New inferred type ~S conflicts with old type:~\n" "\t\t~% ~S~%*** Bug?" msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "The return value of ~A should not be discarded." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "This function is used to throw out of an IR1 transform, aborting this\n" " attempt to transform the call, but admitting the possibility that this or\n" @@ -17875,14 +18151,14 @@ msgid "" " format arguments for an efficiency note." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "This function is used to throw out of an IR1 transform and force a normal\n" " call to the function at run time. No further optimizations will be\n" " attempted." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "This function is used to throw out of an IR1 transform, and delay the\n" " transform on the node until later. The reasons specifies when the " @@ -17893,113 +18169,101 @@ msgid "" " propagation." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n" "\t at least ~R." msgstr "" -#: target:compiler/ir1opt.lisp +#: src/compiler/ir1opt.lisp msgid "" "MULTIPLE-VALUE-CALL with ~R values when the function expects ~\n" "\t at most ~R." msgstr "" -#: target:compiler/ir1final.lisp +#: src/compiler/ir1final.lisp msgid "Unable to ~A because:~%~6T~?" msgstr "" -#: target:compiler/ir1final.lisp +#: src/compiler/ir1final.lisp msgid "" "Unable to ~A due to type uncertainty:~@\n" "\t ~{~6T~?~^~&~}" msgstr "" -#: target:compiler/ir1final.lisp +#: src/compiler/ir1final.lisp msgid "" "The result type from previous declaration:~% ~S~@\n" "\t\t\t\t conflicts with the result type:~% ~S" msgstr "" -#: target:compiler/array-tran.lisp -msgid "Element-Type is not constant." +#: src/compiler/array-tran.lisp +msgid "Default initial element ~s is not a ~s." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Cannot open-code creation of ~S" msgstr "" -#: target:compiler/array-tran.lisp -msgid "Default initial element ~s is not a ~s." +#: src/compiler/array-tran.lisp +msgid "Element-Type is not constant." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Element-type not constant; cannot open code array creation" msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Dimension list not constant; cannot open code array creation" msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Dimension list contains something other than an integer: ~S" msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Array rank not known at compile time: ~S" msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Axis not constant." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Array dimensions unknown, must call array-dimension at runtime." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Array has dimensions ~S, ~D is too large." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Can't tell if array is simple." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Vector length unknown, must call length at runtime." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "Can't tell the rank at compile time." msgstr "" -#: target:compiler/array-tran.lisp +#: src/compiler/array-tran.lisp msgid "" "Array type ambiguous; must call ~\n" "\t array-has-fill-pointer-p at runtime." msgstr "" -#: target:compiler/srctran.lisp target:compiler/seqtran.lisp -msgid "open code" -msgstr "" - -#: target:compiler/seqtran.lisp -msgid "convert to EQ test" -msgstr "" - -#: target:compiler/seqtran.lisp +#: src/compiler/seqtran.lisp msgid "Item might be a number" msgstr "" -#: target:compiler/seqtran.lisp -msgid "inline expand" -msgstr "" - -#: target:compiler/seqtran.lisp +#: src/compiler/seqtran.lisp msgid "Specified output type ~S is not a sequence type" msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "" "Define-Type-Predicate Name Type\n" " Establish an association between the type predicate Name and the\n" @@ -18007,446 +18271,412 @@ msgid "" " purposes of optimization." msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "Can't open-code test of non-constant type." msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "Can't open-code test of unknown type ~S." msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "" "Can't compile TYPEP of anonymous or undefined ~\n" "\t\t\tclass:~% ~S" msgstr "" -#: target:compiler/typetran.lisp +#: src/compiler/typetran.lisp msgid "Illegal type specifier for Typep: ~S." msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "use inline fixnum operations" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "use inline (unsigned-byte 32) operations" msgstr "" -#: target:compiler/float-tran.lisp -msgid "use inline (signed-byte 32) operations" -msgstr "" - -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Shouldn't happen" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Can't open-code float to rational comparison." msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "~S doesn't have a precise float representation." msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "" "Unable to avoid inline argument range check~@\n" " because the argument range (~s) was not within 2^~D" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "" "Unable to avoid inline argument range check~@\n" " because the argument range (~s) was not within 2^~D" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Float zero bound ~s not correctly canonicalised?" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp +msgid "Compute fl(a*b) and err(a*b)" +msgstr "" + +#: src/compiler/float-tran.lisp +msgid "" +"Compute fl(a*a) and err(a*b). This is a more efficient\n" +" implementation of two-prod" +msgstr "" + +#: src/compiler/float-tran.lisp msgid "Computes fl(a+b) and err(a+b), assuming |a| >= |b|" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Computes fl(a+b) and err(a+b)" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Add the double-double A0,A1 to the double-double B0,B1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Compute fl(a-b) and err(a-b), assuming |a| >= |b|" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Compute fl(a-b) and err(a-b)" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Subtract the double-double B0,B1 from A0,A1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Compute double-double = double - double-double" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Subtract the double B from the double-double A0,A1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "" "Split the double-float number a into a-hi and a-lo such that a =\n" " a-hi + a-lo and a-hi contains the upper 26 significant bits of a and\n" " a-lo contains the lower 26 bits." msgstr "" -#: target:compiler/float-tran.lisp -msgid "Compute fl(a*b) and err(a*b)" -msgstr "" - -#: target:compiler/float-tran.lisp -msgid "" -"Compute fl(a*a) and err(a*b). This is a more efficient\n" -" implementation of two-prod" -msgstr "" - -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Multiply the double-double A0,A1 with B0,B1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Add the double-double A0,A1 to the double B" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Divide the double-double A0,A1 by B0,B1" msgstr "" -#: target:compiler/float-tran.lisp +#: src/compiler/float-tran.lisp msgid "Square" msgstr "" -#: target:compiler/saptran.lisp +#: src/compiler/saptran.lisp msgid "FOREIGN-SYMBOL-ADDRESS flavor ~S is not :CODE or :DATA" msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Function doesn't have fixed argument count." msgstr "" -#: target:compiler/srctran.lisp -msgid "convert NTHCDR to CAxxR" -msgstr "" - -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Unknown bound type in make-interval!" msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "This shouldn't happen!" msgstr "" -#: target:compiler/srctran.lisp -msgid "convert to inline logical ops" -msgstr "" - -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "BOOLE code is not a constant." msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "~S illegal control arg to BOOLE." msgstr "" -#: target:compiler/srctran.lisp -msgid "convert x*2^k to shift" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert division by 2^k to shift" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert remainder mod 2^k to LOGAND" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "fold identity operations" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "fold identity operation" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert (- 0 x) to negate" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert (* x 0) to 0." -msgstr "" - -#: target:compiler/srctran.lisp -msgid "fold zero arg" -msgstr "" - -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Unexpected types: ~s ~s~%" msgstr "" -#: target:compiler/srctran.lisp -msgid "recode as multiplication or sqrt" -msgstr "" - -#: target:compiler/srctran.lisp -msgid "convert to simpler equality predicate" -msgstr "" - -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Operands might not be the same type." msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "~s: too few args (~d), need at least ~d" msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "~s: too many args (~d), wants at most ~d" msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "Control string is not a constant." msgstr "" -#: target:compiler/srctran.lisp +#: src/compiler/srctran.lisp msgid "" "When non-NIL, the compiler will generate code utilizing modular\n" " arithmetic. Set to NIL to disable this, if you don't want modular\n" " arithmetic in some cases." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "" "Couldn't inline expand because expansion ~\n" "\t\t\t\t calls this let-converted local function:~\n" "\t\t\t\t ~% ~S" msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Function called with ~R argument~:P, but wants exactly ~R." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Function called with ~R argument~:P, but wants at least ~R." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Function called with ~R argument~:P, but wants at most ~R." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Can't local-call functions with &MORE args." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp #, fuzzy msgid "" "Function called with odd number of ~\n" "\t \t\t arguments in keyword portion." msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Non-constant keyword in keyword call." msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "non-constant :ALLOW-OTHER-KEYS value" msgstr "" -#: target:compiler/locall.lisp +#: src/compiler/locall.lisp msgid "Function called with unknown argument keyword ~S." msgstr "" -#: target:compiler/checkgen.lisp -msgid "~:[A possible~;The~] binding of ~S" -msgstr "" - -#: target:compiler/checkgen.lisp +#: src/compiler/checkgen.lisp msgid "~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~% ~S" msgstr "" -#: target:compiler/checkgen.lisp +#: src/compiler/checkgen.lisp msgid "~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>" msgstr "" -#: target:compiler/checkgen.lisp +#: src/compiler/checkgen.lisp +msgid "~:[A possible~;The~] binding of ~S" +msgstr "" + +#: src/compiler/checkgen.lisp msgid "Type assertion too complex to check:~% ~S." msgstr "" -#: target:compiler/constraint.lisp +#: src/compiler/constraint.lisp msgid "" "*** Unreachable code in constraint ~\n" "\t\t\t propagation... Bug?" msgstr "" -#: target:compiler/tn.lisp +#: src/compiler/tn.lisp msgid "" "Do-Packed-TNs (TN-Var Component [Result]) Declaration* Form*\n" " Iterate over all packed TNs allocated in Component." msgstr "" -#: target:compiler/tn.lisp +#: src/compiler/tn.lisp msgid "SC ~S has no :unbounded :save-p NIL alternate SC." msgstr "" -#: target:compiler/life.lisp +#: src/compiler/life.lisp msgid "More operand ~S used more than once in its VOP." msgstr "" -#: target:compiler/debug-dump.lisp +#: src/compiler/debug-dump.lisp msgid "" "Extract the namestring from FILE-INFO for the DEBUG-SOURCE. \n" "Return FILE-INFO's untruename (e.g., target:foo) if it is absolute;\n" "otherwise the truename." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "Make a fixnum out of NUM. (i.e. shift by two bits if it will fit.)" msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "~D is too big for a fixnum." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "Returns the byte offset of the static symbol Symbol." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "~S is not a static symbol." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "Given a byte offset, Offset, returns the appropriate static symbol." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "Byte offset, ~D, is not correct." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "" "Return the (byte) offset from NIL to the start of the fdefn object\n" " for the static function NAME." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "~S isn't a static function." msgstr "" -#: target:compiler/generic/utils.lisp +#: src/compiler/generic/utils.lisp msgid "" "Given a byte offset, Offset, returns the appropriate static function\n" " symbol." msgstr "" -#: target:compiler/generic/primtype.lisp +#: src/compiler/x86/vm.lisp +msgid "Redefining SC number ~D from ~S to ~S." +msgstr "" + +#: src/compiler/generic/primtype.lisp msgid "" "An a-list for mapping simple array element types to their\n" " corresponding primitive types." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/x86/type-vops.lisp src/compiler/x86/pred.lisp +#: src/compiler/x86/print.lisp src/compiler/x86/nlx.lisp +#: src/compiler/x86/values.lisp src/compiler/x86/subprim.lisp +#: src/compiler/x86/static-fn.lisp src/compiler/x86/system.lisp +#: src/compiler/x86/sap.lisp +msgid "Unknown SC to SC-Case for ~S:~% ~S" +msgstr "" + +#: src/compiler/x86/nlx.lisp +msgid "" +"Load TN allocated, but no move function?~@\n" +"\t VM definition inconsistent, recompile and try again." +msgstr "" + +#: src/compiler/aliencomp.lisp msgid "Slot is not constant, so cannot open code access." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "~S doesn't have a slot named ~S" msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Too many indices for pointer deref: ~D" msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Unknown element size." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Unknown element alignment." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Incorrect number of indices." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Element size unknown." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Element alignment unknown." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "~S not either a pointer or array type." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Info not constant; can't open code." msgstr "" -#: target:compiler/aliencomp.lisp -msgid "Local Alien Info isn't constant?" -msgstr "" - -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Aliens of type ~S cannot be represented immediately." msgstr "" -#: target:compiler/aliencomp.lisp -msgid "This should be dead-code eleminated." +#: src/compiler/aliencomp.lisp +msgid "Local Alien Info isn't constant?" msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "This shouldn't happen." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Alien type not constant; cannot open code." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "" "Could not optimize away %SAP-ALIEN: forced to do runtime ~@\n" "\t allocation of alien-value structure." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Type not constant at compile time; can't open code." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Can't tell function type at compile time." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Wrong number of arguments. Expected ~D, got ~D." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "Something is broken." msgstr "" -#: target:compiler/aliencomp.lisp +#: src/compiler/aliencomp.lisp msgid "No unique move-arg-vop for moves in SC ~S." msgstr "" -#: target:compiler/ltv.lisp +#: src/compiler/ltv.lisp +msgid "(during EVAL of LOAD-TIME-VALUE)~%~A" +msgstr "" + +#: src/compiler/ltv.lisp msgid "" "Arrange for FORM to be evaluated at load-time and use the value produced\n" " as if it were a constant. If READ-ONLY-P is non-NIL, then the resultant\n" @@ -18454,134 +18684,129 @@ msgid "" " storage." msgstr "" -#: target:compiler/ltv.lisp -msgid "(during EVAL of LOAD-TIME-VALUE)~%~A" -msgstr "" - -#: target:compiler/gtn.lisp +#: src/compiler/gtn.lisp msgid "" "Return value count mismatch prevents known return ~\n" "\t\t from these functions:~\n" "\t\t ~{~% ~A~}" msgstr "" -#: target:compiler/gtn.lisp +#: src/compiler/gtn.lisp msgid "" "Return type not fixed values, so can't use known return ~\n" "\t\t convention:~% ~S" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "" "Unable to check type assertion in unknown-values ~\n" "\t context:~% ~S" msgstr "" -#: target:compiler/represent.lisp target:compiler/ir2tran.lisp -#: target:compiler/ltn.lisp +#: src/compiler/represent.lisp src/compiler/ir2tran.lisp src/compiler/ltn.lisp msgid "Neither CONT nor TN supplied." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "~S has :MORE results with :TRANSLATE." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "" "This is the maximum number of possible optimization alternatives will be\n" " mentioned in a particular efficiency note. NIL means no limit." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "" "This is the minumum cost difference between the chosen implementation and\n" " the next alternative that justifies an efficiency note." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "This shouldn't happen! Bug?" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Template guard failed." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Template is not safe, yet we were counting on it." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Argument types invalid." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Argument primitive types:~% ~S" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Argument type assertions:~% ~S" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Conditional in a non-conditional context." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Result types invalid." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "etc." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Unable to do ~A (cost ~D) because:" msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "" "Can't trust output type assertion under safe ~\n" "\t\t policy." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Forced to do ~A (cost ~D)." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Forced to do full call." msgstr "" -#: target:compiler/ltn.lisp +#: src/compiler/ltn.lisp msgid "Recursive known function definition." msgstr "" -#: target:compiler/ir2tran.lisp +#: src/compiler/ir2tran.lisp msgid "" "Always perform stack clearing if non-NIL, independent of the\n" "compilation policy" msgstr "" -#: target:compiler/ir2tran.lisp +#: src/compiler/ir2tran.lisp msgid "" "If non-NIL and the compilation policy allows, stack clearing is enabled." msgstr "" -#: target:compiler/ir2tran.lisp +#: src/compiler/ir2tran.lisp msgid "~@<~2I~_~S ~_not found in ~_~S~:>" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "Couldn't find REF?" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "Representation selection flamed out for no obvious reason.~@\n" "\t Try again after recompiling the VM definition." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "~S is not valid as the ~:R ~:[result~;argument~] to the~@\n" "\t ~S VOP, since the TN's primitive type ~S allows SCs:~% ~S~@\n" @@ -18591,13 +18816,13 @@ msgid "" "\t\ttime. Recompile.~%Compilation order may be incorrect.~]" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "Representation selection flamed out for no ~\n" "\t\t obvious reason." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "~S is not valid as the ~:R ~:[result~;argument~] to VOP:~\n" "\t ~% ~S~%Primitive type: ~S~@\n" @@ -18612,225 +18837,390 @@ msgid "" "\t\ttime. Recompile.~%Compilation order may be incorrect.~]" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "No :MOVE-ARGUMENT VOP defined to move ~S (SC ~S) to ~\n" " ~S (SC ~S.)" msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "No move function defined to load SC ~S from constant ~\n" "\t SC ~S." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "No move function defined to load SC ~S from alternate ~\n" "\t SC ~S." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "No move function defined to save SC ~S to alternate ~\n" "\t SC ~S." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "<return value>" msgstr "" -#: target:compiler/represent.lisp -msgid "Couldn't fine op? Bug!" -msgstr "" - -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "" "Doing ~A (cost ~D)~:[~2*~; ~:[to~;from~] ~S~], for:~%~6T~\n" "\t The ~:R ~:[result~;argument~] of ~A." msgstr "" -#: target:compiler/represent.lisp +#: src/compiler/represent.lisp msgid "Doing ~A (cost ~D)~@[ from ~S~]~@[ to ~S~]." msgstr "" -#: target:compiler/generic/vm-tran.lisp -msgid "" -"Argument and result bit arrays not the same length:~\n" -"\t \t ~% ~S~% ~S" +#: src/compiler/represent.lisp +msgid "Couldn't fine op? Bug!" msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "Returns the number of bytes used by the code object header." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "The size of the Name'd SB in the currently compiled component. Useful\n" " mainly for finding the size for allocating stack frames." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "Return the TN that is used to hold the number stack frame-pointer in VOP's\n" " function. Returns NIL if no number stack frame was allocated." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "Return the TN that is used to hold the number stack frame-pointer in the\n" " function designated by 2env. Returns NIL if no number stack frame was\n" " allocated." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "Return the TN used for passing the return PC in a local call to the " "function\n" " designated by 2env." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "" "Set to NIL to inhibit assembly-level optimization. For compiler debugging,\n" " rather than policy control." msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "In the ~A segment:~%" msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "~|~%Assembly code for ~S~2%" msgstr "" -#: target:compiler/codegen.lisp +#: src/compiler/codegen.lisp msgid "Missing generator for ~S.~%" msgstr "" -#: target:compiler/debug.lisp +#: src/compiler/debug.lisp msgid "" "This variable is bound to the format arguments when an error is signalled\n" " by Barf or Burp." msgstr "" -#: target:compiler/debug.lisp +#: src/compiler/debug.lisp msgid "" "Action taken by the Burp function when a possible compiler bug is detected.\n" " One of :Warn, :Error or :None." msgstr "" -#: target:compiler/debug.lisp +#: src/compiler/debug.lisp msgid "" "Return a list of a the TNs that conflict with TN. Sort of, kind of. For\n" " debugging use only. Probably doesn't work on :COMPONENT TNs." msgstr "" -#: target:compiler/debug.lisp +#: src/compiler/debug.lisp msgid "Return the Nth VOP in the IR2-Block pointed to by Thing." msgstr "" -#: target:compiler/dump.lisp -msgid "Compiler bug: ~S not a legal fasload operator." +#: src/compiler/xref.lisp +msgid "Reinitialize the cross-reference database." msgstr "" -#: target:compiler/dump.lisp -msgid "Tried to output ~D bytes, but only ~D made it." +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where a globally-defined\n" +"function may be called at runtime." msgstr "" -#: target:compiler/dump.lisp -msgid "This object cannot be dumped into a fasl file:~% ~S" +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where GLOBAL-VARIABLE\n" +"may be referenced at runtime." msgstr "" -#: target:compiler/dump.lisp -msgid "~S already dumped?" +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where GLOBAL-VARIABLE may\n" +"be bound at runtime." +msgstr "" + +#: src/compiler/xref.lisp +msgid "" +"Return a list of those program contexts where GLOBAL-VARIABLE may\n" +"be set at runtime." +msgstr "" + +#: src/compiler/dyncount.lisp +msgid "When T, emit extra code to collect dynamic statistics about vop usages." +msgstr "" + +#: src/compiler/dyncount.lisp +msgid "Holds the TN for the counts vector." +msgstr "" + +#: src/compiler/dump.lisp +msgid "Compiler bug: ~S not a legal fasload operator." msgstr "" -#: target:compiler/dump.lisp -msgid "Warning: dumping ~s as 0l0~%" +#: src/compiler/dump.lisp +msgid "Tried to output ~D bytes, but only ~D made it." +msgstr "" + +#: src/compiler/dump.lisp +msgid "This object cannot be dumped into a fasl file:~% ~S" msgstr "" -#: target:compiler/dump.lisp -msgid "Unable to dump long-float" +#: src/compiler/dump.lisp +msgid "~S already dumped?" msgstr "" -#: target:compiler/dump.lisp +#: src/compiler/dump.lisp msgid "Attempt to dump invalid structure:~% ~S~%How did this happen?" msgstr "" -#: target:compiler/dump.lisp +#: src/compiler/dump.lisp msgid "Dumping reference to obsolete class: ~S" msgstr "" -#: target:compiler/generic/core.lisp +#: src/compiler/generic/core.lisp +msgid "Unknown foreign symbol: ~S" +msgstr "" + +#: src/compiler/generic/core.lisp msgid "Unresolved forward reference." msgstr "" -#: target:compiler/generic/core.lisp +#: src/compiler/generic/core.lisp msgid "#<Code Instruction Stream for ~S>" msgstr "" -#: target:compiler/generic/core.lisp +#: src/compiler/generic/core.lisp msgid "Writing ~D bytes to ~S would cause it to overflow." msgstr "" -#: target:compiler/generic/core.lisp +#: src/compiler/generic/core.lisp msgid "Writing another byte to ~S would cause it to overflow." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/generic/new-genesis.lisp +msgid "Rounds number up to be an integral multiple of size." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Handle on Nil." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Number of bits in the low half of the descriptor" +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Alignment requirement for spaces in the target.\n" +" Must be at least (ash 1 descriptor-low-bits" +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Return a descriptor for a block of LENGTH bytes out of SPACE. The free\n" +" pointer is boosted as necessary. If any additional memory is needed, we\n" +" vm_allocate it. The descriptor returned is a pointer of type LOWTAG." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Return the lowtag bits for DES." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Return the bits of DES." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Return a SAP pointing to the piece of memory DES refers to. The lowtag\n" +" bits of DES are ignored." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Handle on the trap object." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Head of list of functions to be called when the Lisp starts up." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Used by normal loader." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Write VALUE (a descriptor) INDEX words from ADDRESS (also a descriptor)." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Write VALUE (a descriptor) at ADDRESS (also a descriptor)." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Return the value (as a descriptor) INDEX words from ADDRESS (a descriptor)." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Return the value at ADDRESS (a descriptor)." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Allocate LENGTH words in SPACE and return a new descriptor of type LOWTAG\n" +" pointing to them." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Allocate LENGTH units of ELEMENT-SIZE bits plus a header word in SPACE and\n" +" return an ``other-pointer'' descriptor to them. Initialize the header " +"word\n" +" with the resultant length and TYPE." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Allocate LENGTH units of ELEMENT-SIZE plus a header plus a length slot in\n" +" SPACE and return an ``other-pointer'' descriptor to them. Initialize the\n" +" header word with TYPE and the length slot with LENGTH." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Copy string into the CORE and return a descriptor to it." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Copy the bignum to the core." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Makes a number pair of TYPE (ratio or complex) and fills it in." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Copy the given number to the core, or flame out if we can't deal with it." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Allocate a cons cell in SPACE and fill it in with CAR and CDR." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Generates code to push the THING onto the given cold load LIST." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Initializes the cold load symbol-hacking data structures." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "FOP functions for cold loading." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "Loads the file named by FileName into the cold load image being built." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Return the version number from the symbol table file Filename.\n" +" Value is 0 if Filename is null or the file doesn't exist." +msgstr "" + +#: src/compiler/generic/new-genesis.lisp +msgid "" +"Builds a kernel Lisp image from the .FASL files specified in the given\n" +" File-List and writes it to a file named by Core-Name." +msgstr "" + +#: src/compiler/eval-comp.lisp msgid "Fatal error, aborting evaluation." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/eval-comp.lisp msgid "Wrong argument count, wanted ~D and got ~D." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/eval-comp.lisp msgid "Wrong number of arguments passed -- ~S." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/eval-comp.lisp msgid "Function called with odd number of keyword arguments." msgstr "" -#: target:compiler/eval-comp.lisp +#: src/compiler/eval-comp.lisp msgid "Unknown keyword argument -- ~S." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "[PUSH: growing stack.]~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "pushing ~D.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "Attempt to pop empty eval stack." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "popping ~D --> ~S.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "[EXTEND: growing stack.]~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "extending to ~D.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "shrinking to ~D.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "setting top to ~D.~%" msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "" "If the interpreted function cache has more functions than this come GC " "time,\n" @@ -18838,180 +19228,180 @@ msgid "" " *INTERPRETED-FUNCTION-CACHE-THRESHOLD*." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "" "If an interpreted function goes uncalled for more than this many GCs, then\n" " it is eligible for flushing from the cache." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "" "Clear all entries in the eval function cache. This allows the internal\n" " representation of the functions to be reclaimed, and also lazily forces\n" " macroexpansions to be recomputed." msgstr "" -#: target:compiler/eval.lisp +#: src/compiler/eval.lisp msgid "C::%UNKNOWN-VALUES should never be in interpreter's IR1." msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "Unknown XOP ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "Unknown inline function: ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "Can't find ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~|~%;;;; Byte component ~S~2%" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid ";;; Functions:~%" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~%;;;Disassembly:~2%" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "<bogus index>" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "Entry point, frame-size=~D~%" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-local ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-arg ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-const ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-sys-const ~S" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-int ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "push-neg-int ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "pop-local ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "pop-n ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~:[~;named-~]call, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~:[~;named-~]tail-call, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "~:[~;named-~]multiple-call, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "local call ~D, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "local tail-call ~D, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "local multiple-call ~D, ~D args" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "return, ~D vals" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "branch ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "if-true ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "if-false ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "if-eq ~D" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "xop ~A~@[ ~D~]" msgstr "" -#: target:compiler/byte-comp.lisp +#: src/compiler/byte-comp.lisp msgid "inline ~A" msgstr "" -#: target:pcl/init.lisp target:pcl/defclass.lisp target:pcl/macros.lisp +#: src/pcl/init.lisp src/pcl/defclass.lisp src/pcl/macros.lisp msgid "Malformed plist in doplist, odd number of elements." msgstr "" -#: target:pcl/macros.lisp +#: src/pcl/macros.lisp msgid "~@<~S is not a legal class name.~@:>" msgstr "" -#: target:pcl/macros.lisp +#: src/pcl/macros.lisp msgid "No class named ~S." msgstr "" -#: target:pcl/macros.lisp +#: src/pcl/macros.lisp msgid "~S is not a legal class name." msgstr "" -#: target:pcl/macros.lisp +#: src/pcl/macros.lisp msgid "" "Returns the PCL class metaobject named by SYMBOL. An error of type\n" " SIMPLE-ERROR is signaled if the class does not exist unless ERRORP\n" " is NIL in which case NIL is returned. SYMBOL cannot be a keyword." msgstr "" -#: target:pcl/low.lisp +#: src/pcl/low.lisp msgid "Set the name of a compiled function object and return the function." msgstr "" -#: target:pcl/low.lisp +#: src/pcl/low.lisp msgid "" "PCL debugging aid that breaks into the debugger each time\n" "`compile-lambda' is invoked." msgstr "" -#: target:pcl/low.lisp +#: src/pcl/low.lisp msgid "" "If true (the default), then `compile-lambda' will try to silence\n" "the compiler as completely as possible. Currently this means that\n" "`*compile-print*' will be bound to nil during compilation." msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "" "~@<The declaration ~S is not understood by ~S. ~\n" " Please put ~S on one of the lists ~S, ~S, or " @@ -19021,53 +19411,57 @@ msgid "" " argument).~@:>" msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "~@<Invalid slot access specifier ~s in ~s.~@:>" msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "~@<Invalid slot access declaration ~s.~@:>" msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "~@<Invalid auto-compile specifier ~s in ~s.~@:>" msgstr "" -#: target:pcl/info.lisp +#: src/pcl/info.lisp msgid "~@<Invalid auto-compile declaration ~s.~@:>" msgstr "" -#: target:pcl/fin.lisp +#: src/pcl/fin.lisp msgid "" "~@<Attempt to funcall a funcallable instance without first ~\n" " setting its function.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp +msgid "Defclass already names a declaration: ~S." +msgstr "" + +#: src/pcl/defclass.lisp msgid "~S is not a legal defclass option." msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "" "~@<The value of the ~s option (~s) is not a legal ~\n" "\t class name.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "~@<~S is not a legal slot specification.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "" "~@<In the class definintion of ~s, the slot specification ~s ~\n" " is obsolete. Convert it to ~s.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "~@<~S is not a class in *early-class-definitions*.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "" "~@<More than one early class defines a slot with the ~\n" " name ~S. This can't work because the bootstrap ~\n" @@ -19075,55 +19469,59 @@ msgid "" " slots.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "Discard it." msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "" "~@<The defclass option ~S is not supported by ~\n" " the bootstrap object system.~@:>" msgstr "" -#: target:pcl/defclass.lisp +#: src/pcl/defclass.lisp msgid "Slot ~S not found in class ~S" msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "" "~@<Trying to load (or compile) PCL in an environment in which it ~\n" " has already been loaded. This doesn't work, you will have to ~\n" " get a fresh lisp (reboot) and then load PCL.~@:>" msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "Try loading (or compiling) PCL anyways." msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp +msgid "Obsolete, don't use." +msgstr "" + +#: src/pcl/defs.lisp msgid "~@<~S is not a legal specializer type.~@:>" msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "~@<~s is neither a type nor a specializer.~@:>" msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "Bad argument to type-class." msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "~s is not a type." msgstr "" -#: target:pcl/defs.lisp +#: src/pcl/defs.lisp msgid "" "For class slots, the class defininig the slot.\n" "For inherited class slots, this is the superclass from which the slot\n" "was inherited." msgstr "" -#: target:pcl/fngen.lisp +#: src/pcl/fngen.lisp msgid "" "Flush cached emf functions. If GF is supplied, it should be a\n" " generic function metaobject or the name of a generic function, and\n" @@ -19131,137 +19529,137 @@ msgid "" " function. If GF is not supplied, all cached emfs are flushed." msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Wrapper ~S" msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Unknown wrapper state" msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "" "~@<PCL cannot handle the specializer ~S ~\n" " (meta-specializer ~S).~@:>" msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Line is reserved." msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "" "~@<Bad cache ~S: Value at location ~D is ~D ~\n" " lines from its home, limit is ~D.~@:>" msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Attempt to fill a reserved cache line." msgstr "" -#: target:pcl/cache.lisp +#: src/pcl/cache.lisp msgid "Transfering something into a reserved cache line." msgstr "" -#: target:pcl/dlisp.lisp +#: src/pcl/dlisp.lisp msgid "Every metatype is T." msgstr "" -#: target:pcl/dlisp.lisp +#: src/pcl/dlisp.lisp msgid "Can't do a slot reg for this metatype." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~~@<Generic function ~a: ~?.~~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Invalid generic function parameter name ~a" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "Optional and key parameters of generic functions ~\n" " may not have default values or supplied-p ~\n" " parameters: ~<~s~>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~s is not allowed in generic function lambda lists" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~~@<Generic function ~~s: ~?.~~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "The option ~s appears more than once" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Declaration specifier ~s is not allowed" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "Argument precedence order must list all ~\n" " required parameters and only those: ~s" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "Duplicate parameter names in argument ~\n" " precedence order: ~s" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Special operators cannot be made generic functions" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Unsupported option ~s" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "If true, allow inlining of methods in effective methods." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<Defining method ~s ~s ~s using inline slot access in a ~\n" " non-null lexical environment means that it cannot be ~\n" " automatically recompiled.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "The method-lambda argument to make-method-function, ~S,~\n" " is not a lambda form" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<The ~s argument to ~s, ~s, is not a lambda form.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "Assignment to method parameter~p ~{~s~^, ~} ~\n" " might prevent CLOS optimizations" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Wrong number of args." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "1 or 2 args expected." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "1 arg expected." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<The set of methods ~s applicable to argument~p ~\n" " ~{~s~^, ~} to call-next-method is different from ~\n" @@ -19269,11 +19667,11 @@ msgid "" " method argument~p ~{~s~^, ~}.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "When true, compile interpreted method functions." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~&~@<At the time the method with qualifiers ~S and ~\n" " specializers ~S on the generic function ~S ~\n" @@ -19283,381 +19681,381 @@ msgid "" " may mean that this method was compiled improperly.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<~S already names an ordinary function or a macro. ~\n" "\tIf you want to replace it with a generic function, you should remove ~\n" " the existing definition beforehand.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<Discard the existing definition of ~S.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<The lambda-list ~S is incompatible with ~\n" " existing methods of ~S.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~~@<Attempt to add the method ~~S to the generic ~\n" " function ~~S, but ~?.~~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "more" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "fewer" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "the method has ~A required arguments than the ~\n" " generic function" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "the method has ~S optional arguments than the ~\n" " generic function" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "the method and generic function differ in whether ~\n" " they accept rest or keyword arguments" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "the method does not accept each of the keyword ~\n" " arguments ~S" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<The function ~S is not already defined.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<~S should be on the list ~S.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<The function of the funcallable instance ~S ~\n" "\t\t\t has not been set.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<No way to determine the lambda list~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<The ~s argument (~S) was neither a class nor a ~\n" " symbol naming a class.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~S is not an early-method." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Early add-method didn't get a funcallable instance." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Early add-method didn't get an early method." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Early remove-method didn't get a funcallable instance." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Early remove-method didn't get an early method." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "Can't get early method." msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~@<Qualifiers must be non-null atoms: ~s~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "" "~@<~S used as a specializer, ~\n" " but is not the name of a class.~@:>" msgstr "" -#: target:pcl/boot.lisp +#: src/pcl/boot.lisp msgid "~S is not a legal specializer." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Set to true to activate the inline slot access optimization." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "When true, check slot values against specified slot types." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "When true, optimize slot access through slot reader/writer functions." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Cannot optimize slot access to" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "The class is not a standard class" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "The class doesn't contain a slot with name ~s" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Slot ~s is a class slot" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "There are non-standard accessors for slot ~s" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "" "Slot ~s is not at the same location ~\n" " in the class and all of its subclasses" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Auto-compiling method ~s." msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "" "Methods may need to be recompiled for the changed ~\n" " class layout of" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "The class is not defined at compile time" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "" "~s has a method that is not a standard ~\n" " slot accessor" msgstr "" -#: target:pcl/method-slot-access-optimization.lisp +#: src/pcl/method-slot-access-optimization.lisp msgid "Methods of ~s access different slots" msgstr "" -#: target:pcl/slots-boot.lisp +#: src/pcl/slots-boot.lisp msgid "~@<~S is not a standard-class.~@:>" msgstr "" -#: target:pcl/slots-boot.lisp +#: src/pcl/slots-boot.lisp msgid "" "~@<Slot ~S in class ~S ~\n" " does not have standard allocation.~@:>" msgstr "" -#: target:pcl/slots-boot.lisp +#: src/pcl/slots-boot.lisp msgid "" "~@<Slot ~S in class ~S ~\n" " does not have standard allocation.~@:>" msgstr "" -#: target:pcl/slots-boot.lisp +#: src/pcl/slots-boot.lisp msgid "" "~@<The wrapper for class ~S does not have ~\n" " the slot ~S.~@:>" msgstr "" -#: target:pcl/defcombin.lisp target:pcl/combin.lisp +#: src/pcl/defcombin.lisp src/pcl/combin.lisp msgid "has more than one qualifier" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "has an invalid qualifier" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "" "~@<~s was called outside the dynamic scope ~\n" " of a method combination function (inside the body of ~\n" " ~s or a method on the generic function ~s).~@:>" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "~@<~S used outside of a effective method form.~@:>" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "" "~@<Invalid keyword argument~p ~{~s~^, ~}. ~\n" " Valid keywords are: ~{~s~^, ~}.~@:>" msgstr "" -#: target:pcl/combin.lisp +#: src/pcl/combin.lisp msgid "Invalid keyword argument ~s" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~@<Slot ~s of class ~s is unbound in object ~s~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "" "~@<Cannot get standard value of slot ~s of class ~s ~\n" " in object ~s~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~&Name ~S caching cost ~D dispatch cost ~D~%" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "" "Precompute effective methods at method load time if the generic\n" " function has less than this number of methods. If zero,\n" " no effective methods are precomputed at method load time." msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~@<The function ~S requires at least ~D arguments.~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~<The function ~S requires at least ~D arguments.~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "" "~@<Vicious metacircle: The computation of an ~\n" "\t effective method of ~s for arguments of types ~s uses ~\n" "\t the effective method being computed.~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "This can't happen." msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~@<~s cannot handle the second argument ~s.~@:>" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~&There are ~4d dfuns of type ~s" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "~&DFUN constructor caching is ~A." msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "enabled" msgstr "" -#: target:pcl/dfun.lisp +#: src/pcl/dfun.lisp msgid "disabled" msgstr "" -#: target:pcl/ctor.lisp +#: src/pcl/ctor.lisp msgid "~@<Not a property list: ~S.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<The function of the funcallable instance ~S ~\n" " has not been set.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<Slot allocation ~S is not supported ~\n" " in bootstrap.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "The standard method combination." msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "In *built-in-classes*: ~S has ~S as a superclass,~%~\n" " but ~S is not itself a class in *built-in-classes*." msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "~@<~S is not the name of a class.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<No matching method for the generic function ~\n" " ~S, when called with arguments ~S.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "Retry call to ~S." msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "~@<In method ~S: No next method for arguments ~S.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<Generic function ~S: ~\n" " No primary method given arguments ~S~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<In a call to ~s with arguments ~:s: ~\n" " The method ~s has invalid qualifiers for method ~\n" " combination ~s.~@:>" msgstr "" -#: target:pcl/braid.lisp +#: src/pcl/braid.lisp msgid "" "~@<In a call to ~s with arguments ~:s: ~\n" " The methods ~{~s~^, ~} have invalid qualifiers for ~\n" " method combination ~s.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "~@<The slot ~S is unbound in the object ~S.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "is not a symbol and so cannot be bound" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "is a keyword and so cannot be bound" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "cannot be bound" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "is a constant and so cannot be bound" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "" "~@<The slot ~s has neither ~s nor ~s ~\n" " allocation, so it can't be read by the default ~s " @@ -19665,13 +20063,13 @@ msgid "" " method.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "" "~@<The slot ~s has neither ~s nor ~s allocation, ~\n" " so it can't be written by the default ~s method.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "" "~@<The slot ~s has neither ~s nor ~s ~\n" " allocation, so it can't be read by the default ~s " @@ -19679,241 +20077,241 @@ msgid "" "\t\t\t method.~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "Structure slots cannot be unbound." msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "Condition slots cannot be unbound." msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "" "~~@<When attempting to ~A, the slot ~S is missing ~\n" " from the object ~S.~~@:>" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "read the slot's value (slot-value)" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "set the slot's value to ~S (setf of slot-value)" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "test to see if slot is bound (slot-boundp)" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "make the slot unbound (slot-makunbound)" msgstr "" -#: target:pcl/slots.lisp +#: src/pcl/slots.lisp msgid "~@<Can't allocate an instance of class ~S.~@:>" msgstr "" -#: target:pcl/init.lisp +#: src/pcl/init.lisp msgid "" "~@<Invalid initialization argument~P ~2I~_~\n" " ~<~{~S~^, ~}~@:> ~I~_in call for class ~S.~:>" msgstr "" -#: target:pcl/seal.lisp +#: src/pcl/seal.lisp msgid "~@<Invalid sealing specifier ~s.~@:>" msgstr "" -#: target:pcl/seal.lisp +#: src/pcl/seal.lisp msgid "~s is sealed wrt ~a" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "" "~~@<While computing the class precedence list ~\n" " of the class ~A: ~?.~~@:>" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "named ~S" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "The class ~A is a forward referenced class" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "" "The class ~A is a forward referenced class. ~\n" " The class ~A is ~A." msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "a direct superclass of the class ~A" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "" "reached from the class ~A by following~@\n" " the direct superclass chain through: ~A~\n" " ~% ending at the class ~A" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "~{~% the class ~A,~}" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "" "It is not possible to compute the class precedence list because ~\n" " there ~A in the local precedence relations. ~\n" " ~A because:~{~% ~A~}." msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "are circularities" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "is a circularity" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "These arise" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "This arises" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "the class ~A appears in the supers of the class ~A" msgstr "" -#: target:pcl/cpl.lisp +#: src/pcl/cpl.lisp msgid "the class ~A follows the class ~A in the supers of the class ~A" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "Instance" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<Structure slots must have ~s allocation.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<~S doesn't seem to have a method function.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<Attempt to reinitialize the method ~S. ~\n" " Method objects cannot be reinitialized.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<When initializing the method ~S, ~\n" " the ~S initialization argument was ~S, ~\n" " which ~A.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "is not a string or NULL" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "is not a function" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "Contains ~S which ~A" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "is not a non-null atom" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "is neither a class object nor an eql specializer" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "The value of the ~s initarg, ~s, ~A." msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~~@<When initializing the generic-function ~S: ~\n" " The ~S initialization argument was ~A. ~\n" " It must be ~A.~~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<~S does not name a generic function.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<There is no method for the generic function ~S ~\n" " matching argument specifiers ~S.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<No method on ~S with qualifiers ~S and ~\n" " specializers ~S.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<No method on ~S with qualifiers ~S and ~\n" " specializers ~S.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<The generic function ~s takes ~d required argument~p.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<The method ~S is already part of the generic ~\n" " function ~S. It can't be added to another generic ~\n" " function until it is removed from the first one.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<Method ~s contains invalid qualifiers for ~\n" " the standard method combination.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "" "~@<Method ~s contains invalid qualifiers for ~\n" " the method combination ~s.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "~@<Generic function ~S requires at least ~D arguments.~@:>" msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "In get-accessor-method-function." msgstr "" -#: target:pcl/methods.lisp +#: src/pcl/methods.lisp msgid "The key for the last case arg to mcase was not T." msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "" "~@<Invalid options to a short method combination type. ~\n" " The method combination type ~S accepts one option which ~\n" " must be either ~s or ~s.~@:>" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "" "~@<The method ~S ~A. ~\n" " The method combination type ~S was defined with the ~\n" @@ -19922,95 +20320,95 @@ msgid "" "\t\t ~s.~@:>" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "has no qualifiers" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "has an illegal qualifier" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "" "~@<More than one method of type ~S ~\n" " with the same specializers.~@:>" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "No ~S methods." msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "" "~@<In the method group specifier ~S, ~\n" " ~S isn't a valid qualifier pattern.~@:>" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "methods matching one of the patterns: ~{~S, ~} ~S" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "methods matching the pattern: ~S" msgstr "" -#: target:pcl/defcombin.lisp +#: src/pcl/defcombin.lisp msgid "Invalid parameter specifier: ~s" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~%~S is an instance of class ~S:" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~% The following slots have :INSTANCE allocation:" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~% The following slots have :CLASS allocation:" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~% The following slots have allocation as shown:" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~A is a generic function.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Its lambda-list is:~% ~S~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Generic function documentation:~% ~s~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Its methods are:~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid " Method documentation: ~s~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&~@<~S is a class, it is an instance of ~S.~@:>~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Its proper name is ~S.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "Its name is ~S, but this is not a proper name.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "It has no name (the name is NIL).~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "" "The direct superclasses are: ~:S, and the direct~%~\n" " subclasses are: ~:S. The class is ~:[not ~;~]finalized. ~\n" @@ -20018,71 +20416,63 @@ msgid "" " There are ~D methods specialized for this class." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&Its direct slots are:~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid " ~a, documentation ~s~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&~S is a ~S.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "You can also call it~@[ ~{~S~^, ~} or~] ~S.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "It has ~D internal and ~D external symbols (~D total).~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "It uses the packages ~{~S~^, ~}.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "It is used by the packages ~{~S~^, ~}.~%" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&~S is an ~a hash table." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&Its size is ~d buckets." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&Its rehash-size is ~d." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~&Its rehash-threshold is ~d." msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~@<Default ~s method for ~s called.~@>" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~@<Can't dump wrapper for anonymous class ~S.~@:>" msgstr "" -#: target:pcl/env.lisp +#: src/pcl/env.lisp msgid "~@<Can't use anonymous or undefined class as constant: ~S~:@>" msgstr "" -#: target:pcl/cmucl-documentation.lisp -msgid "Invalid function name ~s" -msgstr "" - -#: target:pcl/cmucl-documentation.lisp -msgid "~@<~S is not the name of a structure type.~@:>" -msgstr "" - -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp #, fuzzy msgid "" "Returns a type specifier for the kind of object returned by the\n" @@ -20090,21 +20480,21 @@ msgid "" " which returns CHARACTER." msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Return true if Stream is not closed. A default method is provided\n" " by class FUNDAMENTAL-STREAM which returns true if CLOSE has not been\n" " called on the stream." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Closes the given Stream. No more I/O may be performed, but\n" " inquiries may still be made. If :Abort is non-nil, an attempt is made\n" " to clean up the side effects of having created the stream." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This reads one character from the stream. It returns either a\n" " character object, or the symbol :EOF if the stream is at end-of-file.\n" @@ -20112,14 +20502,14 @@ msgid "" " method for this function." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Un-does the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.\n" " Returns NIL. Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM\n" " must define a method for this function." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This is used to implement READ-CHAR-NO-HANG. It returns either a\n" " character, or NIL if no input is currently available, or :EOF if\n" @@ -20129,14 +20519,14 @@ msgid "" " their own method." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Used to implement PEEK-CHAR; this corresponds to peek-type of NIL.\n" " It returns either a character or :EOF. The default method calls\n" " STREAM-READ-CHAR and STREAM-UNREAD-CHAR." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Used by LISTEN. Returns true or false. The default method uses\n" " STREAM-READ-CHAR-NO-HANG and STREAM-UNREAD-CHAR. Most streams should \n" @@ -20144,7 +20534,7 @@ msgid "" " always be more efficient than the default method." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Used by READ-LINE. A string is returned as the first value. The\n" " second value is true if the string was terminated by end-of-file\n" @@ -20152,24 +20542,24 @@ msgid "" " calls to STREAM-READ-CHAR." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Implements CLEAR-INPUT for the stream, returning NIL. The default\n" " method does nothing." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "Implements READ-SEQUENCE for the stream." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Writes character to the stream and returns the character. Every\n" " subclass of FUNDAMENTAL-CHARACTER-OUTPUT-STREAM must have a method\n" " defined for this function." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This function returns the column number where the next character\n" " will be written, or NIL if that is not meaningful for this stream.\n" @@ -20180,11 +20570,11 @@ msgid "" " always return NIL." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "Return the stream line length or Nil." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This is a predicate which returns T if the stream is positioned at\n" " the beginning of a line, else NIL. It is permissible to always return\n" @@ -20200,7 +20590,7 @@ msgid "" " either STREAM-START-LINE-P or STREAM-FRESH-LINE." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "This is used by WRITE-STRING. It writes the string to the stream,\n" " optionally delimited by start and end, which default to 0 and NIL.\n" @@ -20209,13 +20599,13 @@ msgid "" " STREAM-WRITE-CHAR." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Writes an end of line, as for TERPRI. Returns NIL. The default\n" " method does (STREAM-WRITE-CHAR stream #NEWLINE)." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Outputs a new line to the Stream if it is not positioned at the\n" " begining of a line. Returns T if it output a new line, nil\n" @@ -20223,26 +20613,26 @@ msgid "" " STREAM-START-LINE-P and STREAM-TERPRI." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Attempts to ensure that all output sent to the Stream has reached\n" " its destination, and only then returns false. Implements\n" " FINISH-OUTPUT. The default method does nothing." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Attempts to force any buffered output to be sent. Implements\n" " FORCE-OUTPUT. The default method does nothing." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Clears the given output Stream. Implements CLEAR-OUTPUT. The\n" " default method does nothing." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Writes enough blank space so that the next character will be\n" " written at the specified column. Returns true if the operation is\n" @@ -20252,26 +20642,30 @@ msgid "" " #SPACE character; it returns NIL if STREAM-LINE-COLUMN returns NIL." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "Implements WRITE-SEQUENCE for the stream." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Used by READ-BYTE; returns either an integer, or the symbol :EOF\n" " if the stream is at end-of-file." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid "" "Implements WRITE-BYTE; writes the integer to the stream and\n" " returns the integer as the result." msgstr "" -#: target:pcl/gray-streams.lisp +#: src/pcl/gray-streams.lisp msgid " Gray Streams Protocol Support" msgstr "" +#, fuzzy +#~ msgid "Skip this form." +#~ msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%" + #, fuzzy #~ msgid "" #~ "Function previously called with ~R argument~:P, but wants at least ~R." -- GitLab