Skip to content

Instantly share code, notes, and snippets.

@g000001

g000001/lw.lisp

Last active September 20, 2015 20:49
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/3876b3453bbd4502a4c4 to your computer and use it in GitHub Desktop.
Save g000001/3876b3453bbd4502a4c4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
lw.lisp
(lw:set-default-character-element-type 'base-char)
lw:*default-character-element-type*
;=> base-char
(apply #'= (loop :repeat 10 :collect (system:object-address (intern "ああああ"))))
;=> t
(lw:set-default-character-element-type 'character)
lw:*default-character-element-type*
;=> character
(apply #'= (loop :repeat 10 :collect (system:object-address (intern "ああああ"))))
;=> nil
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment