/[gcl]/gcl/tests/array.tst
ViewVC logotype

Diff of /gcl/tests/array.tst

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Thu Dec 20 20:29:54 2001 UTC revision 1.2 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 0  Line 1 
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   #+XCL 256 #+CLISP 4294967296 #| #+CLISP 65536 |#
128    
129    ARRAY-DIMENSION-LIMIT   #+XCL 17920 #+CLISP 16777216
130    
131    ARRAY-TOTAL-SIZE-LIMIT   #+XCL 17920 #+CLISP 16777216
132    
133    (FORMAT T "~%Erzeuge einen einfachen (simple) Vector~%")   NIL
134    
135    (EQUALP (SETQ SV (VECTOR (QUOTE A) (QUOTE B) (QUOTE C) 1.0S0 3.7D0
136    4.1))
137    '#(A B C 1.0S0 3.7D0 4.1))   T
138    
139    (SVREF SV 0)   A
140    
141    (SVREF SV 1)   B
142    
143    (SVREF SV 2)   C
144    
145    (SVREF SV 3)   1.0S0
146    
147    (SVREF SV 4)   3.7D0
148    
149    (FORMAT T "~%Pruefe Setzen eines Elements~%")   NIL
150    
151    (SETF (SVREF SV 0) (QUOTE TEST))   TEST
152    
153    (EQUALP SV '#(TEST B C 1.0S0 3.7D0 4.1))   T
154    
155    (FORMAT T "~%Test Array-Element-Typ ... DA2 nicht def.~%")   NIL
156    
157    (ARRAY-ELEMENT-TYPE SV)   T
158    
159    (ARRAY-ELEMENT-TYPE DA1)   #+XCL DOUBLE-FLOAT #+CLISP T
160    
161    (FORMAT T "~%Test Rang~%")   NIL
162    
163    (ARRAY-RANK DA1)   3
164    
165    (ARRAY-RANK FA1)   3
166    
167    (FORMAT T "~%Test der einzelnen Dimensionen~%")   NIL
168    
169    (ARRAY-DIMENSION DA1 0)   4
170    
171    (ARRAY-DIMENSION DA1 1)   2
172    
173    (ARRAY-DIMENSION DA1 2)   3
174    
175    (ARRAY-DIMENSION DA1 3)   ERROR
176    
177    (FORMAT T "~%Erzeuge ein 0-dim. Feld (Pseudoscalar) mit Inhalt mod
178    5~%")   NIL
179    
180    (PROGN (SETQ ZERO (MAKE-ARRAY (QUOTE NIL) :ELEMENT-TYPE (QUOTE (MOD
181    5)))) T)   T
182    
183    (ARRAY-RANK ZERO)   0
184    
185    (SETF (AREF ZERO) 4)   4
186    
187    (SETF (AREF ZERO) 1.0)   #+(or XCL CLISP) ERROR
188    
189    (FORMAT T "~%Erzeuge ein 3-dim gen. Feld~%")   NIL
190    
191    (EQUALP (SETQ A1 (MAKE-ARRAY (QUOTE (4 2 3)) :INITIAL-CONTENTS (QUOTE
192    
193    (((A B C) (1 2 3)) ((D E F) (3 1 2)) ((G H I) (2 3 1)) ((J K L) (0
194    0 0))))))
195    '#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))))
196      T
197    
198    (AREF A1 0 0 0)   A
199    
200    (AREF A1 0 0 1)   B
201    
202    (AREF A1 0 0 2)   C
203    
204    (AREF A1 0 1 0)   1
205    
206    (AREF A1 0 1 1)   2
207    
208    (AREF A1 0 1 2)   3
209    
210    (AREF A1 1 0 0)   D
211    
212    (AREF A1 1 0 1)   E
213    
214    (AREF A1 1 0 2)   F
215    
216    (AREF A1 1 1 0)   3
217    
218    (AREF A1 1 1 1)   1
219    
220    (AREF A1 1 1 2)   2
221    
222    (AREF A1 2 0 0)   G
223    
224    (AREF A1 2 0 1)   H
225    
226    (AREF A1 2 0 2)   I
227    
228    (AREF A1 2 1 0)   2
229    
230    (AREF A1 2 1 1)   3
231    
232    (AREF A1 2 1 2)   1
233    
234    (AREF A1 3 0 0)   J
235    
236    (AREF A1 3 0 1)   K
237    
238    (AREF A1 3 0 2)   L
239    
240    (AREF A1 3 1 0)   0
241    
242    (AREF A1 3 1 1)   0
243    
244    (AREF A1 3 1 1)   0
245    
246    (FORMAT T "~%Erzeuge ein 2-dim adj.Feld, das ueberlagert wird ~%")
247      NIL
248    
249    (PROGN (SETQ M (MAKE-ARRAY (QUOTE (4 4)) :ADJUSTABLE T :INITIAL-CONTENTS
250    (QUOTE (
251    (ALPHA BETA GAMMA DELTA) (EPSILON ZETA ETA THETA) (IOTA KAPPA LAMBDA
252    MU)
253    (NU XI OMICRON PI))))) T)   T
254    
255    (AREF M 0 0)   ALPHA
256    
257    (AREF M 0 1)   BETA
258    
259    (AREF M 0 2)   GAMMA
260    
261    (AREF M 0 3)   DELTA
262    
263    (AREF M 1 0)   EPSILON
264    
265    (AREF M 1 1)   ZETA
266    
267    (AREF M 1 2)   ETA
268    
269    (AREF M 1 3)   THETA
270    
271    (AREF M 2 0)   IOTA
272    
273    (AREF M 2 1)   KAPPA
274    
275    (AREF M 2 2)   LAMBDA
276    
277    (AREF M 2 3)   MU
278    
279    (AREF M 3 0)   NU
280    
281    (AREF M 3 1)   XI
282    
283    (AREF M 3 2)   OMICRON
284    
285    (AREF M 3 3)   PI
286    
287    (FORMAT T "~%Erzeuge Ueberl. der Zeilen ~%")   NIL
288    
289    (equalp (SETQ MD0 (MAKE-ARRAY 4 :DISPLACED-TO M))   '#(ALPHA BETA GAMMA
290    DELTA)) t
291    
292    (equalp (SETQ MD1 (MAKE-ARRAY 4 :DISPLACED-TO M :DISPLACED-INDEX-OFFSET
293    4))
294    '#(EPSILON ZETA ETA THETA)) t
295    
296    
297    (equalp (SETQ MD2 (MAKE-ARRAY 4 :DISPLACED-TO M :DISPLACED-INDEX-OFFSET
298    8))
299    '#(IOTA KAPPA LAMBDA MU)) t
300    
301    
302    (FORMAT T "~%Adjustiere Feld m~%")   NIL
303    
304    (PROGN (ADJUST-ARRAY M (QUOTE (3 5)) :INITIAL-ELEMENT (QUOTE BAZ))
305    T)   T
306    
307    (AREF M 0 0)   ALPHA
308    
309    (AREF M 0 1)   BETA
310    
311    (AREF M 0 2)   GAMMA
312    
313    (AREF M 0 3)   DELTA
314    
315    (AREF M 0 4)   BAZ
316    
317    (AREF M 1 0)   EPSILON
318    
319    (AREF M 1 1)   ZETA
320    
321    (AREF M 1 2)   ETA
322    
323    (AREF M 1 3)   THETA
324    
325    (AREF M 1 4)   BAZ
326    
327    (AREF M 2 0)   IOTA
328    
329    (AREF M 2 1)   KAPPA
330    
331    (AREF M 2 2)   LAMBDA
332    (FORMAT T "~%Teste Zusammenspiel der Schluesselworte~%")   NIL
333    
334    (PROGN (SETQ DV (MAKE-ARRAY 10 :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
335    :INITIAL-CONTENTS
336    (QUOTE (0.0D0 1.0D0 2.0D0 3.0D0 4.0D0 5.0D0 6.0D0 7.0D0 8.0D0 9.0D0))))
337    T)   T
338    #| ***************************************************************************
339    
340    (SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
341    
342    :INITIAL-CONTENTS (QUOTE ((1.0D0 2.0D0) (3.0D0 4.0D0 5.0D0)))))   ERROR
343    
344    (SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
345    
346    :INITIAL-CONTENTS (QUOTE
347    ((1.0D0 2.0D0) (3.0D0 4.0D0) :DISPLACED-TO DV :DISPLACED-INDEX-OFFSET
348    8))))   ERROR
349    
350    (SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
351    
352    :INITIAL-CONTENTS (QUOTE ((1.0D0 2.0D0) (3.0D0 4.0D0))) :DISPLACED-TO
353    DV
354    :DISPLACED-INDEX-OFFSET 8))   ERROR
355    
356    (SETQ DVE (MAKE-ARRAY (QUOTE (2 2)) :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)
357    
358    :DISPLACED-TO DV :DISPLACED-INDEX-OFFSET 8))   ERROR
359    
360    ***************************************************************************|#
361    
362    (AREF DV 0)   0.0D0
363    
364    (AREF DV 1)   1.0D0
365    
366    (AREF DV 2)   2.0D0
367    
368    (AREF DV 3)   3.0D0
369    
370    (AREF DV 4)   4.0D0
371    
372    (AREF DV 5)   5.0D0
373    
374    (AREF DV 6)   6.0D0
375    
376    (AREF DV 7)   7.0D0
377    
378    (AREF DV 8)   8.0D0
379    
380    (AREF DV 9)   9.0D0
381    
382    (SETF (AREF DV 5) -5.0D0)   -5.0D0
383    
384    (FORMAT T "~%Definiere Testfkt fuer Indices~%")   NIL
385    
386    (DEFUN ARRAY-INDEX-TEST (A &REST SUBS) (UNLESS
387    (APPLY (FUNCTION ARRAY-IN-BOUNDS-P) A SUBS)
388    (RETURN-FROM ARRAY-INDEX-TEST (QUOTE ERROR))) (=
389    (APPLY (FUNCTION ARRAY-ROW-MAJOR-INDEX) A SUBS) (APPLY (FUNCTION +)
390    (MAPLIST
391    (FUNCTION (LAMBDA (X Y) (* (CAR X) (APPLY (FUNCTION *) (CDR Y)))))
392    SUBS
393    (ARRAY-DIMENSIONS A)))))   ARRAY-INDEX-TEST
394    
395    (ARRAY-INDEX-TEST (MAKE-ARRAY (QUOTE (5 4 3 2 1))) 4 2 2 1 0)   T
396    
397    (ARRAY-INDEX-TEST (MAKE-ARRAY (QUOTE (5 4 3 2 1))) 3 4 2 1 2)   ERROR
398    
399    (FORMAT T "~%Test Bitfelder ~%")   NIL
400    
401    (SETQ BVZERO (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
402    0))
403    #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
404    
405    (SETQ BVONE (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
406    1))
407    #*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
408    
409    (SETQ BV3 (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
410    0))
411    #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
412    
413    (SETQ BV2 (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
414    0))
415    #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
416    
417    (SETQ BV1 (MAKE-ARRAY 100 :ELEMENT-TYPE (QUOTE BIT) :INITIAL-ELEMENT
418    0))
419    #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
420    
421    (FORMAT T "~%Setze Bitfelder ~%")   NIL
422    
423    (DOTIMES (I 50 BV1) (SETF (SBIT BV1 (* I 2)) 1))
424    #*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010
425    
426    (DOTIMES (I 50 BV2) (SETF (BIT BV2 (* I 2)) 1))
427    #*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010
428    
429    (EQUALP BV1 BV2)   T
430    (DOTIMES (I 25 BV3) (SETF (SBIT BV3 (* I 4)) 1))
431    #*1000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000
432    
433    (BIT-AND BV1 BV3)
434    #*1000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000
435    
436    (BIT-IOR BV1 BV3)
437    #*1010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010
438    
439    (BIT-XOR BV1 BV3)
440    #*0010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010
441    
442    (BIT-EQV BV1 BV3)
443    #*1101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101
444    
445    (BIT-NAND BV1 BV3)
446    #*0111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111
447    
448    (BIT-ANDC1 BV1 BV3)
449    #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
450    
451    (BIT-ANDC2 BV1 BV3)
452    #*0010001000100010001000100010001000100010001000100010001000100010001000100010001000100010001000100010
453    
454    (BIT-ORC1 BV1 BV3)
455    #*1101110111011101110111011101110111011101110111011101110111011101110111011101110111011101110111011101
456    
457    (BIT-ORC2 BV1 BV3)
458    #*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
459    
460    (BIT-NOT BV1)
461    #*0101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101
462    
463    (BIT-NOT BVZERO)
464    #*1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
465    
466    (BIT-NOT BVONE)
467    #*0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
468    
469    (FORMAT T "~%Teste Operationen mit Fillpointern ~%")   NIL
470    
471    (MAKE-ARRAY (QUOTE (3 4 5)) :FILL-POINTER T)   ERROR
472    
473    (equalp (MAKE-ARRAY 5 :FILL-POINTER 5)
474            #+XCL '#(0 0 0 0 0) #-XCL '#(nil nil nil nil nil))
475    T
476    
477    (MAKE-ARRAY 5 :FILL-POINTER -5)   ERROR
478    
479    (FORMAT T "~%Allgem. Vector mit Fillpointer ~%")   NIL
480    
481    (PROGN (SETQ VMF (MAKE-ARRAY 5 :FILL-POINTER 0)) T)   T
482    
483    (FILL-POINTER VMF)   0
484    
485    (VECTOR-PUSH (QUOTE A) VMF)   0
486    
487    (FILL-POINTER VMF)   1
488    
489    (VECTOR-PUSH (QUOTE B) VMF)   1
490    
491    (VECTOR-PUSH (QUOTE C) VMF)   2
492    
493    (VECTOR-PUSH (QUOTE D) VMF)   3
494    
495    (VECTOR-PUSH (QUOTE E) VMF)   4
496    
497    (VECTOR-PUSH (QUOTE VOLL) VMF)   NIL
498    
499    (VECTOR-POP VMF)   E
500    
501    (VECTOR-POP VMF)   D
502    
503    (VECTOR-POP VMF)   C
504    
505    (VECTOR-POP VMF)   B
506    
507    (VECTOR-POP VMF)   A
508    
509    (VECTOR-POP VMF)   ERROR
510    
511    (FORMAT T "~%Adjustabler allgem. Vector mit Fillpointer~%")   NIL
512    
513    (PROGN (SETQ VMFA (MAKE-ARRAY 5 :FILL-POINTER 0 :ADJUSTABLE T)) T)
514      T
515    
516    (FILL-POINTER VMFA)   0
517    
518    (VECTOR-PUSH-EXTEND (QUOTE A) VMFA)   0
519    
520    (FILL-POINTER VMFA)   1
521    
522    (VECTOR-PUSH-EXTEND (QUOTE B) VMFA)   1
523    
524    (VECTOR-PUSH-EXTEND (QUOTE C) VMFA)   2
525    
526    (VECTOR-PUSH-EXTEND (QUOTE D) VMFA)   3
527    
528    (VECTOR-PUSH-EXTEND (QUOTE E) VMFA)   4
529    
530    (VECTOR-PUSH-EXTEND (QUOTE VOLL) VMFA)   5
531    
532    (VECTOR-POP VMFA)   VOLL
533    
534    (VECTOR-POP VMFA)   E
535    
536    (VECTOR-POP VMFA)   D
537    
538    (VECTOR-POP VMFA)   C
539    
540    (VECTOR-POP VMFA)   B
541    
542    (VECTOR-POP VMFA)   A
543    
544    (FORMAT T "~%Doppeltgen. Vector mit Fillpointer ~%")   NIL
545    
546    (PROGN
547    (SETQ VMFD (MAKE-ARRAY 5 :FILL-POINTER 0 :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT)))
548    T)   T
549    
550    (FILL-POINTER VMFD)   0
551    
552    (VECTOR-PUSH 0.0D0 VMFD)   0
553    
554    (FILL-POINTER VMFD)   1
555    
556    (VECTOR-PUSH 1.0D0 VMFD)   1
557    
558    (VECTOR-PUSH 2.0D0 VMFD)   2
559    
560    (VECTOR-PUSH 3.0D0 VMFD)   3
561    
562    (VECTOR-PUSH 4.0D0 VMFD)   4
563    
564    (VECTOR-PUSH 5.0D0 VMFD)   NIL
565    
566    (VECTOR-POP VMFD)   4.0D0
567    
568    (VECTOR-POP VMFD)   3.0D0
569    
570    (VECTOR-POP VMFD)   2.0D0
571    
572    (VECTOR-POP VMFD)   1.0D0
573    
574    (VECTOR-POP VMFD)   0.0D0
575    
576    (VECTOR-POP VMFD)   ERROR
577    
578    (FORMAT T "~%Doppeltgen. adjust. Vector mit Fillpointer ~%")   NIL
579    
580    (PROGN (SETQ VMFAD
581    (MAKE-ARRAY 5 :FILL-POINTER 0 :ELEMENT-TYPE (QUOTE DOUBLE-FLOAT) :ADJUSTABLE
582    T))
583    T)   T
584    
585    (FILL-POINTER VMFAD)   0
586    
587    (VECTOR-PUSH-EXTEND 0.0D0 VMFAD)   0
588    
589    (FILL-POINTER VMFAD)   1
590    
591    (VECTOR-PUSH-EXTEND 1.0D0 VMFAD)   1
592    
593    (VECTOR-PUSH-EXTEND 2.0D0 VMFAD)   2
594    
595    (VECTOR-PUSH-EXTEND 3.0D0 VMFAD)   3
596    
597    (VECTOR-PUSH-EXTEND 4.0D0 VMFAD)   4
598    
599    (VECTOR-PUSH-EXTEND 5.0D0 VMFAD)   5
600    
601    (VECTOR-POP VMFAD)   5.0D0
602    
603    (VECTOR-POP VMFAD)   4.0D0
604    
605    (VECTOR-POP VMFAD)   3.0D0
606    
607    (VECTOR-POP VMFAD)   2.0D0
608    
609    (VECTOR-POP VMFAD)   1.0D0
610    
611    (VECTOR-POP VMFAD)   0.0D0
612    
613    (VECTOR-PUSH-EXTEND 5.0S0 VMFAD)   #+XCL ERROR #+CLISP 0
614    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26