CL – CLX

(xlib:open-display "" :display 0)
;; → #<XLIB:DISPLAY :0 (The X.Org Foundation R12101003)>
(xlib:open-display "" :display 1)
;; → #<XLIB:DISPLAY :1 (The X.Org Foundation R12101003)>
(xlib:open-default-display)
;; → #<XLIB:DISPLAY :0 (The X.Org Foundation R12101003)>
(xlib:open-default-display ":1")
;; → #<XLIB:DISPLAY :1 (The X.Org Foundation R12101003)>

(xlib::get-display-modifier-mapping (xlib:open-default-display))
;; → ((65506 . 1) (65505 . 1) (65507 . 4) (0 . 8) (0 . 8) (65511 . 8)
;; (65041 . 16) (65407 . 16) (65517 . 32) (0 . 64) (0 . 64) (65516 . 64)
;; (65406 . 128) (65027 . 128))

(XLIB::DISPLAY-KEYBOARD-MAPPING (xlib:open-default-display))
;; → an (UNSIGNED-BYTE 32) array, 256x32

(list-fonts (open-default-display) "fixed")
;; → (#<FONT -misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso8859-1 :0>
;; #<FONT -misc-fixed-medium-r-semicondensed--0-0-75-75-c-0-iso8859-1 :0>)
(length (list-fonts (open-default-display) "*"))
;; → 6973
(hello-world "" :font "-xos4-terminus-medium-r-normal--32-320-72-72-c-160-iso10646-1"
 :display 1 :string "shubidubidu")