2006/12/13

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)" 

1 件のコメント:

NIIMI Satoshi さんのコメント...

再現性があるようであれば sbcl-devel に投稿してください。次のリリースまでに直せるかもしれません。