Commit 8de25f9c authored by Chun Tian (binghe)'s avatar Chun Tian (binghe)
Browse files

Fixed building in LispWorks 5.1.2

parent 311c486e
......@@ -683,6 +683,7 @@
(defmethod get-peer-port ((usocket stream-usocket))
(nth-value 1 (get-peer-name usocket)))
#-(or lispworks4 lispworks5 lispworks6.0) ; version>= 6.1
(defun ipv6-address-p (hostname)
(when (stringp hostname)
(setq hostname (comm:string-ip-address hostname))
......
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