loop/srv
1
0
Fork 0
Code Issues Pull requests Activity

Improves the look of the error mesages in the REPL.

Browse source
This commit is contained in:
Circling Skies 2024-12-16 10:34:58 -03:00
parent 6d5aebc361
commit 63d78f0e56
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
loop.lisp
View file

@ -212,7 +212,10 @@
(print/finish "^C~%") (print/finish "^C~%")
(uiop:quit 0)) (uiop:quit 0))
(t (c) (t (c)
(print/finish "Oops: ~a~%" c))))) (print/finish
"Oops: ~a~%"
(str:collapse-whitespaces
(str:replace-all (string #\linefeed) " " (fmt "~a" c))))))))
(defun empty-response () (make-response :code 400 :data "I beg your pardon?")) (defun empty-response () (make-response :code 400 :data "I beg your pardon?"))
(defun prepend-response-with (message r) (defun prepend-response-with (message r)
(make-response (make-response

5
loop.nw
View file

@ -426,7 +426,10 @@ line, which is what causes that 400 response.
(print/finish "^C~%") (print/finish "^C~%")
(uiop:quit 0)) (uiop:quit 0))
(t (c) (t (c)
(print/finish "Oops: ~a~%" c))))) (print/finish
"Oops: ~a~%"
(str:collapse-whitespaces
(str:replace-all (string #\linefeed) " " (fmt "~a" c))))))))
@ %def repl @ %def repl
\section{Description of the package} \section{Description of the package}