DNS broken in BSD/OSx

[orthecreedence]

(as:with-event-loop ()
  (as:dns-lookup "www.google.com"
    (lambda (addr fam) (format t "addr: ~a~%" addr))
    (lambda (ev) (format t "err: ~a~%" ev)))

This hangs on BSD and throws a memory alignment issue on OSx (see orthecreedence/blackbird#8), quite possibly related.

[fiddlerwoaroof]

I just tried reproducing this and failed on osx sierra. Has this been fixed?

[zmyrgel]

Just tested this with following code:

CL-USER> (as:with-event-loop ()
           (as:dns-lookup "www.google.com" 
                          (lambda (addr fam) (format t "addr: ~a~%" addr))
                          :event-cb (lambda (ev) (format t "err: ~a~%" ev))))
; in: CL-ASYNC:WITH-EVENT-LOOP ()
;     (LAMBDA (ADDR FAM) (FORMAT T "addr: ~a~%" ADDR))
; ==>
;   #'(LAMBDA (ADDR FAM) (FORMAT T "addr: ~a~%" ADDR))
; 
; caught STYLE-WARNING:
;   The variable FAM is defined but never used.
; 
; compilation unit finished
;   caught 1 STYLE-WARNING condition
addr: 172.217.21.132
0 (0 bits, #x0, #o0, #b0)
CL-USER> 

So it seems to work on OpenBSD-current