CLX xy-pixmap

Hello, I try to use the CLX library but I don't know how to view these
pixmaps I get via GET-IMAGE.

Here is an example:

,----
| (require 'clx)
| (in-package :xlib)
| 
| (defun test ()
|   (let* ((d (open-display "127.0.0.1" :display +display+))
|          (s (car (display-roots d)))
|          (w (screen-root s)))
|     (get-image w
|                :x 0 :y 0
|                :width (drawable-width w)
|                :height (drawable-height w)
|                :format :xy-pixmap)
|                                         ;t
|     ))
| 
| (write-bitmap-file "/tmp/test.xpm" (test))
`----

That test.xpm file is unreadable for Gimp etc.  How can I view that
file?

Looks like this:

,----
| #define image_width 1024
| #define image_height 768
| #define image_blue_mask 31
| #define image_green_mask 2016
| #define image_red_mask 63488
| static char image_bits[] = {
|  0x2b,0x00,0x00,0x00,0x2b,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x14,0x33,0x3b,
|  0x40,0xf8,0xf7,0xfe,0xbf,0x94,0xf7,0xfe,0xbf,0x9c,0x51,0xff,0xbf,0x00,0x00,
|  0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|  0x00,0x00,0x00,0xaa,0xb3,0x6a,0x08,0x23,0x00,0x00,0x00,0x13,0x32,0x00,0x00,
|..........
`----

thanks

-- 
...sutongi tti olleh