From 8464729a14d7eefd86f512ed51c19da79a96e15f Mon Sep 17 00:00:00 2001 From: japhie Date: Sun, 4 Sep 2005 01:18:37 +0000 Subject: [PATCH] - Copying command-line pattern before substituting argument in order not to destroy original +command-arg-rules+ constant alist (makes multiple -load, -eval etc. work again). --- src/lsp/cmdline.lsp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/lsp/cmdline.lsp b/src/lsp/cmdline.lsp index 4146cfce6..ab1f45cf0 100644 --- a/src/lsp/cmdline.lsp +++ b/src/lsp/cmdline.lsp @@ -95,13 +95,15 @@ Usage: ecl [-? | --help] ((null rule) (command-arg-error "Unknown command line option ~A.~%" option)) (t - (let ((pattern (third rule))) + (let ((pattern (copy-tree (third rule)))) (unless (zerop (second rule)) (when (null option-list) (command-arg-error "Missing argument after command line option ~A.~%" option)) + (print pattern) (nsubst (pop option-list) 1 pattern)) + (print pattern) (push pattern commands))))))) (defun process-command-args (&optional (args (rest (command-args))))