dispatch.lisp

(defun ping-1 (arg)
  (declare (ignore arg))
  "pong")

(defun ping-2 (&rest rest)
  (declare (ignore rest))
  "pong")

(defun ping-3 ()
  "pong")

(defun echo (arg)
  (format t "you said: ~a" arg))

(defun main-1 (input)
  (multiple-value-bind (fn-name args) (split-user-input input)
    (let ((fn (find-fn fn-name)))
      (if fn
          (funcall fn args)))))

(defun main-2 (input)
  (multiple-value-bind (fn-name args) (split-user-input input)
    (let ((fn (find-fn fn-name)))
      (if fn
          (if args
              (funcall fn args)
              (funcall fn))))))