sbcl symbol addresses

CL-USER> (funcall
          (compile nil
                   (lambda ()
                     (let ((a1 (sb-c::get-lisp-obj-address (make-array 0)))
                           (s1 (sb-c::get-lisp-obj-address (make-symbol "x")))
                           (a2 (sb-c::get-lisp-obj-address (make-array 2)))
                           (s2 (sb-c::get-lisp-obj-address (make-symbol "x"))))
                       (format t "a1: ~40B~%a2: ~40B~%s1: ~40B~%s2: ~40B~%"
                               a1 a2 s1 s2)
                       (values a1 a2 s1 s2)))))
a1:    1000000001011001010010111011000101111
a2:    1000000001011001010010111011000111111
s1:    1000000001011010111011000001100011111
s2:    1000000001011010111011000001101001111