Skip to content

Instantly share code, notes, and snippets.

@moratori
Created Dec 10, 2014
Embed
What would you like to do?
dagger
(set-macro-character #\DOUBLE_DAGGER
(get-macro-character #\) ))
(set-macro-character #\DAGGER
(lambda (stream char)
(declare (ignore char))
(read-delimited-list #\DOUBLE_DAGGER stream t)))
defun fact † n‡
if † zerop n‡
1
† * n† fact † 1- n‡ ‡ ‡ ‡ ‡
† print † fact 5‡‡
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment