;;; -*- Mode:LISP; Package:LISP-INTERNALS -*-



(defun foo ()
  (print .45s3))


(defun foo ()
  (let ((trap-off-state (hw:trap-off))
	(trap-on-state  (trap:trap-on)))
    (li:error "trap investigation: a1 = trap-off-state  a2 = trap-on-state"
	      trap-off-state trap-on-state)))