diff options
| -rw-r--r-- | app/app.lisp | 8 |
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 () |