Browse code
refactor: glambda, not as glamorous as it sounds
fiddlerwoaroof authored on 14/10/2022 03:09:26Showing 1 changed files
| ... | ... |
@@ -64,13 +64,13 @@ |
| 64 | 64 |
(prog1-bind (feed (alimenta.pull-feed:pull-feed feed-url)) |
| 65 | 65 |
;; Why am I decf-ing here? |
| 66 | 66 |
(alimenta:transform feed |
| 67 |
- (fw.lu:glambda (entity) |
|
| 68 |
- (:method (entity)) |
|
| 69 |
- (:method ((entity alimenta:item)) |
|
| 67 |
+ (lambda (entity) |
|
| 68 |
+ (typecase entity |
|
| 69 |
+ (alimenta:item |
|
| 70 | 70 |
(let ((v (alimenta:content entity))) |
| 71 | 71 |
(when v |
| 72 | 72 |
(setf (alimenta:content entity) |
| 73 |
- (html-sanitizer:sanitize v))))))) |
|
| 73 |
+ (html-sanitizer:sanitize v)))))))) |
|
| 74 | 74 |
(decf pop-times)))) |
| 75 | 75 |
|
| 76 | 76 |
(defmacro with-progress-message ((stream before after &optional (error-msg " ERROR~%~4t~a~%")) &body body) |