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 |
|
|