Fix output due to params/desc separation changes - reed-alert - Lightweight agentless alerting system for server
HTML git clone git://bitreich.org/reed-alert/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/reed-alert/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit 98918e04dc8835f5dd3c4634cbc246dc89037fe9
DIR parent 5d2fda3df3c639f75191ede0f4180f7992f90c79
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Thu, 11 Jul 2019 10:06:17 +0200
Fix output due to params/desc separation changes
Diffstat:
M functions.lisp | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
---
DIR diff --git a/functions.lisp b/functions.lisp
@@ -148,8 +148,11 @@
(format stream-out "~a~%~a~%" (+ 1 tries) params))
nil))
- (format t "~a ~A ~A ~A ~A ~A ~A ~A~%"
- level fonction
+ (format t "~a ~A ~{~A ~} ~A ~A ~A ~A ~A~%"
+ level
+ fonction
+
+ ;; returns params without :desc keyword and associated value
(let ((desc-pos (position :desc params)))
(if desc-pos
(remove nil