From c1029b0f740e09ccac65ab97b3bf9e06bd39e9bd Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 30 Nov 2024 07:29:15 -0800 Subject: Remove: alexandria dependency --- def.asd | 3 +-- generic.lisp | 6 +++--- util.lisp | 3 +++ 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 " :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)) -- cgit v1.2.3