Skip to content

Instantly share code, notes, and snippets.

@y2q-actionman

y2q-actionman/uninterned_hello.lisp

Created February 5, 2020 06:42
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 y2q-actionman/8e1083f930b280b151417106b0d3a05a to your computer and use it in GitHub Desktop.
Save y2q-actionman/8e1083f930b280b151417106b0d3a05a to your computer and use it in GitHub Desktop.
Download ZIP
Uninterned symbol に flet してそれを呼ぶ
Raw
uninterned_hello.lisp
(in-package :cl-user)
;;; これは、二回出てくる `#:hello' が別のシンボルなので、エラーになる。
;; (flet ((#:hello () "Hello, World!"))
;; (#:hello))
;; ; => Evaluation aborted on #<undefined-function @ #x105a7af3f2>.
;;; 一回目の `#:hello' を #n= と #n# で参照すればよい。
(flet ((#1=#:hello () "Hello, World!"))
(#1#))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment