diff --git a/compiler/meta-vmdef.lisp b/compiler/meta-vmdef.lisp index 220673bbaec9f4f13405b51bf5f2be2654dad448..270d27057dae44ba7abd6026717ffbbb39269409 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: