(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 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) COMMON-LISP::APROPOS-LIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP::APROPOS-LIST #60Y(00 00 00 00 01 00 01 00 00 08 00 2B 01 7F 03 00 00 3D 02 9D 2B 01 00 0B 00 00 AC 6D 00 01 92 04 15 AC 31 E1 68 01 00 64 38 05 C6 F9 72 53 DC DD 38 02 32 66 19 06 AC B1 31 DF 1B 68) #Y(COMMON-LISP::APROPOS-LIST-1 #32Y(00 00 00 00 01 00 00 00 00 02 69 01 01 AE 38 04 31 41 1F 0A AD 07 00 01 5D 0C 00 01 19 02 19 02) COMMON-LISP::NIL) #.#'COMMON-LISP::EQ #.#'COMMON-LISP::STRING< #.#'COMMON-LISP::SYMBOL-NAME)) #Y(#:TOP-LEVEL-FORM-3 #30Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 DB 8C 4E 04 DB 63 31 51 DB DC DD 2D 03 04 C6 19 01) (COMMON-LISP::SPECIAL SYSTEM::*APROPOS-DO-MORE*) SYSTEM::*APROPOS-DO-MORE* COMMON-LISP::VARIABLE "Print values of the symbols in `apropos'. It can be a list of :FUNCTION, :VARIABLE, :TYPE, :CLASS to print the corresponding values, or T for all of them." SYSTEM::%SET-DOCUMENTATION) #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) SYSTEM::APROPOS-DO-MORE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::APROPOS-DO-MORE #28Y(00 00 00 00 01 00 00 00 00 02 6B 00 02 5A 1E 0A AD 6B 00 DB 38 02 31 B2 19 02 19 02) SYSTEM::*APROPOS-DO-MORE* #.#'COMMON-LISP::EQ)) #Y(#:TOP-LEVEL-FORM-5 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) COMMON-LISP::APROPOS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP::APROPOS #194Y(00 00 00 00 01 00 01 00 00 08 3D 01 AE AE 70 00 63 1B 80 A0 CE 1B 3E D2 1B 3B 87 01 00 DB 63 AE 33 02 16 AC 8D 4F 18 DC 38 03 31 88 AC 6F 03 38 03 31 88 DE 89 05 08 E0 63 AE 6F 07 33 02 16 AC 8D 4E 25 E2 38 03 31 88 AC 38 01 8C 5D 46 AC 6F 0B 88 0C 43 D3 14 6F 0A 38 03 31 88 E9 89 05 08 EA 63 AE 6F 0B 33 02 16 AC EB 38 01 8E 82 06 AC EC 38 01 32 82 14 93 00 16 ED 38 03 31 88 EE 6F 0A 38 03 31 88 EF 89 05 06 F0 63 AE 33 02 16 16 01 AC F1 38 01 72 82 93 00 16 F2 38 03 31 88 F3 6F 0A 38 03 31 88 F4 89 05 06 F5 63 AE 33 02 16 16 01 83 01 AD 8D 91 FF 61 38 01 31 8A 16 02 3E 19 03) COMMON-LISP::APROPOS-LIST #Y(COMMON-LISP::APROPOS-1 #28Y(00 00 00 00 02 00 00 00 01 18 AF 31 8B AE B0 31 80 AF 01 02 DA 63 2D 05 01 9E 19 04) 40. SYSTEM::FORMAT-TABULATE) " " SYSTEM::FBOUND-STRING :FUNCTION SYSTEM::APROPOS-DO-MORE #Y(COMMON-LISP::APROPOS-2 #27Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 80 DB B0 31 87 9E 19 04) " [" #\]) COMMON-LISP::FDEFINITION " " "constant" SYSTEM::TEXT SYSTEM::%SYMBOL-VALUE SYSTEM::SYMBOL-MACRO-P "symbol-macro" "variable" :VARIABLE #Y(COMMON-LISP::APROPOS-3 #27Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 80 DB B0 31 87 9E 19 04) " [" #\]) SYSTEM::TYPE-SYMBOL SYSTEM::DEFSTRUCT-DESCRIPTION " " "type" :TYPE #Y(COMMON-LISP::APROPOS-4 #27Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 80 DB B0 31 87 9E 19 04) " [" #\]) CLOS::CLOSCLASS " " "class" :CLASS #Y(COMMON-LISP::APROPOS-5 #27Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 80 DB B0 31 87 9E 19 04) " [" #\]))) #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01) (COMMON-LISP::SPECIAL SYSTEM::*DESCRIBE-NESTING*) SYSTEM::*DESCRIBE-NESTING*) #Y(#:TOP-LEVEL-FORM-7 #70Y(00 00 00 00 00 00 00 00 00 01 DA DB DC 38 02 72 27 7B 01 DD DE DF E0 E1 E2 E3 7B 06 DE E4 E5 E6 00 7A E2 E7 7B 06 DE E8 E5 63 D4 7A E2 EA 7B 06 DE EB E5 63 00 7A E2 EC 7B 06 7B 04 2D 05 13 DA 38 02 32 27 19 01) SYSTEM::DESCRIBE-STREAM :DIRECT-SUPERCLASSES GRAY::FUNDAMENTAL-CHARACTER-OUTPUT-STREAM :DIRECT-SLOTS :NAME SYSTEM::TARGET-STREAM :INITARGS (:STREAM) :TYPE COMMON-LISP::STREAM SYSTEM::BUFFER :INITER #Y(#:TOP-LEVEL-FORM-7-1 #28Y(00 00 00 00 00 00 00 00 00 01 0E 00 1C 02 0E 01 14 64 38 06 C7 FD C8 FA 31 1C 19 01) COMMON-LISP::*PRINT-RIGHT-MARGIN* SYSTEM::*PRIN-LINELENGTH* COMMON-LISP::CHARACTER 0.) COMMON-LISP::STRING SYSTEM::INDENT 0. COMMON-LISP::INTEGER SYSTEM::PENDING-INDENT (COMMON-LISP::OR COMMON-LISP::NULL COMMON-LISP::INTEGER) CLOS::ENSURE-CLASS) #Y(#:TOP-LEVEL-FORM-8 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) SYSTEM::DESCRIBE-STREAM-FLUSH-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::DESCRIBE-STREAM-FLUSH-BUFFER #119Y(00 00 00 00 02 00 00 00 00 03 00 2B 01 7F 03 00 00 AC 6D 00 01 68 01 00 DB 72 3B 71 8F 93 00 19 0E 02 1C 02 0E 03 14 68 03 00 DE 72 3B 72 45 AE 73 02 36 91 01 32 02 9E 34 16 01 68 01 00 DF 8F 3B 15 68 01 00 DF 72 3B 68 02 00 DB 72 3B 30 06 68 01 00 DF 63 32 3C 68 01 00 DE 72 3B 68 02 00 DB 72 3B 30 07 68 01 00 DE 72 3B E2 31 18 A0 1F 04 9D 34 19 05 19 05) #Y(SYSTEM::DESCRIBE-STREAM-FLUSH-BUFFER-NEWLINE #45Y(00 00 00 00 00 00 00 00 00 01 69 00 01 DB 6B 02 6B 03 73 02 38 32 3C 69 00 01 DE 69 00 01 DB 72 3B 32 3C 69 00 01 DF 72 3B 31 8A 19 01) COMMON-LISP::NIL SYSTEM::INDENT SYSTEM::*DESCRIBE-NESTING* CUSTOM::*PRINT-INDENT-LISTS* SYSTEM::PENDING-INDENT SYSTEM::TARGET-STREAM) SYSTEM::TARGET-STREAM COMMON-LISP::*PRINT-RIGHT-MARGIN* SYSTEM::*PRIN-LINELENGTH* SYSTEM::BUFFER SYSTEM::PENDING-INDENT SYSTEM::WRITE-SPACES COMMON-LISP::WRITE-SEQUENCE 0.)) #Y(#:TOP-LEVEL-FORM-9 #39Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 64 38 02 72 27 7B 02 E0 63 E1 E2 6E 0A 09 30 0A 19 01) GRAY::STREAM-WRITE-CHAR :INITFUNCTION #Y(#:TOP-LEVEL-FORM-9-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-9-1-1 #44Y(00 00 00 00 02 00 00 00 00 03 9E 26 00 13 AE 64 30 01 19 03 AE 63 30 01 DC AF DD 72 3B 31 87 19 03 AD AF DE 72 3B 38 01 31 1B 19 03) #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (#\Tab . 7.) (#\Space . 7.) (#\Newline . 1.)) SYSTEM::DESCRIBE-STREAM-FLUSH-BUFFER #\Space SYSTEM::TARGET-STREAM SYSTEM::BUFFER) (COMMON-LISP::T)) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SYSTEM::DESCRIBE-STREAM :QUALIFIERS :SIGNATURE #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD) #Y(#:TOP-LEVEL-FORM-10 #34Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 7B 01 E0 63 E1 E2 6E 0A 09 30 0A 19 01) GRAY::STREAM-LINE-COLUMN :INITFUNCTION #Y(#:TOP-LEVEL-FORM-10-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-10-1-1 #44Y(00 00 00 00 01 00 00 00 00 02 AD DA 72 3B 71 8F 9D 1F 17 AE DB 72 3B 72 45 AD 73 02 36 AF DC 72 3B 73 01 37 DD 33 01 34 19 03 19 03) SYSTEM::TARGET-STREAM SYSTEM::BUFFER SYSTEM::INDENT 0.) (COMMON-LISP::T)) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SYSTEM::DESCRIBE-STREAM :QUALIFIERS :SIGNATURE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD) #Y(#:TOP-LEVEL-FORM-11 #34Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 7B 01 E0 63 E1 E2 6E 0A 09 30 0A 19 01) GRAY::STREAM-START-LINE-P :INITFUNCTION #Y(#:TOP-LEVEL-FORM-11-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-11-1-1 #40Y(00 00 00 00 01 00 00 00 00 02 AD DA 72 3B 71 8F 9D 1F 13 AE DB 72 3B 72 45 AD 73 02 36 AF DC 72 3B 33 01 32 19 03 19 03) SYSTEM::TARGET-STREAM SYSTEM::BUFFER SYSTEM::INDENT) (COMMON-LISP::T)) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SYSTEM::DESCRIBE-STREAM :QUALIFIERS :SIGNATURE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD) #Y(#:TOP-LEVEL-FORM-12 #34Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 7B 01 E0 63 E1 E2 6E 0A 09 30 0A 19 01) GRAY::STREAM-FINISH-OUTPUT :INITFUNCTION #Y(#:TOP-LEVEL-FORM-12-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-12-1-1 #22Y(00 00 00 00 01 00 00 00 00 02 AD 63 30 00 AD DB 72 3B 31 8C 19 02) SYSTEM::DESCRIBE-STREAM-FLUSH-BUFFER SYSTEM::TARGET-STREAM) (COMMON-LISP::T)) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SYSTEM::DESCRIBE-STREAM :QUALIFIERS :SIGNATURE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD) #Y(#:TOP-LEVEL-FORM-13 #34Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 7B 01 E0 63 E1 E2 6E 0A 09 30 0A 19 01) GRAY::STREAM-FORCE-OUTPUT :INITFUNCTION #Y(#:TOP-LEVEL-FORM-13-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-13-1-1 #22Y(00 00 00 00 01 00 00 00 00 02 AD 63 30 00 AD DB 72 3B 31 8D 19 02) SYSTEM::DESCRIBE-STREAM-FLUSH-BUFFER SYSTEM::TARGET-STREAM) (COMMON-LISP::T)) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SYSTEM::DESCRIBE-STREAM :QUALIFIERS :SIGNATURE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD) #Y(#:TOP-LEVEL-FORM-14 #34Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD 64 DE DF 38 02 72 27 7B 01 E0 63 E1 E2 6E 0A 09 30 0A 19 01) GRAY::STREAM-CLEAR-OUTPUT :INITFUNCTION #Y(#:TOP-LEVEL-FORM-14-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-14-1-1 #30Y(00 00 00 00 01 00 00 00 00 02 AD DA 63 32 3C AD DB 72 3B DC 31 18 AD DD 72 3B 31 8E 19 02) SYSTEM::PENDING-INDENT SYSTEM::BUFFER 0. SYSTEM::TARGET-STREAM) (COMMON-LISP::T)) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SYSTEM::DESCRIBE-STREAM :QUALIFIERS :SIGNATURE #S(SYSTEM::SIGNATURE :REQ-NUM 1. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) CLOS::MAKE-STANDARD-METHOD CLOS::DO-DEFMETHOD) #Y(#:TOP-LEVEL-FORM-15 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) SYSTEM::LIST-LENGTH-DOTTED SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::LIST-LENGTH-DOTTED #56Y(00 00 00 00 01 00 00 00 00 02 DA AE AF 9E 20 0D 9E 5C 21 10 96 02 9F 5C 14 40 02 19 05 AE 9F 1B 77 00 19 05 95 01 9E 22 78 9E 5C 79 83 01 6A 01 DB AF 82 02 36 02 1B 55) 0. 2.)) #Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 00 00 00 00 01 DA 31 59 C6 19 01) (COMMON-LISP::SPECIAL SYSTEM::*DESCRIBE-DONE*) SYSTEM::*DESCRIBE-DONE*) #Y(#:TOP-LEVEL-FORM-17 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) SYSTEM::DESCRIBE-SLOTTED-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::DESCRIBE-SLOTTED-OBJECT #143Y(00 00 00 00 02 00 00 00 00 03 AE 6F 00 92 00 08 AE E7 6F 07 30 08 19 04 DB AD 73 00 17 63 DC 6B 03 DE DF B1 73 00 17 38 05 72 49 73 03 36 B1 E0 6F 07 30 08 AF AF 1B 3C B5 E4 B8 B0 72 3B 2D 03 08 B6 AE 72 3B B2 38 03 80 B6 05 16 02 1B 21 16 03 1B 26 94 01 9E 20 77 94 01 B5 E3 6B 03 AF B4 2D 05 08 B6 AE 8E 3D 50 B5 E5 6F 07 30 08 16 02 83 01 83 00 9E 21 5C 16 02 AD 72 47 63 1B 09 87 01 00 14 B4 30 0C 83 01 AD 8D 91 73 00 19 09) CLOS::SLOT-NAMES #.#'COMMON-LISP::WRITE-TO-STRING 4. CUSTOM::*PRINT-INDENT-LISTS* #.#'COMMON-LISP::MAX #.#'COMMON-LISP::LENGTH "~%Slots:" SYSTEM::TEXT COMMON-LISP::FORMAT #Y(SYSTEM::DESCRIBE-SLOTTED-OBJECT-1 #42Y(00 00 00 00 04 00 00 00 01 1A B1 31 8A B1 01 02 B3 DA 2D 05 01 DC B2 38 02 31 88 AF B2 31 83 B1 01 02 B1 63 2D 05 01 9E 19 06) 0. SYSTEM::FORMAT-TABULATE " ") #Y(SYSTEM::DESCRIBE-SLOTTED-OBJECT-2 #23Y(00 00 00 00 02 00 00 00 01 18 DA B0 38 02 31 88 AE B0 31 80 9E 19 04) "= ") "unbound" COMMON-LISP::DESCRIBE "~%No slots.")) #Y(#:TOP-LEVEL-FORM-18 #509Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD DE DF 64 E0 64 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 E4 6E 0A 0B DD E6 DF 64 E0 E7 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 E8 6E 0A 0B DD E9 DF 64 E0 EA 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 EB 6E 0A 0B DD EC DF 64 E0 ED 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 EE 6E 0A 0B DD EF DF 64 E0 F0 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 F1 6E 0A 0B DD F2 DF 64 E0 F3 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 F4 6E 0A 0B DD F5 DF 64 E0 F6 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 F7 6E 0A 0B DD 65 1E DF 64 E0 65 1F 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 20 6E 0A 0B DD 65 21 DF 64 E0 65 22 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 23 6E 0A 0B DD 65 24 DF 64 E0 65 25 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 26 6E 0A 0B DD 65 27 DF 64 E0 65 28 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 29 6E 0A 0B DD 65 2A DF 64 E0 E1 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 2B 6E 0A 0B DD 65 2C DF 64 E0 65 2D 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 2E 6E 0A 0B DD 65 2F DF 64 E0 65 30 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 31 6E 0A 0B DD 65 32 DF 64 E0 65 33 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 34 6E 0A 0B DD 65 35 DF 64 E0 65 36 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 37 6E 0A 0B DD 65 38 DF 64 E0 65 39 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 3A 6E 0A 0B DD 65 3B DF 64 E0 65 3C 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 3D 6E 0A 0B DD 65 3E DF 64 E0 65 3F 38 02 72 27 E1 38 02 72 27 7B 02 E2 63 E3 65 40 6E 0A 0B 2D 16 41 19 01) CLOS::DESCRIBE-OBJECT #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) (0. 1.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-18-1 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-1-1 #204Y(00 00 00 00 02 00 00 00 00 03 AE 72 25 9D 26 00 80 A5 AE C6 1B 80 99 AE C9 1B 80 94 AE DF 6F 02 B1 E0 72 29 2F 07 1B 80 6D AE E2 6F 02 E3 99 07 B3 E0 72 29 73 00 27 B2 E4 72 29 2F 07 1B 0A AE E5 6F 02 B1 72 D4 B2 32 D5 14 2D 04 03 19 04 AE D1 1B 80 5C AE D2 1B 80 57 AE D3 1B 80 52 AE D4 1B 80 4D AE D5 1B 80 48 AE D6 1B 80 43 B0 ED 6F 02 AF 2D 03 03 AD B1 30 14 19 06 AF 2F 12 42 02 92 00 6A B0 EF 6F 02 30 03 19 06 AE F0 6F 02 B1 6F 17 F2 33 02 3E 14 2D 03 03 19 04 AE F3 6F 02 30 03 AE B0 30 1A 19 04 AE 03 1B 1B 03 AE 03 1C 14 6F 02 30 03 19 04 F7 65 1E AE 65 1F 65 20 2E 21 14 65 22 65 23 70 24 B3 33 06 1F) #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (EXT::ADDRESS . 157.) (SYSTEM::SYSTEM-INTERNAL . 152.) (SYSTEM::FRAME-POINTER . 140.) (SYSTEM::READ-LABEL . 123.) (EXT::WEAK-POINTER . 107.) (EXT::ENCODING . 88.) (EXT::FUNCTION-MACRO . 83.) (EXT::MACRO . 78.) (EXT::SYMBOL-MACRO . 73.) (EXT::LOAD-TIME-EVAL . 68.) (EXT::SPECIAL-OPERATOR . 63.) (COMMON-LISP::BYTE . 47.) (FFI::FOREIGN-FUNCTION . 25.) (FFI::FOREIGN-VARIABLE . 12.) (FFI::FOREIGN-ADDRESS . 7.) (EXT::FOREIGN-POINTER . 2.)) "a foreign pointer" SYSTEM::TEXT COMMON-LISP::FORMAT "a foreign address" "a foreign variable of foreign type ~S." 3. SYSTEM::DEPARSE-C-TYPE "a foreign function taking foreign types ~:S and returning foreign type ~S." COMMON-LISP::LIST 2. "a byte specifier, denoting the ~S bits starting at bit position ~S of an integer." "a special form handler." "a load-time evaluation promise." "a symbol macro handler." "a macro expander." "a function with alternative macro expander." "an encoding." EXT::WEAK-POINTER-VALUE "a GC-invisible pointer to ~S." COMMON-LISP::DESCRIBE "a GC-invisible pointer to a now defunct object." "a label used for resolving #~D# references during READ." SYSTEM::ADDRESS-OF #.(COMMON-LISP::ASH COMMON-LISP::MOST-POSITIVE-FIXNUM -1.) "a pointer into the stack. It points to:" SYSTEM::DESCRIBE-FRAME "a special-purpose object." "a machine address." COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE (COMMON-LISP::MEMBER EXT::FOREIGN-POINTER FFI::FOREIGN-ADDRESS FFI::FOREIGN-VARIABLE FFI::FOREIGN-FUNCTION COMMON-LISP::BYTE EXT::SPECIAL-OPERATOR EXT::LOAD-TIME-EVAL EXT::SYMBOL-MACRO EXT::MACRO EXT::FUNCTION-MACRO EXT::ENCODING EXT::WEAK-POINTER SYSTEM::READ-LABEL SYSTEM::FRAME-POINTER SYSTEM::SYSTEM-INTERNAL EXT::ADDRESS) SYSTEM::TYPE-ERROR-STRING (COMMON-LISP::TYPE-OF SYSTEM::OBJ) (EXT::FOREIGN-POINTER FFI::FOREIGN-ADDRESS FFI::FOREIGN-VARIABLE FFI::FOREIGN-FUNCTION COMMON-LISP::BYTE EXT::SPECIAL-OPERATOR EXT::LOAD-TIME-EVAL EXT::SYMBOL-MACRO EXT::MACRO EXT::FUNCTION-MACRO EXT::ENCODING EXT::WEAK-POINTER SYSTEM::READ-LABEL SYSTEM::FRAME-POINTER SYSTEM::SYSTEM-INTERNAL EXT::ADDRESS) SYSTEM::CASE-ERROR-STRING) (COMMON-LISP::T)) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS COMMON-LISP::STREAM :QUALIFIERS :SIGNATURE #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) CLOS::MAKE-STANDARD-METHOD #Y(#:TOP-LEVEL-FORM-18-2 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-2-1 #26Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 72 26 2D 03 02 AE AE 30 03 19 03) "an instance of the CLOS class ~S." SYSTEM::TEXT COMMON-LISP::FORMAT SYSTEM::DESCRIBE-SLOTTED-OBJECT) (COMMON-LISP::T)) CLOS::STANDARD-OBJECT #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-3 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-3-1 #48Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 72 25 2D 03 02 AE DD 32 29 79 38 01 71 A3 93 00 08 AE DE 6F 01 AE 2D 03 02 16 01 AE AE 30 05 19 03) "a structure of type ~S." SYSTEM::TEXT COMMON-LISP::FORMAT 0. "~%As such, it is also a structure of type ~{~S~^, ~}." SYSTEM::DESCRIBE-SLOTTED-OBJECT) (COMMON-LISP::T)) COMMON-LISP::STRUCTURE-OBJECT #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-4 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-4-1 #68Y(00 00 00 00 02 00 00 00 00 03 AE 2F 00 42 02 93 01 2A 92 00 0F AF CC 14 6F 03 AF 2D 03 04 19 05 AF C7 1B 73 AD DB 90 01 31 76 AF DF 6F 03 30 04 94 04 B0 30 06 95 04 B0 30 06 19 05 AF E2 6F 03 30 04 19 05) SYSTEM::LIST-LENGTH-DOTTED 1. "a dotted list of length ~S." SYSTEM::TEXT COMMON-LISP::FORMAT "a cons." COMMON-LISP::DESCRIBE "a list of length ~S." "a cyclic list.") (COMMON-LISP::T)) COMMON-LISP::CONS #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-5 #25Y(00 00 00 00 01 00 00 00 00 02 00 2B 01 7F 02 00 00 AC 6D 00 01 C6 5D 19 03) #Y(#:TOP-LEVEL-FORM-18-5-1 #36Y(00 00 00 00 03 00 00 00 00 04 AD DB 6F 02 30 03 92 03 0A 69 00 01 AF AF 2D 03 04 19 04 14 AF AF 36 02 19 04) COMMON-LISP::NIL "the empty list, " SYSTEM::TEXT COMMON-LISP::FORMAT CLOS::%NO-NEXT-METHOD) (COMMON-LISP::NIL)) COMMON-LISP::NULL #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-6 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-6-1 #525Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 2D 03 02 AE 72 88 01 02 92 02 1E B0 DE 6F 01 30 02 63 02 10 05 00 10 06 92 09 1F 00 10 08 BB 31 85 11 14 71 D1 63 1B 80 94 B0 DD 6F 01 B0 2D 03 02 AE AE 38 03 80 B6 01 1B 57 10 07 1B 60 B0 D2 1B 10 B0 D3 1B 0C B1 38 01 8C 5D 72 B1 8E 8D 72 B0 D4 14 6F 01 30 02 B1 89 10 15 B0 EB 6F 01 B3 38 01 71 58 2D 03 02 EC ED B3 7B 02 7B 02 84 00 B0 EE 6F 01 B3 6F 15 2D 03 02 B1 6F 15 AE 38 03 80 B6 01 1B 80 70 B0 F2 6F 01 30 02 B1 38 01 8D 56 80 8B B0 F3 6F 01 30 02 1B 80 82 B0 F4 6F 01 B3 6B 1B 03 1C 1B 80 6E 87 01 00 10 07 BE 31 85 11 14 AF 38 04 8D 34 03 AC 84 09 83 01 AD 8D 91 67 16 03 12 02 93 00 13 B1 E3 6F 01 95 02 E4 B0 73 00 17 E5 38 03 72 65 2D 04 02 16 01 B1 8F 8B 06 B0 E6 6F 01 30 02 B1 8C 4E FF 5A B1 8F 8D 06 B0 F0 6F 01 30 02 B1 8D 4F 80 41 B0 F1 6F 01 30 02 B1 8C 50 FF 80 A2 5E 14 8E 1B FF 8F B0 F7 6F 01 B3 6B 1B 03 1C 14 38 02 71 B2 2D 03 02 B1 65 1E 38 01 72 82 93 00 09 B1 65 1F 6F 01 AE 2D 03 02 16 01 A2 5E 14 AE 38 03 80 B6 01 B1 65 20 38 01 8E 82 10 B1 65 21 38 01 8E 82 08 B1 65 22 38 01 8F 82 1B B0 65 23 6F 01 30 02 B1 65 22 38 01 8F 82 0C 65 24 ED B3 7B 02 03 25 7C 02 84 00 B1 65 26 38 01 8F 82 07 B0 65 27 6F 01 30 02 B1 8F 89 30 63 B2 72 89 93 00 0B 94 00 84 01 9D 5C 5C F8 92 00 75 AD 32 47 16 01 F8 B1 65 28 6F 01 AE 72 45 AF 2D 04 02 16 01 65 29 ED B3 7B 02 7B 02 84 00 B0 65 2A 6F 01 30 02 65 2B 63 1B 18 87 01 00 B3 AD 70 2C 93 00 0A B3 65 2D 6F 01 AF AF 2D 04 02 16 01 83 01 AD 8D 91 64 16 02 93 00 09 B0 65 2E 6F 01 AE 2D 03 02 AD 72 47 63 1B 09 87 01 00 14 B3 30 2F 83 01 AD 8D 91 73 00 19 08) "the symbol ~S, " SYSTEM::TEXT COMMON-LISP::FORMAT "lies in ~S" "is uninterned" COMMON-LISP::*PRINT-ESCAPE* COMMON-LISP::*PRINT-READABLY* COMMON-LISP::*PACKAGE* COMMON-LISP::*PRINT-GENSYM* ", is accessible in the package~:[~;s~] ~{~A~^, ~}" #.#'COMMON-LISP::PACKAGE-NAME #.#'COMMON-LISP::STRING< ", is a keyword" ", a constant" ", a variable declared SPECIAL" ", a variable" EXT::SYMBOL-MACRO-EXPAND " (macro: ~s)" COMMON-LISP::MACROEXPAND-1 COMMON-LISP::QUOTE ", value: ~s" SYSTEM::%SYMBOL-VALUE ", an unbound variable declared SPECIAL" ", names " "a special operator" " with macro definition" "a~:[~; deprecated~] function" SYSTEM::*DEPRECATED-FUNCTIONS-LIST* #.#'COMMON-LISP::EQ "a~:[~; deprecated~] macro" SYSTEM::DEPRECATED " (use ~s instead)" SYSTEM::TYPE-SYMBOL SYSTEM::DEFSTRUCT-DESCRIPTION SYSTEM::DEFTYPE-EXPANDER ", names a type" EXT::TYPE-EXPAND (COMMON-LISP::T) CLOS::CLOSCLASS ", names a class" ", has the propert~@P ~{~S~^, ~}" COMMON-LISP::SYMBOL-PLIST "." (COMMON-LISP::COMPILER-MACRO COMMON-LISP::SETF COMMON-LISP::STRUCTURE COMMON-LISP::TYPE COMMON-LISP::VARIABLE COMMON-LISP::FUNCTION) COMMON-LISP::DOCUMENTATION "~%Documentation as a ~a:~%~a" "~%For more information, evaluate ~{~S~^ or ~}." COMMON-LISP::DESCRIBE) (COMMON-LISP::T)) COMMON-LISP::SYMBOL #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-7 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-7-1 #25Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 72 D2 B1 72 25 2D 04 02 19 03) "an integer, uses ~S bit~:p, is represented as a ~(~A~)." SYSTEM::TEXT COMMON-LISP::FORMAT) (COMMON-LISP::T)) COMMON-LISP::INTEGER #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-8 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-8-1 #18Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 30 02 19 03) "a rational, not integral number." SYSTEM::TEXT COMMON-LISP::FORMAT) (COMMON-LISP::T)) COMMON-LISP::RATIO #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-9 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-9-1 #27Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 38 01 72 C0 B1 72 25 2D 04 02 19 03) "a float with ~S bits of mantissa (~(~A~))." SYSTEM::TEXT COMMON-LISP::FORMAT) (COMMON-LISP::T)) COMMON-LISP::FLOAT #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-10 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-10-1 #85Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 30 02 AE 72 C4 AF 72 C5 AC 8E 90 19 AD 8F 90 20 AF DF 6F 01 9F 14 72 92 2D 03 02 1B 20 AF DD 6F 01 30 02 1B 18 AD 8E 90 74 AF DE 6F 01 A0 1B 65 AF E0 6F 01 AF 72 92 AF 72 92 2D 04 02 16 02 AD E1 6F 01 30 02 19 03) "a complex number " SYSTEM::TEXT COMMON-LISP::FORMAT "at the origin" "on the ~:[posi~;nega~]tive real axis" "on the ~:[posi~;nega~]tive imaginary axis" "in the ~:[~:[first~;fourth~]~;~:[second~;third~]~] quadrant" " of the Gaussian number plane.") (COMMON-LISP::T)) COMMON-LISP::COMPLEX #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-11 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-11-1 #71Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 30 02 AD DD 6F 01 30 02 AE 6F 04 92 00 1E AE E0 6F 01 30 02 16 01 AD E1 6F 01 B0 71 1F 2D 03 02 AE 8C 1E 12 AD E2 6F 01 30 02 19 03 AE DF 6F 01 AE 2D 03 02 1B 5E 00 19 03) "a character" SYSTEM::TEXT COMMON-LISP::FORMAT "." SYSTEM::UNICODE-ATTRIBUTES "~%Unicode name: ~A" "~%It is not defined by the Unicode standard." "~%It is a ~:[non-~;~]printable character." "~%Its use is non-portable.") (COMMON-LISP::T)) COMMON-LISP::CHARACTER #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-12 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-12-1 #35Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 8F 77 03 B0 2F 02 14 B1 8F 78 03 B1 2F 02 14 2D 04 03 19 03) "a~:[~:[ closed ~;n output-~]~;~:[n input-~;n input/output-~]~]stream." SYSTEM::TEXT COMMON-LISP::OPEN-STREAM-P COMMON-LISP::FORMAT) (COMMON-LISP::T)) #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-13 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-13-1 #169Y(00 00 00 00 02 00 00 00 00 03 AE 8C CB 29 AD EB 6F 01 30 02 19 03 B0 E4 6F 01 68 02 00 E5 E6 38 02 32 65 1B 80 6B AF E8 6F 01 95 02 E1 B0 73 00 17 2D 04 02 1B 80 6A AD DA 6F 01 B0 71 CB 2D 03 02 AE 71 CC 93 00 08 AE DD 6F 01 AE 2D 03 02 16 01 AD DE 6F 01 30 02 AE 71 CE AF 71 CF AF DF 6F 01 30 02 93 01 0E AF E0 6F 01 95 03 E1 B1 73 00 17 2D 04 02 00 2B 01 00 0B 00 00 AC 6D 08 01 B2 31 E0 6B 09 8E 90 FF 8E B0 E7 6F 01 68 02 00 32 45 14 2D 03 02 16 01 92 00 FF 8B AF E9 6F 01 30 02 AF EA 6F 01 30 02 19 05) "the package named ~A" SYSTEM::TEXT COMMON-LISP::FORMAT ". It has the nicknames ~{~A~^, ~}" "." "~%It " "imports the external symbols of the package~:[~;s~] ~{~A~^, ~} and " #.#'COMMON-LISP::PACKAGE-NAME #Y(#:TOP-LEVEL-FORM-18-13-1-1 #20Y(00 00 00 00 01 00 00 00 00 02 AD 07 00 01 5D 0C 00 01 19 02) COMMON-LISP::NIL) SYSTEM::*DESCRIBE-NESTING* "exports ~:[no symbols~;the symbols~:*~{ ~S~}~]" #.#'COMMON-LISP::STRING< #.#'COMMON-LISP::SYMBOL-NAME "exports ~[no symbols~:;~:*~:d symbols~]" " to the package~:[~;s~] ~{~A~^, ~}" ", but no package uses these exports" "." "a deleted package.") (COMMON-LISP::T)) COMMON-LISP::PACKAGE #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-14 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-14-1 #22Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 71 67 2D 03 02 19 03) "a hash table with ~S entr~:@P." SYSTEM::TEXT COMMON-LISP::FORMAT) (COMMON-LISP::T)) COMMON-LISP::HASH-TABLE #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-15 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-15-1 #26Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 38 02 71 6C 72 01 2D 03 02 19 03) "~:[a~;the Common Lisp~] readtable." SYSTEM::TEXT COMMON-LISP::FORMAT) (COMMON-LISP::T)) COMMON-LISP::READTABLE #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-16 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-16-1 #104Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 B0 72 19 63 DC B3 38 01 71 E6 B4 38 01 71 E7 B5 38 01 71 E8 B6 38 01 71 E9 B7 38 01 71 EA B8 71 EB 7B 06 1B 27 16 03 1B 28 94 01 9E 20 77 94 01 93 00 0E 63 DD AF 72 8A B0 B0 70 04 6E 04 05 61 01 14 B1 80 A1 04 16 02 83 01 83 00 9E 21 5A 16 02 AC 80 A2 00 2D 04 05 19 03) "a ~:[~;portable ~]pathname~:[.~;~:*, with the following components:~{~A~}~]" SYSTEM::TEXT (:HOST :DEVICE :DIRECTORY :NAME :TYPE :VERSION) #Y(#:TOP-LEVEL-FORM-18-16-1-1 #30Y(00 00 00 00 03 00 00 00 01 19 B0 31 8A AF B1 31 83 DA B1 38 02 31 88 AE B1 31 83 9E 19 05) " = ") COMMON-LISP::MAKE-PATHNAME COMMON-LISP::FORMAT) (COMMON-LISP::T)) COMMON-LISP::PATHNAME #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-17 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-17-1 #18Y(00 00 00 00 02 00 00 00 00 03 AD DA 6F 01 30 02 19 03) "a random-state." SYSTEM::TEXT COMMON-LISP::FORMAT) (COMMON-LISP::T)) COMMON-LISP::RANDOM-STATE #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-18 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-18-1 #95Y(00 00 00 00 02 00 00 00 00 03 AE 71 06 AF 71 05 AF DA 6F 01 B2 72 1F B0 2D 04 02 AD 25 03 06 AF DE 6F 01 30 02 AC 02 22 08 AF DF 6F 01 AE 2D 03 02 B0 8D 0A 06 AF E0 6F 01 30 02 AD 8F 91 18 AF E1 6F 01 B2 71 08 2D 03 02 B0 8D 16 0A AF E2 6F 01 B2 71 17 2D 03 02 AF E3 6F 01 30 02 19 05) "a~:[~; simple~] ~A dimensional array" SYSTEM::TEXT COMMON-LISP::FORMAT 1. " (vector)" " of ~(~A~)s" ", adjustable" ", of size ~{~S~^ x ~}" " and current length (fill-pointer) ~S" ".") (COMMON-LISP::T)) COMMON-LISP::ARRAY #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) #Y(#:TOP-LEVEL-FORM-18-19 #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02) #Y(#:TOP-LEVEL-FORM-18-19-1 #189Y(00 00 00 00 02 00 00 00 00 03 AE 72 25 9D 26 00 80 9B AE DB 6F 02 30 03 AF 2F 04 42 07 B5 B2 B2 B2 B2 B2 B2 2D 07 05 19 0B AE E0 6F 02 30 03 AF 31 01 42 06 A2 1F 0C B4 B1 B1 B1 B1 B2 B2 2D 07 05 19 0A 19 0A E4 E5 AE 61 02 1B 22 AF 2F 08 42 06 B4 B2 B2 B2 B2 B2 B2 2D 07 05 B4 E3 6F 02 B7 72 31 AC 8F 04 06 AC 38 01 8C 56 59 E6 9E 14 7B 02 E7 AD 7B 02 61 01 16 01 F8 2D 03 03 19 0A AE E1 6F 02 B1 72 07 2D 03 03 AF 8E 07 FF BE AF E8 72 29 AF E9 6F 02 B2 EA 32 29 78 2D 03 03 9D 1F 0A AF EB 6F 02 AE 2D 03 03 19 05 19 05 EC ED AE EE EF 2E 16 14 F1 F2 70 19 B3 33 06 1F) #S(COMMON-LISP::HASH-TABLE COMMON-LISP::EQ (COMMON-LISP::FUNCTION . 111.) (COMMON-LISP::COMPILED-FUNCTION . 25.) (FFI::FOREIGN-FUNCTION . 2.)) "a foreign function." SYSTEM::TEXT COMMON-LISP::FORMAT SYSTEM::FUNCTION-SIGNATURE SYSTEM::DESCRIBE-SIGNATURE "a built-in system function." "a~:[n interpret~; compil~]ed function." SYSTEM::SIGNATURE "~%For more information, evaluate ~{~S~^ or ~}." COMMON-LISP::MACRO-FUNCTION COMMON-LISP::QUOTE COMMON-LISP::FUNCTION COMMON-LISP::DISASSEMBLE 2. "~%argument list: ~:S" 1. "~%documentation: ~A" COMMON-LISP::TYPE-ERROR :DATUM :EXPECTED-TYPE (COMMON-LISP::MEMBER FFI::FOREIGN-FUNCTION COMMON-LISP::COMPILED-FUNCTION COMMON-LISP::FUNCTION) SYSTEM::TYPE-ERROR-STRING (COMMON-LISP::TYPE-OF SYSTEM::OBJ) (FFI::FOREIGN-FUNCTION COMMON-LISP::COMPILED-FUNCTION COMMON-LISP::FUNCTION) SYSTEM::CASE-ERROR-STRING) (COMMON-LISP::T)) COMMON-LISP::FUNCTION #S(SYSTEM::SIGNATURE :REQ-NUM 2. :OPT-NUM 0. :REST-P COMMON-LISP::NIL :KEYS-P COMMON-LISP::NIL :KEYWORDS COMMON-LISP::NIL :ALLOW-P COMMON-LISP::NIL) CLOS::DO-DEFGENERIC) #Y(#:TOP-LEVEL-FORM-19 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) SYSTEM::DESCRIBE1 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::DESCRIBE1 #64Y(00 00 00 00 02 00 00 00 00 03 AE 0E 00 1C 02 0E 01 14 70 02 AF 6B 03 DE 38 02 8C B2 19 AF 0E 03 5D 0F 03 AE E2 6F 06 AE 2D 03 07 AF AF 30 09 16 01 AD 31 8C 19 03 AE DF 6F 06 AE 2D 03 07 1B 6F) COMMON-LISP::*PRINT-RIGHT-MARGIN* SYSTEM::*PRIN-LINELENGTH* SYSTEM::WRITE-TO-SHORT-STRING SYSTEM::*DESCRIBE-DONE* #.#'COMMON-LISP::EQ "~&~%~A [see above]" SYSTEM::TEXT COMMON-LISP::FORMAT "~&~%~A is " CLOS::DESCRIBE-OBJECT)) #Y(#:TOP-LEVEL-FORM-20 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) COMMON-LISP::DESCRIBE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMMON-LISP::DESCRIBE #92Y(00 00 00 00 01 00 01 00 00 08 3D 01 AD 72 26 DA 8A 01 23 93 01 80 40 AD 02 23 03 0E 09 F9 02 10 0A D0 10 02 00 10 0C B7 E7 E8 B9 6E 03 0F 30 07 11 12 02 3E 19 03 AD 31 8D 6B 02 32 95 10 02 0E 03 1C 02 0E 04 14 6B 05 73 01 37 E0 33 01 34 10 03 B4 B4 30 07 1B 5A 0E 08 F9 1B 42) #.(CLOS::FIND-CLASS 'SYSTEM::DESCRIBE-STREAM) CLOS::SUBCLASSP SYSTEM::*DESCRIBE-NESTING* COMMON-LISP::*PRINT-RIGHT-MARGIN* SYSTEM::*PRIN-LINELENGTH* CUSTOM::*PRINT-INDENT-LISTS* 1. SYSTEM::DESCRIBE1 COMMON-LISP::*STANDARD-OUTPUT* COMMON-LISP::*TERMINAL-IO* COMMON-LISP::*PRINT-CIRCLE* 0. SYSTEM::*DESCRIBE-DONE* SYSTEM::DESCRIBE-STREAM :STREAM CLOS::MAKE-INSTANCE)) #Y(#:TOP-LEVEL-FORM-21 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) EXT::ARGLIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EXT::ARGLIST #17Y(00 00 00 00 01 00 00 00 00 02 AD 6F 00 2F 01 19 02) SYSTEM::GET-SIGNATURE SYSTEM::SIG-TO-LIST)) #Y(#:TOP-LEVEL-FORM-22 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) SYSTEM::DESCRIBE-SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::DESCRIBE-SIGNATURE #43Y(00 00 00 00 07 00 00 00 00 00 93 07 06 14 DA 6F 01 30 02 B3 DD B4 B4 B4 B4 B4 B4 6E 06 04 6E 03 02 93 08 04 14 DF 30 02 15 19 08) "~%Argument list: " SYSTEM::TEXT COMMON-LISP::FORMAT #Y(SYSTEM::DESCRIBE-SIGNATURE-1 #49Y(00 00 00 00 02 00 00 00 01 18 DA B0 31 87 AE 1B 13 16 01 1B 15 94 00 83 01 B1 31 83 AC 8C 91 71 DB B1 31 87 AC 8D 91 6D 16 01 DC B0 31 87 9E 19 04) #\( #\Space #\)) SYSTEM::SIGNATURE-TO-LIST #Y(SYSTEM::DESCRIBE-SIGNATURE-2 #17Y(00 00 00 00 01 00 00 00 01 17 DA AF 31 87 9E 19 03) #\.))) #Y(#:TOP-LEVEL-FORM-23 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) SYSTEM::CLISP-DATA-FILE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::CLISP-DATA-FILE #101Y(01 00 01 00 01 00 00 00 00 02 64 63 38 08 DA DB 61 02 FB 71 F1 9F 10 02 1B 34 00 2B 01 00 0B 00 00 4B 04 1C DF E0 E1 B3 B2 6D 08 02 E3 99 0A E5 E6 6E 08 0D 0E 0E 5D 10 0E E9 EA BA EB 33 03 1E 06 04 00 39 01 00 AC 2F 12 16 01 4D 16 01 B3 B0 2E 03 14 38 02 71 EF 38 02 80 EF 04 14 8D F4 FF B9 A1 11 19 05) :RELATIVE "data" CUSTOM::*MERGE-PATHNAMES-ANSI* SYSTEM::LIB-DIRECTORY #(COMMON-LISP::NIL) :NAME COMMON-LISP::CONTINUE :INVOKE-FUNCTION #Y(SYSTEM::CLISP-DATA-FILE-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-NEW-VALUE :INTERACTIVE #Y(SYSTEM::CLISP-DATA-FILE-2 #18Y(00 00 00 00 00 00 00 00 00 01 DA 6F 01 33 01 23 19 01) CUSTOM::*LIB-DIRECTORY* SYSTEM::PROMPT-FOR-NEW-VALUE) SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS* "~s: file ~s does not exist - adjust ~s" SYSTEM::CLISP-DATA-FILE CUSTOM::*LIB-DIRECTORY* SYSTEM::SET-LIB-DIRECTORY)) #Y(#:TOP-LEVEL-FORM-24-1 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 3E 19 01) SYSTEM::UNICODE-ATTRIBUTES-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::UNICODE-ATTRIBUTES-LINE #362Y(03 00 01 00 01 00 00 00 00 02 00 2B 01 DA 6F 01 DC DD 38 04 C9 F9 31 F7 0B 00 00 53 81 3B CA 45 AF 6D 06 01 68 04 00 E1 32 7E 68 04 00 38 01 72 7E E2 AD E3 72 B2 72 95 1B 3E 9D F9 16 01 1B 38 00 16 01 1B 80 FB EE 63 EF BC 6E 03 16 B1 E6 F1 B1 73 02 36 72 43 B2 D1 1B 80 BB AD AD 73 02 36 E5 72 D0 68 08 00 AD E3 73 02 38 32 7E A1 74 B7 90 01 31 46 9D FA 16 01 AC AE 73 01 37 E4 91 01 2E 59 68 07 00 AE E3 73 02 38 32 7E B5 8F 91 09 68 07 00 01 02 38 01 31 76 68 07 00 01 02 38 01 71 76 93 00 FF 9A AC 38 04 D1 FA D2 F9 71 7E AD E6 71 30 25 0E 80 7B AD E9 71 30 25 10 80 73 AD E9 E8 B0 38 06 D4 FC 8E 5D 03 AF 32 45 14 72 43 AC 72 45 AE BA 91 01 2E 13 AC EB 91 01 33 0D AD EC ED AF 73 02 36 38 03 8C 34 FF 5A AE BA 91 01 33 3E AC F2 91 01 33 38 AD F3 F4 AF 73 02 36 38 03 8D 34 2C EE 63 F5 BC 6E 03 16 B1 E6 F6 B1 73 02 36 72 43 B2 D1 14 B1 73 02 36 38 01 72 43 33 03 26 16 04 1B 1B 9E 16 02 1B 16 16 02 1B FF 69 16 02 AC B8 90 01 2E 6E AC B8 91 01 31 6D 00 16 02 16 04 41 08 00 00 02 00 1D 03 14 2F 1D 46 54 08 00 00 00 00 1D 10 1B 07 08 00 00 00 00 1D 07 14 65 1E 64 2D 03 1D 55 19 03) "UnicodeData.txt" SYSTEM::CLISP-DATA-FILE :INPUT COMMON-LISP::CHARACTER CHARSET::ASCII #.#'COMMON-LISP::VALUES #Y(SYSTEM::UNICODE-ATTRIBUTES-LINE-CODE-AT-POS #92Y(00 00 00 00 00 00 00 00 00 01 69 00 01 01 02 38 01 8C 76 14 C8 19 01 AF AF AF AF 7B 04 DB 72 28 38 04 C7 F9 31 7E 19 05 69 00 01 01 02 38 01 71 77 69 00 01 01 02 38 01 71 77 69 00 01 01 02 38 01 71 77 69 00 01 01 02 38 01 71 77 93 03 0A 93 02 07 93 01 04 92 00 FF BE C8 19 05) COMMON-LISP::NIL COMMON-LISP::STRING 16. 65536.) :END 0. 1024. 1. -1. 4. 16. #\; 5. #\< 8. ", First>" -8. COMMON-LISP::STRING #Y(SYSTEM::UNICODE-ATTRIBUTES-LINE-1 #24Y(00 00 00 00 02 00 00 00 01 18 AF 01 02 DA DB 01 02 B5 2D 08 02 9E 19 04) 4. #\0 SYSTEM::DO-FORMAT-HEXADECIMAL) COMMON-LISP::FORMAT -3. 7. ", Last>" -7. #Y(SYSTEM::UNICODE-ATTRIBUTES-LINE-2 #24Y(00 00 00 00 02 00 00 00 01 18 AF 01 02 DA DB 01 02 B5 2D 08 02 9E 19 04) 4. #\0 SYSTEM::DO-FORMAT-HEXADECIMAL) -2. COMMON-LISP::CLOSE :ABORT)) #Y(#:TOP-LEVEL-FORM-24-2 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) SYSTEM::UNICODE-ATTRIBUTES SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::UNICODE-ATTRIBUTES #212Y(01 00 01 00 01 00 00 00 00 02 AD 71 27 6F 00 9D 1F 80 BF 01 03 C6 F9 1B 04 AC 81 95 01 DC B0 38 06 A6 FC 81 5D 00 AF AE 92 02 03 B1 32 45 14 72 43 84 02 92 00 63 AE 31 A2 16 02 F8 1B 2F 00 2B 01 00 0B 00 00 4B 04 1C DF E0 E1 B3 B2 6D 08 02 E3 99 0A E5 E6 6E 08 0D 0E 0E 5D 10 0E E9 EA 6F 11 33 01 1E 06 04 00 39 00 00 4D 16 01 DB AD 71 93 38 04 C8 F9 71 7E B0 71 27 91 01 2E 40 63 AD EC ED 72 43 1B 12 00 1B 08 94 00 AC EE 8E 00 76 9D 14 84 02 16 01 83 00 9D 21 6E 16 01 AC 80 A2 00 63 AE ED EF 72 43 1B 1A 00 1B 10 94 00 AC F0 8E 00 76 AC 38 04 C8 F9 71 7E 31 28 14 84 02 16 01 83 00 9D 21 66 16 01 AC 80 A2 00 33 02 23 44 19 04 19 03) SYSTEM::UNICODE-ATTRIBUTES-LINE 0. #\; 16. #(COMMON-LISP::NIL) :NAME COMMON-LISP::CONTINUE :INVOKE-FUNCTION #Y(SYSTEM::UNICODE-ATTRIBUTES-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(SYSTEM::UNICODE-ATTRIBUTES-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::= (COMMON-LISP::PARSE-INTEGER (COMMON-LISP::NTH 0. SYSTEM::PIECES) :RADIX 16.) (COMMON-LISP::CHAR-CODE SYSTEM::CH)) SYSTEM::ASSERT-ERROR-STRING 1. 12. "" 15. "")) #Y(#:TOP-LEVEL-FORM-25 #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 80 C5 19 01) SYSTEM::WRITE-TO-SHORT-STRING SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SYSTEM::WRITE-TO-SHORT-STRING #155Y(00 00 00 00 02 00 00 00 00 03 AE 8E 06 08 AE 8E 04 04 DA DB 1B 2B AE 38 10 31 84 19 03 9D FA 16 01 1B 1E AD AD 73 02 36 DD 72 B2 B1 38 10 04 11 09 0E 09 0D 71 84 6F 04 B1 90 01 32 60 9D F9 16 01 AC AE 73 01 37 DC 91 01 2E 58 9E 16 01 F8 AC DD 96 02 73 02 38 1B 26 9D FA 16 01 1B 20 AD AD 73 02 36 DD 72 B2 B2 38 10 04 14 09 0E 04 11 09 0D 71 84 6F 04 B2 90 01 32 5E 9D F9 16 01 AC AE 73 01 37 DC 91 01 2E 56 9E 16 01 F8 B0 38 10 04 12 09 0E 04 11 09 0D 31 84 19 05) 0. 16. 1. 2. EXT::STRING-WIDTH))