From 86f8ef3186fcaedd779791c77f12c656498fbf18 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 13 Jun 1992 08:39:52 +0000 Subject: [PATCH] Alien names do not have an underscore prepended. --- code/hppa-vm.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/hppa-vm.lisp b/code/hppa-vm.lisp index 49c711c57..b8350b50b 100644 --- a/code/hppa-vm.lisp +++ b/code/hppa-vm.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hppa-vm.lisp,v 1.1 1992/06/12 03:24:13 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hppa-vm.lisp,v 1.2 1992/06/13 08:39:52 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -198,11 +198,11 @@ ;;; EXTERN-ALIEN-NAME -- interface. ;;; ;;; The loader uses this to convert alien names to the form they occure in -;;; the symbol table (for example, prepending an underscore). Which is just -;;; what we need to do. +;;; the symbol table (for example, prepending an underscore). On the HPPA +;;; we just leave it alone. ;;; (defun extern-alien-name (name) (declare (type simple-base-string name)) - (concatenate 'string "_" name)) + name) -- GitLab