From 72e478c60c6e14d371a1982d4b211e005a8e0633 Mon Sep 17 00:00:00 2001 From: "Chun Tian (binghe)" Date: Mon, 24 Oct 2016 10:26:23 +0200 Subject: [PATCH] [LW] fixed compilation in LispWorks version <= 6.0 --- backend/lispworks.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/backend/lispworks.lisp b/backend/lispworks.lisp index b6c1ea2..43368a7 100644 --- a/backend/lispworks.lisp +++ b/backend/lispworks.lisp @@ -264,7 +264,7 @@ comm::*socket_af_inet* server-addr (fli:pointer-element-size server-addr))) - #-(or lispworks4 lispworks5 lispworks6.0) + #-(or lispworks4 lispworks5 lispworks6.0) ; version>=6.1 (progn (when (stringp hostname) (setq hostname (comm:string-ip-address hostname)) @@ -654,6 +654,9 @@ (nth-value 1 (get-peer-name usocket))) (defun lw-hbo-to-vector-quad (hbo) + #+(or lispworks4 lispworks5 lispworks6.0) + (hbo-to-vector-quad hbo) + #-(or lispworks4 lispworks5 lispworks6.0) ; version>= 6.1 (if (comm:ipv6-address-p hbo) (ipv6-host-to-vector (comm:ipv6-address-string hbo)) (hbo-to-vector-quad hbo)))