From 0bc1d789ef6fcfd11651ddefd2b4d69ec706f76f Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Tue, 8 Jul 2014 11:35:29 -0400
Subject: [PATCH] Fix for bug in 3.1.0.24: uiop/image:dump-image sbcl/windows
 specific keyword argument application-type was using the wrong feature
 keyword.

---
 uiop/image.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/uiop/image.lisp b/uiop/image.lisp
index be3f539b..6cbfd613 100644
--- a/uiop/image.lisp
+++ b/uiop/image.lisp
@@ -335,7 +335,7 @@ of the function will be returned rather than interpreted as a boolean designatin
                                 (dump-hook *image-dump-hook*)
                                 #+clozure prepend-symbols #+clozure (purify t)
                                 #+sbcl compression
-                                #+(and sbcl windows) application-type)
+                                #+(and sbcl os-windows) application-type)
     "Dump an image of the current Lisp environment at pathname FILENAME, with various options.
 
 First, finalize the image, by evaluating the POSTLUDE as per EVAL-INPUT, then calling each of
@@ -409,7 +409,7 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
               (when compression (list :compression compression))
               ;;--- only save runtime-options for standalone executables
               (when executable (list :toplevel #'restore-image :save-runtime-options t))
-              #+(and sbcl windows) ;; passing :application-type :gui will disable the console window.
+              #+(and sbcl os-windows) ;; passing :application-type :gui will disable the console window.
               ;; the default is :console - only works with SBCL 1.1.15 or later.
               (when application-type (list :application-type application-type)))))
     #-(or allegro clisp clozure cmu gcl lispworks sbcl scl)
-- 
GitLab