git » jacl.git » commit 8adc105

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