# HG changeset patch # User Steve Losh # Date 1471729617 0 # Node ID 2df541caba610f1fe409d86e15a040db70e7eae9 # Parent f62853c43fb9391d508d9f3f2c4f16250f1337c1 Remove unused function diff -r f62853c43fb9 -r 2df541caba61 package-test.lisp --- 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 diff -r f62853c43fb9 -r 2df541caba61 package.lisp --- 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 diff -r f62853c43fb9 -r 2df541caba61 src/utils.lisp --- 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`."