From a368525a0cf00163a26fc95256ea4e30eefcb706 Mon Sep 17 00:00:00 2001
From: Kevin Layer <layer@franz.com>
Date: Tue, 26 Feb 2013 10:17:37 -0800
Subject: [PATCH] spr38910: fix select-file for directories on Windows

This patch was lurking in spr38910 since Jan 2012.  Other users (SRI)
have also run into it.

Change-Id: I32cce11ceada64f53f4629618e83cd5c5b2f13dc
---
 aclpc/acl-frames.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/aclpc/acl-frames.lisp b/aclpc/acl-frames.lisp
index 15281f14..eba8dc9b 100644
--- a/aclpc/acl-frames.lisp
+++ b/aclpc/acl-frames.lisp
@@ -2327,9 +2327,11 @@ in a second Lisp process.  This frame cannot be reused."
                  (IMallocFree (pointer-value :nat malloc) item-id-list-out)))))
       ;; Free the item-id-lists returned from pathname-to-item-id-list.
       (when root
-        (IMallocFree (pointer-value :nat malloc) root-item-id-list))
+        (IMallocFree (pointer-value :nat malloc)
+		     (pointer-value :nat root-item-id-list)))
       (when initial-directory
-        (IMallocFree (pointer-value :nat malloc) initial-directory-item-id-list))
+        (IMallocFree (pointer-value :nat malloc)
+		     (pointer-value :nat initial-directory-item-id-list)))
       ;;
       (IMallocRelease (pointer-value :nat malloc)))))
 
-- 
GitLab