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

(import '(defconstant
	   defmacro
	   byte
	   byte-size
	   byte-position)
	"PRIMS")

(export '(
	  defconstant
	  defmacro
	  byte
	  byte-size
	  byte-position
	  )
	(find-package "PRIMS" user:*package*))

(defun hw::unboxed-constant (n)
  n)