git » jacl.git » commit 887b82d

diff --git a/boot.lisp b/boot.lisp
index 140bb28..66b48dc 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -24,6 +24,18 @@
   (\. cl-pkg (|usePackage| cl:*package*))
   (%setq cl:*package* cl-pkg))
 
+(%js "(~{}.fvalue = ~{})"
+     '%internal-name
+     (%lambda %internal-name nil (prefix-string name)
+       (\. (%js "Package")
+           (|get| (\. "JACL" (|toString|)))
+           (|intern|
+            (%js
+             "('INTERNAL-' + ~{}.toString() + '-' + (~{} === null ? 'NIL' : ~{}.name))"
+             prefix-string
+             name
+             name)))))
+
 (\. *package* (|exportSymbol| (\. 'defmacro |name|)))
 (%js "(~{}.setMacro().fvalue = ~{})"
      'defmacro