From 8d3ed466eea014afb475a0e549ae229044ad9ab5 Mon Sep 17 00:00:00 2001 From: cage Date: Wed, 20 Apr 2022 22:07:48 +0200 Subject: [PATCH] - used 'alexandria:when-let' macro to semplify the code. --- src/command-line.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/command-line.lisp b/src/command-line.lisp index f21b044..49489ba 100644 --- a/src/command-line.lisp +++ b/src/command-line.lisp @@ -114,9 +114,8 @@ (defmacro set-option-variable (options option-name option-variable) (with-gensyms (option-value) - `(let ((,option-value (getf ,options ,option-name))) - (when ,option-value - (setf ,option-variable ,option-value))))) + `(alexandria:when-let ((,option-value (getf ,options ,option-name))) + (setf ,option-variable ,option-value)))) (defun manage-opts () (handler-bind ((opts:unknown-option #'exit-on-error)