--- a/package-test.lisp Sat Aug 20 21:44:25 2016 +0000
+++ b/package-test.lisp Sat Aug 20 21:46:57 2016 +0000
@@ -47,9 +47,7 @@
#:?
#:!
#:query
- #:query-all)
- (:import-from #:bones.utils
- #:symbolize))
+ #:query-all))
(defpackage #:bones-test.99
(:use
@@ -69,9 +67,7 @@
#:?
#:!
#:query
- #:query-all)
- (:import-from #:bones.utils
- #:symbolize))
+ #:query-all))
(defpackage #:bones-test.taop
(:use
@@ -91,9 +87,7 @@
#:?
#:!
#:query
- #:query-all)
- (:import-from #:bones.utils
- #:symbolize))
+ #:query-all))
(defpackage #:bones-test.circle
(:use--- a/package.lisp Sat Aug 20 21:44:25 2016 +0000
+++ b/package.lisp Sat Aug 20 21:46:57 2016 +0000
@@ -12,7 +12,6 @@
#:recursively
#:recur
#:when-let
- #:symbolize
#:dis
#:megabytes
#:ecase/tree--- a/src/utils.lisp Sat Aug 20 21:44:25 2016 +0000
+++ b/src/utils.lisp Sat Aug 20 21:46:57 2016 +0000
@@ -37,8 +37,6 @@
(defun hex (d)
(format nil "~X" d))
-(defun symbolize (&rest args)
- (intern (format nil "~{~A~}" args)))
(defmacro when-let ((symbol value) &body body)
"Bind `value` to `symbol` and execute `body` if the value was not `nil`."