(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)
   "EXT" COMMON-LISP::*PACKAGE*)
#Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 DA 38 01 31 D5 19 01)
   (EXT::CLHS EXT::CLHS-ROOT EXT::*BROWSERS* EXT::*BROWSER* EXT::READ-FROM-FILE
    EXT::BROWSE-URL))
#Y(#:TOP-LEVEL-FORM-3 #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-4
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL SYSTEM::*CLHS-TABLE*) SYSTEM::*CLHS-TABLE*)
#Y(#:TOP-LEVEL-FORM-5
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB DC 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL EXT::*BROWSERS*) EXT::*BROWSERS*
   ((:NETSCAPE "netscape" "-remote" "openURL(~a,new-window)")
    (:KONQUEROR "kfmclient" "openURL" "~a") (:LYNX "xterm" "-e" "lynx" "~a")
    (:W3M "xterm" "-e" "w3m" "~a") (:MMM "mmm" "-external" "~a")
    (:MOSAIC "xmosaic" "~a") (:EMACS-W3 "gnudoit" "-q" "(w3-fetch \"~a\")")))
#Y(#:TOP-LEVEL-FORM-6
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 C6 19
        01)
   (COMMON-LISP::SPECIAL EXT::*BROWSER*) EXT::*BROWSER*)
#Y(#:TOP-LEVEL-FORM-7
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 32 80 C5
        19 01)
   EXT::READ-FROM-FILE SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "Read an object from a file.
The keyword argument KEYWORD specifies the package to read in.
The keyword argument OUT specifies the output for log messages."
   SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::READ-FROM-FILE
      #310Y(03 00 01 00 01 00 00 00 80 1C 02 00 00 00 3B 02 03 0E 02 FA 3B 01
            04 DD 80 CA 01 71 C6 B0 DE 38 05 71 F7 53 80 EA 93 06 12 14 DF B5
            B1 72 7F 2D 04 06 B2 02 22 80 B8 A3 14 31 8D 6B 07 64 E2 E3 63 64
            64 01 07 64 01 03 E4 63 E5 63 E2 E6 64 01 02 38 01 31 6C 10 0D 04
            1C 10 0E 04 1E 10 0F 04 20 10 10 04 22 10 11 04 24 10 12 04 26 10
            13 04 28 10 14 04 2A 10 15 04 2C 10 16 04 2E 10 17 04 30 10 18 04
            32 10 19 04 34 10 1A 04 36 10 1B 04 38 10 1C 04 3A 10 1D 04 3C 10
            1E 04 3E 10 1F 04 40 10 20 04 42 10 21 04 44 10 22 04 46 10 23 04
            48 10 24 04 4A 10 25 04 4C 10 26 04 4E 10 27 66 70 8E 1D 30 66 70
            8E 05 05 66 70 8F 04 2A 66 70 31 CA 10 0E 66 70 38 03 31 73 12 1C
            16 19 F8 93 03 03 14 2F 30 15 54 05 00 00 00 1D 30 1B 27 0E 02 1B
            FF 44 04 70 1B 5A 65 28 65 29 66 72 65 2A 65 2B 2E 2C 14 65 2D 65
            2E 70 2F 66 77 33 06 1F 05 00 00 00 1D 07 14 65 31 64 2D 03 30 55
            F8 93 04 11 14 65 32 71 C6 B0 73 01 37 65 33 73 01 39 2D 03 06 15
            19 05)
      :OUT :PACKAGE COMMON-LISP::*STANDARD-OUTPUT* "KEYWORD" :INPUT
      #Y(EXT::READ-FROM-FILE-1
         #46Y(00 00 00 00 03 00 00 00 01 19 B0 31 8B DA B1 38 02 31 88 AF B1 31
              83 DB B1 38 02 31 88 B0 64 01 05 B5 2D 08 02 DD B1 38 02 31 88 9E
              19 05)
         ";; Reading `" "' [" SYSTEM::DO-FORMAT-DECIMAL " bytes]...")
      COMMON-LISP::FORMAT SYSTEM::*COMMON-LISP-USER-PACKAGE* 10. :UPCASE 1. 79.
      COMMON-LISP::SINGLE-FLOAT COMMON-LISP::*READTABLE* COMMON-LISP::*PACKAGE*
      COMMON-LISP::*PRINT-ARRAY* COMMON-LISP::*PRINT-BASE*
      COMMON-LISP::*PRINT-CASE* COMMON-LISP::*PRINT-CIRCLE*
      COMMON-LISP::*PRINT-ESCAPE* COMMON-LISP::*PRINT-GENSYM*
      COMMON-LISP::*PRINT-LENGTH* COMMON-LISP::*PRINT-LEVEL*
      COMMON-LISP::*PRINT-LINES* COMMON-LISP::*PRINT-MISER-WIDTH*
      COMMON-LISP::*PRINT-PPRINT-DISPATCH* COMMON-LISP::*PRINT-PRETTY*
      COMMON-LISP::*PRINT-RADIX* COMMON-LISP::*PRINT-READABLY*
      COMMON-LISP::*PRINT-RIGHT-MARGIN* CUSTOM::*PRINT-CLOSURE*
      CUSTOM::*PRINT-RPARS* CUSTOM::*PRINT-INDENT-LISTS* SYSTEM::*PRIN-STREAM*
      SYSTEM::*PRIN-LINELENGTH* SYSTEM::*PRIN-LINE-PREFIX*
      COMMON-LISP::*READ-BASE* COMMON-LISP::*READ-DEFAULT-FLOAT-FORMAT*
      COMMON-LISP::*READ-EVAL* COMMON-LISP::*READ-SUPPRESS*
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::OR COMMON-LISP::PACKAGE
       #1=(COMMON-LISP::OR COMMON-LISP::STRING COMMON-LISP::SYMBOL))
      SYSTEM::TYPE-ERROR-STRING COMMON-LISP::PACKAGE (COMMON-LISP::PACKAGE #1#)
      SYSTEM::TYPECASE-ERROR-STRING COMMON-LISP::CLOSE :ABORT
      #Y(EXT::READ-FROM-FILE-2
         #35Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AF 01 03 DB 01 03
              B6 2D 09 02 DD B0 38 02 31 88 9E 19 04)
         "done [" 2. SYSTEM::DO-FORMAT-FIXED-FLOAT
         " sec]
