/[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.7 by dtc, Mon Jan 5 05:44:21 1998 UTC revision 1.8 by dtc, Sun Jan 11 20:33:46 1998 UTC
# Line 2492  Line 2492 
2492          ((:internet nil 0)          ((:internet nil 0)
2493           (unless (= (ext::host-entry-addr-type hostent) 2)           (unless (= (ext::host-entry-addr-type hostent) 2)
2494             (no-address-error))             (no-address-error))
2495           (let ((addr (ext:htonl (first (ext::host-entry-addr-list hostent)))))           (let ((addr (first (ext::host-entry-addr-list hostent))))
2496             (list :internet             (list :internet
2497                   (ldb (byte 8 24) addr)                   (ldb (byte 8 24) addr)
2498                   (ldb (byte 8 16) addr)                   (ldb (byte 8 16) addr)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5