removed spurious function

1 files changed, 0 insertions, 8 deletions

diff --git a/app/app.lisp b/app/app.lisp
index 316b917..affb0b7 100644
--- a/app/app.lisp
+++ b/app/app.lisp
@@ -203,14 +203,6 @@ than the users."
                                 :end2 (length header)))
           return item))
 
-(defun prepare-oneliner-arguments (arguments)
-  "Takes a list of arguments, as gathered by (REMAINDER), and returns
-  a list that looks like (ID-OR-NAME . ARGS) where ID-OR-NAME is
-  either an integer or a string."
-  (a:if-let (id (parse-integer (first arguments) :junk-allowed t))
-    (cons id (rest arguments))
-    arguments))
-
 ;;; MAIN ENTRY POINT
 
 (defun main ()