/[cmucl]/src/clx/dependent.lisp
ViewVC logotype

Diff of /src/clx/dependent.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by ram, Sat Jan 18 14:30:31 1997 UTC revision 1.6 by pw, Mon Jul 21 15:50:30 1997 UTC
# Line 2457  Line 2457 
2457          ((:internet nil 0)          ((:internet nil 0)
2458           (unless (= (ext::host-entry-addr-type hostent) 2)           (unless (= (ext::host-entry-addr-type hostent) 2)
2459             (no-address-error))             (no-address-error))
2460           (let ((addr (first (ext::host-entry-addr-list hostent))))           (let ((addr (ext:htonl (first (ext::host-entry-addr-list hostent)))))
2461             (list :internet             (list :internet
2462                   (ldb (byte 8 24) addr)                   (ldb (byte 8 24) addr)
2463                   (ldb (byte 8 16) addr)                   (ldb (byte 8 16) addr)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5