Commit 3816feb0 authored by Dave Cooper's avatar Dave Cooper

fixed package error.

parent d24b1757
......@@ -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))
......@@ -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))
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