projects
/
opera
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add default to option argument
[opera]
/
src
/
main
/
opera.lisp
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)))