cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed test for conditional macro call.

This commit is contained in:
cage 2023-12-07 17:31:33 +01:00
parent e255f87eaf
commit c613cefa13
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/tui-utils.lisp
View File

@ -503,20 +503,22 @@ latter has a length equals to `total-size'"))
(defmacro with-notify-errors (&body body) (defmacro with-notify-errors (&body body)
#+(or debug-mode debug-tui-errors) `(progn ,@body) #+(or debug-mode debug-tui-errors) `(progn ,@body)
#-debug-mode `(handler-case #-(or debug-mode debug-tui-errors)
(progn `(handler-case
,@body) (progn
(error (e) ,@body)
(ui:notify (format nil (_ "Error: ~a") e) (error (e)
:life (* (swconf:config-notification-life) 5) (ui:notify (format nil (_ "Error: ~a") e)
:as-error t) :life (* (swconf:config-notification-life) 5)
nil))) :as-error t)
nil)))
(defmacro with-print-error-message (&body body) (defmacro with-print-error-message (&body body)
#+debug-mode `(progn ,@body) #+(or debug-mode debug-tui-errors) `(progn ,@body)
#-debug-mode `(handler-case #-(or debug-mode debug-tui-errors)
(progn `(handler-case
,@body) (progn
(error (e) ,@body)
(ui:error-message (format nil (_ "Error: ~a") e)) (error (e)
nil))) (ui:error-message (format nil (_ "Error: ~a") e))
nil)))