Lines Matching +refs:read +refs:fixnum
18 (nv2 (the (values fixnum fixnum) (floor n 2)))
20 (declare (type fixnum i j k n nv2 m le le1 ip))
24 (setq m (the fixnum (1+ m))
25 i (the fixnum (+ i i)))
27 (cond ((not (equal n (the fixnum (expt 2 m))))
29 (read)
42 (setq j (the fixnum (- j k))
43 k (the fixnum (/ k 2)))
45 (setq j (the fixnum (+ j k))
46 i (the fixnum (1+ i)))
49 (do ( (l 1 (the fixnum (1+ (the fixnum l)))))
50 ((> (the fixnum l) m)) ;loop thru stages
51 (declare (type fixnum l))
52 (setq le (the fixnum (expt 2 l))
53 le1 (the (values fixnum fixnum) (floor le 2))
58 (do ((j 1 (the fixnum (1+ (the fixnum j)))))
59 ((> (the fixnum j) le1)) ;loop thru butterflies
60 (declare (type fixnum j))
61 (do ( (i j (+ (the fixnum i) le)))
62 ((> (the fixnum i) n)) ;do a butterfly
63 (declare (type fixnum i))
64 (setq ip (the fixnum (+ i le1))