1 |
(define-module (lang elisp primitives numbers) |
(define-module (lang elisp primitives numbers) |
2 |
#:use-module (lang elisp internals fset)) |
#:use-module (lang elisp internals fset) |
3 |
|
#:use-module (lang elisp internals null)) |
4 |
|
|
5 |
(fset 'logior logior) |
(fset 'logior logior) |
6 |
(fset 'logand logand) |
(fset 'logand logand) |
7 |
(fset 'integerp integer?) |
(fset 'integerp (lambda->nil integer?)) |
8 |
(fset '= =) |
(fset '= =) |
9 |
(fset '< <) |
(fset '< <) |
10 |
(fset '> >) |
(fset '> >) |
40 |
(- shift 1)))))) |
(- shift 1)))))) |
41 |
lsh)) |
lsh)) |
42 |
|
|
43 |
(fset 'numberp number?) |
(fset 'numberp (lambda->nil number?)) |