hg.stevelosh.com > temperance

--- 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`."
author	Steve Losh <steve@stevelosh.com>
date	Sat, 20 Aug 2016 21:46:57 +0000
parents	f62853c43fb9
children	9bdd5543b1d9
branches/tags	(none)
files	package-test.lisp package.lisp src/utils.lisp