Skip to content
Snippets Groups Projects
Commit 70f47171 authored by wlott's avatar wlott
Browse files

Removed vm: qualifier, so we can compile this file before that symbol is

exported, and besides, this file lives in the VM package.
parent 19217eca
No related branches found
No related tags found
No related merge requests found
......@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.2 1991/02/20 15:17:30 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.3 1991/03/15 04:08:48 wlott Exp $")
;;;
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.2 1991/02/20 15:17:30 ram Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.3 1991/03/15 04:08:48 wlott Exp $
;;;
;;; This file contains some macros and constants that are object-format
;;; specific or are used for defining the object format.
......@@ -21,7 +21,7 @@
(in-package "VM")
(defmacro pad-data-block (words)
`(logandc2 (+ (ash ,words vm:word-shift) lowtag-mask) lowtag-mask))
`(logandc2 (+ (ash ,words word-shift) lowtag-mask) lowtag-mask))
(defmacro defenum ((&key (prefix "") (suffix "") (start 0) (step 1))
&rest identifiers)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment