some stuff idk

utils.lisp

@@ -38,6 +38,10 @@
   `(insystem? (export*! ,@val) 
 	      (mapc #'eval '(,@val))))
 
+(defmacro defexport (&rest val)
+  `(export*! ,@val))
+(export? defexport)
+
 (defun file-get-contents (filename)
   (with-open-file (stream filename)
     (let ((contents (make-string (file-length stream))))