beowulf/resources/mexpr/range.mexpr.lsp

3 lines
111 B
Plaintext

;; this isn't a standard Lisp 1.5 function
range[n; m] = [lessp[m; n] -> NIL; T -> cons[n; range[add1[n]; m]]]