cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-25 09:17:45 +01:00
Code Issues

- fixed test for conditional macro call.

Browse Source
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

8
src/tui-utils.lisp
View File

@ -503,7 +503,8 @@ 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)
`(handler-case
(progn (progn
,@body) ,@body)
(error (e) (error (e)
@ -513,8 +514,9 @@ latter has a length equals to `total-size'"))
nil))) 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)
`(handler-case
(progn (progn
,@body) ,@body)
(error (e) (error (e)