Test that buildapp does not see --dynamic-space-size

command-line.lisp

@@ -109,6 +109,7 @@
         (unless (output plan)
           (error 'missing-output-argument))
         (setf (asdf-directives plan) (reverse (asdf-directives plan)))
+        (describe plan)
         (return plan))
       (let* ((argument (pop args))
              (value (pop args))
@@ -162,7 +163,3 @@
            (setf (dynamic-space-size plan) (parse-integer value)))
           (t
            (error 'unknown-argument :flag argument)))))))
-
-
-
-

tests/runtime-args-test.sh

@@ -0,0 +1,8 @@
+#!/bin/bash
+
+THIS_DIR=$(realpath $(dirname ${BASH_SOURCE}))
+BUILDAPP=${BUILDAPP:-buildapp}
+
+
+${BUILDAPP} --output test-app --dynamic-space-size 100000 --asdf-path ${THIS_DIR}/ --load-system test-system --entry 'cl-user::main' --dumpfile-copy ./dumpfile.lisp
+

tests/src.lisp

@@ -0,0 +1,6 @@
+(in-package :cl-user)
+
+(defun main (argv)
+  (declare (ignore argv))
+  (format t "~&This is the test application~%")
+  (uiop:quit 0))

tests/test-system.asd

@@ -0,0 +1,2 @@
+(defsystem test-system
+  :components ((:file "src")))