Hatena::Groupcadr

わだばLisperになる このページをアンテナに追加 RSSフィード

2004 | 12 |
2005 | 01 | 02 | 07 | 10 | 11 |
2006 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 11 |

2009-07-10

「最悪なHello World」に挑戦2

| 02:36 | 「最悪なHello World」に挑戦2 - わだばLisperになる を含むブックマーク はてなブックマーク - 「最悪なHello World」に挑戦2 - わだばLisperになる

寝ようと思って目を閉じたらこれが浮んでしまったので記念エントリ

(defmacro left_parenthesis-latin_small_letter_p-latin_small_letter_r-latin_small_letter_i-latin_small_letter_n-latin_small_letter_t-space-quotation_mark-latin_capital_letter_h-latin_small_letter_e-latin_small_letter_l-latin_small_letter_l-latin_small_letter_o-comma-space-latin_capital_letter_w-latin_small_letter_o-latin_small_letter_r-latin_small_letter_l-latin_small_letter_d-exclamation_mark-quotation_mark-right_parenthesis (&whole whole)
  (read-from-string
   (map 'string #'name-char
        (ppcre:split "-" (symbol-name (car whole))))))

実行

(left_parenthesis-latin_small_letter_p-latin_small_letter_r-latin_small_letter_i-latin_small_letter_n-latin_small_letter_t-space-quotation_mark-latin_capital_letter_h-latin_small_letter_e-latin_small_letter_l-latin_small_letter_l-latin_small_letter_o-comma-space-latin_capital_letter_w-latin_small_letter_o-latin_small_letter_r-latin_small_letter_l-latin_small_letter_d-exclamation_mark-quotation_mark-right_parenthesis)
;-> "Hello, World!"
;=> "Hello, World!"

「最悪なHello World」に挑戦

| 01:11 | 「最悪なHello World」に挑戦 - わだばLisperになる を含むブックマーク はてなブックマーク - 「最悪なHello World」に挑戦 - わだばLisperになる

ときどきの雑記帖 (null)編さん経由 Not Found - Happy My Life

何をしたら最悪なのかなと考えつつぼんやり書いてみました。

