не работает код на sbcl библиотека cl-glut

Пробую освоить библиотеку cl-glut нашел образец кода который должен отобразить хоть какое то окно

(defpackage :simple-glut-example
  (: :cl :cl-glut))

(in-package :simple-glut-example)

(defun display ()
  (gl:clear-color 0.0 0.0 0.0 1.0)
  (gl:clear :color-buffer-bit)
  (gl:flush))

(defun reshape (width height) 
  (gl:viewport 0 0 width height))

(glut:display-func 'display)
(glut:reshape-func 'reshape)

(glut:init)
(glut:init-display-mode 'double :rgb)
(glut:init-window-size 500 500)
(glut:create-window "Simple GLUT Example")

(glut:main-loop)