1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
; Copyright (c) 1993-2008 by Richard Kelsey. See file COPYING.
(define (foo x y z)
(if (and (= (bitwise-and x 3) 0)
(= (bitwise-and y 3) 0)
(= (bitwise-and z 3) 0))
(ashl (ashr x 2) 2)
(ashl y (ashr z 2))))
(define-local-syntax (define-primitive id nargs)
(let ((args (reverse (list-tail '(z y x) (- '3 nargs)))))
`(define (,id . ,args)
(call-primitively ,id . ,args))))
(define-primitive = 2)
(define-primitive bitwise-and 2)
(define-primitive ashl 2)
(define-primitive ashr 2)
|
