(SYSTEM::VERSION '(20020129.))
#0Y UTF-8
#Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E2 0F 01 19 01)
   "SYSTEM" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2
   #283Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 01 72 82 C8 5F 7A DE 2F 05
         DE E0 32 80 DA DC AE E1 DE E2 73 04 00 32 86 16 01 E3 2F 05 E3 E4 32
         80 E5 31 59 E6 31 59 E7 2F 05 E7 E8 E9 32 86 E7 EA 32 80 E7 EB DA 32
         86 EC 31 59 ED 31 59 EE 2F 05 EE E8 EF 32 86 EE F0 32 80 EE EB DA 32
         86 F1 31 59 F2 31 59 F3 2F 05 F3 E8 F4 32 86 F3 F5 32 80 F3 EB DA 32
         86 F6 31 59 F7 31 59 65 1E 2F 05 65 1E E8 65 1F 32 86 65 1E 65 20 32
         80 65 1E EB DA 32 86 E7 65 21 32 87 E7 65 22 65 23 65 24 03 25 7C 02
         32 86 E7 65 26 63 2D 03 27 E7 65 21 DA 32 86 EE 65 21 32 87 EE 65 22
         65 23 65 24 03 28 7C 02 32 86 EE 65 26 63 2D 03 27 EE 65 21 DA 32 86
         F3 65 21 32 87 F3 65 22 65 23 65 24 03 29 7C 02 32 86 F3 65 26 63 2D
         03 27 F3 65 21 DA 32 86 65 1E 65 21 32 87 65 1E 65 22 65 23 65 24 03
         2A 7C 02 32 86 65 1E 65 26 63 2D 03 27 65 1E 65 21 DA 32 86 DA 65 2B
         63 2D 03 27 C5 19 01)
   SYSTEM::SERVENT COMMON-LISP::STRUCTURE-OBJECT SYSTEM::DEFSTRUCT-DESCRIPTION
   0. SYSTEM::MAKE-SERVENT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SYSTEM::MAKE-SERVENT
      #31Y(00 00 00 00 00 00 00 00 80 1B 04 00 00 00 3D 04 3D 03 3D 02 3D 01 B0
           B0 B0 B0 33 04 00 19 05)
      :NAME :ALIASES :PORT :PROTO)
   COMMON-LISP::VECTOR
   (#(SYSTEM::NAME (:NAME) 0. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::STRING COMMON-LISP::NIL)
    #(SYSTEM::ALIASES (:ALIASES) 1. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::LIST COMMON-LISP::NIL)
    #(SYSTEM::PORT (:PORT) 2. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::INTEGER COMMON-LISP::NIL)
    #(SYSTEM::PROTO (:PROTO) 3. (COMMON-LISP::NIL) COMMON-LISP::NIL
      COMMON-LISP::STRING COMMON-LISP::NIL))
   SYSTEM::COPY-SERVENT
   #Y(SYSTEM::COPY-SERVENT #15Y(00 00 00 00 01 00 00 00 00 02 AD 31 02 19 02))
   (COMMON-LISP::FUNCTION SYSTEM::SERVENT-NAME (SYSTEM::SERVENT)
    COMMON-LISP::STRING)
   (COMMON-LISP::INLINE SYSTEM::SERVENT-NAME) SYSTEM::SERVENT-NAME
   SYSTEM::INLINE-EXPANSION
   (#1=(SYSTEM::OBJECT)
    (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SERVENT-NAME))
    (COMMON-LISP::BLOCK SYSTEM::SERVENT-NAME
     (COMMON-LISP::THE COMMON-LISP::STRING
      (COMMON-LISP::SVREF SYSTEM::OBJECT 0.))))
   #Y(SYSTEM::SERVENT-NAME #15Y(00 00 00 00 01 00 00 00 00 02 AD C5 5F 19 02)
      0.)
   SYSTEM::DEFSTRUCT-READER
   (COMMON-LISP::FUNCTION SYSTEM::SERVENT-ALIASES (SYSTEM::SERVENT)
    COMMON-LISP::LIST)
   (COMMON-LISP::INLINE SYSTEM::SERVENT-ALIASES) SYSTEM::SERVENT-ALIASES
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SERVENT-ALIASES))
    (COMMON-LISP::BLOCK SYSTEM::SERVENT-ALIASES
     (COMMON-LISP::THE COMMON-LISP::LIST
      (COMMON-LISP::SVREF SYSTEM::OBJECT 1.))))
   #Y(SYSTEM::SERVENT-ALIASES
      #15Y(00 00 00 00 01 00 00 00 00 02 AD C5 5F 19 02) 1.)
   (COMMON-LISP::FUNCTION SYSTEM::SERVENT-PORT (SYSTEM::SERVENT)
    COMMON-LISP::INTEGER)
   (COMMON-LISP::INLINE SYSTEM::SERVENT-PORT) SYSTEM::SERVENT-PORT
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SERVENT-PORT))
    (COMMON-LISP::BLOCK SYSTEM::SERVENT-PORT
     (COMMON-LISP::THE COMMON-LISP::INTEGER
      (COMMON-LISP::SVREF SYSTEM::OBJECT 2.))))
   #Y(SYSTEM::SERVENT-PORT #15Y(00 00 00 00 01 00 00 00 00 02 AD C5 5F 19 02)
      2.)
   (COMMON-LISP::FUNCTION SYSTEM::SERVENT-PROTO (SYSTEM::SERVENT)
    COMMON-LISP::STRING)
   (COMMON-LISP::INLINE SYSTEM::SERVENT-PROTO) SYSTEM::SERVENT-PROTO
   (#1# (COMMON-LISP::DECLARE (SYSTEM::IN-DEFUN SYSTEM::SERVENT-PROTO))
    (COMMON-LISP::BLOCK SYSTEM::SERVENT-PROTO
     (COMMON-LISP::THE COMMON-LISP::STRING
      (COMMON-LISP::SVREF SYSTEM::OBJECT 3.))))
   #Y(SYSTEM::SERVENT-PROTO #15Y(00 00 00 00 01 00 00 00 00 02 AD C5 5F 19 02)
      3.)
   SYSTEM::DEFSTRUCT-WRITER SYSTEM::SETF-EXPANDER -1. 1.
   #Y(SYSTEM::SETF-SERVENT-NAME
      #24Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC 7B 03 B0 61 03 19
           04)
      COMMON-LISP::SETF COMMON-LISP::SVREF 0.)
   COMMON-LISP::SETF SYSTEM::%SET-DOCUMENTATION
   #Y(SYSTEM::SETF-SERVENT-ALIASES
      #24Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC 7B 03 B0 61 03 19
           04)
      COMMON-LISP::SETF COMMON-LISP::SVREF 1.)
   #Y(SYSTEM::SETF-SERVENT-PORT
      #24Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC 7B 03 B0 61 03 19
           04)
      COMMON-LISP::SETF COMMON-LISP::SVREF 2.)
   #Y(SYSTEM::SETF-SERVENT-PROTO
      #24Y(00 00 00 00 02 00 00 00 00 03 9F 5C 78 DA DB AE DC 7B 03 B0 61 03 19
           04)
      COMMON-LISP::SETF COMMON-LISP::SVREF 3.)
   COMMON-LISP::STRUCTURE)
#Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01)
   (COMMON-LISP::SPECIAL SYSTEM::*SERVENTS*) SYSTEM::*SERVENTS*)
#Y(#:TOP-LEVEL-FORM-4
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01)
   SOCKET::SOCKET-SERVICE-PORT SYSTEM::REMOVE-OLD-DEFINITIONS
   #Y(SOCKET::SOCKET-SERVICE-PORT
      #388Y(03 00 01 00 00 00 02 00 00 0C 00 2B 02 3B 03 01 00 0B 00 00 3B 02
            0A 00 0B 00 01 C5 0B 00 01 1B 36 0B 00 01 1D 75 1B 2F 9D 2B 01 00
            0B 00 00 4B 01 1C DC DD DE B3 B2 6D 05 02 E0 99 07 E2 E3 6E 08 0A
            0E 0B 5D 10 0B E6 E7 6F 0E 33 01 1E 06 04 00 39 00 00 4D 16 01 68
            00 01 8F 05 4B 06 00 00 1C 04 D4 0B 00 00 EA 8C 4E 80 D2 63 EB EC
            38 05 D8 F9 71 F7 53 80 B0 1B 80 74 EE AD 38 06 72 5D 93 00 06 AD
            EF AE 81 43 01 16 01 63 EF 1B 80 49 DC 94 03 F2 A2 5C 79 F3 B2 EF
            B3 72 43 38 04 71 7E F4 B4 96 08 38 01 72 43 6E 08 1B 84 07 16 04
            1B 3C 5C 78 F1 AD 38 06 72 5D 92 00 53 16 04 1B 2D F0 B0 38 04 A3
            FA 8E 5E 03 AF 32 45 14 B0 AE AE 72 43 84 03 9D FA 16 02 F0 AF 38
            04 A3 FA 72 5F 92 00 5D 16 02 AC 81 47 00 1C 46 16 02 AE 01 02 38
            01 71 76 92 00 FF 81 16 01 93 02 03 14 2F 1C 3E 54 05 00 00 00 1D
            2A 1B 22 6B 10 31 9D 19 05 03 1F 1B 80 43 AD 6D 1E 01 6B 10 38 04
            8F 5B 70 14 03 21 1B 80 41 05 00 00 00 1D 06 14 F7 64 2D 03 1C 55
            16 01 AC 32 47 16 01 0F 10 68 00 00 AC 24 0F 47 AC 8E 05 4E AC 8F
            0A 22 AD 6D 22 01 6B 10 38 04 8E 5B 0E 03 23 14 6F 20 68 02 00 68
            03 01 33 02 1E 14 03 21 14 32 28 44 19 05 65 24 65 25 AE 65 26 65
            27 2E 28 14 65 29 65 2A 70 2B B3 33 06 1F)
      "tcp" #(COMMON-LISP::NIL) :NAME COMMON-LISP::CONTINUE :INVOKE-FUNCTION
      #Y(SOCKET::SOCKET-SERVICE-PORT-1
         #17Y(00 00 00 00 00 00 00 00 01 16 9E 0C 00 01 4E 01 00)
         COMMON-LISP::NIL COMMON-LISP::NIL)
      :REPORT SYSTEM::REPORT-NO-NEW-VALUE :INTERACTIVE
      #Y(SOCKET::SOCKET-SERVICE-PORT-2
         #15Y(00 00 00 00 00 00 00 00 00 01 33 00 23 19 01))
      SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS* "~A"
      (COMMON-LISP::TYPEP SYSTEM::PROTOCOL 'COMMON-LISP::STRING)
      SYSTEM::ASSERT-ERROR-STRING :DEFAULT SYSTEM::*SERVENTS*
      "/boot/beos/etc/services" :INPUT CHARSET::UTF-8 #\# 0.
      #.#'SYSTEM::WHITESPACEP #\/ :ALIASES :PORT :PROTO SYSTEM::MAKE-SERVENT
      COMMON-LISP::CLOSE :ABORT
      #Y(SOCKET::SOCKET-SERVICE-PORT-3
         #36Y(00 00 00 00 01 00 00 00 00 02 AD 6F 01 69 00 01 38 04 31 34 1F 0C
              AD 6F 02 69 00 02 38 04 31 34 19 02 19 02)
         COMMON-LISP::NIL SYSTEM::SERVENT-NAME SYSTEM::SERVENT-PROTO)
      "service does not exist: ~A/~A" SYSTEM::TEXT COMMON-LISP::LIST
      #Y(SOCKET::SOCKET-SERVICE-PORT-4
         #35Y(00 00 00 00 01 00 00 00 00 02 AD 6F 01 69 00 01 33 01 2E 1F 0C AD
              6F 02 69 00 02 38 04 31 34 19 02 19 02)
         COMMON-LISP::NIL SYSTEM::SERVENT-PORT SYSTEM::SERVENT-PROTO)
      "service does not exist: ~A/~A" COMMON-LISP::TYPE-ERROR :DATUM
      :EXPECTED-TYPE
      (COMMON-LISP::OR #1=(COMMON-LISP::EQL :DEFAULT) COMMON-LISP::STRING
       COMMON-LISP::INTEGER)
      SYSTEM::TYPE-ERROR-STRING SYSTEM::SERVICE-NAME
      (#1# COMMON-LISP::STRING COMMON-LISP::INTEGER)
      SYSTEM::TYPECASE-ERROR-STRING))
