working thru Paradigms of Artificial Intelligence Programming (from https://github.com/norvig/paip-lisp)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

384 lines
21 KiB

(|SYSTEM|::|VERSION| '(20080430.))
#0Y_ #0Y |CHARSET|::|UTF-8|
#Y(#:|1 3 (IN-PACKAGE #:PAIP)-1|
#17Y(00 00 00 00 00 00 00 00 20 01 DA 31 F6 0F 01 19 01)
("PAIP" |COMMON-LISP|::|*PACKAGE*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|6 11 (DEFPARAMETER *TITLES* '(MD SR. JR. ...) ...)-2|
#26Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB DC 31 5A DB DD DE 2D 03 05 C6
19 01)
((|COMMON-LISP|::|SPECIAL| |PAIP|::|*TITLES*|) |PAIP|::|*TITLES*|
(|PAIP|::|MD| |PAIP|::|SR.| |PAIP|::|JR.| |PAIP|::|SIR|)
|COMMON-LISP|::|VARIABLE| "Titles aren't part of names."
|SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|13 17 (DEFUN FIRST-NAME (NAME) ...)-3|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|FIRST-NAME| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|FIRST-NAME|
#29Y(00 00 00 00 01 00 00 00 26 02 94 01 6B 00 38 03 8C C1 04 9E 5B 19
02 95 01 29 01 03 6D)
(|PAIP|::|*TITLES*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|NAME|)
"Select the first name from a NAME represented as a list." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|19 21 (DEFUN LAST-NAME (NAME) ...)-4|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LAST-NAME| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LAST-NAME|
#17Y(00 00 00 00 01 00 00 00 26 02 AD 72 63 2F 00 19 02)
(|PAIP|::|FIRST-NAME|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|NAME|)
"Select the last name from a NAME represented as a list." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|23 31 (DEFUN POWER (N M) ...)-5|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|POWER| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|POWER|
#37Y(00 00 00 00 02 00 00 00 26 03 AD 8E AC 11 AD DA 90 01 2F 0E AE AF
97 03 6C 70 33 02 39 19 03 C5 19 03 9F 19 03)
(1.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|N| |PAIP|::|M|) "Raise N to an integer power M." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|33 44 (DEFUN COUNT-ATOMS (EXPR) ...)-6|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|COUNT-ATOMS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|COUNT-ATOMS|
#38Y(00 00 00 00 01 00 00 00 26 02 92 01 09 C5 19 02 C6 19 02 93 01 77
9E 20 77 94 01 6C 76 95 02 6C 72 33 02 37 19 02)
(0. 1.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|EXPR|) "Count how many atoms are in EXPR, disregarding NIL."
1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|46 52 (DEFUN COUNT-ALL-ATOMS (EXPR &OPTIONAL #) ...)-7|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|COUNT-ALL-ATOMS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|COUNT-ALL-ATOMS|
#45Y(00 00 00 00 01 00 01 00 26 08 3B 01 0B C5 F9 92 02 09 9E 19 03 C5
19 03 93 02 77 9F 20 77 94 02 DA 6C 67 95 03 DB 6C 62 33 02 37 19
03)
(1. 0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|EXPR| |COMMON-LISP|::|&OPTIONAL| (|PAIP|::|IF-NULL| 1.))
"Count all atoms in EXPR, including NILs only in non-tail position." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|54 64 (DEFUN COUNT-ANYWHERE (OBJ EXPR &OPTIONAL ...) ...)-8|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|COUNT-ANYWHERE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|COUNT-ANYWHERE|
#57Y(00 00 00 00 02 00 01 00 26 09 3B 01 15 C5 F9 92 02 13 C6 19 04 C7
19 04 AD B0 B0 36 02 1C 76 C6 19 04 93 02 6D 9F 20 70 AF 94 03 AF
6C 5C B0 95 04 B0 6C 56 33 02 37 19 04)
(#.#'|COMMON-LISP|::|EQ| 0. 1.)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|OBJ| |PAIP|::|EXPR| |COMMON-LISP|::|&OPTIONAL|
(|PAIP|::|TEST| #'|COMMON-LISP|::|EQ|))
"Count how many times an OBJ appears anywhere in an EXPR." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|66 73 (DEFUN DOT-PRODUCT (LIST1 LIST2) ...)-9|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|DOT-PRODUCT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|DOT-PRODUCT|
#20Y(00 00 00 00 02 00 00 00 26 03 DA DB B0 B0 33 01 16 9B 00 03)
(#.#'|COMMON-LISP|::|+| #.#'|COMMON-LISP|::|*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|LIST1| |PAIP|::|LIST2|)
"Compute the dot product of LIST1 and LIST2" 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|76 80 (DEFUN MAPPEND (FN LIST) ...)-10|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|MAPPEND| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|MAPPEND|
#19Y(00 00 00 00 02 00 00 00 26 03 DA AF AF 33 00 16 9B 00 03)
(#.#'|COMMON-LISP|::|APPEND|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|FN| |COMMON-LISP|::|LIST|)
"Apply FN to each element of LIST and append the results." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|82 84 (DEFUN ONE-OF (SET) ...)-11|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|ONE-OF| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|ONE-OF|
#17Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 61 01 19 02)
(|PAIP|::|RANDOM-ELT|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|SET|) "Pick one element of SET, and make a list of it."
1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|86 88 (DEFUN RANDOM-ELT (CHOICES) ...)-12|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|RANDOM-ELT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|RANDOM-ELT|
#22Y(00 00 00 00 01 00 00 00 26 02 AD AE 72 62 38 01 72 F7 32 5E 19 02)
() (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|CHOICES|) "Choose a random element from list CHOICES." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|90 97 (DEFPARAMETER *SIMPLE-GRAMMAR* '(# # # ...) ...)-13|
#26Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB DC 31 5A DB DD DE 2D 03 05 C6
19 01)
((|COMMON-LISP|::|SPECIAL| |PAIP|::|*SIMPLE-GRAMMAR*|)
|PAIP|::|*SIMPLE-GRAMMAR*|
((|PAIP|::|SENTENCE| (|PAIP|::|NOUN-PHRASE| |PAIP|::|VERB-PHRASE|))
(|PAIP|::|NOUN-PHRASE| (|PAIP|::|ARTICLE| |PAIP|::|NOUN|))
(|PAIP|::|VERB-PHRASE| (|PAIP|::|VERB| |PAIP|::|NOUN-PHRASE|))
(|PAIP|::|ARTICLE| |COMMON-LISP|::|THE| |PAIP|::|A|)
(|PAIP|::|NOUN| |PAIP|::|MAN| |PAIP|::|BALL| |PAIP|::|WOMAN|
|PAIP|::|TABLE|)
(|PAIP|::|VERB| |PAIP|::|HIT| |PAIP|::|TOOK| |PAIP|::|SAW|
|PAIP|::|LIKED|))
|COMMON-LISP|::|VARIABLE| "A grammar for a trivial subset of English."
|SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|99 100 (DEFVAR *GRAMMAR* *SIMPLE-GRAMMAR* ...)-14|
#31Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB 8C 57 05 DB 6B 02 31 5A DB DD
DE 2D 03 05 C6 19 01)
((|COMMON-LISP|::|SPECIAL| |PAIP|::|*GRAMMAR*|) |PAIP|::|*GRAMMAR*|
|PAIP|::|*SIMPLE-GRAMMAR*| |COMMON-LISP|::|VARIABLE|
"The grammar used by `generate'." |SYSTEM|::|%SET-DOCUMENTATION|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|102 104 (DEFUN RULE-LHS (RULE) ...)-15|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|RULE-LHS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|RULE-LHS| #14Y(00 00 00 00 01 00 00 00 26 02 9E 5B 19 02) ()
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|PAIP|::|RULE|) "The left-hand side of a RULE." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|106 108 (DEFUN RULE-RHS (RULE) ...)-16|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|RULE-RHS| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|RULE-RHS| #14Y(00 00 00 00 01 00 00 00 26 02 9E 5C 19 02) ()
(|COMMON-LISP|::|T| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
(|PAIP|::|RULE|) "The right-hand side of a RULE." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|110 112 (DEFUN REWRITES (CATEGORY) ...)-17|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|REWRITES| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|REWRITES|
#21Y(00 00 00 00 01 00 00 00 26 02 AD 6B 00 38 03 71 C8 2F 01 19 02)
(|PAIP|::|*GRAMMAR*| |PAIP|::|RULE-RHS|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|CATEGORY|)
"Return a list of the possible rewrites for CATEGORY." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|114 121 (DEFUN GENERATE (PHRASE) ...)-18|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|GENERATE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|GENERATE|
#39Y(00 00 00 00 01 00 00 00 26 02 AD 6F 00 AE 8E 1D 08 92 00 0C AE 61
01 19 03 99 01 AF 30 02 19 03 14 6F 03 29 01 04 63)
(|PAIP|::|REWRITES| |PAIP|::|GENERATE| |PAIP|::|MAPPEND|
|PAIP|::|RANDOM-ELT|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|PHRASE|) "Generate a random LHS present in `*grammar*'." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|123 149 (DEFPARAMETER *BIGGER-GRAMMAR* '(# # # ...))-19|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 31 62 DB DC 31 5A C6 19 01)
((|COMMON-LISP|::|SPECIAL| |PAIP|::|*BIGGER-GRAMMAR*|)
|PAIP|::|*BIGGER-GRAMMAR*|
((|PAIP|::|SENTENCE| (|PAIP|::|NOUN-PHRASE| |PAIP|::|VERB-PHRASE|))
(|PAIP|::|NOUN-PHRASE|
(|PAIP|::|ARTICLE| |PAIP|::|ADJ*| |PAIP|::|NOUN| |PAIP|::|PP*|)
(|PAIP|::|NAME|) (|PAIP|::|PRONOUN|))
(|PAIP|::|VERB-PHRASE|
(|PAIP|::|VERB| |PAIP|::|NOUN-PHRASE| |PAIP|::|PP*|))
(|PAIP|::|PP*| |COMMON-LISP|::|NIL| (|PAIP|::|PP| |PAIP|::|PP*|))
(|PAIP|::|ADJ*| |COMMON-LISP|::|NIL| (|PAIP|::|ADJ| |PAIP|::|ADJ*|))
(|PAIP|::|PP| (|PAIP|::|PREP| |PAIP|::|NOUN-PHRASE|))
(|PAIP|::|PREP| |PAIP|::|TO| |PAIP|::|IN| |PAIP|::|BY| |PAIP|::|WITH|
|PAIP|::|ON|)
(|PAIP|::|ADJ| |PAIP|::|BIG| |PAIP|::|LITTLE| |PAIP|::|BLUE|
|PAIP|::|GREEN| |PAIP|::|ADIABATIC|)
(|PAIP|::|ARTICLE| |COMMON-LISP|::|THE| |PAIP|::|A|)
(|PAIP|::|NAME| |PAIP|::|PAT| |PAIP|::|KIM| |PAIP|::|LEE| |PAIP|::|TERRY|
|PAIP|::|ROBIN|)
(|PAIP|::|NOUN| |PAIP|::|MAN| |PAIP|::|BALL| |PAIP|::|WOMAN|
|PAIP|::|TABLE|)
(|PAIP|::|VERB| |PAIP|::|HIT| |PAIP|::|TOOK| |PAIP|::|SAW|
|PAIP|::|LIKED|)
(|PAIP|::|PRONOUN| |PAIP|::|HE| |PAIP|::|SHE| |PAIP|::|IT| |PAIP|::|THESE|
|PAIP|::|THOSE| |PAIP|::|THAT|)))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|151 151 (SETF *GRAMMAR* *BIGGER-GRAMMAR*)-20|
#16Y(00 00 00 00 00 00 00 00 20 01 0E 00 0F 01 19 01)
(|PAIP|::|*BIGGER-GRAMMAR*| |PAIP|::|*GRAMMAR*|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|153 158 (DEFUN GENERATE-TREE (PHRASE) ...)-21|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|GENERATE-TREE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|GENERATE-TREE|
#42Y(00 00 00 00 01 00 00 00 26 02 AD 8E 1D 09 AD 88 01 0D AD 61 01 19
02 99 00 AE 33 00 16 19 02 AD AE 6F 01 6F 02 28 63 5D 19 02)
(|PAIP|::|GENERATE-TREE| |PAIP|::|REWRITES| |PAIP|::|RANDOM-ELT|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|PHRASE|)
"Generate a random PHRASE, with a complete parse tree." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|160 168 (DEFUN GENERATE-ALL (PHRASE) ...)-22|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|GENERATE-ALL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|GENERATE-ALL|
#56Y(00 00 00 00 01 00 00 00 26 02 92 01 1B 00 1B 23 94 01 6C 11 95 02
6C 0D 30 00 19 02 99 02 AE 6F 01 30 03 19 02 93 01 65 AD 8E 1D 64
AD 88 01 6C AD 61 01 14 61 01 19 02)
(|PAIP|::|COMBINE-ALL| |PAIP|::|REWRITES| |PAIP|::|GENERATE-ALL|
|PAIP|::|MAPPEND|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|PHRASE|)
"Generate a list of all possible expansions of PHRASE." 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|170 175 (DEFUN COMBINE-ALL (XLIST YLIST) ...)-23|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|COMBINE-ALL| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|COMBINE-ALL|
#18Y(00 00 00 00 02 00 00 00 26 03 DA AF AF 2D 03 01 19 03)
(#.#'|COMMON-LISP|::|APPEND| |PAIP|::|CROSS-PRODUCT|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|XLIST| |PAIP|::|YLIST|)
"Return a list of lists formed by appending a YLIST to an XLIST.\n\n
E.g., (combine-all '((a) (b)) '((1) (2)))\n
=> ((A 1) (B 1) (A 2) (B 2))."
1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|177 189 (DEFUN CROSS-PRODUCT (FN AS BS) ...)-24|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|CROSS-PRODUCT| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|CROSS-PRODUCT|
#30Y(00 00 00 00 03 00 00 00 26 04 00 2B 02 7F 04 00 00 7F 03 00 01 AC
6D 00 01 AF 30 01 19 05)
(#Y(|PAIP|::|CROSS-PRODUCT-1|
#42Y(00 00 00 00 01 00 00 00 26 02 63 69 00 02 1B 0F 94 00 69 00 01
AD B2 76 02 84 02 16 01 83 00 AC 8D 9F 6D 16 01 AC 31 B1 19 03)
(|COMMON-LISP|::|NIL|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|B|) |COMMON-LISP|::|NIL| 1)
|PAIP|::|MAPPEND|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|FN| |PAIP|::|AS| |PAIP|::|BS|)
"Calculate the result of passing FN to the cross (or Cartesian) product of\n
lists of AS and BS."
1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|192 209 (DEFUN TEST-LET*-LAMBDA NIL ...)-25|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|TEST-LET*-LAMBDA| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|TEST-LET*-LAMBDA|
#34Y(00 00 00 00 00 00 00 00 26 01 DA DA 73 02 39 DA AD 82 02 37 00 DA
DA DA 73 02 39 73 02 37 61 02 19 01)
(6.) (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|) ()
|COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|211 217 (DEFUN LENGTH1 (LIST) ...)-26|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH1| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH1|
#27Y(00 00 00 00 01 00 00 00 26 02 DA AE 1B 04 85 01 83 00 AC 8D 9F 78
16 01 15 19 02)
(0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|219 222 (DEFUN LENGTH1.1 (LIST) ...)-27|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH1.1| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH1.1|
#25Y(00 00 00 00 01 00 00 00 26 02 DA AE 1B 04 85 01 83 00 AC 8D 9F 78
9E 19 04)
(0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|224 230 (DEFUN LENGTH2 (LIST) ...)-28|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH2| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH2|
#31Y(00 00 00 00 01 00 00 00 26 02 DA AE 1B 08 94 00 85 02 16 01 83 00
AC 8D 9F 74 16 01 15 19 02)
(0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|232 235 (DEFUN LENGTH3 (LIST) ...)-29|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH3| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH3|
#25Y(00 00 00 00 01 00 00 00 26 02 DA AE 93 00 07 83 00 85 01 92 00 79
9E 19 04)
(0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|237 239 (DEFUN LENGTH4 (LIST) ...)-30|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH4| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH4|
#25Y(00 00 00 00 01 00 00 00 26 02 AD DA 1B 04 85 00 83 01 AD 8D 9F 78
15 19 03)
(0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|241 243 (DEFUN LENGTH4.1 (LIST) ...)-31|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH4.1| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH4.1|
#25Y(00 00 00 00 01 00 00 00 26 02 AD DA 1B 04 85 00 83 01 AD 8D 9F 78
15 19 03)
(0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|245 250 (DEFUN LENGTH4.2 (LIST) ...)-32|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH4.2| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH4.2|
#36Y(00 00 00 00 01 00 00 00 26 02 63 94 02 83 03 16 01 C5 F8 93 02 0B
85 00 94 02 83 03 16 01 92 02 75 15 19 02)
(0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|252 253 (DEFUN LENGTH5 (LIST) ...)-33|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH5| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH5|
#19Y(00 00 00 00 01 00 00 00 26 02 99 00 AE 38 04 32 7E 19 02)
(|PAIP|::|TRUE|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|255 257 (DEFUN TRUE (X) ...)-34|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|TRUE| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|TRUE| #13Y(00 00 00 00 01 00 00 00 26 02 02 19 02) ()
|COMMON-LISP|::|NIL| (|PAIP|::|X|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|259 263 (DEFUN LENGTH6 (LIST) ...)-35|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH6| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH6|
#28Y(00 00 00 00 01 00 00 00 26 02 93 01 0C 99 01 AE 64 38 03 72 7B 32
B1 19 02 C5 19 02)
(0. |PAIP|::|TRUE|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|265 268 (DEFUN LENGTH7 (LIST) ...)-36|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH7| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH7|
#27Y(00 00 00 00 01 00 00 00 26 02 92 01 06 C5 19 02 93 01 7A 95 01 6C
79 32 B1 19 02)
(0.) (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|270 271 (DEFUN LENGTH8 (LIST) ...)-37|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH8| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH8| #16Y(00 00 00 00 01 00 00 00 26 02 AD DA 30 01 19 02)
(0. |PAIP|::|LENGTH8-AUX|)
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|COMMON-LISP|::|LIST|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))
#Y(#:|273 276 (DEFUN LENGTH8-AUX (SUBLIST LEN-SO-FAR) ...)-38|
#20Y(00 00 00 00 00 00 00 00 20 01 DA 2F 01 DA DC 32 9C C5 19 01)
(|PAIP|::|LENGTH8-AUX| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
#Y(|PAIP|::|LENGTH8-AUX|
#27Y(00 00 00 00 02 00 00 00 26 03 92 02 06 9E 19 03 93 02 7A 95 02 96
02 29 02 05 75)
() (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
(|PAIP|::|SUBLIST| |PAIP|::|LEN-SO-FAR|) |COMMON-LISP|::|NIL| 1))
(|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|))