[Prev][Next][Index][Thread]
Bug in 59-48-pre for UNIX
in file tcp-stream-svr3.lisp:
;;; Turn internet address into string format
(defmethod ip-address-string ((address integer))
(let ((in-addr (ff:malloc-cstruct #+(version>= 4 3) 'unsigned-int
#-(version>= 4) 'unsigned-int))
addr-str)
(setf (#+(version>= 4 3) unsigned-int-unsigned-int
#-(version>= 4 3) unsigned-long-unsigned-long in-addr) address)
(setf addr-str (ff:char*-to-string (inet-ntoa in-addr)))
(ff:free-cstruct in-addr)
addr-str))
The second occurrence of 'unsigned-int should be 'unsigned-long.
Marc