jadedctrl/activity-servist
jadedctrl/ activity-servist
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Remove unused function, ALIST-REMOVE-KEYS

This commit is contained in:
Jaidyn Ann 2024-06-22 00:33:28 -05:00
parent ddc3add769
commit 8e58c7b1a4
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/activity-vocabulary.lisp
View File

@ -301,8 +301,6 @@ into one. Otherwise, parse it into an associative list."
their sanitized string keys appropriate for ActivityVocabular custom. their sanitized string keys appropriate for ActivityVocabular custom.
A class with slots MAP-AWAY and COLLECTION-AGAIN would return A class with slots MAP-AWAY and COLLECTION-AGAIN would return
((MAP-AWAY . “mapAway”)(COLLECTION-AGAIN . “collectionAgain”))" ((MAP-AWAY . “mapAway”)(COLLECTION-AGAIN . “collectionAgain”))"
;; (alist-remove-keys
;; 'type
(alist-mapcdr #'camel-case (alist-mapcdr #'camel-case
(class-slots-alist class))) (class-slots-alist class)))
@ -356,12 +354,6 @@ items in each will be contained in the resultant list."
(mapcar (lambda (sym) (find-class sym)) (mapcar (lambda (sym) (find-class sym))
(find-registered-symbols str))) (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) (defun alist-mapcdr (function alist)
"Apply a FUNCTION to all values (cdrs) of an ALIST’s pairs. Returns a new 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." of the same keys, whose values are the results of FUNCTION."