y2q-actionman · February 5, 2020 06:42
diff --git a/uninterned_hello.lisp b/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#))
	(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#))