projects
/
opera
/ commitdiff
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
431bef7
)
Add default to option argument
author
Frank Duncan <frank@kank.net>
Sat, 3 Jul 2021 12:05:52 +0000
(07:05 -0500)
committer
Frank Duncan <frank@kank.net>
Sat, 3 Jul 2021 12:05:52 +0000
(07:05 -0500)
src/main/opera.lisp
patch
|
blob
|
history
diff --git
a/src/main/opera.lisp
b/src/main/opera.lisp
index b66a4c07cf1fecdafaab2eb3a7dfbd04e585317b..173ea488ac4b99d8d2810562003bf31da3dde530 100644
(file)
--- 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-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)))
(defun option-arguments (option-name parsed-options)
(mapcar #'cadr (remove option-name parsed-options :key #'car :test-not #'eql)))