Fix exporting problem

6 years ago · 670542ef41
parent e0b3f4ef86
commit 670542ef41
1 changed files with 1 additions and 1 deletions
--- a/utils.lisp
+++ b/utils.lisp
@ -414,7 +414,7 @@
  (loop for next = (read-next-until stream #\])
 	while next
 	collect next into objects
-	finally (return `(export ,@objects))))
+	finally (return `(defexport ,@objects))))

 (defun top-level-reader (stream char)
  (multiple-value-bind (thing okay) (sexpr-reader stream char)