クラス名が文字列

gistfile1.sls

(define-class <window> ()
  (;; Pointer to the parent window.
   (parent      :init-keyword :parent :init-form *root-window*)
   ;; Sizes of the window
   (width       :init-keyword :width  :init-value 1)
   (height      :init-keyword :height :init-value 1)
   ;; Position of the window relative to the parent.
   (x           :init-keyword :x :init-value 0)
   (y           :init-keyword :y :init-value 0)
   ))

(define *screen-width* 1280)
(define *screen-height* 1024)

(define-macro (new class-name . args)
  `(make ,(string->symbol class-name) ,@args))

(display (new "<window>" :parent #f :width *screen-width* :height *screen-height*))