iFix output due to params/desc separation changes - reed-alert - Lightweight agentless alerting system for server Err bitreich.org 70 hgit clone git://bitreich.org/reed-alert/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/reed-alert/ URL:git://bitreich.org/reed-alert/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/reed-alert/ bitreich.org 70 1Log /scm/reed-alert/log.gph bitreich.org 70 1Files /scm/reed-alert/files.gph bitreich.org 70 1Refs /scm/reed-alert/refs.gph bitreich.org 70 1Tags /scm/reed-alert/tag bitreich.org 70 1README /scm/reed-alert/file/README.gph bitreich.org 70 1LICENSE /scm/reed-alert/file/LICENSE.gph bitreich.org 70 i--- Err bitreich.org 70 1commit 98918e04dc8835f5dd3c4634cbc246dc89037fe9 /scm/reed-alert/commit/98918e04dc8835f5dd3c4634cbc246dc89037fe9.gph bitreich.org 70 1parent 5d2fda3df3c639f75191ede0f4180f7992f90c79 /scm/reed-alert/commit/5d2fda3df3c639f75191ede0f4180f7992f90c79.gph bitreich.org 70 hAuthor: Solene Rapenne URL:mailto:solene@perso.pw bitreich.org 70 iDate: Thu, 11 Jul 2019 10:06:17 +0200 Err bitreich.org 70 i Err bitreich.org 70 iFix output due to params/desc separation changes Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M functions.lisp | 7 +++++-- Err bitreich.org 70 i Err bitreich.org 70 i1 file changed, 5 insertions(+), 2 deletions(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/functions.lisp b/functions.lisp /scm/reed-alert/file/functions.lisp.gph bitreich.org 70 i@@ -148,8 +148,11 @@ Err bitreich.org 70 i (format stream-out "~a~%~a~%" (+ 1 tries) params)) Err bitreich.org 70 i nil)) Err bitreich.org 70 i Err bitreich.org 70 i- (format t "~a ~A ~A ~A ~A ~A ~A ~A~%" Err bitreich.org 70 i- level fonction Err bitreich.org 70 i+ (format t "~a ~A ~{~A ~} ~A ~A ~A ~A ~A~%" Err bitreich.org 70 i+ level Err bitreich.org 70 i+ fonction Err bitreich.org 70 i+ Err bitreich.org 70 i+ ;; returns params without :desc keyword and associated value Err bitreich.org 70 i (let ((desc-pos (position :desc params))) Err bitreich.org 70 i (if desc-pos Err bitreich.org 70 i (remove nil Err bitreich.org 70 .