F.G.H. 5/21/85 LispCourse #29: Solutions for Homework #28 LispCourse #29: Solutions for Homework #28 Sample solution functions attached. Sample Run: 20_(LC.CreateDatabase 'TestDB] NIL 21_(LC.AddEntry 'TestDB 'Frank 'G. 'Halasz 331404999 15 04 84 11000) (((Frank G. Halasz) 331404999 (15 4 84) 11000)) 22_(LC.AddEntry (QUOTE TestDB) (QUOTE George) (QUOTE B.) (QUOTE Smith) 100455467 5 6 83 17000) (((George B. Smith) 100455467 (5 6 83) 17000) ((Frank G. Halasz) 331404999 (15 4 84) 11000)) 23_(LC.AddEntry (QUOTE TestDB) (QUOTE Ann) (QUOTE Q.) (QUOTE Merrick) 345223431 14 2 80 29000) (((Ann Q. Merrick) 345223431 (14 2 80) 29000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Frank G. Halasz) 331404999 (15 4 84) 11000)) 24_(LC.AddEntry (QUOTE TestDB) (QUOTE Zoltan) (QUOTE Z.) (QUOTE Zolka) 995761234 01 1 27 98000) (((Zoltan Z. Zolka) 995761234 (1 1 27) 98000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Frank G. Halasz) 331404999 (15 4 84) 11000)) 25_(LC.AddEntry (QUOTE TestDB) (QUOTE Arnie) (QUOTE A.) (QUOTE Aardvark) 100101000 12 12 85 10000) (((Arnie A. Aardvark) 100101000 (12 12 85) 10000) ((Zoltan Z. Zolka) 995761234 (1 1 27) 98000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Frank G. Halasz) 331404999 (15 4 84) 11000)) 26_(LC.AddEntry (QUOTE TestDB) (QUOTE Melinda) (QUOTE F.) (QUOTE Twiddle) 446891876 25 8 76 34000) (((Melinda F. Twiddle) 446891876 (25 8 76) 34000) ((Arnie A. Aardvark) 100101000 (12 12 85) 10000) ((Zoltan Z. Zolka) 995761234 (1 1 27) 98000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) (( George B. Smith) 100455467 (5 6 83) 17000) ((Frank G. Halasz) 331404999 (15 4 84) 11000)) 27_(LC.SortDatabaseByField 'TestDB 'SS#] (((Arnie A. Aardvark) 100101000 (12 12 85) 10000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Frank G. Halasz) 331404999 (15 4 84) 11000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) (( Melinda F. Twiddle) 446891876 (25 8 76) 34000) ((Zoltan Z. Zolka) 995761234 (1 1 27) 98000)) 28_PP IT (((Arnie A. Aardvark) 100101000 (12 12 85) 10000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Frank G. Halasz) 331404999 (15 4 84) 11000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) ((Melinda F. Twiddle) 446891876 (25 8 76) 34000) ((Zoltan Z. Zolka) 995761234 (1 1 27) 98000)) (IT) 29_(LC.SortDatabaseByField (QUOTE TestDB) (QUOTE Salary] (((Arnie A. Aardvark) 100101000 (12 12 85) 10000) ((Frank G. Halasz) 331404999 (15 4 84) 11000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) (( Melinda F. Twiddle) 446891876 (25 8 76) 34000) ((Zoltan Z. Zolka) 995761234 (1 1 27) 98000)) 30_PP IT (((Arnie A. Aardvark) 100101000 (12 12 85) 10000) ((Frank G. Halasz) 331404999 (15 4 84) 11000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) ((Melinda F. Twiddle) 446891876 (25 8 76) 34000) ((Zoltan Z. Zolka) 995761234 (1 1 27) 98000)) (IT) 31_(LC.SortDatabaseByField (QUOTE TestDB) (QUOTE Name] (((Arnie A. Aardvark) 100101000 (12 12 85) 10000) ((Frank G. Halasz) 331404999 (15 4 84) 11000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) ((George B. Smith) 100455467 (5 6 83) 17000) (( Melinda F. Twiddle) 446891876 (25 8 76) 34000) ((Zoltan Z. Zolka) 995761234 (1 1 27) 98000)) 32_PP IT (((Arnie A. Aardvark) 100101000 (12 12 85) 10000) ((Frank G. Halasz) 331404999 (15 4 84) 11000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Melinda F. Twiddle) 446891876 (25 8 76) 34000) ((Zoltan Z. Zolka) 995761234 (1 1 27) 98000)) (IT) 33_(LC.SortDatabaseByField (QUOTE TestDB) (QUOTE StartDate] (((Zoltan Z. Zolka) 995761234 (1 1 27) 98000) ((Melinda F. Twiddle ) 446891876 (25 8 76) 34000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Frank G. Halasz) 331404999 (15 4 84) 11000) ((Arnie A. Aardvark) 100101000 (12 12 85) 10000)) 34_PP IT (((Zoltan Z. Zolka) 995761234 (1 1 27) 98000) ((Melinda F. Twiddle) 446891876 (25 8 76) 34000) ((Ann Q. Merrick) 345223431 (14 2 80) 29000) ((George B. Smith) 100455467 (5 6 83) 17000) ((Frank G. Halasz) 331404999 (15 4 84) 11000) ((Arnie A. Aardvark) 100101000 (12 12 85) 10000)) (IT) (LIST ((PAGE NIL NIL (0 0 17 22) ((HEADING NIL (HEADINGTYPE YYY) (540 756 72 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))) (PAGE NIL NIL (0 0 17 22) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 SIZE 12 FAMILY TIMESROMAN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (468 756 72 36) NIL) (HEADING NIL (HEADINGTYPE XXX) (72 756 72 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL))) (PAGE NIL NIL (0 0 17 22) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 SIZE 12 FAMILY TIMESROMAN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (468 756 72 36) NIL) (HEADING NIL (HEADINGTYPE XXX) (72 756 72 36) NIL) (TEXT NIL NIL (72 72 468 648) NIL)))))ˆ PAGEHEADINGXXXH PAGEHEADINGYYYGACHA  TIMESROMAN 1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8)) TIMESROMAN TIMESROMAN ,,$ ; 0BBBAB6 ?CB'>CA?)?C=C         *>C>C         *>C>C         *CCAC         ‡zı