diff --git a/compiler/sparc/alloc.lisp b/compiler/sparc/alloc.lisp
index 703cc6036dc5f58b06b9379de87afe07290f6cee..879efed8b28bcf385150c6fc7bd59982dba25c80 100644
--- a/compiler/sparc/alloc.lisp
+++ b/compiler/sparc/alloc.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.9 1992/12/17 08:59:51 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/alloc.lisp,v 1.10 1994/10/24 22:53:53 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -112,7 +112,7 @@
   (:translate make-fdefn)
   (:generator 37
     (with-fixed-allocation (result temp fdefn-type fdefn-size)
-      (inst li temp (make-fixup "_undefined_tramp" :foreign))
+      (inst li temp (make-fixup (extern-alien-name "undefined_tramp") :foreign))
       (storew name result fdefn-name-slot other-pointer-type)
       (storew null-tn result fdefn-function-slot other-pointer-type)
       (storew temp result fdefn-raw-addr-slot other-pointer-type))))
diff --git a/compiler/sparc/c-call.lisp b/compiler/sparc/c-call.lisp
index 2cbc597ed93fe9676f72d560650a827f7b14ce0c..ae3fd05d9b53bc5ef786631cf850cab41faff93b 100644
--- a/compiler/sparc/c-call.lisp
+++ b/compiler/sparc/c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.9 1992/04/28 15:41:03 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/c-call.lisp,v 1.10 1994/10/24 22:54:46 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -121,7 +121,7 @@
   (:results (res :scs (sap-reg)))
   (:result-types system-area-pointer)
   (:generator 2
-    (inst li res (make-fixup (concatenate 'simple-string "_" foreign-symbol)
+    (inst li res (make-fixup (extern-alien-name foreign-symbol)
 			     :foreign))))
 
 (define-vop (call-out)
@@ -141,7 +141,7 @@
       (when cur-nfp
 	(store-stack-tn nfp-save cur-nfp))
       (move cfunc function)
-      (inst li temp (make-fixup "_call_into_c" :foreign))
+      (inst li temp (make-fixup (extern-alien-name "call_into_c") :foreign))
       (inst jal lip temp)
       (inst nop)
       (when cur-nfp
diff --git a/compiler/sparc/cell.lisp b/compiler/sparc/cell.lisp
index 1c46ffe18a7db62ba9351e50ed223c521bce75ea..780ce61061f744f47380d63dfd7a923561ee742c 100644
--- a/compiler/sparc/cell.lisp
+++ b/compiler/sparc/cell.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.18 1993/05/04 15:48:37 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.19 1994/10/24 22:55:30 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -128,7 +128,7 @@
       (inst cmp type function-header-type)
       (inst b :eq normal-fn)
       (inst move lip function)
-      (inst li lip (make-fixup "_closure_tramp" :foreign))
+      (inst li lip (make-fixup (extern-alien-name "closure_tramp") :foreign))
       (emit-label normal-fn)
       (storew function fdefn fdefn-function-slot other-pointer-type)
       (storew lip fdefn fdefn-raw-addr-slot other-pointer-type)
@@ -142,7 +142,7 @@
   (:results (result :scs (descriptor-reg)))
   (:generator 38
     (storew null-tn fdefn fdefn-function-slot other-pointer-type)
-    (inst li temp (make-fixup "_undefined_tramp" :foreign))
+    (inst li temp (make-fixup (extern-alien-name "undefined_tramp") :foreign))
     (storew temp fdefn fdefn-raw-addr-slot other-pointer-type)
     (move result fdefn)))
 
diff --git a/compiler/sparc/print.lisp b/compiler/sparc/print.lisp
index 66361f358feafc6aa67226b5a5e2fe889250ef1a..9b5bb1b365fcaae43eb9eb2be123e20e0747be91 100644
--- a/compiler/sparc/print.lisp
+++ b/compiler/sparc/print.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/print.lisp,v 1.1 1990/11/30 17:05:00 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/print.lisp,v 1.2 1994/10/24 22:56:39 ram Exp $
 ;;;
 ;;; This file contains VOPs for things like printing during %initial-function
 ;;; before the world is initialized.
@@ -32,8 +32,8 @@
       (when cur-nfp
 	(store-stack-tn nfp-save cur-nfp))
       (move nl0 object)
-      (inst li cfunc (make-fixup "_debug_print" :foreign))
-      (inst li temp (make-fixup "_call_into_c" :foreign))
+      (inst li cfunc (make-fixup (extern-alien-name "debug_print") :foreign))
+      (inst li temp (make-fixup (extern-alien-name "call_into_c") :foreign))
       (inst jal lip temp)
       (inst nop)
       (when cur-nfp