From c7c573e7a854c05058037ab7c649b2e07a248b64 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 20 Aug 1993 00:12:39 +0000 Subject: [PATCH] Move meta-sb-or-lose, etc., to vmdef. --- compiler/meta-vmdef.lisp | 29 ++--------------------------- 1 file changed, 2 insertions(+), 27 deletions(-) diff --git a/compiler/meta-vmdef.lisp b/compiler/meta-vmdef.lisp index 220673bba..270d27057 100644 --- a/compiler/meta-vmdef.lisp +++ b/compiler/meta-vmdef.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/meta-vmdef.lisp,v 1.4 1993/08/12 10:56:31 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/meta-vmdef.lisp,v 1.5 1993/08/20 00:12:39 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -22,38 +22,13 @@ ;;; (in-package :c) -(export '(meta-sc-or-lose meta-sb-or-lose meta-sc-number-or-lose - define-storage-base define-storage-class define-move-function +(export '(define-storage-base define-storage-class define-move-function define-move-function define-move-vop meta-primitive-type-or-lose def-primitive-type def-primitive-type-alias primitive-type-vop define-vop sc-case sc-is note-this-location note-next-instruction)) - - -;;;; - -;;; META-SC-OR-LOSE, META-SB-OR-LOSE, META-SC-NUMBER-OR-LOSE -- Internal -;;; -;;; Like the non-meta versions, but go for the meta-compile-time info. -;;; These should not be used after load time, since compiling the compiler -;;; changes the definitions. -;;; -(defun meta-sc-or-lose (x) - (the sc - (or (gethash x (backend-meta-sc-names *target-backend*)) - (error "~S is not a defined storage class." x)))) -;;; -(defun meta-sb-or-lose (x) - (the sb - (or (gethash x (backend-meta-sb-names *target-backend*)) - (error "~S is not a defined storage base." x)))) -;;; -(defun meta-sc-number-or-lose (x) - (the sc-number (sc-number (meta-sc-or-lose x)))) - - ;;;; Storage class and storage base definition: -- GitLab