This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp".
The branch, master has been updated via 7f177be20349c8d8a267b51fa2f71636fce4d1ce (commit) via 8e96bc91f563b648050ab096b94d2bf20fd2054d (commit) via 86b95ac8dbf8c53cdfec8c994f01453c132a5051 (commit) from 1c6efe8566e0304db811c556388296d14ee78136 (commit)
Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below.
- Log ----------------------------------------------------------------- commit 7f177be20349c8d8a267b51fa2f71636fce4d1ce Author: Raymond Toy toy.raymond@gmail.com Date: Sun Jan 29 08:05:54 2012 -0800
Everything that was in cmucl-sparc-svr4 has been moved o cmucl-sparc-vm.
diff --git a/src/i18n/locale/cmucl-sparc-svr4.pot b/src/i18n/locale/cmucl-sparc-svr4.pot deleted file mode 100644 index 8ed4a1d..0000000 --- a/src/i18n/locale/cmucl-sparc-svr4.pot +++ /dev/null @@ -1,73 +0,0 @@ -#@ cmucl-sparc-svr4 - -# SOME DESCRIPTIVE TITLE -# FIRST AUTHOR EMAIL@ADDRESS, YEAR -# -#, fuzzy -msgid "" -msgstr "" -"Project-Id-Version: PACKAGE VERSION\n" -"Report-Msgid-Bugs-To: \n" -"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n" -"Last-Translator: FULL NAME EMAIL@ADDRESS\n" -"Language-Team: LANGUAGE LL@li.org\n" -"MIME-Version: 1.0\n" -"Content-Type: text/plain; charset=UTF-8\n" -"Content-Transfer-Encoding: 8bit\n" - -#: src/code/sparc-svr4-vm.lisp -msgid "Returns a string describing the type of the local machine." -msgstr "" - -#: src/code/sparc-svr4-vm.lisp -msgid "Returns a string describing the version of the local machine." -msgstr "" - -#: src/code/sparc-svr4-vm.lisp -msgid "Unaligned instruction? offset=#x~X." -msgstr "" - -#: src/code/sparc-svr4-vm.lisp -msgid "Can't deal with CALL fixups, yet." -msgstr "" - -#: src/code/sparc-svr4-vm.lisp -msgid "XRS ID invalid but attempting to access double-float register ~d!" -msgstr "" - -#: src/code/signal.lisp -msgid "Emt instruction" -msgstr "" - -#: src/code/signal.lisp -msgid "Bad argument to system call" -msgstr "" - -#: src/code/signal.lisp -msgid "Process's lwps are blocked" -msgstr "" - -#: src/code/debug-int.lisp -msgid "no debug info: ~A:~A" -msgstr "" - -#: src/code/debug-int.lisp -msgid "find the PC" -msgstr "" - -#: src/code/debug-int.lisp -msgid "Local non-descriptor register access?" -msgstr "" - -#: src/code/debug-int.lisp -msgid "Local interior register access?" -msgstr "" - -#: src/code/debug-int.lisp -msgid "Breakpoint that nobody wants?" -msgstr "" - -#: src/code/debug-int.lisp -msgid "BREAKPOINT-DO-DISPLACED-INST returned?" -msgstr "" - diff --git a/src/i18n/locale/cmucl-sparc-vm.pot b/src/i18n/locale/cmucl-sparc-vm.pot index 2d9d588..77c892b 100644 --- a/src/i18n/locale/cmucl-sparc-vm.pot +++ b/src/i18n/locale/cmucl-sparc-vm.pot @@ -15,6 +15,62 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n"
+#: src/code/sparc-svr4-vm.lisp +msgid "Returns a string describing the type of the local machine." +msgstr "" + +#: src/code/sparc-svr4-vm.lisp +msgid "Returns a string describing the version of the local machine." +msgstr "" + +#: src/code/sparc-svr4-vm.lisp +msgid "Unaligned instruction? offset=#x~X." +msgstr "" + +#: src/code/sparc-svr4-vm.lisp +msgid "Can't deal with CALL fixups, yet." +msgstr "" + +#: src/code/sparc-svr4-vm.lisp +msgid "XRS ID invalid but attempting to access double-float register ~d!" +msgstr "" + +#: src/code/signal.lisp +msgid "Emt instruction" +msgstr "" + +#: src/code/signal.lisp +msgid "Bad argument to system call" +msgstr "" + +#: src/code/signal.lisp +msgid "Process's lwps are blocked" +msgstr "" + +#: src/code/debug-int.lisp +msgid "no debug info: ~A:~A" +msgstr "" + +#: src/code/debug-int.lisp +msgid "find the PC" +msgstr "" + +#: src/code/debug-int.lisp +msgid "Local non-descriptor register access?" +msgstr "" + +#: src/code/debug-int.lisp +msgid "Local interior register access?" +msgstr "" + +#: src/code/debug-int.lisp +msgid "Breakpoint that nobody wants?" +msgstr "" + +#: src/code/debug-int.lisp +msgid "BREAKPOINT-DO-DISPLACED-INST returned?" +msgstr "" + #: src/compiler/sparc/parms.lisp msgid "Number of bits per word where a word holds one lisp descriptor." msgstr ""
commit 8e96bc91f563b648050ab096b94d2bf20fd2054d Author: Raymond Toy toy.raymond@gmail.com Date: Sun Jan 29 00:32:23 2012 -0800
Update textdomains.
* Use cmucl-sparc-vm instead of cmucl-sparc-svr4
diff --git a/src/code/signal.lisp b/src/code/signal.lisp index 217a0f8..ee6ee6b 100644 --- a/src/code/signal.lisp +++ b/src/code/signal.lisp @@ -104,7 +104,7 @@ (def-unix-signal :SIGIOT 6 "Iot instruction") ; Compatibility (def-unix-signal :SIGABRT 6 "C abort()") (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os" - #+(or sparc solaris) "cmucl-sparc-svr4" + #+(or sparc solaris) "cmucl-sparc-vm" #+bsd "cmucl-bsd-os") #-linux (def-unix-signal :SIGEMT 7 "Emt instruction")) @@ -115,7 +115,7 @@ (def-unix-signal :SIGBUS #-linux 10 #+linux 7 "Bus error") (def-unix-signal :SIGSEGV 11 "Segmentation violation") (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os" - #+(or sparc solaris) "cmucl-sparc-svr4" + #+(or sparc solaris) "cmucl-sparc-vm" #+bsd "cmucl-bsd-os") #-linux (def-unix-signal :SIGSYS 12 "Bad argument to system call")) @@ -124,7 +124,7 @@ (def-unix-signal :SIGALRM 14 "Alarm clock") (def-unix-signal :SIGTERM 15 "Software termination signal") (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os" - #+(or sparc solaris) "cmucl-sparc-svr4" + #+(or sparc solaris) "cmucl-sparc-vm" #+bsd "cmucl-bsd-os") #+linux (def-unix-signal :SIGSTKFLT 16 "Stack fault on coprocessor")) @@ -163,7 +163,7 @@
;;; SVR4 (or Solaris?) specific signals (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os" - #+(or sparc solaris) "cmucl-sparc-svr4" + #+(or sparc solaris) "cmucl-sparc-vm" #+bsd "cmucl-bsd-os") #+svr4 (def-unix-signal :SIGWAITING 32 "Process's lwps are blocked"))
commit 86b95ac8dbf8c53cdfec8c994f01453c132a5051 Author: Raymond Toy toy.raymond@gmail.com Date: Sun Jan 29 00:31:29 2012 -0800
Update textdomains.
* Use cmucl-sparc-vm instead of cmucl-sparc-svr4 * Use cmucl-ppc-vm instead of cmucl-ppc. * code/ppc-vm.lisp should be in the cmucl-ppc textdomain instead of cmucl.
diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp index 6e5d63b..a3a3dfb 100644 --- a/src/code/debug-int.lisp +++ b/src/code/debug-int.lisp @@ -1253,7 +1253,7 @@ The result is a symbol or nil if the routine cannot be found." ;;; LRA, and the LRA is the word offset. ;;; #-(or gengc x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun compute-calling-frame (caller lra up-frame) (declare (type system:system-area-pointer caller)) (when (cstack-pointer-valid-p caller) @@ -1362,7 +1362,7 @@ The result is a symbol or nil if the routine cannot be found." escaped))))))
#-(or gengc x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun find-escaped-frame (frame-pointer) (declare (type system:system-area-pointer frame-pointer)) (dotimes (index lisp::*free-interrupt-context-index* (values nil 0 nil)) @@ -1455,7 +1455,7 @@ The result is a symbol or nil if the routine cannot be found." (values code pc-offset scp)))))))))))
#-(or gengc x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun find-pc-from-assembly-fun (code scp) "find the PC" (let ((return-machine-address @@ -3079,7 +3079,7 @@ The result is a symbol or nil if the routine cannot be found." ;;; SUB-ACCESS-DEBUG-VAR-SLOT -- Internal. ;;; #-(or x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun sub-access-debug-var-slot (fp sc-offset &optional escaped) (macrolet ((with-escaped-value ((var) &body forms) `(if escaped @@ -3505,7 +3505,7 @@ The result is a symbol or nil if the routine cannot be found." ;;; SUB-SET-DEBUG-VAR-SLOT -- Internal. ;;; #-(or x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun sub-set-debug-var-slot (fp sc-offset value &optional escaped) (macrolet ((set-escaped-value (val) `(if escaped @@ -4501,8 +4501,8 @@ The result is a symbol or nil if the routine cannot be found." ;;; This handles code-location and debug-function :function-start breakpoints. ;;; (intl:with-textdomain ("cmucl" #+(or x86 amd64) "cmucl-x86-vm" - #+sparc "cmucl-sparc-svr4" - #+ppc "cmucl-ppc") + #+sparc "cmucl-sparc-vm" + #+ppc "cmucl-ppc-vm") (defun handle-breakpoint-aux (breakpoints data offset component signal-context) (unless breakpoints (error (intl:gettext "Breakpoint that nobody wants?"))) diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp index 489ea2c..bba9f78 100644 --- a/src/code/ppc-vm.lisp +++ b/src/code/ppc-vm.lisp @@ -17,7 +17,7 @@ (use-package "SYSTEM") (use-package "UNIX")
-(intl:textdomain "cmucl") +(intl:textdomain "cmucl-ppc-vm")
(export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register diff --git a/src/code/sparc-svr4-vm.lisp b/src/code/sparc-svr4-vm.lisp index 7fe91b8..92b7af0 100644 --- a/src/code/sparc-svr4-vm.lisp +++ b/src/code/sparc-svr4-vm.lisp @@ -15,7 +15,7 @@ (use-package "SYSTEM") (use-package "UNIX")
-(intl:textdomain "cmucl-sparc-svr4") +(intl:textdomain "cmucl-sparc-vm")
(export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register diff --git a/src/code/sparc-vm.lisp b/src/code/sparc-vm.lisp index fb4564e..0c23e4b 100644 --- a/src/code/sparc-vm.lisp +++ b/src/code/sparc-vm.lisp @@ -15,7 +15,7 @@ (use-package "SYSTEM") (use-package "UNIX")
-(intl:textdomain "cmucl") +(intl:textdomain "cmucl-sparc-vm")
(export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register
-----------------------------------------------------------------------
Summary of changes: src/code/debug-int.lisp | 14 +++--- src/code/ppc-vm.lisp | 2 +- src/code/signal.lisp | 8 ++-- src/code/sparc-svr4-vm.lisp | 2 +- src/code/sparc-vm.lisp | 2 +- src/i18n/locale/cmucl-sparc-svr4.pot | 73 ---------------------------------- src/i18n/locale/cmucl-sparc-vm.pot | 56 ++++++++++++++++++++++++++ 7 files changed, 70 insertions(+), 87 deletions(-) delete mode 100644 src/i18n/locale/cmucl-sparc-svr4.pot
hooks/post-receive