home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / tests / array.tst < prev    next >
Encoding:
Text File  |  1993-04-25  |  12.9 KB  |  621 lines
  1.  
  2. (FORMAT T "~%Erzeuge ein Feld mit doppeltgenauen Zahlen~%")   NIL
  3.  
  4. (EQUALP (SETQ DA1 (MAKE-ARRAY (QUOTE (4 2 3)) :INITIAL-CONTENTS (QUOTE
  5. (
  6. ((1.0D0 2.0D0 3.0D0) (4.0D0 5.0D0 6.0D0))
  7. ((7.0D0 8.0D0 9.0D0) (10.0D0 11.0D0 12.0D0))
  8. ((13.0D0 14.0D0 15.0D0) (16.0D0 17.0D0 18.0D0))
  9. ((19.0D0 20.0D0 21.0D0) (22.0D0 23.0D0 24.0D0)))) :ELEMENT-TYPE
  10. (QUOTE DOUBLE-FLOAT)))
  11. '#3A(((1.0D0 2.0D0 3.0D0)(4.0D0 5.0D0 6.0D0))((7.0D0 8.0D0 9.0D0)(10.0D0
  12. 11.0D0
  13. 12.0D0))((13.0D0 14.0D0 15.0D0)(16.0D0 17.0D0 18.0D0))((19.0D0 20.0D0
  14. 21.0D0)(
  15. 22.0D0 23.0D0 24.0D0))))   T
  16.  
  17. (AREF DA1 0 0 0)   1.0D0
  18.  
  19. (AREF DA1 0 0 1)   2.0D0
  20.  
  21. (AREF DA1 0 0 2)   3.0D0
  22.  
  23. (AREF DA1 0 1 0)   4.0D0
  24.  
  25. (AREF DA1 0 1 1)   5.0D0
  26.  
  27. (AREF DA1 0 1 2)   6.0D0
  28.  
  29. (AREF DA1 1 0 0)   7.0D0
  30.  
  31. (AREF DA1 1 0 1)   8.0D0
  32.  
  33. (AREF DA1 1 0 2)   9.0D0
  34.  
  35. (AREF DA1 1 1 0)   10.0D0
  36.  
  37. (AREF DA1 1 1 1)   11.0D0
  38.  
  39. (AREF DA1 1 1 2)   12.0D0
  40.  
  41. (AREF DA1 2 0 0)   13.0D0
  42.  
  43. (AREF DA1 2 0 1)   14.0D0
  44.  
  45. (AREF DA1 2 0 2)   15.0D0
  46.  
  47. (AREF DA1 2 1 0)   16.0D0
  48.  
  49. (AREF DA1 2 1 1)   17.0D0
  50.  
  51. (AREF DA1 2 1 2)   18.0D0
  52.  
  53. (AREF DA1 3 0 0)   19.0D0
  54.  
  55. (AREF DA1 3 0 1)   20.0D0
  56.  
  57. (AREF DA1 3 0 2)   21.0D0
  58.  
  59. (AREF DA1 3 1 0)   22.0D0
  60.  
  61. (AREF DA1 3 1 1)   23.0D0
  62.  
  63. (AREF DA1 3 1 1)   23.0D0
  64.  
  65. (FORMAT T "~%Erzeuge ein Feld mit einfachgenauen Zahlen~%")   NIL
  66.  
  67. (EQUALP (SETQ FA1 (MAKE-ARRAY (QUOTE (4 2 3)) :INITIAL-CONTENTS (QUOTE
  68. (
  69. ((1.0 2.0 3.0) (4.0 5.0 6.0)) ((7.0 8.0 9.0) (10.0 11.0 12.0))
  70. ((13.0 14.0 15.0) (16.0 17.0 18.0)) ((19.0 20.0 21.0) (22.0 23.0 24.0))))
  71.  
  72. :ELEMENT-TYPE (QUOTE SINGLE-FLOAT)))
  73. '#3A(((1.0 2.0 3.0)(4.0 5.0 6.0))((7.0 8.0 9.0)(10.0 11.0 12.0))((13.0
  74. 14.0 15.0)(
  75. 16.0 17.0 18.0))((19.0 20.0 21.0)(22.0 23.0 24.0))))   T
  76.  
  77. (AREF FA1 0 0 0)   1.0
  78.  
  79. (AREF FA1 0 0 1)   2.0
  80.  
  81. (AREF FA1 0 0 2)   3.0
  82.  
  83. (AREF FA1 0 1 0)   4.0
  84.  
  85. (AREF FA1 0 1 1)   5.0
  86.  
  87. (AREF FA1 0 1 2)   6.0
  88.  
  89. (AREF FA1 1 0 0)   7.0
  90.  
  91. (AREF FA1 1 0 1)   8.0
  92.  
  93. (AREF FA1 1 0 2)   9.0
  94.  
  95. (AREF FA1 1 1 0)   10.0
  96.  
  97. (AREF FA1 1 1 1)   11.0
  98.  
  99. (AREF FA1 1 1 2)   12.0
  100.  
  101. (AREF FA1 2 0 0)   13.0
  102.  
  103. (AREF FA1 2 0 1)   14.0
  104.  
  105. (AREF FA1 2 0 2)   15.0
  106.  
  107. (AREF FA1 2 1 0)   16.0
  108.  
  109. (AREF FA1 2 1 1)   17.0
  110.  
  111. (AREF FA1 2 1 2)   18.0
  112.  
  113. (AREF FA1 3 0 0)   19.0
  114.  
  115. (AREF FA1 3 0 1)   20.0
  116.  
  117. (AREF FA1 3 0 2)   21.0
  118.  
  119. (AREF FA1 3 1 0)   22.0
  120.  
  121. (AREF FA1 3 1 1)   23.0
  122.  
  123. (AREF FA1 3 1 1)   23.0
  124.  
  125. (FORMAT T "~%Limits fuer Felder~%")   NIL
  126.  
  127. ARRAY-RANK-LIMIT
  128. #+XCL 256 #+CLISP 4294967296 #| #+CLISP 65536 |# #+AKCL 64
  129. #-(or XCL CLISP AKCL) UNKNOWN
  130.  
  131. ARRAY-DIMENSION-LIMIT
  132. #+XCL 17920 #+(or CLISP AKCL) 16777216 #-(or XCL CLISP AKCL) UNKNOWN
  133.  
  134. ARRAY-TOTAL-SIZE-LIMIT
  135. #+XCL 17920 #+(or CLISP AKCL) 16777216 #-(or XCL CLISP AKCL) UNKNOWN
  136.  
  137. (FORMAT T "~%Erzeuge einen einfachen (simple) Vector~%")   NIL
  138.  
  139. (EQUALP (SETQ SV (VECTOR (QUOTE A) (QUOTE B) (QUOTE C) 1.0S0 3.7D0
  140. 4.1))
  141. '#(A B C 1.0S0 3.7D0 4.1))   T
  142.  
  143. (SVREF SV 0)   A
  144.  
  145. (SVREF SV 1)   B
  146.  
  147. (SVREF SV 2)   C
  148.  
  149. (SVREF SV 3)   1.0S0
  150.  
  151. (SVREF SV 4)   3.7D0
  152.  
  153. (FORMAT T "~%Pruefe Setzen eines Elements~%")   NIL
  154.  
  155. (SETF (SVREF SV 0) (QUOTE TEST))   TEST
  156.  
  157. (EQUALP SV '#(TEST B C 1.0S0 3.7D0 4.1))   T
  158.  
  159. (FORMAT T "~%Test Array-Element-Typ ... DA2 nicht def.~%")   NIL
  160.  
  161. (ARRAY-ELEMENT-TYPE SV)   T
  162.  
  163. (ARRAY-ELEMENT-TYPE DA1)
  164. #+XCL DOUBLE-FLOAT #+CLISP T #+AKCL LONG-FLOAT #-(or XCL CLISP AKCL) UNKNOWN
  165.  
  166. (FORMAT T "~%Test Rang~%")   NIL
  167.  
  168. (ARRAY-RANK DA1)   3
  169.  
  170. (ARRAY-RANK FA1)   3
  171.  
  172. (FORMAT T "~%Test der einzelnen Dimensionen~%")   NIL
  173.  
  174. (ARRAY-DIMENSION DA1 0)   4
  175.  
  176. (ARRAY-DIMENSION DA1 1)   2
  177.  
  178. (ARRAY-DIMENSION DA1 2)   3
  179.  
  180. (ARRAY-DIMENSION DA1 3)   ERROR
  181.  
  182. (FORMAT T "~%Erzeuge ein 0-dim. Feld (Pseudoscalar) mit Inhalt mod
  183. 5~%")   NIL
  184.  
  185. (PROGN (SETQ ZERO (MAKE-ARRAY (QUOTE NIL) :ELEMENT-TYPE (QUOTE (MOD
  186. 5)))) T)   T
  187.  
  188. (ARRAY-RANK ZERO)   0
  189.  
  190. (SETF (AREF ZERO) 4)   4
  191.  
  192. (SETF (AREF ZERO) 1.0)   #+(or XCL CLISP AKCL) ERROR #-(or XCL CLISP AKCL) UNKNOWN
  193.  
  194. (FORMAT T "~%Erzeuge ein 3-dim gen. Feld~%")   NIL
  195.  
  196. (EQUALP (SETQ A1 (MAKE-ARRAY (QUOTE (4 2 3)) :INITIAL-CONTENTS (QUOTE
  197.  
  198. (((A B C) (1 2 3)) ((D E F) (3 1 2)) ((G H I) (2 3 1)) ((J K L) (0
  199. 0 0))))))
  200. '#3A(((A B C)(1 2 3))((D E F)(3 1 2))((G H I)(2 3 1))((J K L)(0 0 0))))
  201.   T
  202.  
  203. (AREF A1 0 0 0)   A
  204.  
  205. (AREF A1 0 0 1)   B
  206.  
  207. (AREF A1 0 0 2)   C
  208.  
  209. (AREF A1 0 1 0)   1
  210.  
  211. (AREF A1 0 1 1)   2
  212.  
  213. (AREF A1 0 1 2)   3
  214.  
  215. (AREF A1 1 0 0)   D
  216.  
  217. (AREF A1 1 0 1)   E
  218.  
  219. (AREF A1 1 0 2)   F
  220.  
  221. (AREF A1 1 1 0)   3
  222.  
  223. (AREF A1 1 1 1)   1
  224.  
  225. (AREF A1 1 1 2)   2
  226.  
  227. (AREF A1 2 0 0)   G
  228.  
  229. (AREF A1 2 0 1)   H
  230.  
  231. (AREF A1 2 0 2)   I
  232.  
  233. (AREF A1 2 1 0)   2
  234.  
  235. (AREF A1 2 1 1)   3
  236.  
  237. (AREF A1 2 1 2)   1
  238.  
  239. (AREF A1 3 0 0)   J
  240.  
  241. (AREF A1 3 0 1)   K
  242.  
  243. (AREF A1 3 0 2)   L
  244.  
  245. (AREF A1 3 1 0)   0
  246.  
  247. (AREF A1 3 1 1)   0
  248.  
  249. (AREF A1 3 1 1)   0
  250.  
  251. (FORMAT T "~%Erzeuge ein 2-dim adj.Feld, das ueberlagert wird ~%")
  252.   NIL
  253.  
  254. (PROGN (SETQ M (MAKE-ARRAY (QUOTE (4 4)) :ADJUSTABLE T :INITIAL-CONTENTS
  255. (QUOTE (
  256. (ALPHA BETA GAMMA DELTA) (EPSILON ZETA ETA THETA) (IOTA KAPPA LAMBDA
  257. MU)
  258. (NU XI OMICRON PI))))) T)   T
  259.  
  260. (AREF M 0 0)   ALPHA
  261.  
  262. (AREF M 0 1)   BETA
  263.  
  264. (AREF M 0 2)   GAMMA
  265.  
  266. (AREF M 0 3)   DELTA
  267.  
  268. (AREF M 1 0)   EPSILON
  269.  
  270. (AREF M 1 1)   ZETA
  271.  
  272. (AREF M 1 2)   ETA
  273.  
  274. (AREF M 1 3)   THETA
  275.  
  276. (AREF M 2 0)   IOTA
  277.  
  278. (AREF M 2 1)   KAPPA
  279.  
  280. (AREF M 2 2)   LAMBDA
  281.  
  282. (AREF M 2 3)   MU
  283.  
  284. (AREF M 3 0)   NU
  285.  
  286. (AREF M 3 1)   XI
  287.  
  288. (AREF M 3 2)   OMICRON
  289.  
  290. (AREF M 3 3)   PI
  291.  
  292. (FORMAT T "~%Erzeuge Ueberl. der Zeilen ~%")   NIL
  293.  
  294. (equalp (SETQ MD0 (MAKE-ARRAY 4 :DISPLACED-TO M))   '#(ALPHA BETA GAMMA
  295. DELTA)) t
  296.  
  297. (equalp (SETQ MD1 (MAKE-ARRAY 4 :DISPLACED-TO M :DISPLACED-INDEX-OFFSET
  298. 4))
  299. '#(EPSILON ZETA ETA THETA)) t
  300.  
  301.  
  302. (equalp (SETQ MD2 (MAKE-ARRAY 4 :DISPLACED-TO M :DISPLACED-INDEX-OFFSET
  303. 8))
  304. '#(IOTA KAPPA LAMBDA MU)) t
  305.  
  306.  
  307. (FORMAT T "~%Adjustiere Feld m~%")   NIL
  308.  
  309. (PROGN (ADJUST-ARRAY M (QUOTE (3 5)) :INITIAL-ELEMENT (QUOTE BAZ))
  310. T)   T
  311.  
  312. (AREF M 0 0)   ALPHA
  313.  
  314. (AREF M 0 1)   BETA
  315.  
  316. (AREF M 0 2)   GAMMA
  317.  
  318. (AREF M 0 3)   DELTA
  319.  
  320. (AREF M 0 4)   BAZ
  321.  
  322. (AREF M 1 0)   EPSILON
  323.  
  324. (AREF M 1 1)   ZETA
  325.  
  326. (AREF M 1 2)   ETA
  327.  
  328. (AREF M 1 3)   THETA
  329.  
  330. (AREF M 1 4)   BAZ
  331.  
  332. (AREF M 2 0)   IOTA
  333.  
  334. (AREF M 2 1)   KAPPA
  335.  
  336. (AREF M 2 2)   LAMBDA
  337. (FORMAT T "~%Teste Zusammenspiel der Schluesselworte~%")   NIL
  338.  
  339. (PROGN (SETQ DV (MAKE-ARRAY 10 :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
  340. :INITIAL-CONTENTS
  341. (QUOTE (0.0D0 1.0D0 2.0D0 3.0D0 4.0D0 5.0D0 6.0D0 7.0D0 8.0D0 9.0D0))))
  342. T)   T
  343. #| ***************************************************************************
  344.  
  345. (SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
  346.  
  347. :INITIAL-CONTENTS (QUOTE ((1.0D0 2.0D0) (3.0D0 4.0D0 5.0D0)))))   ERROR
  348.  
  349. (SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
  350.  
  351. :INITIAL-CONTENTS (QUOTE
  352. ((1.0D0 2.0D0) (3.0D0 4.0D0) :DISPLACED-TO DV :DISPLACED-INDEX-OFFSET
  353. 8))))   ERROR
  354.  
  355. (SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
  356.  
  357. :INITIAL-CONTENTS (QUOTE ((1.0D0 2.0D0) (3.0D0 4.0D0))) :DISPLACED-TO
  358. DV
  359. :DISPLACED-INDEX-OFFSET 8))   ERROR
  360.  
  361. (SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
  362.  
  363. :DISPLACED-TO DV :DISPLACED-INDEX-OFFSET 8))   ERROR
  364.  
  365. ***************************************************************************|#
  366.  
  367. (AREF DV 0)   0.0D0
  368.  
  369. (AREF DV 1)   1.0D0
  370.  
  371. (AREF DV 2)   2.0D0
  372.  
  373. (AREF DV 3)   3.0D0
  374.  
  375. (AREF DV 4)   4.0D0
  376.  
  377. (AREF DV 5)   5.0D0
  378.  
  379. (AREF DV 6)   6.0D0
  380.  
  381. (AREF DV 7)   7.0D0
  382.  
  383. (AREF DV 8)   8.0D0
  384.  
  385. (AREF DV 9)   9.0D0
  386.  
  387. (SETF (AREF DV 5) -5.0D0)   -5.0D0
  388.  
  389. (FORMAT T "~%Definiere Testfkt fuer Indices~%")   NIL
  390.  
  391. (DEFUN ARRAY-INDEX-TEST (A &REST SUBS) (UNLESS
  392. (APPLY (FUNCTION ARRAY-IN-BOUNDS-P) A SUBS)
  393. (RETURN-FROM ARRAY-INDEX-TEST (QUOTE ERROR))) (=
  394. (APPLY (FUNCTION ARRAY-ROW-MAJOR-INDEX) A SUBS) (APPLY (FUNCTION +)
  395. (MAPLIST
  396. (FUNCTION (LAMBDA (X Y) (* (CAR X) (APPLY (FUNCTION *) (CDR Y)))))
  397. SUBS
  398. (ARRAY-DIMENSIONS A)))))   ARRAY-INDEX-TEST
  399.  
  400. (ARRAY-INDEX-TEST (MAKE-ARRAY (QUOTE (5 4 3 2 1))) 4 2 2 1 0)   T
  401.  
  402. (ARRAY-INDEX-TEST (MAKE-ARRAY (QUOTE (5 4 3 2 1))) 3 4 2 1 2)   ERROR
  403.  
  404. (FORMAT T "~%Test Bitfelder ~%")   NIL
  405.  
  406. (SETQ BVZERO (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
  407. 0))
  408. #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  409.  
  410. (SETQ BVONE (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
  411. 1))
  412. #*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
  413.  
  414. (SETQ BV3 (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
  415. 0))
  416. #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  417.  
  418. (SETQ BV2 (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
  419. 0))
  420. #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  421.  
  422. (SETQ BV1 (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
  423. 0))
  424. #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  425.  
  426. (FORMAT T "~%Setze Bitfelder ~%")   NIL
  427.  
  428. (DOTIMES (I 50 BV1) (SETF (SBIT BV1 (* I 2)) 1))
  429. #*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010
  430.  
  431. (DOTIMES (I 50 BV2) (SETF (BIT BV2 (* I 2)) 1))
  432. #*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010
  433.  
  434. (EQUALP BV1 BV2)   T
  435. (DOTIMES (I 25 BV3) (SETF (SBIT BV3 (* I 4)) 1))
  436. #*1000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000
  437.  
  438. (BIT-AND BV1 BV3)
  439. #*1000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000
  440.  
  441. (BIT-IOR BV1 BV3)
  442. #*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010
  443.  
  444. (BIT-XOR BV1 BV3)
  445. #*0010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010
  446.  
  447. (BIT-EQV BV1 BV3)
  448. #*1101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101
  449.  
  450. (BIT-NAND BV1 BV3)
  451. #*0111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111
  452.  
  453. (BIT-ANDC1 BV1 BV3)
  454. #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  455.  
  456. (BIT-ANDC2 BV1 BV3)
  457. #*0010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010
  458.  
  459. (BIT-ORC1 BV1 BV3)
  460. #*1101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101
  461.  
  462. (BIT-ORC2 BV1 BV3)
  463. #*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
  464.  
  465. (BIT-NOT BV1)
  466. #*0101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101
  467.  
  468. (BIT-NOT BVZERO)
  469. #*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
  470.  
  471. (BIT-NOT BVONE)
  472. #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  473.  
  474. (FORMAT T "~%Teste Operationen mit Fillpointern ~%")   NIL
  475.  
  476. (MAKE-ARRAY (QUOTE (3 4 5)) :FILL-POINTER T)   ERROR
  477.  
  478. (equalp (MAKE-ARRAY 5 :FILL-POINTER 5)
  479.         #+XCL '#(0 0 0 0 0) #-XCL '#(nil nil nil nil nil))
  480. T
  481.  
  482. (MAKE-ARRAY 5 :FILL-POINTER -5)   ERROR
  483.  
  484. (FORMAT T "~%Allgem. Vector mit Fillpointer ~%")   NIL
  485.  
  486. (PROGN (SETQ VMF (MAKE-ARRAY 5 :FILL-POINTER 0)) T)   T
  487.  
  488. (FILL-POINTER VMF)   0
  489.  
  490. (VECTOR-PUSH (QUOTE A) VMF)   0
  491.  
  492. (FILL-POINTER VMF)   1
  493.  
  494. (VECTOR-PUSH (QUOTE B) VMF)   1
  495.  
  496. (VECTOR-PUSH (QUOTE C) VMF)   2
  497.  
  498. (VECTOR-PUSH (QUOTE D) VMF)   3
  499.  
  500. (VECTOR-PUSH (QUOTE E) VMF)   4
  501.  
  502. (VECTOR-PUSH (QUOTE VOLL) VMF)   NIL
  503.  
  504. (VECTOR-POP VMF)   E
  505.  
  506. (VECTOR-POP VMF)   D
  507.  
  508. (VECTOR-POP VMF)   C
  509.  
  510. (VECTOR-POP VMF)   B
  511.  
  512. (VECTOR-POP VMF)   A
  513.  
  514. (VECTOR-POP VMF)   ERROR
  515.  
  516. (FORMAT T "~%Adjustabler allgem. Vector mit Fillpointer~%")   NIL
  517.  
  518. (PROGN (SETQ VMFA (MAKE-ARRAY 5 :FILL-POINTER 0 :ADJUSTABLE T)) T)
  519.   T
  520.  
  521. (FILL-POINTER VMFA)   0
  522.  
  523. (VECTOR-PUSH-EXTEND (QUOTE A) VMFA)   0
  524.  
  525. (FILL-POINTER VMFA)   1
  526.  
  527. (VECTOR-PUSH-EXTEND (QUOTE B) VMFA)   1
  528.  
  529. (VECTOR-PUSH-EXTEND (QUOTE C) VMFA)   2
  530.  
  531. (VECTOR-PUSH-EXTEND (QUOTE D) VMFA)   3
  532.  
  533. (VECTOR-PUSH-EXTEND (QUOTE E) VMFA)   4
  534.  
  535. (VECTOR-PUSH-EXTEND (QUOTE VOLL) VMFA)   5
  536.  
  537. (VECTOR-POP VMFA)   VOLL
  538.  
  539. (VECTOR-POP VMFA)   E
  540.  
  541. (VECTOR-POP VMFA)   D
  542.  
  543. (VECTOR-POP VMFA)   C
  544.  
  545. (VECTOR-POP VMFA)   B
  546.  
  547. (VECTOR-POP VMFA)   A
  548.  
  549. (FORMAT T "~%Doppeltgen. Vector mit Fillpointer ~%")   NIL
  550.  
  551. (PROGN
  552. (SETQ VMFD (MAKE-ARRAY 5 :FILL-POINTER 0 :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)))
  553. T)   T
  554.  
  555. (FILL-POINTER VMFD)   0
  556.  
  557. (VECTOR-PUSH 0.0D0 VMFD)   0
  558.  
  559. (FILL-POINTER VMFD)   1
  560.  
  561. (VECTOR-PUSH 1.0D0 VMFD)   1
  562.  
  563. (VECTOR-PUSH 2.0D0 VMFD)   2
  564.  
  565. (VECTOR-PUSH 3.0D0 VMFD)   3
  566.  
  567. (VECTOR-PUSH 4.0D0 VMFD)   4
  568.  
  569. (VECTOR-PUSH 5.0D0 VMFD)   NIL
  570.  
  571. (VECTOR-POP VMFD)   4.0D0
  572.  
  573. (VECTOR-POP VMFD)   3.0D0
  574.  
  575. (VECTOR-POP VMFD)   2.0D0
  576.  
  577. (VECTOR-POP VMFD)   1.0D0
  578.  
  579. (VECTOR-POP VMFD)   0.0D0
  580.  
  581. (VECTOR-POP VMFD)   ERROR
  582.  
  583. (FORMAT T "~%Doppeltgen. adjust. Vector mit Fillpointer ~%")   NIL
  584.  
  585. (PROGN (SETQ VMFAD
  586. (MAKE-ARRAY 5 :FILL-POINTER 0 :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT) :ADJUSTABLE
  587. T))
  588. T)   T
  589.  
  590. (FILL-POINTER VMFAD)   0
  591.  
  592. (VECTOR-PUSH-EXTEND 0.0D0 VMFAD)   0
  593.  
  594. (FILL-POINTER VMFAD)   1
  595.  
  596. (VECTOR-PUSH-EXTEND 1.0D0 VMFAD)   1
  597.  
  598. (VECTOR-PUSH-EXTEND 2.0D0 VMFAD)   2
  599.  
  600. (VECTOR-PUSH-EXTEND 3.0D0 VMFAD)   3
  601.  
  602. (VECTOR-PUSH-EXTEND 4.0D0 VMFAD)   4
  603.  
  604. (VECTOR-PUSH-EXTEND 5.0D0 VMFAD)   5
  605.  
  606. (VECTOR-POP VMFAD)   5.0D0
  607.  
  608. (VECTOR-POP VMFAD)   4.0D0
  609.  
  610. (VECTOR-POP VMFAD)   3.0D0
  611.  
  612. (VECTOR-POP VMFAD)   2.0D0
  613.  
  614. (VECTOR-POP VMFAD)   1.0D0
  615.  
  616. (VECTOR-POP VMFAD)   0.0D0
  617.  
  618. (VECTOR-PUSH-EXTEND 5.0S0 VMFAD)
  619. #+XCL ERROR #+(or CLISP AKCL) 0 #-(or XCL CLISP AKCL) UNKNOWN
  620.  
  621.