git » jacl.git » commit 65313b4

boot.lisp stuff

author Alan Dipert
2020-01-14 03:50:46 UTC
committer Alan Dipert
2020-01-14 03:50:46 UTC
parent 3bbf30f3aa356db9354a439520f5ea720372e69b

boot.lisp stuff

boot.lisp +4 -4

diff --git a/boot.lisp b/boot.lisp
index c5c877f..e772950 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -18,7 +18,10 @@
               ,@body))
           ',name)))
 
-(\. *package* (|exportSymbol| (\. "DEFUN" (|toString|))))
+(defun %export (symbol)
+  (\. *package* (|exportSymbol| (\. symbol |name|))))
+
+(%export 'defun)
 (defmacro defun (name params &rest body)
   `(jacl:%progn
      (jacl:%js "(~{}.fvalue = ~{})"
@@ -26,9 +29,6 @@
        (jacl:%lambda ,params ,@body))
      ',name))
 
-(defun %export (symbol)
-  (\. *package* (|exportSymbol| (\. symbol |name|))))
-
 (%export 'set)
 (defun set (symbol value)
   (%js "(~{}.value = ~{})" symbol value))