")
      #.COMMON-LISP::INTERNAL-TIME-UNITS-PER-SECOND))
#Y(#:TOP-LEVEL-FORM-8
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 32 80 C5
        19 01)
   EXT::BROWSE-URL SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "Run the browser (a keyword in `*browsers*' or a list) on the URL."
   SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::BROWSE-URL
      #156Y(00 00 00 00 01 00 00 00 80 1C 02 00 00 00 3B 02 03 0E 02 FA 3B 01
            03 0E 03 F9 AE 8F 09 19 9F 14 63 95 01 1B 80 5C AE 6B 04 DF 38 02
            31 B9 5C 1C 6E E0 AF DE 33 02 1E AE 8E 04 6B E1 E2 B0 E3 E4 2E 0B
            14 E6 E7 70 0E B5 33 06 1F 0E 03 1B 10 93 03 10 14 EA 94 03 AF 2D
            04 0F AF 02 22 6D A0 14 31 8D 94 01 EB AE EC 63 2D 05 13 A0 1F 2C
            14 EE 30 0F 19 06 94 00 63 AD B5 6E 03 0F 84 02 16 01 83 00 9D 21
            6F 16 01 AC 80 A2 00 92 01 41 EF 63 F0 B4 33 03 16 1E 03 00 19 06
            19 06)
      :BROWSER :OUT EXT::*BROWSER* COMMON-LISP::*STANDARD-OUTPUT*
      EXT::*BROWSERS* #.#'COMMON-LISP::EQ
      "unknown browser: `~s' (must be a key in `~s')" COMMON-LISP::TYPE-ERROR
      :DATUM :EXPECTED-TYPE
      (COMMON-LISP::OR COMMON-LISP::LIST COMMON-LISP::SYMBOL)
      SYSTEM::TYPE-ERROR-STRING SYSTEM::BROWSER
      (COMMON-LISP::LIST COMMON-LISP::SYMBOL) SYSTEM::TYPECASE-ERROR-STRING
      COMMON-LISP::FORMAT
      #Y(EXT::BROWSE-URL-1
         #52Y(00 00 00 00 03 00 00 00 01 19 B0 31 8B DA B1 38 02 31 88 AF B1 31
              80 AE 1B 0B DB B2 31 87 94 00 83 01 B2 31 80 AC 8D 91 71 16 01 DC
              B1 38 02 31 88 9E 19 05)
         ";; running [" #\Space "]...")
      :ARGUMENTS :WAIT EXT::RUN-PROGRAM
      #Y(EXT::BROWSE-URL-2
         #19Y(00 00 00 00 01 00 00 00 01 17 DA AF 38 02 31 88 9E 19 03)
         "done
