From b5ec6e36fbd85cefc5b94f7ada06ab3e610b183a Mon Sep 17 00:00:00 2001 From: moratori Date: Sun, 19 Dec 2021 00:58:19 +0900 Subject: [PATCH] =?UTF-8?q?=E3=82=AD=E3=83=A3=E3=83=83=E3=83=81=E3=81=99?= =?UTF-8?q?=E3=82=8B=E4=BE=8B=E5=A4=96=E3=81=AE=E7=AF=84=E5=9B=B2=E3=82=92?= =?UTF-8?q?=E5=A4=89=E6=9B=B4?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/ui/batch.lisp | 38 +++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) diff --git a/src/ui/batch.lisp b/src/ui/batch.lisp index 824b2a0..2c723d3 100644 --- a/src/ui/batch.lisp +++ b/src/ui/batch.lisp @@ -116,26 +116,26 @@ (defun main (args) (let ((subcommand (first args)) (subcommand-args (cdr args))) - (cond - ((probe-file subcommand) - ; execute default command for a file - (%perform-command :COMPLETE (list subcommand))) - ((or (not (scan "[a-zA-Z]+" subcommand)) - (> (length subcommand) 9)) - (%stdout "malformed command: ~A~%" subcommand) - (help)) - (t - (handler-case - (let* ((command-name - (intern (string-upcase subcommand) - (find-package "KEYWORD"))) - (available-command + (handler-case + (cond + ((probe-file subcommand) + ; execute default command for a file + (%perform-command :COMPLETE (list subcommand))) + ((or (not (scan "[a-zA-Z]+" subcommand)) + (> (length subcommand) 9)) + (%stdout "malformed command: ~A~%" subcommand) + (help)) + (t + (let* ((command-name + (intern (string-upcase subcommand) + (find-package "KEYWORD"))) + (available-command (compute-applicable-methods #'%perform-command (list command-name subcommand-args)))) - (if available-command - (%perform-command command-name subcommand-args) - (%stdout "unimplemented command: ~A~%" subcommand))) - (condition (con) - (%stdout "unhandled condition occurred: ~A~%quit~%" con))))))) + (if available-command + (%perform-command command-name subcommand-args) + (%stdout "unimplemented command: ~A~%" subcommand))))) + (condition (con) + (%stdout "unhandled condition occurred: ~A~%quit~%" con)))))