floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixup command-line-option

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-05-05 13:28:18 +02:00
parent 2fda251cd7
commit e73a96de44
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/utils.lisp
View file

@ -153,7 +153,7 @@
(defun get-command-line-option (argv optname &optional default) (defun get-command-line-option (argv optname &optional default)
"Return the option designated by `optname' from the command-line `argv'." "Return the option designated by `optname' from the command-line `argv'."
(let ((opt (member optname argv :test #'equal))) (let ((opt (member optname argv :test #'equal)))
(or opt default))) (or (and (cdr opt) (second opt)) default)))
(defun get-command-line-option-number (argv optname &optional default) (defun get-command-line-option-number (argv optname &optional default)
"Return the option designated by `optname' from the command-line `argv' as a number." "Return the option designated by `optname' from the command-line `argv' as a number."