lizfcm/deprecated-cl/utils,within-range.lisp

6 lines
141 B
Common Lisp
Raw Normal View History

2023-09-07 14:19:32 -04:00
(in-package :lizfcm.utils)
(defun within-range-p (x true-value delta)
(and (< x (+ true-value delta))
(> x (- true-value delta))))