Skip to content

Instantly share code, notes, and snippets.

@kenoss

kenoss/read-sexp.txt

Created March 3, 2015 17:53
Show Gist options
  • Save kenoss/ac1b497a29a392ee11bd to your computer and use it in GitHub Desktop.
Save kenoss/ac1b497a29a392ee11bd to your computer and use it in GitHub Desktop.
Download ZIP
S式を読み込む
Raw
read-sexp.txt
gosh> (let1 lis '()
(let1 iport (open-input-string "Hello,world")
(while (read iport) (complement eof-object?) => x
(push! lis x)))
(reverse! lis))
(Hello ,world)
gosh> '(Hello ,world)
(Hello ,world)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment