You don't need those 4 paragraphs.

I have this alias in my .zshrc:

    clc() { sbcl --no-userinit --load $1 --eval "(sb-ext:save-lisp-and-die \"$(sansext $1)\" :toplevel 'main :executable t)" }

Sansext is a custom function that strips the file extension from a filename, but you don't need that; you can read output filename from $2, or whatever else.