;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10 -*-

(defconstant %%bitmask (byte 30. 0))

(defun time-func (val)
  (ldb %%bitmask val))