home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / defseq.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  2.3 KB  |  54 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "SYSTEM"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2
  6.    #33Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DA DB DD DE D9 DF E0 E1 E2
  7.         E3 E4 72 10 00 2E 0D 19 01
  8.        )
  9.    LIST #.#'IDENTITY #.#'LIST-UPD #.#'LIST-ENDTEST #.#'LIST-FE-INIT
  10.    #.#'LIST-ACCESS #.#'LIST-ACCESS-SET #.#'LIST-LLENGTH #.#'MAKE-LIST
  11.    #.#'LIST-ELT #.#'LIST-SET-ELT #.#'LIST-INIT-START #.#'LIST-FE-INIT-END
  12.    %DEFSEQ
  13.   )
  14. #Y(#:TOP-LEVEL-FORM-3
  15.    #33Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD DE DF E0 E1 E2 E3 DF E0
  16.         E4 E5 72 10 00 2E 0E 19 01
  17.        )
  18.    VECTOR #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT
  19.    #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'AREF #.#'STORE #.#'IDENTITY
  20.    #.#'VECTOR-LENGTH #.#'MAKE-ARRAY #.#'VECTOR-INIT-START
  21.    #.#'VECTOR-FE-INIT-END %DEFSEQ
  22.   )
  23. #Y(#:TOP-LEVEL-FORM-4
  24.    #33Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD DE DF E0 E1 E2 E3 DF E0
  25.         E4 E5 72 10 00 2E 0E 19 01
  26.        )
  27.    STRING #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT
  28.    #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'CHAR #.#'STORE #.#'IDENTITY
  29.    #.#'VECTOR-LENGTH #.#'MAKE-STRING #.#'VECTOR-INIT-START
  30.    #.#'VECTOR-FE-INIT-END %DEFSEQ
  31.   )
  32. #Y(#:TOP-LEVEL-FORM-5
  33.    #33Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD DE DF E0 E1 E2 E3 DF E0
  34.         E4 E5 72 10 00 2E 0E 19 01
  35.        )
  36.    BIT-VECTOR #.#'VECTOR-INIT #.#'VECTOR-UPD #.#'VECTOR-ENDTEST
  37.    #.#'VECTOR-FE-INIT #.#'VECTOR-FE-UPD #.#'VECTOR-FE-ENDTEST #.#'BIT #.#'STORE
  38.    #.#'IDENTITY #.#'VECTOR-LENGTH #.#'MAKE-BIT-VECTOR #.#'VECTOR-INIT-START
  39.    #.#'VECTOR-FE-INIT-END %DEFSEQ
  40.   )
  41. #Y(#:TOP-LEVEL-FORM-6
  42.    #61Y(00 00 00 00 00 00 00 00 00 01 D8 1A 28 93 00 00 2A 01 D9 AC 60 02 0B 00
  43.         00 AB DA DB DC DD DE DF E0 E1 E2 E3 B5 6C 0C 01 E0 E1 E5 E6 72 10 00 2E
  44.         0F 16 02 82 00 9B 20 55 16 01 C3 19 01
  45.        )
  46.    (1. 2. 4. 8. 16. 32.) UNSIGNED-BYTE #.#'VECTOR-INIT #.#'VECTOR-UPD
  47.    #.#'VECTOR-ENDTEST #.#'VECTOR-FE-INIT #.#'VECTOR-FE-UPD
  48.    #.#'VECTOR-FE-ENDTEST #.#'AREF #.#'STORE #.#'IDENTITY #.#'VECTOR-LENGTH
  49.    #Y(#:TOP-LEVEL-FORM-6-1
  50.       #21Y(00 00 00 00 01 00 00 00 00 02 AB 37 07 07 00 01 FB 30 1C 19 02) NIL
  51.      )
  52.    #.#'VECTOR-INIT-START #.#'VECTOR-FE-INIT-END %DEFSEQ
  53.   )
  54.