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