home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / src / archive / clisp.faslsp.lha / defseq.fas < prev    next >
Text File  |  1996-06-17  |  2KB  |  52 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) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2
  4.    #29Y(00 00 00 00 00 01 D8 D9 DA DB DC DA DB DD DE D9 DF E0 E1 E2 E3 E4 72 10
  5.         00 2E 0D 19 01
  6.        )
  7.    LIST #.#'IDENTITY #.#'LIST-UPD #.#'LIST-ENDTEST #.#'LIST-FE-INIT
  8.    #.#'LIST-ACCESS #.#'LIST-ACCESS-SET #.#'LIST-LLENGTH #.#'MAKE-LIST
  9.    #.#'LIST-ELT #.#'LIST-SET-ELT #.#'LIST-INIT-START #.#'LIST-FE-INIT-END
  10.    %DEFSEQ
  11.   )
  12. #Y(#:TOP-LEVEL-FORM-3
  13.    #29Y(00 00 00 00 00 01 D8 D9 DA DB DC DD DE DF E0 E1 E2 E3 DF E0 E4 E5 72 10
  14.         00 2E 0E 19 01
  15.        )
  16.    VECTOR #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT
  17.    #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'AREF #.#'STORE #.#'IDENTITY
  18.    #.#'VECTOR-LENGTH #.#'MAKE-ARRAY #.#'VECTOR-INIT-START
  19.    #.#'VECTOR-FE-INIT-END %DEFSEQ
  20.   )
  21. #Y(#:TOP-LEVEL-FORM-4
  22.    #29Y(00 00 00 00 00 01 D8 D9 DA DB DC DD DE DF E0 E1 E2 E3 DF E0 E4 E5 72 10
  23.         00 2E 0E 19 01
  24.        )
  25.    STRING #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT
  26.    #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'CHAR #.#'STORE #.#'IDENTITY
  27.    #.#'VECTOR-LENGTH #.#'MAKE-STRING #.#'VECTOR-INIT-START
  28.    #.#'VECTOR-FE-INIT-END %DEFSEQ
  29.   )
  30. #Y(#:TOP-LEVEL-FORM-5
  31.    #29Y(00 00 00 00 00 01 D8 D9 DA DB DC DD DE DF E0 E1 E2 E3 DF E0 E4 E5 72 10
  32.         00 2E 0E 19 01
  33.        )
  34.    BIT-VECTOR #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST
  35.    #.#'VECTOR-FE-INIT #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'BIT #.#'STORE
  36.    #.#'IDENTITY #.#'VECTOR-LENGTH #.#'MAKE-BIT-VECTOR #.#'VECTOR-INIT-START
  37.    #.#'VECTOR-FE-INIT-END %DEFSEQ
  38.   )
  39. #Y(#:TOP-LEVEL-FORM-6
  40.    #57Y(00 00 00 00 00 01 D8 1A 28 93 00 00 2A 01 D9 AC 60 02 0B 00 00 AB DA DB
  41.         DC DD DE DF E0 E1 E2 E3 B5 6C 0C 01 E0 E1 E5 E6 72 10 00 2E 0F 16 02 82
  42.         00 9B 20 55 16 01 C3 19 01
  43.        )
  44.    (1. 2. 4. 8. 16. 32.) UNSIGNED-BYTE #.#'VECTOR-INIT #.#'VECTOR-UPD
  45.    #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT #.#'VECTOR-FE-UPD
  46.    #.#'VECTOR-FE-ENDTEST #.#'AREF #.#'STORE #.#'IDENTITY #.#'VECTOR-LENGTH
  47.    #Y(#:TOP-LEVEL-FORM-6-1
  48.       #17Y(00 01 00 00 00 02 AB 37 07 07 00 01 FB 30 1B 19 02) NIL
  49.      )
  50.    #.#'VECTOR-INIT-START #.#'VECTOR-FE-INIT-END %DEFSEQ
  51.   )
  52.