Browse files

Remove stray debug print in time parser.

  • Loading branch information...
1 parent 95f8762 commit 0d43275e8d8fdc14cd3b221f90435b5c377488fc @ahefner committed Mar 14, 2012
Showing with 0 additions and 1 deletion.
  1. +0 −1 src/alarms.lisp
@@ -49,7 +49,6 @@ clock. Returns time in minutes from midnight."
(multiple-value-bind (second minute hour date month year day)
(decode-universal-time utime)
(declare (ignore second))
- (print month)
(format nil "~A ~A ~D ~D:~2,'0D ~A ~D"
(nth day '("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun"))
(nth (1- month) '("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))

0 comments on commit 0d43275

Please sign in to comment.