From 0fe4c2ca3b1952fb2a534e96edbb6d724b1077f8 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 3 Nov 1990 17:14:59 +0000
Subject: [PATCH] Use def-vm-support-routine to define the vm support routines.
 Changed the package from ``C'' to ``MIPS''.

---
 assembly/mips/support.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/assembly/mips/support.lisp b/assembly/mips/support.lisp
index cbda9e1e2..2bcaebc04 100644
--- a/assembly/mips/support.lisp
+++ b/assembly/mips/support.lisp
@@ -1,4 +1,4 @@
-;;; -*- Package: C; Log: C.Log -*-
+;;; -*- Package: MIPS -*-
 ;;;
 ;;; **********************************************************************
 ;;; This code was written as part of the Spice Lisp project at
@@ -7,14 +7,14 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.3 1990/11/01 01:22:07 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/support.lisp,v 1.4 1990/11/03 17:14:59 wlott Exp $
 ;;;
 ;;; This file contains the machine specific support routines needed by
 ;;; the file assembler.
 ;;;
-(in-package "C")
+(in-package "MIPS")
 
-(defun generate-call-sequence (name style vop)
+(def-vm-support-routine generate-call-sequence (name style vop)
   (ecase style
     (:raw
      (values
@@ -55,7 +55,7 @@
       nil))))
 
 
-(defun generate-return-sequence (style)
+(def-vm-support-routine generate-return-sequence (style)
   (ecase style
     (:raw
      `((inst j lip-tn)
-- 
GitLab