From 757fb170ee958123f0d44e7f0731e22668993a18 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Wed, 27 Dec 2017 15:25:08 -0800
Subject: [PATCH] Remove extra trailing unmatched parenthesis

---
 src/code/commandline.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/code/commandline.lisp b/src/code/commandline.lisp
index be67ddcd7..3c97fe99d 100644
--- a/src/code/commandline.lisp
+++ b/src/code/commandline.lisp
@@ -136,7 +136,7 @@
 		  (setf str nil))
 		(return nil))
 	      (push str word-list))
-	    (setq str (pop cmd-strings)))))))))
+	    (setq str (pop cmd-strings))))))))
 
 (defun get-command-line-switch (sname)
   "Accepts the name of a switch as a string and returns the value of
-- 
GitLab