Skip to content

Instantly share code, notes, and snippets.

@g000001

g000001/shadow.lisp

Created March 14, 2020 11:47
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save g000001/d81c01f652972f9ac2310f3b9da1d479 to your computer and use it in GitHub Desktop.
Save g000001/d81c01f652972f9ac2310f3b9da1d479 to your computer and use it in GitHub Desktop.
Download ZIP
shadowing
Raw
shadow.lisp
(progn
#.(set-macro-character #\[ (lambda (srm chr)
(declare (ignore chr))
(read-delimited-list #\] srm T)))
[list 0
1
2
#.(progn
(set-macro-character #\[ (lambda (srm chr)
(declare (ignore chr))
(coerce (read-delimited-list #\] srm T)
'vector)))
(values))
[3 4]])
→ (0 1 2 #(3 4))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment