gistfile1.lisp

LISPKIT> (macroexpand '(WITH-GDK-EVENT-SLOTS (window) (first (all-events))
           (print window)))
(LET ((WINDOW (FUNCALL #'|GDK:GDK-EVENT-KEY-WINDOW| (FIRST (ALL-EVENTS)))))
  (PRINT WINDOW))
T
LISPKIT> (eval (macroexpand '(WITH-GDK-EVENT-SLOTS (window) (first (all-events))
           (print window))))

; in:
;      LET ((WINDOW (FUNCALL #'|GDK:GDK-EVENT-KEY-WINDOW| (FIRST (ALL-EVENTS)))))
;     (FUNCALL #'LISPKIT::|GDK:GDK-EVENT-KEY-WINDOW| (FIRST (LISPKIT::ALL-EVENTS)))
; ==>
;   (SB-C::%FUNCALL #'LISPKIT::|GDK:GDK-EVENT-KEY-WINDOW|
;                   (FIRST (LISPKIT::ALL-EVENTS)))
; 
; caught STYLE-WARNING:
;   undefined function: |GDK:GDK-EVENT-KEY-WINDOW|
; 
; compilation unit finished
;   Undefined function:
;     |GDK:GDK-EVENT-KEY-WINDOW|
;   caught 1 STYLE-WARNING condition
; Evaluation aborted on #<UNDEFINED-FUNCTION GDK:GDK-EVENT-KEY-WINDOW {100862F1E3}>.
LISPKIT> (LET ((WINDOW (FUNCALL #'GDK:GDK-EVENT-KEY-WINDOW (FIRST (ALL-EVENTS)))))
  (PRINT WINDOW))


#<GDK-WINDOW {1009F60043}> 
#<GDK-WINDOW {1009F60043}>

gistfile2.lisp

(defun gdk-event-slot (slot)
  (intern (format nil "GDK:GDK-EVENT-KEY-~a" slot)))

(defmacro with-gdk-event-slots (slots gdk-event &body body)
  `(let (,@(mapcar #'(lambda (slot)
                       (let ((slot-name (gdk-event-slot slot)))
                         `(,slot (funcall #',slot-name ,gdk-event))))
                   slots))
     ,@body))