From 10122f8f80239846f2444e2774f8138c97cc79b1 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 6 Feb 2008 15:03:00 +0000
Subject: [PATCH] Nothing special needed in extern-alien-name.

---
 tools/cross-scripts/cross-sparc-sparc.lisp | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/tools/cross-scripts/cross-sparc-sparc.lisp b/tools/cross-scripts/cross-sparc-sparc.lisp
index 8973f8b92..5154e5ace 100644
--- a/tools/cross-scripts/cross-sparc-sparc.lisp
+++ b/tools/cross-scripts/cross-sparc-sparc.lisp
@@ -213,9 +213,6 @@
 (in-package :vm)
 (defun extern-alien-name (name)
   (declare (type simple-string name))
-  #+(and bsd (not elf))
-  (concatenate 'string "_" name)
-  #-(and bsd (not elf))
   name)
 (export 'extern-alien-name)
 (export 'fixup-code-object)
-- 
GitLab