This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
#|-*- mode:lisp -*-|# | |
#| | |
exec ros -Q -- $0 "$@" | |
|# | |
(progn ;;init forms | |
(ros:ensure-asdf) | |
#+quicklisp (ql:quickload '(:alexandria :trivia :iterate) :silent t)) | |
(defpackage :ros.script.case.3724474528 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sed -E -e 's/^/ /g' -e 's/^ --- ?//g' | pandoc -o listing.pdf - | |
That expression is a cheap literate programming system for Markdown. | |
Start commentary lines with '--- ' and they will be | |
markdown-formatted, the rest will be code. (Uses Lua comment syntax.) | |
Finally the right implementation of this idea: | |
http://fresh.homeunix.net/~luke/misc/emacs/pbook.pdf (program) | |
http://fresh.homeunix.net/~luke/misc/erlang/regtest.pdf (better example) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; That will actually catch exception within inner thread, too. And within inner thread of inner thread. Etc. | |
(Thread/setDefaultUncaughtExceptionHandler (proxy [Thread$UncaughtExceptionHandler] [] | |
(uncaughtException [t e] | |
;; | |
;; Your fancy Exception logging here | |
;; | |
(println "Throwable: " + (.getMessage e)) | |
(println (.toString t))))) | |
(.start (Thread. (cast Runnable | |
(fn [] |