(defmacro hello-world (&optional (string "Hello, World!")
                       &aux (char-names
                             '("GRAVE_ACCENT" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_P"
                               "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_O" "LATIN_SMALL_LETTER_G"
                               "LATIN_SMALL_LETTER_N" "Newline" "Space" "LEFT_PARENTHESIS"
                               "LATIN_SMALL_LETTER_D" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_U" "LATIN_SMALL_LETTER_N" "Space" "LATIN_SMALL_LETTER_P"
                               "LATIN_SMALL_LETTER_U" "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_C"
                               "LATIN_SMALL_LETTER_H" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_R"
                               "HYPHEN-MINUS" "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_K" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R" "Space"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_H"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_R" "RIGHT_PARENTHESIS" "Newline"
                               "Space" "Space" "Space" "Space" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_L"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_T" "Space" "LEFT_PARENTHESIS"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_H"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_R" "HYPHEN-MINUS"
                               "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_M"
                               "LATIN_SMALL_LETTER_E" "Space" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_C"
                               "LATIN_SMALL_LETTER_H" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_R"
                               "HYPHEN-MINUS" "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_E" "Space" "LATIN_SMALL_LETTER_C"
                               "LATIN_SMALL_LETTER_H" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_R"
                               "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "Newline" "Space"
                               "Space" "Space" "Space" "Space" "Space" "GRAVE_ACCENT" "LEFT_PARENTHESIS"
                               "LATIN_SMALL_LETTER_D" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_U" "LATIN_SMALL_LETTER_N" "Space" "COMMA"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R"
                               "LATIN_SMALL_LETTER_N" "Space" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_O" "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_M"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_T" "Space" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_L" "Space" "QUOTATION_MARK"
                               "LATIN_CAPITAL_LETTER_P" "LATIN_CAPITAL_LETTER_U" "LATIN_CAPITAL_LETTER_T"
                               "HYPHEN-MINUS" "TILDE" "TILDE" "LATIN_CAPITAL_LETTER_A" "QUOTATION_MARK"
                               "Space" "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_H" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_R" "HYPHEN-MINUS" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_E"
                               "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "Space" "LEFT_PARENTHESIS"
                               "RIGHT_PARENTHESIS" "Newline" "Space" "Space" "Space" "Space" "Space" "Space"
                               "Space" "Space" "Space" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_P"
                               "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_C" "Space" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_E"
                               "HYPHEN-MINUS" "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_H"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_R" "Space" "COMMA"
                               "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_H" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_R" "HYPHEN-MINUS" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_E"
                               "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS"
                               "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "Newline" "Space" "Space"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_D" "LATIN_SMALL_LETTER_E"
                               "LATIN_SMALL_LETTER_F" "LATIN_SMALL_LETTER_U" "LATIN_SMALL_LETTER_N" "Space"
                               "COMMA" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R"
                               "LATIN_SMALL_LETTER_N" "Space" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_O" "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_M"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_T" "Space" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_L" "Space" "QUOTATION_MARK" "TILDE"
                               "LATIN_CAPITAL_LETTER_A" "HYPHEN-MINUS" "LATIN_SMALL_LETTER_R"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_D"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R" "QUOTATION_MARK" "Space"
                               "QUOTATION_MARK" "TILDE" "COLON" "ASTERISK" "TILDE" "LATIN_CAPITAL_LETTER_A"
                               "QUOTATION_MARK" "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "Space"
                               "LEFT_PARENTHESIS" "AMPERSAND" "LATIN_SMALL_LETTER_O" "LATIN_SMALL_LETTER_P"
                               "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_O"
                               "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_L" "Space"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_S" "LATIN_SMALL_LETTER_T"
                               "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_G" "Space" "QUOTATION_MARK" "TILDE" "COLON" "ASTERISK"
                               "TILDE" "LATIN_CAPITAL_LETTER_A" "QUOTATION_MARK" "RIGHT_PARENTHESIS"
                               "RIGHT_PARENTHESIS" "Newline" "Space" "Space" "Space" "Space"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_P" "Space" "APOSTROPHE" "LATIN_SMALL_LETTER_L"
                               "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_S" "LATIN_SMALL_LETTER_T" "Space"
                               "NUMBER_SIGN" "APOSTROPHE" "LATIN_SMALL_LETTER_P" "LATIN_SMALL_LETTER_U"
                               "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_H"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_R" "HYPHEN-MINUS"
                               "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_K"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R" "Space" "LATIN_SMALL_LETTER_S"
                               "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_I"
                               "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_G" "RIGHT_PARENTHESIS"
                               "RIGHT_PARENTHESIS" "Newline" "Space" "LEFT_PARENTHESIS"
                               "LATIN_SMALL_LETTER_D" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_U" "LATIN_SMALL_LETTER_N" "Space" "COMMA"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R"
                               "LATIN_SMALL_LETTER_N" "Space" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_O" "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_M"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_T" "Space" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_L" "Space" "QUOTATION_MARK" "TILDE"
                               "COLON" "ASTERISK" "TILDE" "LATIN_CAPITAL_LETTER_A" "HYPHEN-MINUS"
                               "LATIN_SMALL_LETTER_D" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_E"
                               "LATIN_SMALL_LETTER_R" "QUOTATION_MARK" "Space" "QUOTATION_MARK" "TILDE"
                               "COLON" "ASTERISK" "TILDE" "LATIN_CAPITAL_LETTER_A" "QUOTATION_MARK"
                               "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "Space" "LEFT_PARENTHESIS"
                               "LATIN_SMALL_LETTER_L" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_S"
                               "LATIN_SMALL_LETTER_T" "RIGHT_PARENTHESIS" "Newline" "Space" "Space"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_P" "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_R" "Space" "NUMBER_SIGN" "APOSTROPHE"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_V" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_L" "Space" "LATIN_SMALL_LETTER_L" "LATIN_SMALL_LETTER_I"
                               "LATIN_SMALL_LETTER_S" "LATIN_SMALL_LETTER_T" "RIGHT_PARENTHESIS"
                               "RIGHT_PARENTHESIS" "Newline" "Space" "LEFT_PARENTHESIS"
                               "LATIN_SMALL_LETTER_D" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_U" "LATIN_SMALL_LETTER_N" "Space" "COMMA"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R"
                               "LATIN_SMALL_LETTER_N" "Space" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_O" "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_M"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_T" "Space" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_L" "Space" "QUOTATION_MARK" "TILDE"
                               "COLON" "ASTERISK" "TILDE" "LATIN_CAPITAL_LETTER_A" "HYPHEN-MINUS"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_X" "LATIN_SMALL_LETTER_E"
                               "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_U" "LATIN_SMALL_LETTER_T"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R" "QUOTATION_MARK" "Space"
                               "QUOTATION_MARK" "TILDE" "COLON" "ASTERISK" "TILDE" "LATIN_CAPITAL_LETTER_A"
                               "QUOTATION_MARK" "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "Space"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_E" "HYPHEN-MINUS"
                               "LATIN_SMALL_LETTER_L" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_S"
                               "LATIN_SMALL_LETTER_T" "RIGHT_PARENTHESIS" "Newline" "Space" "Space"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_P" "Space" "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_I"
                               "LATIN_SMALL_LETTER_L" "Space" "NUMBER_SIGN" "APOSTROPHE"
                               "LATIN_SMALL_LETTER_F" "LATIN_SMALL_LETTER_U" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_L"
                               "LATIN_SMALL_LETTER_L" "Space" "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_E" "HYPHEN-MINUS"
                               "LATIN_SMALL_LETTER_L" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_S"
                               "LATIN_SMALL_LETTER_T" "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "Newline"
                               "Space" "LEFT_PARENTHESIS" "COMMA" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_I"
                               "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_E"
                               "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_N" "Space" "LEFT_PARENTHESIS"
                               "LATIN_SMALL_LETTER_F" "LATIN_SMALL_LETTER_O" "LATIN_SMALL_LETTER_R"
                               "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_T" "Space"
                               "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_L" "Space"
                               "QUOTATION_MARK" "TILDE" "COLON" "ASTERISK" "TILDE" "LATIN_CAPITAL_LETTER_A"
                               "HYPHEN-MINUS" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_X"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_C" "LATIN_SMALL_LETTER_U"
                               "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R"
                               "QUOTATION_MARK" "Space" "QUOTATION_MARK" "TILDE" "COLON" "ASTERISK" "TILDE"
                               "LATIN_CAPITAL_LETTER_A" "QUOTATION_MARK" "RIGHT_PARENTHESIS"
                               "RIGHT_PARENTHESIS" "Newline" "Space" "Space" "Space" "LEFT_PARENTHESIS"
                               "COMMA" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_T" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R"
                               "LATIN_SMALL_LETTER_N" "Space" "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_O" "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_M"
                               "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_T" "Space" "LATIN_SMALL_LETTER_N"
                               "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_L" "Space" "QUOTATION_MARK" "TILDE"
                               "COLON" "ASTERISK" "TILDE" "LATIN_CAPITAL_LETTER_A" "HYPHEN-MINUS"
                               "LATIN_SMALL_LETTER_D" "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_F"
                               "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_E"
                               "LATIN_SMALL_LETTER_R" "QUOTATION_MARK" "Space" "QUOTATION_MARK" "TILDE"
                               "COLON" "ASTERISK" "TILDE" "LATIN_CAPITAL_LETTER_A" "QUOTATION_MARK"
                               "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "Newline" "Space" "Space" "Space"
                               "Space" "Space" "LEFT_PARENTHESIS" "COMMA" "LEFT_PARENTHESIS"
                               "LATIN_SMALL_LETTER_I" "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_T"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_N" "Space"
                               "LEFT_PARENTHESIS" "LATIN_SMALL_LETTER_F" "LATIN_SMALL_LETTER_O"
                               "LATIN_SMALL_LETTER_R" "LATIN_SMALL_LETTER_M" "LATIN_SMALL_LETTER_A"
                               "LATIN_SMALL_LETTER_T" "Space" "LATIN_SMALL_LETTER_N" "LATIN_SMALL_LETTER_I"
                               "LATIN_SMALL_LETTER_L" "Space" "QUOTATION_MARK" "TILDE" "COLON" "ASTERISK"
                               "TILDE" "LATIN_CAPITAL_LETTER_A" "HYPHEN-MINUS" "LATIN_SMALL_LETTER_R"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_A" "LATIN_SMALL_LETTER_D"
                               "LATIN_SMALL_LETTER_E" "LATIN_SMALL_LETTER_R" "QUOTATION_MARK" "Space"
                               "QUOTATION_MARK" "TILDE" "COLON" "ASTERISK" "TILDE" "LATIN_CAPITAL_LETTER_A"
                               "QUOTATION_MARK" "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS"
                               "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS" "RIGHT_PARENTHESIS")))
  (eval
   (read-from-string 
    (format nil (map 'string #'name-char char-names) string))))

実行例

(hello-world)
;-> Hello, World!