diff --git a/servers/paserve/publish.lisp b/servers/paserve/publish.lisp index 8657c492099d8414d2c68fe3551e31a95f95ad26..f019661c98bc04982ca9e2ddefc0e0a81ab33d58 100644 --- a/servers/paserve/publish.lisp +++ b/servers/paserve/publish.lisp @@ -86,4 +86,4 @@ (defun aserve-socket-port (socket) (#+(or zacl allegro) socket:local-port - #+(and (not (or zacl allegro)) acl-compat) acl-compat:local-port socket)) + #+(and (not (or zacl allegro)) acl-compat) acl-compat.socket:local-port socket)) diff --git a/servers/zaserve/publish.lisp b/servers/zaserve/publish.lisp index f3a2ff3725ae67f2075c9beb121d9e4ec38dd605..f2f66377b193d1c1abb43a6ae29956cd538dbe28 100644 --- a/servers/zaserve/publish.lisp +++ b/servers/zaserve/publish.lisp @@ -80,6 +80,6 @@ (defun aserve-socket-port (socket) (#+(or zacl allegro) socket:local-port - #+(and (not (or zacl allegro)) acl-compat) acl-compat:local-port socket)) + #+(and (not (or zacl allegro)) acl-compat) acl-compat.socket:local-port socket))