Commit 341c7cdd authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

port/port-discovery: Fix FIND-PORT when creating ports.

  * Two bugs here.  First, need to pass the resolved server path
to CREATE-PORT.  Second, need to return the newly created port,
not *ALL-PORTS*.  Fixed.
parent 121226d2
......@@ -48,7 +48,10 @@ object corresponding to the server path passed as parameters."))
(lambda (port)
(when (equal server-path (port-server-path port))
(return-from find-port port))))
(push (apply #'create-port (car server-path) initargs)
*all-ports*)))
(let ((port (apply #'create-port (car server-path)
:server-path server-path
initargs)))
(push port *all-ports*)
port)))
;;; EOF
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment