From ff7919ae0542761b6a004461b06001684b99cf07 Mon Sep 17 00:00:00 2001 From: Ringo Wantanabe Date: Fri, 25 Jan 2019 03:15:27 +0000 Subject: [PATCH] some stuff idk --- utils.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/utils.lisp b/utils.lisp index 930731b..e62cdaa 100644 --- 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))))