(in-package :cl-user)
(defun testit ()
(%stack-block ((x 8))
(ccl::%%set-unsigned-longlong x 0 (ash 1 63))
(assert (= (ash 1 63) (ccl::%get-unsigned-long-long x 0)))
(ccl::%%set-signed-longlong x 0 (1- (ash 1 63)))
(assert (= (1- (ash 1 63)) (ccl::%get-signed-long-long x 0)))
(ccl::%%set-unsigned-longlong x 0 (ash 1 30))
(assert (= (ash 1 30) (ccl::%get-unsigned-long-long x 0)))
(ccl::%%set-signed-longlong x 0 (ash 1 30))
(assert (= (ash 1 30) (ccl::%get-signed-long-long x 0)))
(ccl::%%set-signed-longlong x 0 (ash -1 30))
(assert (= (ash -1 30) (ccl::%get-signed-long-long x 0)))
(ccl::%%set-signed-longlong x 0 (ash -1 29))
(assert (= (ash -1 29) (ccl::%get-signed-long-long x 0)))
(ccl::%%set-signed-longlong x 0 (ash -1 62))
(assert (= (ash -1 62) (ccl::%get-signed-long-long x 0)))))