CL-USER> (format t "~64,'0B"
                 (let ((res #x0000000000000000))
                   (dotimes (i 8 res)
                     (setf res
                           (dpb
                            (ldb (byte 8 (- 56 (* 8 i))) 259)
                            (byte 8 (* 8 i))
                            res)))))
0000001100000001000000000000000000000000000000000000000000000000
NIL
CL-USER>