Skip to content

Instantly share code, notes, and snippets.

@val314159

val314159/normalize.lisp

Last active Sep 6, 2019
Embed
What would you like to do?
normalize lisp syntax
#| -*- lisp -*-
exec sbcl --script $0 $* # |#
;;≈ç√Ωπøπøˆøˆˆ©ƒ√∂
(set-dispatch-macro-character
#\# #\/ (lambda(stream subchar arg)
(declare (ignore subchar arg))
(list (quote quote) (read stream t nil t))))
(defun concat(&rest r) (apply #'concatenate #/string r))
(import #/(sb-impl::quasiquote sb-impl::unquote-splice
sb-impl::unquote-nsplice sb-impl::unquote))
(set-dispatch-macro-character
#\# #\` (lambda(stream subchar arg)
(declare (ignore subchar arg))
(list #/quasiquote (read stream t nil t))))
(set-dispatch-macro-character
#\# #\, (lambda(s subchar arg)
(declare (ignore subchar arg))
(case (peek-char nil s)
(#\@ (read-char s) (unquote-splice (read s t nil t)))
(#\. (read-char s) (unquote-nsplice (read s t nil t)))
(t (unquote (read s t nil t))))))
(print (unquote 100))
(print (unquote-splice 100))
(print (unquote-nsplice 100))
(print (quasiquote (quasiquote 100)))
(print '`,(1 2))
(print '`#,(1 2))
(terpri)
(eval `(format ,@(list t "qwert~d~%" 9991)))
(eval `(format ,@(list t "qwert~d~%" 9992)))
(eval `(format ,@(list t "qwert~d~%" 9993)))
(print ' `( ,format ,.(list t) ,@(list t "qwert~d ~s~%" 9994 '|q|w)))
(print '#`(#,format #,.(list t) #,@(list t "qwert~d ~s~%" 9994 '\qw)))
(print '#`(#,format #,.(list t) #,@(list t "qwert~d ~s~%" 9994 #/ \qw)))
(print #/#`(#,format #,.(list t) #,@(list t "qwert~d ~s~%" 9994 #/|q|w)))
(print #/(\/\/\/w\/w\hw))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment