1 token2)
  (AND-LET* (((= 5 (string-length token1)))
             ((= 5 (string-length token2)))
             (timestamp
               (OS:string-&gt;time "%m/%d/%y %H:%M"
                 (string
                   (string-ref token1 2) (string-ref token1 3) #\/
                   (string-ref token1 0) (string-ref token1 1) #\/
                   (case (string-ref token1 4)
                     ((#\8 #\9) #\9) (else #\0))
                   (string-ref token1 4) #\space
                   (string-ref tok