ref: e228d9b24953a72ca8e10c0b8024f3ac9ce1fcb4
parent: 983277e19823ce626ce64a75edaad7290f76e28b
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Thu Feb 6 22:29:52 EST 2025
number boundaries tests: make macros prettier
--- a/test/number-boundaries.lsp
+++ b/test/number-boundaries.lsp
@@ -1,28 +1,27 @@
-
; NUMBER BOUNDARIES ------------------------------------------------------------
(define-macro (half-max-signed numtype)
- (list 'ash (list numtype 1)
- (list '- (list '* 8 (list 'sizeof (list 'quote numtype))) 2)))
+ `(ash (,numtype 1)
+ (- (* 8 (sizeof ',numtype)) 2)))
(define-macro (high-border-signed numtype)
- (list '+ (list '- (list 'half-max-signed numtype) 1)
- (list 'half-max-signed numtype)))
+ `(+ (- (half-max-signed ,numtype) 1)
+ (half-max-signed ,numtype)))
(define-macro (low-border-signed numtype)
- (list '- -1 (list 'high-border-signed numtype)))
+ `(- -1 (high-border-signed ,numtype)))
(define-macro (low-border numtype)
- (list 'if (list '< (list numtype -1) 1)
- (list 'low-border-signed numtype)
- (list numtype 0)))
+ `(if (< (,numtype -1) 1)
+ (low-border-signed ,numtype)
+ (,numtype 0)))
(define-macro (high-border numtype)
- (list 'lognot (list 'low-border numtype)))
- ;(list numtype (list 'lognot (list 'low-border numtype))))
+ `(lognot (low-border ,numtype)))
+ ;`(numtype (lognot (low-border ,numtype))))
(define-macro (number-borders numtype)
- (list 'cons (list 'low-border numtype)
- (list 'high-border numtype)))
+ `(cons (low-border ,numtype)
+ (high-border ,numtype)))
; TESTS ------------------------------------------------------------------------
(princ "---\n")