6 lines
141 B
Common Lisp
6 lines
141 B
Common Lisp
|
(in-package :lizfcm.utils)
|
||
|
|
|
||
|
|
(defun within-range-p (x true-value delta)
|
||
|
|
(and (< x (+ true-value delta))
|
||
|
|
(> x (- true-value delta))))
|