--- a/package.lisp Fri Aug 05 01:07:41 2016 +0000
+++ b/package.lisp Fri Aug 05 01:10:52 2016 +0000
@@ -13,6 +13,7 @@
#:spit
#:d
#:clamp
+ #:symbolize
#:dlambda
--- a/src/main.lisp Fri Aug 05 01:07:41 2016 +0000
+++ b/src/main.lisp Fri Aug 05 01:10:52 2016 +0000
@@ -52,8 +52,6 @@
*screen-center-y* (floor h 2))))
-(defun symbolize (&rest args)
- (intern (format nil "~{~A~}" args)))
(defmacro render (&body body)
`(prog2
--- a/src/utils.lisp Fri Aug 05 01:07:41 2016 +0000
+++ b/src/utils.lisp Fri Aug 05 01:10:52 2016 +0000
@@ -69,6 +69,9 @@
:if-exists :supersede)
,@body))
+(defun symbolize (&rest args)
+ (intern (format nil "~{~A~}" args)))
+
;;;; Maths
(defun d (n sides &optional (plus 0))