From e40074bc138194cf3fc91036976edaedb4839693 Mon Sep 17 00:00:00 2001
From: Bart Botta <00003b@gmail.com>
Date: Wed, 25 Sep 2024 13:37:56 -0500
Subject: [PATCH] fix multiple-type filters on win32

---
 win32.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/win32.lisp b/win32.lisp
index 76cc3b4..9f858a0 100644
--- a/win32.lisp
+++ b/win32.lisp
@@ -240,9 +240,9 @@
             (let ((structure (cffi:foreign-alloc :pointer :count (* 2 (length filter)))))
               (push structure strings)
               (loop for i from 0 by 2
-                    for (name type) in filter
+                    for (name . types) in filter
                     do (setf (cffi:mem-aref structure :pointer (+ 0 i)) (wstring name))
-                       (setf (cffi:mem-aref structure :pointer (+ 1 i)) (wstring (format NIL "*.~a" type))))
+                       (setf (cffi:mem-aref structure :pointer (+ 1 i)) (wstring (format NIL "~{*.~a~^;~}" types))))
               (file-dialog-set-file-types dialog (length filter) structure)))
           (when default
             (ignore-errors