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, rtoy-extern-alien-name has been updated via a1946b35f37aef46677676e2696304ab6b405788 (commit) from 571dd4904fc88cad51c9c2dee0b3e6ed6ef9ce12 (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 a1946b35f37aef46677676e2696304ab6b405788 Author: Raymond Toy <toy.raymond@gmail.com> Date: Thu Oct 9 23:44:38 2014 -0700 Prepend underscore in extern-alien-name for darwin/ppc. diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp index fa977fd..522218c 100644 --- a/src/code/ppc-vm.lisp +++ b/src/code/ppc-vm.lisp @@ -297,7 +297,7 @@ ;;; (defun extern-alien-name (name) (declare (type simple-base-string name)) - name) + (concatenate 'simple-base-string "_" name)) #-linkage-table (defun lisp::foreign-symbol-address-aux (name flavor) diff --git a/src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp b/src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp index 02e05ef..55261dc 100644 --- a/src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp +++ b/src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp @@ -31,7 +31,7 @@ (in-package :vm) (defun extern-alien-name (name) (declare (type simple-string name)) - name) + (concatenate 'simple-string "_" name)) ;; When compiling the compiler, vm:fixup-code-object and ;; vm:sanctify-for-execution are undefined. Import these to get rid ;; of that error. @@ -199,7 +199,7 @@ (in-package :vm) (defun extern-alien-name (name) (declare (type simple-string name)) - name) + (concatenate 'simple-string "_" name)) (export 'extern-alien-name) (export 'fixup-code-object) (export 'sanctify-for-execution) ----------------------------------------------------------------------- Summary of changes: src/code/ppc-vm.lisp | 2 +- src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp