;;; -*- Mode:LISP; Package:HARDWARE; Readtable:CL; Base:10 -*-


(lisp::defmacro unboxed-constant (n)
  (lisp::unless (lisp::typep n '(lisp::unsigned-byte 32.))
    (lisp::error "This is not a 32 bit number: ~s" n))
  `'(unboxed-constant ,n))

(lisp::import '(
		lisp::defconstant
		lisp::byte
		))