;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:CL -*- (eval-when (load) (do-symbols (x 'hardware nil) (export x 'hardware)))