solene
/
reed-alert
mirror of git://bitreich.org/reed-alert
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fix output due to params/desc separation changes

This commit is contained in:
Solene Rapenne 2019-07-11 10:06:17 +02:00
parent 5d2fda3df3
commit 98918e04dc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
functions.lisp
View File

@ -148,8 +148,11 @@
(format stream-out "~a~%~a~%" (+ 1 tries) params)) (format stream-out "~a~%~a~%" (+ 1 tries) params))
nil)) nil))
(format t "~a ~A ~A ~A ~A ~A ~A ~A~%" (format t "~a ~A ~{~A ~} ~A ~A ~A ~A ~A~%"
level fonction level
fonction
;; returns params without :desc keyword and associated value
(let ((desc-pos (position :desc params))) (let ((desc-pos (position :desc params)))
(if desc-pos (if desc-pos
(remove nil (remove nil