home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / arraylib.data < prev    next >
Encoding:
Text File  |  1987-05-07  |  1.4 KB  |  62 lines
  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::lisp)
  5. #!
  6. (lisp::export '(lisp::make-array lisp::vector lisp::array-element-type lisp::array-rank lisp::array-dimension lisp::array-dimensions lisp::array-in-bounds-p lisp::array-row-major-index lisp::adjustable-array-p lisp::bit lisp::sbit lisp::bit-and lisp::bit-ior lisp::bit-xor lisp::bit-eqv lisp::bit-nand lisp::bit-nor lisp::bit-andc1 lisp::bit-andc2 lisp::bit-orc1 lisp::bit-orc2 lisp::bit-not lisp::array-has-fill-pointer-p lisp::fill-pointer lisp::vector-push lisp::vector-push-extend lisp::vector-pop lisp::adjust-array))
  7. #!
  8. (lisp::in-package 'lisp::system)
  9. (lisp::optimize (lisp::safety 2) (lisp::space 3))
  10. 0
  11. 1
  12. :initial-element
  13. :element-type
  14. :initial-contents
  15. "The rank of the array is ~R,~%~
  16.                ~7@Tbut ~R ~:*~[indices are~;index is~:;indices are~] ~
  17.                supplied."
  18. 7
  19. 6
  20. 9
  21. 14
  22. 8
  23. 4
  24. 2
  25. 13
  26. 11
  27. 12
  28. :fill-pointer
  29. "The fill pointer of the vector ~S zero."
  30. :adjustable
  31. lisp::proclaim
  32. lisp::make-array
  33. system::increment-cursor
  34. system::sequence-cursor
  35. lisp::vector
  36. lisp::array-dimensions
  37. lisp::array-in-bounds-p
  38. lisp::array-row-major-index
  39. lisp::bit
  40. lisp::sbit
  41. lisp::bit-and
  42. lisp::bit-ior
  43. lisp::bit-xor
  44. lisp::bit-eqv
  45. lisp::bit-nand
  46. lisp::bit-nor
  47. lisp::bit-andc1
  48. lisp::bit-andc2
  49. lisp::bit-orc1
  50. lisp::bit-orc2
  51. lisp::bit-not
  52. lisp::vector-push
  53. lisp::vector-push-extend
  54. lisp::vector-pop
  55. lisp::adjust-array
  56. :displaced-to
  57. :displaced-index-offset
  58. :static
  59. system::aset-by-cursor
  60. system::bit-array-op
  61. )
  62.