1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(in-package senzill.math)
(defmacro % (number divisor)
"Different name for the mod function"
`(mod ,number ,divisor))
(defmacro op= (operation value &rest others)
"Executes operation on all values and stores result in first argument"
`(setf ,value (apply ,operation ,value ',others)))
(defmacro += (value &rest numbers)
"Sums all numbers and stores result in name (first argument)"
`(op= '+ ,value ,@numbers))
(defmacro ++_ (value)
"Adds increments value by one"
`(+= ,value 1))
(defmacro -= (value &rest numbers)
"Adds all numbers and stores result in name (first argument)"
`(op= '- ,value ,@numbers))
(defmacro -- (value)
"Decrements value by one"
`(-= ,value 1))
(defmacro /= (value &rest numbers)
"Divides all numbers and stores result in name (first argument)"
`(op= '/ ,value ,@numbers))
(defmacro *= (value &rest numbers)
"Multiplies all numbers and stores result in name (first argument)"
`(op= '* ,value ,@numbers))
|
