From 2612a32175cff60b1a71ad003d6c9e3c904f964c Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 22 Mar 1991 14:02:52 +0000 Subject: [PATCH] Removed defenum and pad-data-block, because they are now defined in vm-macs. --- compiler/sparc/macros.lisp | 31 +------------------------------ 1 file changed, 1 insertion(+), 30 deletions(-) diff --git a/compiler/sparc/macros.lisp b/compiler/sparc/macros.lisp index fc03e12c7..0e20aba4d 100644 --- a/compiler/sparc/macros.lisp +++ b/compiler/sparc/macros.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.1 1990/11/30 17:04:49 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.2 1991/03/22 14:02:52 wlott Exp $ ;;; ;;; This file contains various useful macros for generating SPARC code. ;;; @@ -427,32 +427,3 @@ - -(defmacro pad-data-block (words) - `(logandc2 (+ (ash ,words word-shift) lowtag-mask) lowtag-mask)) - - -(defmacro defenum ((&key (prefix "") (suffix "") (start 0) (step 1)) - &rest identifiers) - (let ((results nil) - (index 0) - (start (eval start)) - (step (eval step))) - (dolist (id identifiers) - (when id - (multiple-value-bind - (root docs) - (if (consp id) - (values (car id) (cdr id)) - (values id nil)) - (push `(defconstant ,(intern (concatenate 'simple-string - (string prefix) - (string root) - (string suffix))) - ,(+ start (* step index)) - ,@docs) - results))) - (incf index)) - `(eval-when (compile load eval) - ,@(nreverse results)))) - -- GitLab