some stuff idk

6 years ago · ff7919ae05
parent de2e6a11cc
commit ff7919ae05
1 changed files with 4 additions and 0 deletions
--- a/utils.lisp
+++ b/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))))