Remove: alexandria dependency

3 files changed, 7 insertions, 5 deletions

diff --git a/def.asd b/def.asd
index 9c997ce..363d4cb 100644
--- a/def.asd
+++ b/def.asd
@@ -1,11 +1,10 @@
 ;;;; def.asd
 
 (asdf:defsystem #:def
-  :description "Idomatic def* forms."
+  :description "Idiomatic def forms."
   :author "colin <colin@cicadas.surf>"
   :license  "Unlicense"
   :version "0.0.1"
-  :depends-on (#:alexandria)
   :serial t
   :components ((:file "package")
                (:file "util")
diff --git a/generic.lisp b/generic.lisp
index d160527..cd8e2a8 100644
--- a/generic.lisp
+++ b/generic.lisp
@@ -1,8 +1,8 @@
 ;;;; An implementation of a kind of generic function. This is not
 ;;;; terribly CLOSy, as it does not support inheritance. What we have
-;;;; is a method selection routine that works on arbitrary types.
-;;;; Some effort has been made to emulate CLOS's primary method
-;;;; selection.
+;;;; is a multiple-dispatch method selection routine that works on
+;;;; arbitrary types.  Some effort has been made to emulate CLOS's
+;;;; primary method selection.
 
 (in-package :def)
 
diff --git a/util.lisp b/util.lisp
index 4c13d19..7645f6b 100644
--- a/util.lisp
+++ b/util.lisp
@@ -37,3 +37,6 @@ YES is everything for which PRED is T, NO is everything else."
 (defun lambda-opt-p (x)
   (find x '(cl:&optional cl:&key cl:&aux cl:&allow-other-keys cl:&rest)
         :test #'eq))
+
+(defun make-keyword (name)
+  (intern (string name) :keyword))