diff --git a/compiler/sparc/macros.lisp b/compiler/sparc/macros.lisp index fc03e12c7f562cde6de3a6bdd482c2f1673e2452..0e20aba4d23464b25bc87952a2b8aa242139eede 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)))) -