")
      #Y(EXT::BROWSE-URL-3
         #33Y(00 00 00 00 03 00 00 00 01 19 AF B1 31 80 DA B1 38 02 31 88 AE B1
              31 83 DB B1 38 02 31 88 9E 19 05)
         ": no browser specified; please point your browser at
 --> <URL:"
         ">
")
      EXT::BROWSE-URL))
#Y(#:TOP-LEVEL-FORM-9
   #26Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC DD 2D 03 04 DA DF 32 80 C5
        19 01)
   EXT::CLHS SYSTEM::REMOVE-OLD-DEFINITIONS COMMON-LISP::FUNCTION
   "Dump the CLHS doc for the symbol." SYSTEM::%SET-DOCUMENTATION
   #Y(EXT::CLHS
      #204Y(03 00 01 00 01 00 00 00 80 1C 02 00 00 00 3B 02 03 0E 02 FA 3B 01
            2D 0E 03 F9 0E 04 1D 2A 1B 80 4B D5 1B 80 5F A2 1B 80 7B EE B5 B0
            33 02 1E EF F0 B3 F1 F2 2E 19 14 F4 F5 70 1C B8 33 06 1F F7 AD 33
            01 1E 0E 04 1C 24 DF E0 38 05 72 4E 53 12 AE 63 30 07 E2 6F 09 DB
            B2 E4 E5 2D 05 0C 0F 04 3E 54 67 00 00 00 64 30 07 55 16 01 2E 0D
            14 AC 72 45 E8 91 01 31 0C AC AD 72 45 72 96 71 30 24 0F FF 9E D6
            14 B1 8E 04 FF 9B B1 8F 05 FF A0 EC 71 CA B2 38 02 71 45 AD 31 D3
            42 02 AC 25 13 FF 88 9E 16 03 14 AC 6B 04 38 01 8D 62 FF 91 14 1B
            14 65 1E B0 B0 65 1F 94 04 73 04 26 DA B4 DB B5 2D 05 20 83 00 AC
            8D 91 68 00 19 08)
      :BROWSER :OUT EXT::*BROWSER* COMMON-LISP::*STANDARD-OUTPUT*
      SYSTEM::*CLHS-TABLE* #.#'EXT::PACKAGE-LOCK ("COMMON-LISP")
      SYSTEM::%SET-PACKAGE-LOCK "clhs.txt" SYSTEM::CLISP-DATA-FILE :PACKAGE
      "COMMON-LISP" EXT::READ-FROM-FILE EXT::CLHS-ROOT 0. #\/ "" "/"
      "COMMON-LISP" :EXTERNAL "no symbol named ~s exported from ~s"
      COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE
      (COMMON-LISP::OR COMMON-LISP::SYMBOL COMMON-LISP::STRING)
      SYSTEM::TYPE-ERROR-STRING SYSTEM::SYMBOL-STRING
      (COMMON-LISP::SYMBOL COMMON-LISP::STRING) SYSTEM::TYPECASE-ERROR-STRING
      "No HyperSpec doc for `~s'" COMMON-LISP::STRING "Body/" EXT::BROWSE-URL))
