(SYSTEM::VERSION '(SYSTEM::CLISP3 9. LISP:T 210292.)) #Y(#:TOP-LEVEL-FORM-1 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) RFI-EVAL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(RFI-EVAL #143Y(00 00 00 01 00 01 00 08 37 01 02 BE EB A9 2D 01 AA 23 02 11 3A 19 03 CC 1A 80 50 14 2D 17 8A 00 80 65 1A 80 59 D7 63 04 D9 36 02 2F E3 71 DA 6A 29 DB 63 04 D9 36 02 2F E3 71 DC 36 01 2F 89 89 01 05 DD 36 01 2F 89 DE 36 01 2F 89 8A 01 05 DF 36 01 2F 89 E0 36 01 2F 89 8A 00 05 14 36 01 2F 89 E1 36 01 2F 89 89 01 FF AD CE 14 2D 0F E5 2D 12 0F 13 E8 2D 15 0F 16 1B FF A0 8A 00 09 14 36 02 6A 89 5D 18 2E 19 5D 1A 36 01 2F 89 19 05 ) 0. GET-POSTED-URL :RTPLAST "syntax" *URL-ALIST* #.#'EQUAL "LISP Syntax" "batch" " RELFUN Interpreter

RELFUN Database:

Batch:

Result:


"
      (STYLE LISP) RFI-CMD-STYLE (STYLE PROLOG) "/home/vega/appl-kb/rtplast-inf.rfp" RFI-CMD-CONSULT-1
      *RFI-DATABASE* (OTTO "/home/vega/appl-kb/rtplast-taxo-sub.rfp") RFI-SORTBASE-CMD-CONSULT
      *RFI-SORTBASE* COMPILE-SORTBASE BATCH RELFUN
      "


" ) ) #Y(#:TOP-LEVEL-FORM-2 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) READ-DB-FROM-STRING SYSTEM::REMOVE-OLD-DEFINITIONS #Y(READ-DB-FROM-STRING #34Y(00 00 00 01 00 00 00 02 63 00 23 01 0C A9 36 02 6A 89 2D 03 14 2D 04 19 02 A9 36 02 6A 89 2D 02 1A 72 ) *STYLE* PROLOG PRO-READ-DATA-BASE-FROM-STREAM LISP-READ-DATA-BASE-FROM-STREAM NORMALIZE-CONSULTED-DB ) ) #Y(#:TOP-LEVEL-FORM-3 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) LISP-READ-DATA-BASE-FROM-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(LISP-READ-DATA-BASE-FROM-STREAM #35Y(00 00 00 01 00 00 00 02 0E 00 10 01 01 02 1A 03 A9 7B 00 AE 01 03 77 79 01 1B 75 A8 30 64 16 02 11 19 02 ) *RFI-READTABLE* *READTABLE* ) ) #Y(#:TOP-LEVEL-FORM-4 #14Y(00 00 00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL *URL-LENGTH*) *URL-LENGTH* ) #Y(#:TOP-LEVEL-FORM-5 #14Y(00 00 00 00 00 00 00 01 D4 2F 5F BF 19 01) (SPECIAL *URL-ALIST*) *URL-ALIST*) #Y(#:TOP-LEVEL-FORM-6 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) GET-POSTED-URL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-POSTED-URL #17Y(00 00 00 01 00 00 00 02 93 0F 00 2C 01 0F 02 19 02) *URL-LENGTH* GET-POSTED-URL* *URL-ALIST* ) ) #Y(#:TOP-LEVEL-FORM-7 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) GET-POSTED-URL* SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-POSTED-URL* #31Y(00 00 00 00 00 00 00 01 2C 00 1C 07 00 19 01 2C 00 1B 79 2C 01 14 2C 02 14 64 74 2F E1 19 01) END-OF-URL READ-URL-ATTRIBUTE READ-URL-VALUE ) ) #Y(#:TOP-LEVEL-FORM-8 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) READ-URL-ATTRIBUTE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(READ-URL-ATTRIBUTE #16Y(00 00 00 00 00 00 00 01 2C 00 14 D5 30 4F 19 01) READ-URL-ATTRIBUTE* STRING ) ) #Y(#:TOP-LEVEL-FORM-9 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) READ-URL-ATTRIBUTE* SYSTEM::REMOVE-OLD-DEFINITIONS #Y(READ-URL-ATTRIBUTE* #28Y(00 00 00 00 00 00 00 01 2C 00 14 A8 D5 87 01 07 08 A8 67 02 26 72 55 19 02 00 19 02) READ-URL-CHAR #\= URL2ASC ) ) #Y(#:TOP-LEVEL-FORM-10 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) READ-URL-VALUE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(READ-URL-VALUE #16Y(00 00 00 00 00 00 00 01 2C 00 14 D5 30 4F 19 01) READ-URL-VALUE* STRING) ) #Y(#:TOP-LEVEL-FORM-11 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) READ-URL-VALUE* SYSTEM::REMOVE-OLD-DEFINITIONS #Y(READ-URL-VALUE* #39Y(00 00 00 00 00 00 00 01 2C 00 1C 0A 00 19 01 00 19 02 2C 00 1B 76 2C 01 14 A8 D6 87 01 07 70 A8 67 03 26 6E 55 19 02 ) END-OF-URL READ-URL-CHAR #\& URL2ASC ) ) #Y(#:TOP-LEVEL-FORM-12 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) READ-URL-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(READ-URL-CHAR #22Y(00 00 00 00 00 00 00 01 63 00 30 AC 0F 00 63 01 36 03 2F 7D 19 01) *URL-LENGTH* *TERMINAL-IO* ) ) #Y(#:TOP-LEVEL-FORM-13 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) END-OF-URL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(END-OF-URL #14Y(00 00 00 00 00 00 00 01 63 00 30 A6 19 01) *URL-LENGTH*) ) #Y(#:TOP-LEVEL-FORM-14 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) URL2ASC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(URL2ASC #36Y(00 00 00 01 00 00 00 02 A9 D4 87 01 07 09 A9 D6 87 01 07 06 93 19 02 BF 19 02 2C 03 14 2C 03 14 2E 04 19 02 ) #\+ #\Space #\% READ-URL-CHAR HEX2CHAR ) ) #Y(#:TOP-LEVEL-FORM-15 #18Y(00 00 00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01) HEX2CHAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(HEX2CHAR #25Y(00 00 00 02 00 00 00 03 5B D4 AC AC 66 04 01 36 05 69 83 36 02 2F 29 19 03) "#x~c~c" FORMAT ) )