Source

lurking / lurking-lisp-library / lurking.lisp

1
2
3
4
(defmacro -= (x y)
  `(incf ,x (- ,y)))
(defmacro *= (x y)
  `(setf ,x (* ,x ,y)))