exe

うごかない?

(require :trivial-sockets)

(defun main1 ()
    (trivial-sockets:with-server (server (:port 8989))
  (let ((socket (sb-bsd-sockets:socket-accept server)))
    (print (sb-bsd-sockets:socket-peername socket))
    (sb-bsd-sockets:socket-close socket))))

(sb-ext:save-lisp-and-die "test.exe" :purify t :toplevel #'main1 :executable t)

これは動く

sbcl --eval "(save-lisp-and-die \"bano.exe\" :toplevel (lambda () (princ \"bano\") (terpri) 0) :executable t)"