chris/emacs-rpgdm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

♻️ Favor cl- functions

Browse source 
When requiring `rpgdm.el` and it's "child" packages, I encounter the
following warnings:

> Warning: ‘destructuring-bind’ is an obsolete alias (as of 27.1); use
> ‘cl-destructuring-bind’ instead.
>
> Warning: ‘incf’ is an obsolete alias (as of 27.1); use ‘cl-incf’
> instead.
>
> Warning: ‘decf’ is an obsolete alias (as of 27.1); use ‘cl-decf’
> instead.
>
> Warning: ‘defstruct’ is an obsolete alias (as of 27.1); use
> ‘cl-defstruct’ instead.

Since we've already required the `cl` package, this should be a noop change.
This commit is contained in:
Jeremy Friesen 2023-12-10 09:47:10 -05:00
parent 5c5f17e7a6
commit 25c282c094
6 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
rpgdm-dice.el
View file

@ -81,7 +81,7 @@ This really tests the `rpgdm--test-rolls' function."
(8 1 8)
(20 1 20)
(100 1 100)))
(destructuring-bind (die lowest highest) test-data
(cl-destructuring-bind (die lowest highest) test-data
(rpgdm--test-rolls #'rpgdm--roll-die (list die) lowest highest))))
;; ----------------------------------------------------------------------
@ -155,7 +155,7 @@ average value of AVG, if given."
((3 6 4) 7 22)
((4 6 4 "-") 0 20))))
(dolist (test-seq test-data)
(destructuring-bind (dice-args lowest highest) test-seq
(cl-destructuring-bind (dice-args lowest highest) test-seq
(rpgdm--test-roll-series 'rpgdm--roll dice-args lowest highest)))))
@ -240,7 +240,7 @@ the following:
("2d12" 2 24)
("3d6+2" 5 20))))
(dolist (test-data test-cases)
(destructuring-bind (dice-expression lowest highest) test-data
(cl-destructuring-bind (dice-expression lowest highest) test-data
(rpgdm--test-roll-series 'rpgdm--roll-expression (list dice-expression) lowest highest)))))