From d6dc94d9d021b88cbbfe6adcdef7b9c5b7b0c50b Mon Sep 17 00:00:00 2001
From: Frank Duncan <frank@kank.net>
Date: Sat, 3 Jul 2021 07:05:52 -0500
Subject: [PATCH] Add default to option argument

---
 src/main/opera.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/main/opera.lisp b/src/main/opera.lisp
index b66a4c0..173ea48 100644
--- a/src/main/opera.lisp
+++ b/src/main/opera.lisp
@@ -187,8 +187,11 @@
 (defun option-present (option-name parsed-options)
  (find option-name parsed-options :key #'car))
 
-(defun option-argument (option-name parsed-options)
- (cadr (assoc option-name parsed-options)))
+(defun option-argument (option-name parsed-options &optional default)
+ (if
+  (option-present option-name parsed-options)
+  (cadr (assoc option-name parsed-options))
+  default))
 
 (defun option-arguments (option-name parsed-options)
  (mapcar #'cadr (remove option-name parsed-options :key #'car :test-not #'eql)))
-- 
2.25.1