Browse code
Actually refactor tempores.lisp to simplify time-mod handling
fiddlerwoaroof authored on 28/04/2016 03:33:53Showing 1 changed files
| ... | ... |
@@ -24,11 +24,7 @@ |
| 24 | 24 |
(defun calculate-ranges (ranges date) |
| 25 | 25 |
(declare (optimize (debug 3))) |
| 26 | 26 |
(labels ((time-mod-unit-keyword (time-mod) |
| 27 |
- (make-keyword |
|
| 28 |
- (string-upcase |
|
| 29 |
- (string-case (string-downcase (slot-value time-mod 'unit)) |
|
| 30 |
- ("mins" "minute")
|
|
| 31 |
- (t "hour"))))) |
|
| 27 |
+ (slot-value time-mod 'unit)) |
|
| 32 | 28 |
(make-mod (mod) |
| 33 | 29 |
(when mod |
| 34 | 30 |
(let ((unit (time-mod-unit-keyword mod)) |