Plaster
New
List
Login
common-lisp
default
anonymous
2022.01.31 19:04:11
(handler-case (bt:join-thread (find-if (lambda (th) (search "hunchentoot" (bt:thread-name th))) (bt:all-threads))) ;; Catch a user's C-c (sb-sys:interactive-interrupt () (progn (format *error-output* "Aborting.~&") (stop) (uiop:quit))) (error (c) (format t "Woops, an unknown error occured:~&~a~&" c))))
Raw
Annotate
Repaste
Edit