;; Run via sbcl --eval '(asdf:load-system "test")' --eval '(pkg:main)' s
(defpackage #:pkg
  (:use #:cl)
  (:export #:main))
(in-package #:pkg)

(defun main ()
  (in-package #:pkg)
  (let ((arg (read-from-string (car uiop:*command-line-arguments*))))
    (funcall
     (compile nil
              `(lambda ()
                 (symbol-macrolet ((s 1))
                   (format t "Hello ~S~%" ,arg)))))))