home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-w.lha / fd / asl-load.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-08-08  |  1.5 KB  |  31 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "AFFI-DEMOS"
  3.   )
  4. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DF 19 01) "AFFI")
  5. #Y(#:TOP-LEVEL-FORM-3 #12Y(00 00 00 00 00 01 D8 D9 2F 02 19 01) :ASLBASE
  6.    "asl.library" DECLARE-LIBRARY-BASE
  7.   )
  8. #Y(#:TOP-LEVEL-FORM-4 #9Y(00 00 00 00 00 01 00 19 01))
  9. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  10.    ADDPART2 SYSTEM::REMOVE-OLD-DEFINITIONS
  11.    #Y(ADDPART2
  12.       #42Y(00 02 00 00 00 03 D8 AD AE 71 48 8D 92 16 AE AF 71 48 71 98 70 34 D9
  13.            37 06 8D 5D 0B C5 14 AE 32 03 25 19 03 00 1A 76 00 1A 73
  14.           )
  15.       STRING ":/" "/"
  16.   )  )
  17. #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  18.    ASL-LOAD SYSTEM::REMOVE-OLD-DEFINITIONS
  19.    #Y(ASL-LOAD
  20.       #121Y(00 00 00 00 C1 00 00 00 00 00 D8 87 01 80 49 00 14 91 00 80 5D 00
  21.             19 03 00 16 02 1A 2D AC DF E0 6D 03 09 E2 6F 09 AD DF E3 6D 03 09
  22.             E2 6F 09 AB 71 48 8D 92 63 AA AC 2F 0C 16 02 1A 0D 52 0D 6A 00 DE
  23.             AE DB 2C 04 04 1B 54 00 3E 53 6A 00 E5 66 00 00 2C 03 04 54 1A 0F
  24.             52 11 6A 00 DA DB DB 6D 04 04 AA 87 05 57 00 16 01 3E 53 D8 2E 0E
  25.             54 1A FF 9E 98 0F AB 9F 9A 01 03
  26.            )
  27.       ASLBASE OPEN-LIBRARY #((-48. . 145.) * 4. *) 0. SYSTEM::%LIBCALL
  28.       NZERO-POINTER-P #((-60. . 169.) 0. :EXTERNAL *) * 4. MEM-READ STRING 8.
  29.       ADDPART2 #((-54. . 9.) NIL :EXTERNAL) CLOSE-LIBRARY LOAD
  30.   )  )
  31.