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

Diff of /gcl/tests/setf.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    (SETf LI1 '(A (B) ((C) (D)) )  VEC1 '#(0 1 2 3))
2    #(0 1 2 3)
3    
4    (setf pa 'old)
5    old
6    
7    (psetf pa 'new pao pa)
8    nil
9    
10    pa
11    new
12    
13    pao
14    old
15    
16    (SETF (NTH 1 LI1) (QUOTE UU))
17    UU
18    
19    (EVAL (QUOTE LI1))
20    (A UU ((C) (D)))
21    
22    (SETF (ELT LI1 1) (QUOTE OO))
23    OO
24    
25    (SETF (ELT VEC1 1) (QUOTE OO))
26    OO
27    
28    (EVAL (QUOTE LI1))
29    (A OO ((C) (D)))
30    
31    (EVAL (QUOTE VEC1))
32    #(0 OO 2 3)
33    
34    (SETF (REST LI1) (QUOTE ((WW))))
35    ((WW))
36    
37    (EVAL (QUOTE LI1))
38    (A (WW))
39    
40    (SETF (FIRST LI1) (QUOTE AA))
41    AA
42    
43    (FIRST LI1)
44    AA
45    
46    (SETF (SECOND LI1) (QUOTE BB))
47    BB
48    
49    (EVAL (QUOTE LI1))
50    (AA BB)
51    
52    (SETF (THIRD LI1) (QUOTE BB))
53    ERROR
54    
55    (EVAL (QUOTE LI1))
56    (AA BB)
57    
58    
59    (SETF (REST LI1) (QUOTE (2 3 4 5 6 7 8 9 10)))
60    (2 3 4 5 6 7 8 9 10)
61    
62    (SETF (SECOND LI1) 22)
63    22
64    
65    (EVAL (QUOTE LI1))
66    (AA 22 3 4 5 6 7 8 9 10)
67    
68    (SETF (THIRD LI1) (QUOTE 33))
69    33
70    
71    (SETF (FOURTH LI1) (QUOTE 44))
72    44
73    
74    (SETF (FIFTH LI1) (QUOTE 55))
75    55
76    
77    (SETF (SIXTH LI1) (QUOTE 66))
78    66
79    
80    (SETF (SEVENTH LI1) (QUOTE 77))
81    77
82    
83    (SETF (EIGHTH LI1) (QUOTE 88))
84    88
85    
86    (SETF (NINTH LI1) (QUOTE 99))
87    99
88    
89    (SETF (TENTH LI1) (QUOTE 1010))
90    1010
91    
92    (EVAL (QUOTE LI1))
93    (AA 22 33 44 55 66 77 88 99 1010)
94    
95    (SETF (FIRST LI1) (QUOTE (((A)))))
96    (((A)))
97    
98    (SETF (CAAAR LI1) (QUOTE UU))
99    UU
100    
101    (CAAAR LI1)
102    UU
103    
104    (CAR LI1)
105    ((UU))
106    
107    (SETF (CAAR LI1) (QUOTE OO))
108    OO
109    
110    (EVAL (QUOTE LI1))
111    ((OO) 22 33 44 55 66 77 88 99 1010)
112    
113    (SETF (CAR LI1) (QUOTE II))
114    II
115    
116    (EVAL (QUOTE LI1))
117    (II 22 33 44 55 66 77 88 99 1010)
118    
119    (SETF (CDDDR LI1) (QUOTE PP))
120    PP
121    
122    (EVAL (QUOTE LI1))
123    (II 22 33 . PP)
124    
125    (SETF (CADDR LI1) (QUOTE 333))
126    333
127    
128    (EVAL (QUOTE LI1))
129    (II 22 333 . PP)
130    
131    (SETF (SVREF VEC1 2) (QUOTE KK))
132    KK
133    
134    (EVAL (QUOTE VEC1))
135    #(0 OO KK 3)
136    
137    (SETF (GET (QUOTE A) (QUOTE B)) (QUOTE UU))
138    UU
139    
140    (GET (QUOTE A) (QUOTE B))
141    UU
142    
143    (SETF (GETF (CADR (SETQ XX (QUOTE (AAA (I1 V1 I2 V2))))) (QUOTE I2))
144    
145    (QUOTE V222))
146    V222
147    
148    (EVAL (QUOTE XX))
149    (AAA (I1 V1 I2 V222))
150    
151    (GETF (CADR XX) (QUOTE I2))
152    V222
153    
154    (GETF (CADR XX) (QUOTE I1))
155    V1
156    
157    (SETF (DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP1)) "doc 1")
158    "doc 1"
159    
160    (SETF (DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP2)) "doc 2")
161    "doc 2"
162    
163    (DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP2))
164    #+XCL (TYP2 . "doc 2") #-XCL "doc 2"
165    
166    (SETF (DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP2)) "doc 3")
167    "doc 3"
168    
169    (DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP2))
170    #+XCL (TYP2 . "doc 3") #-XCL "doc 3"
171    
172    (symbol-plist 'beispiel)
173    #+XCL (DOCUMENTATION ((TYP2 . "doc 3") (TYP1 . "doc 1")))
174    #+CLISP (SYSTEM::DOCUMENTATION-STRINGS (TYP2 "doc 3" TYP1 "doc 1"))
175    
176    (SETF (SYMBOL-VALUE (QUOTE XX)) (QUOTE VOELLIGNEU))
177    VOELLIGNEU
178    
179    (EVAL (QUOTE XX))
180    VOELLIGNEU
181    
182    (SETF (SYMBOL-FUNCTION (QUOTE FF))
183          (QUOTE (LAMBDA (X) (PRINT X) (QUOTE HELLO))))
184    #+XCL FF
185    #-XCL (LAMBDA (X) (PRINT X) 'HELLO)
186    
187    (FF 5)
188    HELLO
189    
190    (defun xx nil 'a)
191    xx
192    
193    (progn (setf (symbol-function 'xx1) (symbol-function 'xx)) nil)
194    nil
195    
196    (xx1)
197    a
198    
199    (setq l '(a 1 c d))
200    (a 1 c d)
201    
202    (setf (the integer (cadr l)) 100)
203    100
204    
205    l
206    (a 100 c d)
207    
208    (progn (setf a (make-hash-table)) t)
209    t
210    
211    (setf (gethash 'color a) 'brown)
212    brown
213    
214    (gethash 'color a)
215    brown
216    
217    (defstruct schiff masse)
218    schiff
219    
220    (progn (setf s1 (make-schiff)) nil)
221    nil
222    
223    (setf (schiff-masse s1) 500)
224    500
225    
226    (schiff-masse s1)
227    500
228    
229    (defmacro setf-test (v) `(svref ,v 3))
230    setf-test
231    
232    (progn (setf (macro-function 'setf-test1) (macro-function 'setf-test)) nil)
233    nil
234    
235    (setf (setf-test vec1) 'oho)
236    oho
237    
238    (eval 'vec1)
239    #(0 OO KK oho)
240    
241    (setf (setf-test1 vec1) 'hihi)
242    hihi
243    
244    (eval 'vec1)
245    #(0 OO KK hihi)
246    
247    ; (setf (displace ?? (svref vec1 3)) "aha")
248    ; aha
249    
250    ; (eval 'vec1)
251    ; #(0 oo KK aha)
252    
253    (progn (setf a (make-array '(4 3))) nil)
254    nil
255    
256    (aref a 2 2)
257    #+XCL 0 #+CLISP NIL
258    
259    (setf (apply #'aref a '(2 2)) 'xxxx)
260    xxxx
261    
262    (aref a 2 2)
263    xxxx
264    
265    (SETF (AREF '#(A B C) 1) (QUOTE II))
266    II
267    
268    (setf b #*101010)
269    #*101010
270    
271    (bit b 2)
272    1
273    
274    (setf (bit b 2) 0)
275    0
276    
277    (bit b 2)
278    0
279    
280    (setf (sbit b 2) 1)
281    1
282    
283    (sbit b 2)
284    1
285    
286    (progn (setf a (make-array 5 :fill-pointer t)) t)
287    t
288    
289    (fill-pointer a)
290    5
291    
292    (setf (fill-pointer a) 3)
293    3
294    
295    (fill-pointer a)
296    3
297    
298    (setf str "hose")
299    "hose"
300    
301    (setf (char str 0) #\d)
302    #\d
303    
304    str
305    "dose"
306    
307    (setf str "aaaxxxccc")
308    "aaaxxxccc"
309    
310    (setf (subseq str 3 6) "bbb")
311    "bbb"
312    
313    str
314    "aaabbbccc"
315    
316    (setq x (list 'a 'b 'c))
317    (a b c)
318    
319    (shiftf (cadr x) 'z)
320    b
321    
322    x
323    (a z c)
324    
325    (shiftf (cadr x) (cddr x) 'q)
326    z
327    
328    x
329    (a (c) . q)
330    
331    (progn (defsetf subseq (sequence start &optional end) (new-sequence)
332                           `(progn (replace ,sequence ,new-sequence
333                                            :start1 ,start :end1 ,end)
334                           ,new-sequence)) t)
335    t
336    
337    (setf s "asdfg" (subseq s 1 3) "xy")
338    "xy"
339    
340    s
341    "axyfg"
342    

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