- `(let ((original-color (get-current-color)))
- (apply #'set-current-color ,color)
- ,@code
- (apply #'set-current-color original-color)))
+ (cond (color
+ `(let ((original-color (get-current-color)))
+ (apply #'set-current-color ,color)
+ ,@code
+ (apply #'set-current-color original-color)))
+ (t
+ `(progn
+ ,@code))))