Subversion Repositories core_arm

(progn

  (load "cdef_lib_b1")

  (load "cdef_lib_c1")

  (load "cdef_lib_g1")

  (load "cdef_lib_l1")

  (load "cdef_lib_m1")

)

(setq a '(1 1 0 0))

(setq b '(1 0 0 0))

(setq c '(1 1 0 1))

(setq ac (make-setbit-groups a))

(setq bc (make-setbit-groups b))

(setq cc (make-setbit-groups c))

(setq dc (or-setbit-groups ac bc))

(or-setbit-groups dc cc)

(or-setbit-groups-func '((0) (1 1 )))1

(setq l '(2 3 4))

(setcdr l '(4))

l

(setq a1 (hex-to-bitstring "ff"))

(setq b1 (hex-to-bitstring "f0"))

(setq c1 (make-undef-bitstring a b))

(setq a2 (hex-to-bitstring "ff"))

(setq b2 (hex-to-bitstring "f8"))

(setq c2 (make-undef-bitstring a b))

(setq cc c2)

(setq cu (make-set-bitstring c2))

(setq h (make-hash-table))

(puthash 'a a h)

(puthash 'b 2 h)

(puthash 'c 3 h)

(list (gethash 'c h) (gethash 'a h))