From 8e58c7b1a45e4a1d7070fc264bd21c2761cab924 Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Sat, 22 Jun 2024 00:33:28 -0500
Subject: [PATCH] Remove unused function, ALIST-REMOVE-KEYS

---
 src/activity-vocabulary.lisp | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/src/activity-vocabulary.lisp b/src/activity-vocabulary.lisp
index f3bb2dd..65fdf5e 100644
--- a/src/activity-vocabulary.lisp
+++ b/src/activity-vocabulary.lisp
@@ -301,10 +301,8 @@ into one. Otherwise, parse it into an associative list."
 their sanitized string keys appropriate for ActivityVocabular custom.
 A class with slots MAP-AWAY and COLLECTION-AGAIN would return
   ((MAP-AWAY . “mapAway”)(COLLECTION-AGAIN . “collectionAgain”))"
-;;  (alist-remove-keys
-;;   'type
-   (alist-mapcdr #'camel-case
-                 (class-slots-alist class)))
+  (alist-mapcdr #'camel-case
+                (class-slots-alist class)))
 
 (defun merge-@contexts (a b)
   "Given two @context lists, A and B, merge them into one JSON-LD @context list
@@ -356,12 +354,6 @@ items in each will be contained in the resultant list."
   (mapcar (lambda (sym) (find-class sym))
           (find-registered-symbols str)))
 
-(defun alist-remove-keys (item alist &optional (test #'equal))
-  "Remove cells from an associative list whose key TESTs as ITEM."
-  (cl:remove item alist
-             :test (lambda (a cell)
-                     (funcall test a (car cell)))))
-
 (defun alist-mapcdr (function alist)
   "Apply a FUNCTION to all values (cdrs) of an ALIST’s pairs. Returns a new ALIST
 of the same keys, whose values are the results of FUNCTION."