Commit a1946b35 authored by Raymond Toy's avatar Raymond Toy
Browse files

Prepend underscore in extern-alien-name for darwin/ppc.

parent 571dd490
......@@ -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)
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment