From ec9760a9dd289e5ff9668b8c56fc3445009ec291 Mon Sep 17 00:00:00 2001
From: Krzysztof Drewniak <address@hidden>
Date: Sat, 5 Mar 2011 19:34:39 -0600
Subject: [PATCH 4/4] Fixed a warning with a stub while WM replacing is implemented

---
 stumpwm.lisp |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/stumpwm.lisp b/stumpwm.lisp
index a6512e9..59df432 100644
--- a/stumpwm.lisp
+++ b/stumpwm.lisp
@@ -213,6 +213,11 @@ of those expired."
 	('version (format t *version*)))
       (throw :top-level :quit))))
 
+(defun replace-wm ()
+  "Replace the currently running window manager, if any."
+  (write-line "Function not implemented.")
+  (throw :top-levl :quit))
+
 (defun stumpwm-internal (display-str)
   (handle-options) ;;get --help and --version out of the way now
   (multiple-value-bind (host display screen protocol) (parse-display-string display-str)
-- 
1.7.1