test/bits.lorth


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

;;; test
;;; (format nil "~{~a~%~}" (append '(0 1 2)
;;;                                '(7 3 5)
;;;                                '(4 32 12)))
1 2 & dump
1 1 & dump
3 2 & dump

1 2 4 | | dump
3 1 | dump
5 5 | dump

32 3 >> dump
1 5 << dump
3 2 << dump