Indenting.

Pascal J. Bourguignon [2021-06-02 23:04]
Indenting.
Filename
tools/script.lisp
diff --git a/tools/script.lisp b/tools/script.lisp
index f825315..e682eca 100644
--- a/tools/script.lisp
+++ b/tools/script.lisp
@@ -206,8 +206,8 @@ NOTE:   current implementation only accepts as separators


 (defun keywordize (string-designator)
-  (intern (string string-designator) (load-time-value (find-package "KEYWORD"))))
-
+  (intern (string string-designator)
+          (load-time-value (find-package "KEYWORD"))))

 (defun q&d-arguments (mandatories optionals rest keys)
   "
@@ -231,7 +231,6 @@ BUG: when the optionals or keys have a present indicator,
                       (symbol (list (keywordize key) key))))
                   keys)))

-
 (defun wrap-option-function (keys option-arguments docstring option-function)
   (let ((vargs (gensym)))
     (multiple-value-bind (mandatories optionals rest keys-args) (q&d-parse-parameters option-arguments)
ViewGit