From 3236933be611f91183ea6b61890c7fbd0b892d8b Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 13 Mar 2022 10:57:54 -0500 Subject: removed spurious function --- app/app.lisp | 8 -------- 1 file changed, 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 () -- cgit v1.2.3