← Back to branch summary

~ubuntu-branches/ubuntu/vivid/gcl/vivid

« back to all changes in this revision

Viewing changes to tests/alltest.tst

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2002-03-04 14:29:59 UTC
  • Revision ID: james.westby@ubuntu.com-20020304142959-dey14w08kr7lldu3
Tags: upstream-2.5.0.cvs20020219
Import upstream version 2.5.0.cvs20020219

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/alltest.tst
 
1
;*******************************************************************************
 
2
;*                      Kurztest        XCL                                    *
 
3
;*******************************************************************************
 
4
;Kap. 1 Einfuehrung
 
5
;-------------------------------------------------------------------------------
 
6
;Kap. 2  Datentypen
 
7
;-------------------------------------------------------------------------------
 
8
;Kap. 3  Gueltigkeitsbereiche
 
9
;-------------------------------------------------------------------------------
 
10
;Kap. 4  Typspezifier
 
11
;-------------------------------------------------------------------------------
 
12
;
 
13
;deftype, COERCE, TYPE-OF
 
14
;
 
15
;Kap. 5  Programmstrukturen
 
16
;-------------------------------------------------------------------------------
 
17
;
 
18
;Lambda-Listen
 
19
((LAMBDA (A B) (+ A (* B 3))) 4 5)
 
20
19
 
21
 
 
22
((LAMBDA (A &OPTIONAL (B 2)) (+ A (* B 3))) 4 5)
 
23
19
 
24
 
 
25
((LAMBDA (&OPTIONAL (A 2 B) (C 3 D) &REST X) (LIST A B C D X)))
 
26
(2 NIL 3 NIL NIL)
 
27
 
 
28
((LAMBDA (A B &KEY C D) (LIST A B C D)) 1 2)
 
29
(1 2 NIL NIL)
 
30
 
 
31
((LAMBDA (A &OPTIONAL (B 3) &REST X &KEY C (D A)) (LIST A B C D X))
 
32
1)
 
33
(1 3 NIL 1 NIL)
 
34
 
 
35
((LAMBDA (X &AUX (A 3) (B 4)) (+ X (* A B))) 2)
 
36
14
 
37
 
 
38
((LAMBDA (X Y &OPTIONAL A B &REST Z &KEY C (D Y) &AUX (U 3) (V 4))
 
39
 
 
40
(+ X Y A (* B (CAR Z)) C (* D U) V)) 3 4 5 2 7 :C 6 :D 8)
 
41
ERROR
 
42
 
 
43
((LAMBDA (X Y) ((LAMBDA (A B) (LIST A B)) (QUOTE U) (QUOTE V))) 5 6)
 
44
 
 
45
(U V)
 
46
 
 
47
((LAMBDA (X &ALLOW-OTHER-KEYS) (LIST X Y)) 2 :Y 3)
 
48
ERROR
 
49
 
 
50
lambda-list-keywords
 
51
(&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE SYSTEM::&ENVIRONMENT)
 
52
 
 
53
lambda-parameters-limit
 
54
#+XCL 128 #+CLISP 4294967296
 
55
 
 
56
;DEFVAR, DEFCONSTANT, DEFPARAMETER, eval-when
 
57
 
 
58
;Kap 6 Praedikate
 
59
;-------------------------------------------------------------------------------
 
60
 
 
61
(TYPEP (QUOTE NIL) (QUOTE NULL))
 
62
T
 
63
 
 
64
(TYPEP (QUOTE (A B C)) (QUOTE NULL))
 
65
NIL
 
66
 
 
67
(TYPEP (QUOTE ABC) (QUOTE SYMBOL))
 
68
T
 
69
 
 
70
(TYPEP 4 (QUOTE ATOM))
 
71
T
 
72
 
 
73
(TYPEP 55 (QUOTE CONS))
 
74
NIL
 
75
 
 
76
(TYPEP (QUOTE (A (B C))) (QUOTE LIST))
 
77
T
 
78
 
 
79
(TYPEP 5/8 (QUOTE NUMBER))
 
80
T
 
81
 
 
82
(TYPEP -800 (QUOTE INTEGER))
 
83
T
 
84
 
 
85
(TYPEP 5/7 (QUOTE RATIONAL))
 
86
T
 
87
 
 
88
(TYPEP 2.718 (QUOTE FLOAT))
 
89
T
 
90
 
 
91
(TYPEP #C(1.23 3.56) (QUOTE FLOAT))
 
92
NIL
 
93
 
 
94
(TYPEP #\a (QUOTE CHARACTER))
 
95
T
 
96
 
 
97
(TYPEP "abc" (QUOTE STRING))
 
98
T
 
99
 
 
100
(TYPEP '#(1 2 3) (QUOTE STRING))
 
101
NIL
 
102
 
 
103
(TYPEP '#(A B C) (QUOTE BIT-VECTOR))
 
104
NIL
 
105
 
 
106
(TYPEP '#(A B C) (QUOTE VECTOR))
 
107
T
 
108
 
 
109
(TYPEP "abc" (QUOTE VECTOR))
 
110
T
 
111
 
 
112
(TYPEP '#(1 2 3 4) (QUOTE SIMPLE-VECTOR))
 
113
T
 
114
 
 
115
(TYPEP 3 (QUOTE SIMPLE-VECTOR))
 
116
NIL
 
117
 
 
118
(TYPEP "a b cd" (QUOTE SIMPLE-STRING))
 
119
T
 
120
 
 
121
(TYPEP (QUOTE ABC) (QUOTE SIMPLE-STRING))
 
122
NIL
 
123
 
 
124
(TYPEP #*1101 (QUOTE SIMPLE-BIT-VECTOR))
 
125
T
 
126
 
 
127
(TYPEP '#(1 0 0 1) (QUOTE SIMPLE-BIT-VECTOR))
 
128
NIL
 
129
 
 
130
(TYPEP '#2A((A B)(C D)) (QUOTE ARRAY))
 
131
T
 
132
 
 
133
(SETQ X 7)
 
134
7
 
135
 
 
136
(TYPEP X (QUOTE COMPILED-FUNCTION))
 
137
NIL
 
138
 
 
139
(TYPEP X (QUOTE COMMON))
 
140
T
 
141
 
 
142
(SUBTYPEP (QUOTE CHARACTER) (QUOTE NUMBER))
 
143
NIL
 
144
 
 
145
(SUBTYPEP (QUOTE NUMBER) (QUOTE CHARACTER))
 
146
NIL
 
147
 
 
148
(SUBTYPEP (QUOTE STRING) (QUOTE NUMBER))
 
149
NIL
 
150
 
 
151
(SUBTYPEP (QUOTE COMPLEX) (QUOTE NUMBER))
 
152
T
 
153
 
 
154
(SUBTYPEP (QUOTE FLOAT) (QUOTE NUMBER))
 
155
T
 
156
 
 
157
(SUBTYPEP (QUOTE FIXNUM) (QUOTE NUMBER))
 
158
T
 
159
 
 
160
(SUBTYPEP (QUOTE RATIONAL) (QUOTE NUMBER))
 
161
T
 
162
 
 
163
(SUBTYPEP (QUOTE FLOAT) (QUOTE COMPLEX))
 
164
NIL
 
165
 
 
166
(SUBTYPEP (QUOTE INTEGER) (QUOTE RATIONAL))
 
167
T
 
168
 
 
169
(SUBTYPEP (QUOTE NUMBER) (QUOTE VECTOR))
 
170
NIL
 
171
 
 
172
(SUBTYPEP (QUOTE VECTOR) (QUOTE ARRAY))
 
173
T
 
174
 
 
175
(SUBTYPEP (QUOTE NUMBER) (QUOTE ARRAY))
 
176
NIL
 
177
 
 
178
(NULL (QUOTE NIL))
 
179
T
 
180
 
 
181
(SYMBOLP *STANDARD-INPUT*)
 
182
NIL
 
183
 
 
184
(SYMBOLP (QUOTE CAR))
 
185
T
 
186
 
 
187
(ATOM (QUOTE ABC))
 
188
T
 
189
 
 
190
(CONSP (ACONS (QUOTE X) (QUOTE Y) (QUOTE A)))
 
191
#+XCL ERROR #+CLISP T
 
192
 
 
193
(LISTP (QUOTE (((A . B) . C))))
 
194
T
 
195
 
 
196
(LISTP 'A)
 
197
NIL
 
198
 
 
199
(LISTP NIL)
 
200
T
 
201
 
 
202
(LISTP '(A B C))
 
203
T
 
204
 
 
205
(NUMBERP #*101)
 
206
NIL
 
207
 
 
208
(NUMBERP -5)
 
209
T
 
210
 
 
211
(INTEGERP 5)
 
212
T
 
213
 
 
214
(INTEGERP #\+)
 
215
NIL
 
216
 
 
217
(RATIONALP 0)
 
218
T
 
219
 
 
220
(FLOATP -5)
 
221
NIL
 
222
 
 
223
(FLOATP (READ-FROM-STRING "1.0e30"))
 
224
T
 
225
 
 
226
(FLOATP 123.4)
 
227
T
 
228
 
 
229
(COMPLEXP 1/2)
 
230
NIL
 
231
 
 
232
(COMPLEXP #C(2 3))
 
233
T
 
234
 
 
235
(CHARACTERP #\1)
 
236
T
 
237
 
 
238
(STRINGP "abc")
 
239
T
 
240
 
 
241
(STRINGP :+*/-)
 
242
NIL
 
243
 
 
244
(BIT-VECTOR-P (READ-FROM-STRING "#5*01110"))
 
245
T
 
246
 
 
247
(VECTORP "abc")
 
248
T
 
249
 
 
250
(SIMPLE-VECTOR-P #*101)
 
251
NIL
 
252
 
 
253
(SIMPLE-STRING-P "abc")
 
254
T
 
255
 
 
256
(SIMPLE-STRING-P :+*/-)
 
257
NIL
 
258
 
 
259
(SIMPLE-BIT-VECTOR-P #*101)
 
260
T
 
261
 
 
262
(ARRAYP (READ-FROM-STRING "#7(2 4 3)"))
 
263
T
 
264
 
 
265
(ARRAYP (QUOTE (READ-FROM-STRING "#1a 5.77")))
 
266
NIL
 
267
 
 
268
(PACKAGEP (READ-FROM-STRING "#5*01110"))
 
269
NIL
 
270
 
 
271
(PACKAGEP *PACKAGE*)
 
272
T
 
273
 
 
274
(FUNCTIONP (QUOTE ATOM))
 
275
T
 
276
 
 
277
(COMPILED-FUNCTION-P (QUOTE DO))
 
278
NIL
 
279
 
 
280
;COMMONP
 
281
 
 
282
(EQ (QUOTE (1 2 3 4 5)) (COPY-LIST (QUOTE (1 2 3 4 5))))
 
283
NIL
 
284
 
 
285
(SETQ X '((1 . A) (2 . B) (3 . C)) )
 
286
((1 . A) (2 . B) (3 . C))
 
287
 
 
288
(EQ (CADR X) (CADR (COPY-ALIST X)))
 
289
NIL
 
290
 
 
291
(EQ #\A #\A)
 
292
T
 
293
 
 
294
(EQ "Foo" "Foo")
 
295
NIL
 
296
 
 
297
(EQ "Foo" (COPY-SEQ "Foo"))
 
298
NIL
 
299
 
 
300
(EQL #C(3.0 -4.0) #C(3 -4))
 
301
nil
 
302
 
 
303
(EQL (CONS (QUOTE A) (QUOTE B)) (CONS (QUOTE A) (QUOTE C)))
 
304
NIL
 
305
 
 
306
(EQUAL (QUOTE (1 2 3 4 5)) (COPY-LIST (QUOTE (1 2 3 4 5))))
 
307
T
 
308
 
 
309
(EQUAL X (COPY-ALIST X))
 
310
T
 
311
 
 
312
(EQUAL 3 3)
 
313
T
 
314
 
 
315
(EQUAL 3 3.0)
 
316
NIL
 
317
 
 
318
(EQUAL 3.0 3.0)
 
319
T
 
320
 
 
321
(EQUAL #C(3 -4) #C(3 -4))
 
322
T
 
323
 
 
324
(EQUALP (QUOTE (1 2 3 4 5)) (COPY-LIST (QUOTE (1 2 3 4 5))))
 
325
T
 
326
 
 
327
(NOT 1)
 
328
NIL
 
329
 
 
330
(NOT NIL)
 
331
T
 
332
 
 
333
(AND (EQ 1 2) (EQ 2 3) (EQ 3 4) (EQ 4 4))
 
334
NIL
 
335
 
 
336
(AND (EQ 1 2) (EQ 3 3) (EQ 3 4) (EQ 4 4))
 
337
NIL
 
338
 
 
339
(OR (EQ 2 2) (EQ 3 3) (EQ 3 4) (EQ 4 4))
 
340
T
 
341
 
 
342
(OR (EQ 1 2) (EQ 2 3) (EQ 3 4) (EQ 4 5))
 
343
NIL
 
344
 
 
345
;Kap 7 KONTROLLSTRUCTUREN
 
346
;-------------------------------------------------------------------------------
 
347
 
 
348
; quote, FUNCTION, SYMBOL-VALUE, SYMBOL-FUNCTION, BOUNDP, FBOUNDP,
 
349
; SPECIAL-FORM-P, SETQ, PSETQ, SET, MAKUNBOUND, FMAKUNBOUND,
 
350
 
 
351
(SETQ LI1 (QUOTE (A (B) ((C) (D)))))
 
352
(A (B) ((C) (D)))
 
353
 
 
354
(SETQ VEC1 '#(0 1 2 3))
 
355
#(0 1 2 3)
 
356
 
 
357
(SETF (NTH 1 LI1) (QUOTE UU))
 
358
UU
 
359
 
 
360
(EVAL (QUOTE LI1))
 
361
(A UU ((C) (D)))
 
362
 
 
363
(SETF (ELT LI1 1) (QUOTE OO))
 
364
OO
 
365
 
 
366
(SETF (ELT VEC1 1) (QUOTE OO))
 
367
OO
 
368
 
 
369
(EVAL (QUOTE LI1))
 
370
(A OO ((C) (D)))
 
371
 
 
372
(EVAL (QUOTE VEC1))
 
373
#(0 OO 2 3)
 
374
 
 
375
(SETF (REST LI1) (QUOTE ((WW))))
 
376
((WW))
 
377
 
 
378
(EVAL (QUOTE LI1))
 
379
(A (WW))
 
380
 
 
381
(SETF (FIRST LI1) (QUOTE AA))
 
382
AA
 
383
 
 
384
(FIRST LI1)
 
385
AA
 
386
 
 
387
(SETF (SECOND LI1) (QUOTE BB))
 
388
BB
 
389
 
 
390
(EVAL (QUOTE LI1))
 
391
(AA BB)
 
392
 
 
393
(SETF (REST LI1) (QUOTE (2 3 4 5 6 7 8 9 10)))
 
394
(2 3 4 5 6 7 8 9 10)
 
395
 
 
396
(SETF (SECOND LI1) 22)
 
397
22
 
398
 
 
399
(EVAL (QUOTE LI1))
 
400
(AA 22 3 4 5 6 7 8 9 10)
 
401
 
 
402
(SETF (THIRD LI1) (QUOTE 33))
 
403
33
 
404
 
 
405
(SETF (FOURTH LI1) (QUOTE 44))
 
406
44
 
407
 
 
408
(SETF (FIFTH LI1) (QUOTE 55))
 
409
55
 
410
 
 
411
(SETF (SIXTH LI1) (QUOTE 66))
 
412
66
 
413
 
 
414
(SETF (SEVENTH LI1) (QUOTE 77))
 
415
77
 
416
 
 
417
(SETF (EIGHTH LI1) (QUOTE 88))
 
418
88
 
419
 
 
420
(SETF (NINTH LI1) (QUOTE 99))
 
421
99
 
422
 
 
423
(SETF (TENTH LI1) (QUOTE 1010))
 
424
1010
 
425
 
 
426
(EVAL (QUOTE LI1))
 
427
(AA 22 33 44 55 66 77 88 99 1010)
 
428
 
 
429
(SETF (FIRST LI1) (QUOTE (((A)))))
 
430
(((A)))
 
431
 
 
432
(SETF (CAAAR LI1) (QUOTE UU))
 
433
UU
 
434
 
 
435
(CAAAR LI1)
 
436
UU
 
437
 
 
438
(CAR LI1)
 
439
((UU))
 
440
 
 
441
(SETF (CAAR LI1) (QUOTE OO))
 
442
OO
 
443
 
 
444
(EVAL (QUOTE LI1))
 
445
((OO) 22 33 44 55 66 77 88 99 1010)
 
446
 
 
447
(SETF (CAR LI1) (QUOTE II))
 
448
II
 
449
 
 
450
(EVAL (QUOTE LI1))
 
451
(II 22 33 44 55 66 77 88 99 1010)
 
452
 
 
453
(SETF (CDDDR LI1) (QUOTE PP))
 
454
PP
 
455
 
 
456
(EVAL (QUOTE LI1))
 
457
(II 22 33 . PP)
 
458
 
 
459
(SETF (CADDR LI1) (QUOTE 333))
 
460
333
 
461
 
 
462
(EVAL (QUOTE LI1))
 
463
(II 22 333 . PP)
 
464
 
 
465
(SETF (SVREF VEC1 2) (QUOTE KK))
 
466
KK
 
467
 
 
468
(EVAL (QUOTE VEC1))
 
469
#(0 OO KK 3)
 
470
 
 
471
(SETF (GET (QUOTE A) (QUOTE B)) (QUOTE UU))
 
472
UU
 
473
 
 
474
(GET (QUOTE A) (QUOTE B))
 
475
UU
 
476
 
 
477
(SETF (GETF (CADR (SETQ XX (QUOTE (AAA (I1 V1 I2 V2))))) (QUOTE I2))
 
478
 
 
479
(QUOTE V222))
 
480
V222
 
481
 
 
482
(EVAL (QUOTE XX))
 
483
(AAA (I1 V1 I2 V222))
 
484
 
 
485
(GETF (CADR XX) (QUOTE I2))
 
486
V222
 
487
 
 
488
(GETF (CADR XX) (QUOTE I1))
 
489
V1
 
490
 
 
491
(SETF (DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP1)) "doc 1")
 
492
"doc 1"
 
493
 
 
494
(SETF (DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP2)) "doc 2")
 
495
"doc 2"
 
496
 
 
497
(DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP2))
 
498
#+XCL (TYP2 . "doc 2") #-XCL "doc 2"
 
499
 
 
500
(SETF (DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP2)) "doc 3")
 
501
"doc 3"
 
502
 
 
503
(DOCUMENTATION (QUOTE BEISPIEL) (QUOTE TYP2))
 
504
#+XCL (TYP2 . "doc 3") #-XCL "doc 3"
 
505
 
 
506
(symbol-plist 'beispiel)
 
507
#+XCL (DOCUMENTATION ((TYP2 . "doc 3") (TYP1 . "doc 1")))
 
508
#+CLISP (SYSTEM::DOCUMENTATION-STRINGS (TYP2 "doc 3" TYP1 "doc 1"))
 
509
 
 
510
(SETF (SYMBOL-VALUE (QUOTE XX)) (QUOTE VOELLIGNEU))
 
511
VOELLIGNEU
 
512
 
 
513
(EVAL (QUOTE XX))
 
514
VOELLIGNEU
 
515
 
 
516
;PSETF, SHIFTF, ROTATEF, DEFINE-MODIFY-MACRO, DEFSETF, DEFINE-SETF-METHOD,
 
517
;GET-SETF-METHOD, GET-SETF-METHOD-MULTIPLE-VALUE, APPLY, FUNCALL, PROGN,
 
518
;PROG1, PROG2,
 
519
 
 
520
(LET ((X (LIST (QUOTE A) (QUOTE B) (QUOTE C)))) (RPLACD (LAST X) X)
 
521
 
 
522
(LIST-LENGTH X))
 
523
NIL
 
524
 
 
525
;LET*, COMPILER-LET, PROGV, FLET, LABELS, MACROLET, IF, WHEN, UNLESS, COND,
 
526
;CASE, TYPECASE, BLOCK, LOOP, DO, DO*, DOLIST, DOTIMES,
 
527
 
 
528
(MAPCAR (FUNCTION (LAMBDA (X) (LIST X))) (QUOTE (A B C)))
 
529
((A) (B) (C))
 
530
 
 
531
(MAPC (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE
 
532
(1 2 3))
 
533
(QUOTE (U I V)))
 
534
(A B C)
 
535
 
 
536
(MAPL (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE
 
537
(1 2 3))
 
538
(QUOTE (U I V)))
 
539
(A B C)
 
540
 
 
541
(MAPLIST (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C))
 
542
(QUOTE (1 2 3)) (QUOTE (U I V)))
 
543
(((A B C) (1 2 3) (U I V)) ((B C) (2 3) (I V)) ((C) (3) (V)))
 
544
 
 
545
(MAPCON (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B)) (QUOTE
 
546
(1 2 3))
 
547
(QUOTE (U I V)))
 
548
((A B) (1 2 3) (U I V) (B) (2 3) (I V))
 
549
 
 
550
(MAPCAN (FUNCTION (LAMBDA (X Y Z) (LIST X Y Z))) (QUOTE (A B C)) (QUOTE
 
551
(1 2 3))
 
552
(QUOTE (U I V)))
 
553
(A 1 U B 2 I C 3 V)
 
554
 
 
555
;TAGBODY, GO, MULTIPLE-VALUE-LIST, MULTIPLE-VALUE-CALL, MULTIPLE-VALUE-PROG1,
 
556
;MULTIPLE-VALUE-BIND, MULTIPLE-VALUE-SETQ, VALUES, VALUES-LIST, CATCH,
 
557
 
 
558
;UNWIND-PROTECT, THROW,
 
559
 
 
560
;Kap 8 MACROS
 
561
;-------------------------------------------------------------------------------
 
562
 
 
563
;MACRO-FUNCTION, DEFMACRO, MACROEXPAND, MACROEXPAND-1,
 
564
 
 
565
;Kap 9 DECLARATIONEN
 
566
;-------------------------------------------------------------------------------
 
567
 
 
568
;DECLARE, LOCALLY, PROCLAIM, THE,
 
569
 
 
570
;Kap 10 SYMBOLE
 
571
;-------------------------------------------------------------------------------
 
572
 
 
573
;GET, REMPROP, SYMBOL-PLIST, GETF, REMF, GET-PROPERTIES, SYMBOL-NAME,
 
574
 
 
575
;MAKE-SYMBOL, COPY-SYMBOL, GENSYM, GENTEMP, SYMBOL-PACKAGE,
 
576
 
 
577
(KEYWORDP 36)
 
578
NIL
 
579
 
 
580
(KEYWORDP :RENAME)
 
581
T
 
582
 
 
583
;Kap 11 PAKETE
 
584
;-------------------------------------------------------------------------------
 
585
 
 
586
;FIND-PACKAGE, IN-PACKAGE, LIST-ALL-PACKAGES, MAKE-PACKAGE, PACKAGE-NAME,
 
587
;PACKAGE-NICKNAMES, PACKAGE-SHADOWING-SYMBOLS, PACKAGE-USE-LIST,
 
588
;PACKAGE-USED-BY-LIST, RENAME-PACKAGE, UNUSE-PACKAGE, USE-PACKAGE, INTERN,
 
589
;UNINTERN, FIND-SYMBOL, EXPORT, UNEXPORT, IMPORT, SHADOWING-IMPORT, SHADOW,
 
590
;FIND-ALL-SYMBOLS, DO-SYMBOLS, DO-EXTERNAL-SYMBOLS, DO-ALL-SYMBOLS,
 
591
;PROVIDE, REQUIRE,
 
592
 
 
593
;Kap 12 ZAHLEN
 
594
;-------------------------------------------------------------------------------
 
595
 
 
596
(ZEROP -456)
 
597
NIL
 
598
 
 
599
(ZEROP 0)
 
600
T
 
601
 
 
602
(PLUSP 3)
 
603
T
 
604
 
 
605
(PLUSP 3453786543987565)
 
606
T
 
607
 
 
608
(MINUSP -456)
 
609
T
 
610
 
 
611
(ODDP -1)
 
612
T
 
613
 
 
614
(ODDP 0)
 
615
NIL
 
616
 
 
617
(EVENP -456)
 
618
T
 
619
 
 
620
(EVENP -345)
 
621
NIL
 
622
 
 
623
(= 5/2 2.5)
 
624
T
 
625
 
 
626
(/= 3.0 3)
 
627
NIL
 
628
 
 
629
(/= 3.0 #C(3.0 1.0))
 
630
T
 
631
 
 
632
(< 3.0 3)
 
633
NIL
 
634
 
 
635
(< 3 3.0 3 #C(3.0 0.0))
 
636
ERROR
 
637
 
 
638
(< -5 -4 -2 0 4 5)
 
639
T
 
640
 
 
641
(> 8 7 6 5 4)
 
642
T
 
643
 
 
644
(> 3 3.0 3 #C(3.0 0.0))
 
645
ERROR
 
646
 
 
647
(<= 3.0 3)
 
648
T
 
649
 
 
650
(<= 3 3)
 
651
T
 
652
 
 
653
(<= 1 3 3 2 5)
 
654
NIL
 
655
 
 
656
(<= 5/2 2.5)
 
657
T
 
658
 
 
659
(>= -5 -4 -2 0 4 5)
 
660
NIL
 
661
 
 
662
(MAX 1 3 2 -7)
 
663
3
 
664
 
 
665
;MIN,
 
666
 
 
667
(+ 1 1/2 0.5 #C(3.0 5.5))
 
668
#C(5.0 5.5)
 
669
 
 
670
(- 3 0 3 5 -6)
 
671
1
 
672
 
 
673
(- #C(0 6) 1/4 0.5 7)
 
674
#C(-7.75 6.0)
 
675
 
 
676
(* 7 6 5 4 3 2 1)
 
677
5040
 
678
 
 
679
(* 2 2 2.0 2)
 
680
16.0
 
681
 
 
682
(/ -8)
 
683
-1/8
 
684
 
 
685
(/ 4 2)
 
686
2
 
687
 
 
688
(1+ 0)
 
689
1
 
690
 
 
691
(1+ #C(0 1))
 
692
#C(1 1)
 
693
 
 
694
(1- 5.0)
 
695
4.0
 
696
 
 
697
;INCF, DECF,
 
698
 
 
699
(CONJUGATE #C(3/5 4/5))
 
700
#C(3/5 -4/5)
 
701
 
 
702
(GCD 91 -49)
 
703
7
 
704
 
 
705
(LCM 14 35)
 
706
70
 
707
 
 
708
(PRIN1-TO-STRING (EXP 1) )
 
709
"2.7182817" ; "2.718282"
 
710
 
 
711
(EXPT #C(0 1) 2)
 
712
-1
 
713
 
 
714
(PRIN1-TO-STRING (EXPT 2 #C(0 1)) )
 
715
"#C(0.7692389 0.63896126)" ; "#C(0.7692389 0.6389612)"
 
716
 
 
717
(PRIN1-TO-STRING (LOG -3 10) )
 
718
"#C(0.47712126 1.3643764)" ; "#C(0.4771213 1.364376)"
 
719
 
 
720
(LOG 3 0)
 
721
#+XCL 0 #-XCL ERROR
 
722
 
 
723
(SQRT 9)
 
724
3.0
 
725
 
 
726
(SQRT -9.0)
 
727
#C(0.0 3.0)
 
728
 
 
729
(ISQRT 9)
 
730
3
 
731
 
 
732
(ISQRT 26)
 
733
5
 
734
 
 
735
(ABS 6)
 
736
6
 
737
 
 
738
(ABS -6)
 
739
6
 
740
 
 
741
;PHASE,
 
742
 
 
743
(SIGNUM 0)
 
744
0
 
745
 
 
746
(SIGNUM -4)
 
747
-1
 
748
 
 
749
(SIGNUM 4)
 
750
1
 
751
 
 
752
(PRIN1-TO-STRING (SIN (* 8 (/ PI 2))) )
 
753
#+XCL "-4.576950980887866D-17"
 
754
#+CLISP "2.0066230454737344098L-19"
 
755
 
 
756
(PRIN1-TO-STRING (SIN (EXPT 10 3)) )
 
757
"0.82687956" ; "0.8268796"
 
758
 
 
759
(COS 0)
 
760
1.0
 
761
 
 
762
(PRIN1-TO-STRING (COS (/ PI 2)) )
 
763
#+XCL "5.721188726109832D-18"
 
764
#+CLISP "-2.5082788076048218878L-20"
 
765
 
 
766
(PRIN1-TO-STRING (TAN 1) )
 
767
"1.5574077" ; "1.557408"
 
768
 
 
769
(PRIN1-TO-STRING (TAN (/ PI 2)) )
 
770
#+XCL "1.747888503373944D17"
 
771
#+CLISP "-3.986797629004264116L19"
 
772
 
 
773
(prin1-to-string (CIS -1) )
 
774
"#C(0.5403023 -0.84147096)" ; "#C(0.5403023 -0.8414709)"
 
775
 
 
776
(CIS 2.5)
 
777
#C(-0.8011436 0.5984721)
 
778
 
 
779
(prin1-to-string (ASIN -1) )
 
780
"-1.5707964" ; "-1.570796"
 
781
 
 
782
(ASIN 0)
 
783
0.0
 
784
 
 
785
(ASIN 2)
 
786
#C(1.5707964 -1.316958)
 
787
 
 
788
(prin1-to-string (ACOS 0) )
 
789
"1.5707964" ; "1.570796"
 
790
 
 
791
(prin1-to-string (ACOS -1) )
 
792
"3.1415927" ; "3.141593"
 
793
 
 
794
(prin1-to-string (ACOS 2) )
 
795
#+XCL "#C(0.0 1.316958)" #+CLISP "#C(0 1.316958)"
 
796
 
 
797
(ACOS 1.00001)
 
798
#+ganz-korrekt #C(0.0 0.0044721322)
 
799
#+XCL #C(0.0 0.004475157)
 
800
#+CLISP-korrekt #C(0.0 0.0044751678) ; da schon 1.00001 gerundet wurde
 
801
#+CLISP         #C(0.0 0.0044751023) ; i * ln(x+sqrt(x^2-1))
 
802
#+CLISP-anders  #C(0.0 0.0044752206) ; i * ln(x+sqrt((x-1)*(x+1)))
 
803
 
 
804
(ATAN 1)
 
805
#+XCL 0.7853982 #+CLISP 0.7853981
 
806
 
 
807
(prin1-to-string PI )
 
808
#+XCL "3.141592653589793D0"
 
809
#+CLISP "3.1415926535897932385L0"
 
810
 
 
811
(SINH 0)
 
812
0.0
 
813
 
 
814
(prin1-to-string (SINH #C(5.0 -9.6)) )
 
815
"#C(-73.06699 12.93681)"
 
816
 
 
817
(COSH 0)
 
818
1.0
 
819
 
 
820
(prin1-to-string (COSH 1) )
 
821
"1.5430806" ; "1.543081"
 
822
 
 
823
(TANH 50)
 
824
1.0
 
825
 
 
826
(prin1-to-string (TANH 0.00753) )
 
827
"0.0075298576" ; "0.007529857"
 
828
 
 
829
(prin1-to-string (ASINH 0.5) )
 
830
"0.48121184" ; "0.4812118"
 
831
 
 
832
(prin1-to-string (ASINH 3/7) )
 
833
#-CLISP "0.4164308"
 
834
#+CLISP "0.4164307" ; Rundungsfehler
 
835
 
 
836
(ACOSH 0)
 
837
#C(0 1.5707964)
 
838
 
 
839
(ACOSH 1)
 
840
0
 
841
 
 
842
(ACOSH -1)
 
843
#C(0 3.1415927)
 
844
 
 
845
(prin1-to-string (ATANH 0.5) )
 
846
"0.54930615" ; "0.5493061"
 
847
 
 
848
(prin1-to-string (ATANH 3/7) )
 
849
#-CLISP "0.4581454"
 
850
#+CLISP "0.4581453" ; Rundungsfehler
 
851
 
 
852
(= (SIN (* #C(0 1) 5)) (* #C(0 1) (SINH 5)))
 
853
T
 
854
 
 
855
(= (COS (* #C(0 1) 5)) (COSH 5))
 
856
T
 
857
 
 
858
(= (TAN (* #C(0 1) 5)) (* #C(0 1) (TANH 5)))
 
859
t
 
860
 
 
861
(= (SINH (* #C(0 1) 5)) (* #C(0 1) (SIN 5)))
 
862
T
 
863
 
 
864
(= (COSH (* #C(0 1) 5)) (COS 5))
 
865
T
 
866
 
 
867
(FLOAT 1)
 
868
1.0
 
869
 
 
870
(FLOAT 0.5)
 
871
0.5
 
872
 
 
873
(RATIONAL 2)
 
874
2
 
875
 
 
876
(RATIONAL 2.0)
 
877
2
 
878
 
 
879
(RATIONAL 2.5)
 
880
5/2
 
881
 
 
882
(RATIONALIZE 2.5)
 
883
5/2
 
884
 
 
885
(RATIONALIZE 7/3)
 
886
7/3
 
887
 
 
888
(RATIONALIZE PI)
 
889
#+XCL 28296953155597409/9007199254740992
 
890
#+CLISP 8717442233/2774848045
 
891
 
 
892
(NUMERATOR 5/2)
 
893
5
 
894
 
 
895
(NUMERATOR (/ 8 -6))
 
896
-4
 
897
 
 
898
(DENOMINATOR 5/2)
 
899
2
 
900
 
 
901
(DENOMINATOR (/ 8 -6))
 
902
3
 
903
 
 
904
(GCD (NUMERATOR 7/9) (DENOMINATOR 7/9))
 
905
1
 
906
 
 
907
(FLOOR 2.6)
 
908
2
 
909
 
 
910
(FLOOR 2.5)
 
911
2
 
912
 
 
913
(CEILING 2.6)
 
914
3
 
915
 
 
916
(CEILING 2.5)
 
917
3
 
918
 
 
919
(CEILING 2.4)
 
920
3
 
921
 
 
922
(TRUNCATE 2.6)
 
923
2
 
924
 
 
925
(TRUNCATE 2.5)
 
926
2
 
927
 
 
928
(TRUNCATE 2.4)
 
929
2
 
930
 
 
931
(ROUND 2.6)
 
932
3
 
933
 
 
934
(ROUND 2.5)
 
935
2
 
936
 
 
937
(ROUND 2.4)
 
938
2
 
939
 
 
940
(MOD 13 4)
 
941
1
 
942
 
 
943
(MOD -13 4)
 
944
3
 
945
 
 
946
(prin1-to-string (REM 13.4 1) )
 
947
#-CLISP "0.4" ; #+XCL "0.3999996"
 
948
#+CLISP "0.39999962" ; Rundungsfehler
 
949
 
 
950
(FFLOOR 2.6)
 
951
2
 
952
 
 
953
(FFLOOR 2.5)
 
954
2
 
955
 
 
956
(FFLOOR 2.4)
 
957
2
 
958
 
 
959
(FCEILING -0.3)
 
960
0
 
961
 
 
962
(FCEILING -0.7)
 
963
0
 
964
 
 
965
(FCEILING -2.4)
 
966
-2
 
967
 
 
968
(FTRUNCATE 2.5)
 
969
2.0
 
970
 
 
971
(FTRUNCATE 2.4)
 
972
2.0
 
973
 
 
974
(FROUND -0.7)
 
975
-1.0
 
976
 
 
977
(FROUND -2.4)
 
978
-2.0
 
979
 
 
980
(DECODE-FLOAT 35.0)
 
981
0.546875
 
982
 
 
983
(DECODE-FLOAT 3.5S0)
 
984
0.875S0
 
985
 
 
986
(SCALE-FLOAT 2.5 5)
 
987
80.0
 
988
 
 
989
(SCALE-FLOAT 0.7541 2)
 
990
3.0164
 
991
 
 
992
(FLOAT-RADIX 2.5)
 
993
2
 
994
 
 
995
(FLOAT-RADIX 3.5D0)
 
996
2
 
997
 
 
998
;FLOAT-DIGITS, FLOAT-PRECISION, FLOAT-SIGN, INTEGER-DECODE-FLOAT,
 
999
 
 
1000
(COMPLEX 1/4 7.3)
 
1001
#C(0.25 7.3)
 
1002
 
 
1003
(COMPLEX 1 0)
 
1004
1
 
1005
 
 
1006
(REALPART 5)
 
1007
5
 
1008
 
 
1009
(REALPART #C(1.4 0.0))
 
1010
1.4
 
1011
 
 
1012
(IMAGPART 5)
 
1013
0
 
1014
 
 
1015
(IMAGPART #C(1.4 0.0))
 
1016
0.0
 
1017
 
 
1018
;LOGAND, LOGANDC1, LOGANDC2, LOGEQV, LOGIOR, LOGNAND, LOGNOR, LOGNOT,
 
1019
;LOGORC1, LOGORC2, LOGTEST, LOGXOR, LOGBITP, ASH,
 
1020
 
 
1021
(LOGCOUNT 13)
 
1022
3
 
1023
 
 
1024
(LOGCOUNT -13)
 
1025
2
 
1026
 
 
1027
(INTEGER-LENGTH 0)
 
1028
0
 
1029
 
 
1030
(INTEGER-LENGTH 1)
 
1031
1
 
1032
 
 
1033
;BYTE, BYTE-POSITION, BYTE-SIZE, LDB, LDB-TEST, MASK-FIELD, DPB, DEPOSIT-FIELD,
 
1034
 
 
1035
;RANDOM,
 
1036
 
 
1037
#+XCL (RANDOM-STATE-P
 
1038
(EVAL (READ-FROM-STRING "(sys::%set-type-pointer sys::%type-random-state 1)")))
 
1039
#+XCL T
 
1040
 
 
1041
;MAKE-RANDOM-STATE,
 
1042
 
 
1043
BOOLE-CLR
 
1044
0
 
1045
 
 
1046
BOOLE-SET
 
1047
#+XCL 1 #+CLISP 15
 
1048
 
 
1049
BOOLE-1
 
1050
#+XCL 2 #+CLISP 10
 
1051
 
 
1052
BOOLE-2
 
1053
#+XCL 3 #+CLISP 12
 
1054
 
 
1055
BOOLE-C1
 
1056
#+XCL 4 #+CLISP 5
 
1057
 
 
1058
BOOLE-C2
 
1059
#+XCL 5 #+CLISP 3
 
1060
 
 
1061
BOOLE-AND
 
1062
#+XCL 6 #+CLISP 8
 
1063
 
 
1064
BOOLE-IOR
 
1065
#+XCL 7 #+CLISP 14
 
1066
 
 
1067
BOOLE-XOR
 
1068
#+XCL 8 #+CLISP 6
 
1069
 
 
1070
BOOLE-EQV
 
1071
#+XCL 9 #+CLISP 9
 
1072
 
 
1073
BOOLE-NAND
 
1074
#+XCL 10 #+CLISP 7
 
1075
 
 
1076
BOOLE-NOR
 
1077
#+XCL 11 #+CLISP 1
 
1078
 
 
1079
BOOLE-ANDC1
 
1080
#+XCL 12 #+CLISP 4
 
1081
 
 
1082
BOOLE-ANDC2
 
1083
#+XCL 13 #+CLISP 2
 
1084
 
 
1085
BOOLE-ORC1
 
1086
#+XCL 14 #+CLISP 13
 
1087
 
 
1088
BOOLE-ORC2
 
1089
#+XCL 15 #+CLISP 11
 
1090
 
 
1091
MOST-POSITIVE-FIXNUM
 
1092
16777215
 
1093
 
 
1094
MOST-NEGATIVE-FIXNUM
 
1095
-16777216
 
1096
 
 
1097
(prin1-to-string MOST-POSITIVE-SHORT-FLOAT )
 
1098
#+XCL "1.701S38"
 
1099
#+CLISP "1.7014s38"
 
1100
 
 
1101
(prin1-to-string LEAST-POSITIVE-SHORT-FLOAT )
 
1102
#+XCL "2.939S-39"
 
1103
#+CLISP "2.93874s-39"
 
1104
 
 
1105
(prin1-to-string LEAST-NEGATIVE-SHORT-FLOAT )
 
1106
#+XCL "-2.939S-39"
 
1107
#+CLISP "-2.93874s-39"
 
1108
 
 
1109
(prin1-to-string MOST-NEGATIVE-SHORT-FLOAT )
 
1110
#+XCL "-1.701S38"
 
1111
#+CLISP "-1.7014s38"
 
1112
 
 
1113
(prin1-to-string MOST-POSITIVE-SINGLE-FLOAT )
 
1114
#+XCL "1.701411E38"
 
1115
#+CLISP "1.7014117E38"
 
1116
 
 
1117
LEAST-POSITIVE-SINGLE-FLOAT
 
1118
2.938736E-39
 
1119
 
 
1120
LEAST-NEGATIVE-SINGLE-FLOAT
 
1121
-2.938736E-39
 
1122
 
 
1123
(prin1-to-string MOST-NEGATIVE-SINGLE-FLOAT )
 
1124
#+XCL "-1.701411E38"
 
1125
#+CLISP "-1.7014117E38"
 
1126
 
 
1127
(prin1-to-string MOST-POSITIVE-DOUBLE-FLOAT )
 
1128
#+XCL "1.701411834604692D38"
 
1129
#+CLISP "8.988465674311579d307"
 
1130
 
 
1131
(prin1-to-string LEAST-POSITIVE-DOUBLE-FLOAT )
 
1132
#+XCL "2.938735877055719D-39"
 
1133
#+CLISP "5.562684646268004d-309"
 
1134
 
 
1135
(prin1-to-string LEAST-NEGATIVE-DOUBLE-FLOAT )
 
1136
#+XCL "-2.938735877055719D-39"
 
1137
#+CLISP "-5.562684646268004d-309"
 
1138
 
 
1139
(prin1-to-string MOST-NEGATIVE-DOUBLE-FLOAT )
 
1140
#+XCL "-1.701411834604692D38"
 
1141
#+CLISP "-8.988465674311579d307"
 
1142
 
 
1143
(prin1-to-string MOST-POSITIVE-LONG-FLOAT )
 
1144
#+XCL "1.701411834604692D38"
 
1145
#+CLISP "8.8080652584198167656L646456992"
 
1146
 
 
1147
(prin1-to-string LEAST-POSITIVE-LONG-FLOAT )
 
1148
#+XCL "2.938735877055719D-39"
 
1149
#+CLISP "5.676615526003731344L-646456994"
 
1150
 
 
1151
(prin1-to-string LEAST-NEGATIVE-LONG-FLOAT )
 
1152
#+XCL "-2.938735877055719D-39"
 
1153
#+CLISP "-5.676615526003731344L-646456994"
 
1154
 
 
1155
(prin1-to-string MOST-NEGATIVE-LONG-FLOAT )
 
1156
#+XCL "-1.701411834604692D38"
 
1157
#+CLISP "-8.8080652584198167656L646456992"
 
1158
 
 
1159
(prin1-to-string SHORT-FLOAT-EPSILON )
 
1160
#+XCL "1.526S-5"
 
1161
#+CLISP "7.6295s-6"
 
1162
 
 
1163
(prin1-to-string SINGLE-FLOAT-EPSILON )
 
1164
#+XCL "5.960464E-8"
 
1165
#+CLISP "5.960465E-8"
 
1166
 
 
1167
(prin1-to-string DOUBLE-FLOAT-EPSILON )
 
1168
#+XCL "1.387778780781446D-17"
 
1169
#+CLISP "1.1102230246251568d-16"
 
1170
 
 
1171
(prin1-to-string LONG-FLOAT-EPSILON )
 
1172
#+XCL "1.387778780781446D-17"
 
1173
#+CLISP "5.4210108624275221706L-20"
 
1174
 
 
1175
(prin1-to-string SHORT-FLOAT-NEGATIVE-EPSILON )
 
1176
#+XCL "1.526S-5"
 
1177
#+CLISP "3.81476s-6"
 
1178
 
 
1179
(prin1-to-string SINGLE-FLOAT-NEGATIVE-EPSILON )
 
1180
#+XCL "5.960464E-8"
 
1181
#+CLISP "2.9802326E-8"
 
1182
 
 
1183
(prin1-to-string DOUBLE-FLOAT-NEGATIVE-EPSILON )
 
1184
#+XCL "1.387778780781446D-17"
 
1185
#+CLISP "5.551115123125784d-17"
 
1186
 
 
1187
(prin1-to-string LONG-FLOAT-NEGATIVE-EPSILON )
 
1188
#+XCL "1.387778780781446D-17"
 
1189
#+CLISP "2.7105054312137610853L-20"
 
1190
 
 
1191
;Kap 13 ZEICHEN
 
1192
;-------------------------------------------------------------------------------
 
1193
 
 
1194
(STANDARD-CHAR-P #\a)
 
1195
T
 
1196
 
 
1197
(STANDARD-CHAR-P 1)
 
1198
ERROR
 
1199
 
 
1200
(GRAPHIC-CHAR-P #\a)
 
1201
T
 
1202
 
 
1203
(GRAPHIC-CHAR-P 1)
 
1204
ERROR
 
1205
 
 
1206
(STRING-CHAR-P #\a)
 
1207
T
 
1208
 
 
1209
(STRING-CHAR-P #\1)
 
1210
T
 
1211
 
 
1212
(STRING-CHAR-P "")
 
1213
ERROR
 
1214
 
 
1215
(ALPHA-CHAR-P #\a)
 
1216
T
 
1217
 
 
1218
(ALPHA-CHAR-P #\$)
 
1219
NIL
 
1220
 
 
1221
(UPPER-CASE-P #\a)
 
1222
NIL
 
1223
 
 
1224
(LOWER-CASE-P #\A)
 
1225
NIL
 
1226
 
 
1227
(BOTH-CASE-P #\a)
 
1228
T
 
1229
 
 
1230
(BOTH-CASE-P #\$)
 
1231
NIL
 
1232
 
 
1233
(DIGIT-CHAR-P #\a)
 
1234
NIL
 
1235
 
 
1236
(DIGIT-CHAR-P #\5)
 
1237
5
 
1238
 
 
1239
(ALPHANUMERICP #\a)
 
1240
T
 
1241
 
 
1242
(ALPHANUMERICP #\$)
 
1243
NIL
 
1244
 
 
1245
(CHAR= #\d #\d)
 
1246
T
 
1247
 
 
1248
(CHAR/= #\d #\d)
 
1249
NIL
 
1250
 
 
1251
(CHAR< #\z #\0)
 
1252
NIL
 
1253
 
 
1254
;CHAR>, CHAR>=, CHAR<=,
 
1255
 
 
1256
(CHAR-EQUAL #\d #\d)
 
1257
T
 
1258
 
 
1259
(CHAR-NOT-EQUAL #\d #\d)
 
1260
NIL
 
1261
 
 
1262
(CHAR-LESSP #\d #\x)
 
1263
T
 
1264
 
 
1265
(CHAR-LESSP #\d #\d)
 
1266
NIL
 
1267
 
 
1268
(CHAR-NOT-GREATERP #\d #\d)
 
1269
T
 
1270
 
 
1271
(CHAR-GREATERP #\e #\d)
 
1272
T
 
1273
 
 
1274
(CHAR-NOT-LESSP #\e #\d)
 
1275
T
 
1276
 
 
1277
;CHAR-CODE, CHAR-BITS, CHAR-FONT, CODE-CHAR, MAKE-CHAR, CHARACTER,
 
1278
 
 
1279
(CHAR-UPCASE #\a)
 
1280
#\A
 
1281
 
 
1282
(CHAR-UPCASE #\=)
 
1283
#\=
 
1284
 
 
1285
(CHAR= (CHAR-DOWNCASE (CHAR-UPCASE #\x)) #\x)
 
1286
T
 
1287
 
 
1288
(CHAR-DOWNCASE #\A)
 
1289
#\a
 
1290
 
 
1291
(CHAR= (CHAR-UPCASE (CHAR-DOWNCASE #\X)) #\X)
 
1292
T
 
1293
 
 
1294
(DIGIT-CHAR 7)
 
1295
#\7
 
1296
 
 
1297
(DIGIT-CHAR 12)
 
1298
NIL
 
1299
 
 
1300
;CHAR-INT, INT-CHAR, CHAR-NAME, NAME-CHAR,
 
1301
 
 
1302
CHAR-CONTROL-BIT
 
1303
1
 
1304
 
 
1305
CHAR-META-BIT
 
1306
2
 
1307
 
 
1308
CHAR-SUPER-BIT
 
1309
4
 
1310
 
 
1311
CHAR-HYPER-BIT
 
1312
8
 
1313
 
 
1314
(CHAR-BIT #\C-X :CONTROL)
 
1315
T
 
1316
 
 
1317
(CHAR-BIT #\C-X :META)
 
1318
NIL
 
1319
 
 
1320
(CHAR-BIT #\M-C-RETURN :CONTROL)
 
1321
T
 
1322
 
 
1323
(CHAR-BIT #\M-C-RETURN :META)
 
1324
T
 
1325
 
 
1326
(SET-CHAR-BIT #\X :CONTROL T)
 
1327
#\C-X
 
1328
 
 
1329
CHAR-CODE-LIMIT
 
1330
#+XCL 128 #+CLISP 256
 
1331
 
 
1332
CHAR-FONT-LIMIT
 
1333
#+XCL 1 #+CLISP 16
 
1334
 
 
1335
CHAR-BITS-LIMIT
 
1336
#+XCL 1 #+CLISP 16
 
1337
 
 
1338
;Kap 14 SEQUENZEN
 
1339
;-------------------------------------------------------------------------------
 
1340
 
 
1341
(ELT (SYMBOL-NAME (QUOTE ABC)) 0)
 
1342
#\A
 
1343
 
 
1344
(SUBSEQ (QUOTE (A B C D E)) 2)
 
1345
(C D E)
 
1346
 
 
1347
(COPY-SEQ '#(A B C))
 
1348
#(A B C)
 
1349
 
 
1350
(COPY-SEQ (QUOTE ((A B) C (D E))))
 
1351
((A B) C (D E))
 
1352
 
 
1353
(LENGTH (QUOTE #(A B C D E F)))
 
1354
6
 
1355
 
 
1356
(LENGTH (QUOTE (A B C D E F)))
 
1357
6
 
1358
 
 
1359
(NREVERSE (QUOTE (A (B (C) D))))
 
1360
((B (C) D) A)
 
1361
 
 
1362
(REVERSE (QUOTE (1 2 3 4)))
 
1363
(4 3 2 1)
 
1364
 
 
1365
(MAKE-SEQUENCE (QUOTE VECTOR) 4 :INITIAL-ELEMENT (QUOTE O))
 
1366
#(O O O O)
 
1367
 
 
1368
(MAKE-SEQUENCE (QUOTE LIST) 4 :INITIAL-ELEMENT (QUOTE O))
 
1369
(O O O O)
 
1370
 
 
1371
(CONCATENATE (QUOTE LIST) (QUOTE (A B C)) (QUOTE (1 2)))
 
1372
(A B C 1 2)
 
1373
 
 
1374
(MAP (QUOTE LIST) (QUOTE LIST) (QUOTE (#\a #\b #\c)) (QUOTE (#\1 #\2
 
1375
#\3)))
 
1376
((#\a #\1) (#\b #\2) (#\c #\3))
 
1377
 
 
1378
(MAP (QUOTE LIST) (QUOTE LIST) (QUOTE (A B C)) (QUOTE (1 2 3)))
 
1379
((A 1) (B 2) (C 3))
 
1380
 
 
1381
(SOME (QUOTE NULL) (QUOTE (A B NIL T E)))
 
1382
T
 
1383
 
 
1384
(EVERY (QUOTE ATOM) (QUOTE (A 8 #(A B))))
 
1385
T
 
1386
 
 
1387
(NOTANY (QUOTE EQ) (QUOTE (A B C D E 4)) (QUOTE (I J K L M 4)))
 
1388
nil ;? T
 
1389
 
 
1390
(NOTEVERY (QUOTE EQ) '#(U) (QUOTE (A X U)))
 
1391
T
 
1392
 
 
1393
(REDUCE (QUOTE LIST) (QUOTE (A)) :FROM-END NIL :INITIAL-VALUE NIL)
 
1394
 
 
1395
(NIL A)
 
1396
 
 
1397
(REDUCE (QUOTE LIST) (QUOTE (A B C D)) :FROM-END NIL :INITIAL-VALUE
 
1398
(QUOTE III))
 
1399
((((III A) B) C) D)
 
1400
 
 
1401
(REDUCE (QUOTE LIST) (QUOTE (A B C D)) :FROM-END T)
 
1402
(A (B (C D)))
 
1403
 
 
1404
(FILL '#(A B C D) (QUOTE I) :START 1 :END 3)
 
1405
#(A I I D)
 
1406
 
 
1407
(REPLACE '#(A B C D) '#(I J) :START1 1)
 
1408
#(A I J D)
 
1409
 
 
1410
(REMOVE (QUOTE NUMBERP) '#(Y A 4 A C 9 A D 2 3) :COUNT 1 :FROM-END T)
 
1411
#(Y A 4 A C 9 A D 2 3)
 
1412
 
 
1413
(REMOVE (QUOTE A) (QUOTE (A 1 B A 2 A)) :START 1)
 
1414
(A 1 B 2)
 
1415
 
 
1416
(REMOVE-DUPLICATES (QUOTE (A B C A D A)) :START 1)
 
1417
(A B C D A)
 
1418
 
 
1419
(REMOVE-IF (QUOTE NUMBERP) '#(Y A 4 A C 9 A D 2 3))
 
1420
#(Y A A C A D)
 
1421
 
 
1422
(REMOVE-IF-NOT (QUOTE NUMBERP) '#(Y A 4 A C 9 A D 2 3))
 
1423
#(4 9 2 3)
 
1424
 
 
1425
(REMOVE-IF-NOT (QUOTE NUMBERP) '#(Y A 4 A C 9 A D 2 3) :COUNT 2 :FROM-END NIL)
 
1426
#(4 A C 9 A D 2 3)
 
1427
 
 
1428
(DELETE (QUOTE (A)) (QUOTE ((A B) (C D) (A))) :TEST (QUOTE EQUAL))
 
1429
 
 
1430
((A B) (C D))
 
1431
 
 
1432
(DELETE-IF (FUNCTION (LAMBDA (X) (EQ (CAR X) (QUOTE A))))
 
1433
(QUOTE ((A B) (C D) (A))))
 
1434
((C D))
 
1435
 
 
1436
(DELETE-IF-NOT (QUOTE NUMBERP) (QUOTE (A 3 B 4)))
 
1437
(3 4)
 
1438
 
 
1439
;DELETE-DUPLICATES,
 
1440
 
 
1441
(NSUBSTITUTE (QUOTE NEW) (QUOTE (1 OLD)) (QUOTE ((0 OLD) (1 OLD) (2 OLD)))
 
1442
:TEST-NOT (QUOTE EQUAL) :FROM-END T)
 
1443
(NEW (1 OLD) NEW)
 
1444
 
 
1445
(NSUBSTITUTE (QUOTE NEW) (QUOTE OLD) (QUOTE (0 OLD 1 OLD 2 OLD)) :END 2)
 
1446
(0 NEW 1 OLD 2 OLD)
 
1447
 
 
1448
(NSUBSTITUTE-IF (QUOTE NEW) (QUOTE NUMBERP) (QUOTE (0 A 1 B 2 C 3 D))
 
1449
:COUNT 2
 
1450
:END 5)
 
1451
(NEW A NEW B 2 C 3 D)
 
1452
 
 
1453
(NSUBSTITUTE-IF-NOT (QUOTE NEW) (QUOTE NUMBERP) (QUOTE (0 A 1 B 2 C
 
1454
3 D)) :COUNT
 
1455
2 :FROM-END T)
 
1456
(0 A 1 B 2 NEW 3 NEW)
 
1457
 
 
1458
(SUBSTITUTE (QUOTE NEW) (QUOTE (2 OLD))
 
1459
(QUOTE ((1 OLD) (2 OLD) (3 OLD) (4 OLD))) :TEST (QUOTE EQUAL) :START
 
1460
3)
 
1461
((1 OLD) (2 OLD) (3 OLD) (4 OLD))
 
1462
 
 
1463
(SUBSTITUTE-IF (QUOTE NEW) (QUOTE NUMBERP) (QUOTE (A 1 B 2 D 3)))
 
1464
(A NEW B NEW D NEW)
 
1465
 
 
1466
(SUBSTITUTE-IF-NOT (QUOTE NEW) (QUOTE NUMBERP) (QUOTE (A 1 B 2 D 3))
 
1467
:COUNT 2
 
1468
:FROM-END T)
 
1469
(A 1 NEW 2 NEW 3)
 
1470
 
 
1471
(FIND (QUOTE 0) (QUOTE ((0 A) (1 A) (2 A) (0 B))) :TEST (QUOTE =) :FROM-END
 
1472
T
 
1473
:KEY (QUOTE CAR) :START 1)
 
1474
(0 B)
 
1475
 
 
1476
(FIND-IF (QUOTE NUMBERP) (QUOTE ((A 0) (B 1) (C 2))) :KEY (QUOTE CADR)
 
1477
:START 3)
 
1478
NIL
 
1479
 
 
1480
;FIND-IF-NOT,
 
1481
 
 
1482
(POSITION (QUOTE A) (QUOTE ((0 A) (1 B) (2 A) (3 B))) :TEST
 
1483
(QUOTE (LAMBDA (X Y) (EQ X (CADR Y)))) :START 1)
 
1484
2
 
1485
 
 
1486
(POSITION (QUOTE A) (QUOTE ((0 A) (1 B) (2 A) (3 B))) :KEY (QUOTE CADR))
 
1487
 
 
1488
0
 
1489
 
 
1490
(POSITION-IF (QUOTE NUMBERP) (QUOTE ((0 X) (1 7.0) (2 8))) :FROM-END
 
1491
T :START 1
 
1492
:KEY (QUOTE CADR))
 
1493
2
 
1494
 
 
1495
;POSITION-IF-NOT,
 
1496
 
 
1497
(COUNT (QUOTE (A)) (QUOTE (A (A) A (A) A B)) :TEST-NOT (QUOTE EQUAL)
 
1498
:KEY
 
1499
(QUOTE (LAMBDA (X) (IF (ATOM X) (LIST X)))))
 
1500
3
 
1501
 
 
1502
(COUNT-IF-NOT (QUOTE NUMBERP) '#(A 3 B 5 7 C D) :START 2 :END 5)
 
1503
1
 
1504
 
 
1505
;COUNT-IF-NOT,
 
1506
 
 
1507
(MISMATCH (QUOTE (A B C 3 4 5)) (QUOTE (A B X 3 4 B)) :START1 1 :START2 5 :END1
 
1508
2 :TEST-NOT (QUOTE EQ))
 
1509
1
 
1510
 
 
1511
(MISMATCH (QUOTE (A B C 3 4 5)) (QUOTE (U B X 3 4 5)) :FROM-END T)
 
1512
#+XCL 2 #-XCL 3
 
1513
 
 
1514
(SEARCH "ABCD" "0ABIABJBCBC" :END1 3 :START1 1 :START2 0 :FROM-END
 
1515
T)
 
1516
9
 
1517
 
 
1518
(SEARCH (QUOTE (#\A #\B #\C #\D)) "0ABIABJBCBC" :END1 2 :START2 0 :FROM-END
 
1519
T)
 
1520
4
 
1521
 
 
1522
(SEARCH (QUOTE (A B C D)) (QUOTE (0 A B I A B J B C B C)) :END1 2 :START2
 
1523
2)
 
1524
4
 
1525
 
 
1526
(SORT (QUOTE ((U 3) (I 1) (A 7) (K 3) (C 4) (B 6))) (QUOTE <) :KEY
 
1527
(QUOTE CADR))
 
1528
((I 1) (U 3) (K 3) (C 4) (B 6) (A 7))
 
1529
 
 
1530
(STABLE-SORT (QUOTE ((B 4) (A 3) (A 2) (B 1) (C 9) (B 2))) (QUOTE STRING<)
 
1531
:KEY
 
1532
(QUOTE CAR))
 
1533
((A 3) (A 2) (B 4) (B 1) (B 2) (C 9))
 
1534
 
 
1535
(MERGE (QUOTE LIST) (QUOTE (5 1 4 4 7)) (QUOTE (2 3 5 6 8 9)) (QUOTE
 
1536
<))
 
1537
(2 3 5 1 4 4 5 6 7 8 9) ;? error
 
1538
 
 
1539
(MERGE (QUOTE LIST) (QUOTE (1 4 4 7)) (QUOTE (2 3 5 6 8 9)) (QUOTE
 
1540
<))
 
1541
(1 2 3 4 4 5 6 7 8 9) ;? error
 
1542
 
 
1543
;Kap 15 LISTEN
 
1544
;-------------------------------------------------------------------------------
 
1545
 
 
1546
(CAR (QUOTE (A B C D E F G)))
 
1547
A
 
1548
 
 
1549
(CDR (QUOTE (A B C D E F G)))
 
1550
(B C D E F G)
 
1551
 
 
1552
(CADR (QUOTE (A B C D E F G)))
 
1553
B
 
1554
 
 
1555
(CDDR (QUOTE (A B C D E F G)))
 
1556
(C D E F G)
 
1557
 
 
1558
(CADDR (QUOTE (A B C D E F G)))
 
1559
C
 
1560
 
 
1561
(CDDDR (QUOTE (A B C D E F G)))
 
1562
(D E F G)
 
1563
 
 
1564
(CADDDR (QUOTE (A B C D E F G)))
 
1565
D
 
1566
 
 
1567
(CDDDDR (QUOTE (A B C D E F G)))
 
1568
(E F G)
 
1569
 
 
1570
(CAADR
 
1571
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1572
E F G)))
 
1573
((U V W) X)
 
1574
 
 
1575
(CADAR
 
1576
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1577
E F G)))
 
1578
(6 7)
 
1579
 
 
1580
(CDAAR
 
1581
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1582
E F G)))
 
1583
(5)
 
1584
 
 
1585
(CDADR
 
1586
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1587
E F G)))
 
1588
(Y)
 
1589
 
 
1590
(CDDAR
 
1591
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1592
E F G)))
 
1593
NIL
 
1594
 
 
1595
(CAAAAR
 
1596
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1597
E F G)))
 
1598
(1 2 3)
 
1599
 
 
1600
(CAADAR
 
1601
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1602
E F G)))
 
1603
6
 
1604
 
 
1605
(CAADDR
 
1606
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1607
E F G)))
 
1608
(Q W E)
 
1609
 
 
1610
(CADAAR
 
1611
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1612
E F G)))
 
1613
5
 
1614
 
 
1615
(CADADR
 
1616
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1617
E F G)))
 
1618
Y
 
1619
 
 
1620
(CADDAR
 
1621
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1622
E F G)))
 
1623
NIL
 
1624
 
 
1625
(CADDDR
 
1626
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1627
E F G)))
 
1628
(A B C)
 
1629
 
 
1630
(CDAAAR
 
1631
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1632
E F G)))
 
1633
(4)
 
1634
 
 
1635
(CDAADR
 
1636
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1637
E F G)))
 
1638
(X)
 
1639
 
 
1640
(CDADAR
 
1641
(QUOTE (((((1 2 3) 4) 5) (6 7)) (((U V W) X) Y) ((Q W E) R) (A B C)
 
1642
E F G)))
 
1643
(7)
 
1644
 
 
1645
(CONS 1 2)
 
1646
(1 . 2)
 
1647
 
 
1648
(CONS (QUOTE A) (CONS (QUOTE B) (CONS (QUOTE C) (QUOTE NIL))))
 
1649
(A B C)
 
1650
 
 
1651
(CONS (QUOTE A) (QUOTE (B C D)))
 
1652
(A B C D)
 
1653
 
 
1654
(TREE-EQUAL 5 (+ 2 3) :TEST (FUNCTION EQL))
 
1655
T
 
1656
 
 
1657
(ENDP (QUOTE NIL))
 
1658
T
 
1659
 
 
1660
(ENDP (QUOTE (A . B)))
 
1661
NIL
 
1662
 
 
1663
(LIST-LENGTH (QUOTE (A B C D)))
 
1664
4
 
1665
 
 
1666
(LET ((X (LIST (QUOTE A) (QUOTE B) (QUOTE C)))) (RPLACD (LAST X) X)
 
1667
 
 
1668
(LIST-LENGTH X))
 
1669
NIL
 
1670
 
 
1671
(NTH 0 (QUOTE (A B C D)))
 
1672
A
 
1673
 
 
1674
(FIRST (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1675
1
 
1676
 
 
1677
(SECOND (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1678
2
 
1679
 
 
1680
(THIRD (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1681
3
 
1682
 
 
1683
(FOURTH (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1684
4
 
1685
 
 
1686
(FIFTH (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1687
5
 
1688
 
 
1689
(SIXTH (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1690
6
 
1691
 
 
1692
(SEVENTH (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1693
7
 
1694
 
 
1695
(EIGHTH (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1696
8
 
1697
 
 
1698
(NINTH (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1699
9
 
1700
 
 
1701
(TENTH (QUOTE (1 2 3 4 5 6 7 8 9 10 11)))
 
1702
10
 
1703
 
 
1704
(REST (QUOTE (A . B)))
 
1705
B
 
1706
 
 
1707
(NTHCDR 1 (QUOTE (A B C D)))
 
1708
(B C D)
 
1709
 
 
1710
(LAST (QUOTE (1 2 3 4 5)))
 
1711
(5)
 
1712
 
 
1713
(LAST (QUOTE (1 2 3 . 4)))
 
1714
(3 . 4)
 
1715
 
 
1716
(LIST (QUOTE A) (QUOTE B) (QUOTE C) (QUOTE D))
 
1717
(A B C D)
 
1718
 
 
1719
(LIST* (QUOTE A) (QUOTE B) (QUOTE C) (QUOTE D))
 
1720
(A B C . D)
 
1721
 
 
1722
(MAKE-LIST 4 :INITIAL-ELEMENT (QUOTE O))
 
1723
(O O O O)
 
1724
 
 
1725
(MAKE-LIST 3 :INITIAL-ELEMENT (QUOTE RAH))
 
1726
(RAH RAH RAH)
 
1727
 
 
1728
(APPEND (QUOTE (A B C)) (QUOTE (D E F)) (QUOTE NIL) (QUOTE (G)))
 
1729
(A B C D E F G)
 
1730
 
 
1731
(COPY-LIST (QUOTE (1 2 3 4 5)))
 
1732
(1 2 3 4 5)
 
1733
 
 
1734
(COPY-LIST (QUOTE (1 2 3 . 4)))
 
1735
(1 2 3 . 4)
 
1736
 
 
1737
(COPY-ALIST (QUOTE (A B)))
 
1738
(A B)
 
1739
 
 
1740
(COPY-ALIST (QUOTE ((1 . A) (2 . B) (3 . C))))
 
1741
((1 . A) (2 . B) (3 . C))
 
1742
 
 
1743
(COPY-ALIST (QUOTE ((A B) C (D E))))
 
1744
((A B) C (D E))
 
1745
 
 
1746
(COPY-TREE (QUOTE (A B (C (D) (E F)) G)))
 
1747
(A B (C (D) (E F)) G)
 
1748
 
 
1749
(REVAPPEND (QUOTE (A B C)) (QUOTE (D E F)))
 
1750
(C B A D E F)
 
1751
 
 
1752
(REVAPPEND (QUOTE (A B C)) (QUOTE I))
 
1753
(C B A . I) ;? error
 
1754
 
 
1755
(NRECONC (QUOTE (A B C)) (QUOTE (I J)))
 
1756
(C B A I J)
 
1757
 
 
1758
;NRECONC
 
1759
 
 
1760
(SETQ AA NIL)
 
1761
NIL
 
1762
 
 
1763
(PUSH (QUOTE 1) AA)
 
1764
(1)
 
1765
 
 
1766
(PUSH (QUOTE 2) AA)
 
1767
(2 1)
 
1768
 
 
1769
(POP AA)
 
1770
2
 
1771
 
 
1772
(POP AA)
 
1773
1
 
1774
 
 
1775
(POP AA)
 
1776
NIL
 
1777
 
 
1778
(SETQ AA (QUOTE (B A)))
 
1779
(B A)
 
1780
 
 
1781
(PUSHNEW (QUOTE A) AA)
 
1782
(B A)
 
1783
 
 
1784
(PUSHNEW (QUOTE C) AA)
 
1785
(C B A)
 
1786
 
 
1787
(PUSHNEW (QUOTE U) (CAR (SETQ XX (QUOTE (NIL KKK)))))
 
1788
(U)
 
1789
 
 
1790
(PUSHNEW (QUOTE U) (CAR XX))
 
1791
(U)
 
1792
 
 
1793
(PUSHNEW (QUOTE V) (CAR XX))
 
1794
(V U)
 
1795
 
 
1796
(EVAL (QUOTE XX))
 
1797
((V U) KKK)
 
1798
 
 
1799
(BUTLAST (QUOTE (A B C)) 2)
 
1800
(A)
 
1801
 
 
1802
(NBUTLAST (QUOTE (A B C D)) 6)
 
1803
NIL
 
1804
 
 
1805
(NBUTLAST (QUOTE (A B C D)) 1)
 
1806
(A B C)
 
1807
 
 
1808
(LDIFF (SETQ XX (QUOTE (A B C D E))) (CDDR XX))
 
1809
(A B)
 
1810
 
 
1811
;RPLACA, RPLACD
 
1812
 
 
1813
(NSUBST (QUOTE A) (QUOTE B) (QUOTE (U B (B) C)) :TEST-NOT
 
1814
(FUNCTION (LAMBDA (X Y) (NOT (EQL X Y)))))
 
1815
(U A (A) C)
 
1816
 
 
1817
(NSUBST-IF (QUOTE OO) (QUOTE NUMBERP) (QUOTE (A B C (3 (4) 0))))
 
1818
(A B C (OO (OO) OO))
 
1819
 
 
1820
(NSUBST-IF-NOT (QUOTE OO) (FUNCTION (LAMBDA (X) (OR (LIST X) (SYMBOLP
 
1821
X))))
 
1822
(QUOTE (A B C (3 (4) 0))))
 
1823
(A B C (3 (4) 0))
 
1824
 
 
1825
(SUBST (QUOTE A) (QUOTE B) (QUOTE (U B (B) C)) :TEST-NOT
 
1826
(FUNCTION (LAMBDA (X Y) (NOT (EQL X Y)))) :KEY
 
1827
(FUNCTION (LAMBDA (U) (IF (LISTP U) (CAR U)))))
 
1828
(U . A)
 
1829
 
 
1830
(SUBST-IF (QUOTE NUMMMER) (QUOTE NUMBERP) (QUOTE ((A (7 (V 6))))))
 
1831
 
 
1832
((A (NUMMMER (V NUMMMER))))
 
1833
 
 
1834
(SUBST-IF-NOT (QUOTE NUMMMER) (FUNCTION (LAMBDA (X) (OR (LISTP X) (NUMBERP
 
1835
X))))
 
1836
(QUOTE ((A (7 (V 6))))))
 
1837
((NUMMMER (7 (NUMMMER 6))))
 
1838
 
 
1839
(NSUBLIS (QUOTE (((A) . UU) (A . II))) (QUOTE (I (A) A)) :TEST
 
1840
(FUNCTION (LAMBDA (X Y) (IF (LISTP Y) (EQL X (CAR Y))))))
 
1841
#+XCL                  (I II . II) ; X aus der Aliste, Y ein Blatt des Baumes
 
1842
#+(or CLISP CMU LUCID) (I (UU) UU) ; X ein Blatt, Y aus der Aliste
 
1843
 
 
1844
(SUBLIS (QUOTE (((A) . UU) (A . II))) (QUOTE (I (A) A)) :TEST
 
1845
(FUNCTION (LAMBDA (X Y) (IF (LISTP Y) (EQL X (CAR Y))))))
 
1846
#+(or XCL LUCID)       (I II . II) ; X aus der Aliste, Y ein Blatt des Baumes
 
1847
#+(or CLISP CMU)       (I (UU) UU) ; X ein Blatt, Y aus der Aliste
 
1848
 
 
1849
(MEMBER (QUOTE A) (QUOTE ((A) (B) (A) (C))) :KEY (QUOTE CAR))
 
1850
((A) (B) (A) (C))
 
1851
 
 
1852
(MEMBER-IF (QUOTE NUMBERP) (QUOTE ((A) (B) (3) (C))) :KEY (QUOTE CAR))
 
1853
 
 
1854
((3) (C))
 
1855
 
 
1856
(MEMBER-IF-NOT (QUOTE NUMBERP) (QUOTE ((8) (A) (B) (3) (C))) :KEY (QUOTE
 
1857
CAR))
 
1858
((A) (B) (3) (C))
 
1859
 
 
1860
(TAILP (CDDR (SETQ XX (QUOTE (U I A B)))) XX)
 
1861
T
 
1862
 
 
1863
(ADJOIN (QUOTE A) (QUOTE ((A) B C)) :TEST (QUOTE EQUAL))
 
1864
(A (A) B C)
 
1865
 
 
1866
(NUNION (QUOTE (A B C D)) (QUOTE (U I B A)))
 
1867
#+XCL (A B C D U I)
 
1868
#+CLISP (C D U I B A)
 
1869
 
 
1870
(UNION (QUOTE (A B C D)) (QUOTE (A D I V)))
 
1871
#+XCL (V I A B C D)
 
1872
#+CLISP (B C A D I V)
 
1873
 
 
1874
(INTERSECTION (QUOTE ((A 1) (A 2) (A 3))) (QUOTE ((A 4) (A 2) (B 6)
 
1875
(C 7)))
 
1876
:TEST (QUOTE EQUAL))
 
1877
((A 2))
 
1878
 
 
1879
(NINTERSECTION (QUOTE (A B C D)) (QUOTE (C D E F G)) :TEST-NOT (QUOTE
 
1880
EQL))
 
1881
(A B C D)
 
1882
 
 
1883
(NSET-DIFFERENCE (QUOTE (A B C D)) (QUOTE (I J C)))
 
1884
(A B D)
 
1885
 
 
1886
(NSET-EXCLUSIVE-OR (QUOTE (A B C)) (QUOTE (I A D C)))
 
1887
(B I D)
 
1888
 
 
1889
(SET-DIFFERENCE (QUOTE (ANTON BERTA AUTO BERLIN)) (QUOTE (AMERILLA)) :TEST
 
1890
(FUNCTION (LAMBDA (X Y) (EQL (ELT (SYMBOL-NAME X) 0) (ELT (SYMBOL-NAME Y) 0)))))
 
1891
#+XCL (BERLIN BERTA) #+CLISP (BERTA BERLIN)
 
1892
 
 
1893
(SET-EXCLUSIVE-OR (QUOTE (ANTON ANNA EMIL)) (QUOTE (BERTA AUTO AUGUST)) :TEST
 
1894
(FUNCTION (LAMBDA (X Y) (EQL (ELT (SYMBOL-NAME X) 0) (ELT (SYMBOL-NAME Y) 0)))))
 
1895
(EMIL BERTA)
 
1896
 
 
1897
(SUBSETP (QUOTE (A B)) (QUOTE (B A U I C D)))
 
1898
T
 
1899
 
 
1900
(ACONS (QUOTE A) (QUOTE B) (QUOTE ((C . D))))
 
1901
((A . B) (C . D))
 
1902
 
 
1903
(ACONS (QUOTE A) (QUOTE B) NIL)
 
1904
((A . B))
 
1905
 
 
1906
(ASSOC (QUOTE A) (QUOTE ((B C) A ((A) U) (A I))) :TEST-NOT
 
1907
(FUNCTION (LAMBDA (X Y) (IF (ATOM Y) (EQL Y X)))))
 
1908
(B C)
 
1909
 
 
1910
(ASSOC-IF (QUOTE SYMBOLP) (QUOTE ((A . 3) (3 . A))))
 
1911
(A . 3)
 
1912
 
 
1913
(ASSOC-IF-NOT (QUOTE NUMBERP) (QUOTE ((A . 3) (3 . A))))
 
1914
(A . 3)
 
1915
 
 
1916
(PAIRLIS (QUOTE (A B C)) (QUOTE (1 2 3)))
 
1917
((C . 3) (B . 2) (A . 1))
 
1918
 
 
1919
(RASSOC (QUOTE A) (QUOTE ((1 . B) (2 . A))))
 
1920
(2 . A)
 
1921
 
 
1922
(RASSOC-IF (QUOTE SYMBOLP) (QUOTE ((1 . 3) (2 . A))))
 
1923
(2 . A)
 
1924
 
 
1925
(RASSOC-IF-NOT (QUOTE SYMBOLP) (QUOTE ((1 . 3) (2 . A))))
 
1926
(1 . 3)
 
1927
 
 
1928
;Kap 16 Hash-Tabellen
 
1929
;-------------------------------------------------------------------------------
 
1930
 
 
1931
(HASH-TABLE-P (MAKE-HASH-TABLE :TEST (FUNCTION EQL) :REHASH-SIZE 2 :SIZE 20))
 
1932
T
 
1933
(HASH-TABLE-P (MAKE-HASH-TABLE :TEST (FUNCTION EQL) :REHASH-SIZE 1.1 :SIZE 20))
 
1934
T
 
1935
;CLRHASH, GETHASH, HASH-TABLE-COUNT, MAPHASH, REMHASH, SXHASH,
 
1936
 
 
1937
;Kap 17 Felder
 
1938
;-------------------------------------------------------------------------------
 
1939
 
 
1940
;MAKE-ARRAY, VECTOR, AREF, SVREF, ARRAY-ELEMENT-TYPE, ARRAY-RANK,
 
1941
;ARRAY-DIMENSION, ARRAY-DIMENSIONS, ARRAY-TOTAL-SIZE, ARRAY-IN-BOUNDS-P,
 
1942
;ARRAY-ROW-MAJOR-INDEX, ADJUSTABLE-ARRAY-P,
 
1943
 
 
1944
;array-rank-limit, array-dimension-limit, array-total-size-limit,
 
1945
 
 
1946
 
 
1947
;BIT, SBIT, BIT-AND, BIT-ANDC1, BIT-ANDC2, BIT-EQV, BIT-IOR, BIT-NAND, BIT-NOR,
 
1948
;BIT-NOT, BIT-ORC1, BIT-ORC2, BIT-XOR,
 
1949
 
 
1950
;ARRAY-HAS-FILL-POINTER-P, FILL-POINTER, VECTOR-POP, VECTOR-PUSH,
 
1951
;VECTOR-PUSH-EXTEND, ADJUST-ARRAY,
 
1952
 
 
1953
;Kap 18 Strings
 
1954
;-------------------------------------------------------------------------------
 
1955
 
 
1956
;CHAR, SCHAR, STRING=, STRING-EQUAL, STRING/=, STRING<, STRING<=, STRING>,
 
1957
 
 
1958
;STRING>=, STRING-GREATERP, STRING-LESSP, STRING-NOT-EQUAL,
 
1959
;STRING-NOT-GREATERP, STRING-NOT-LESSP, MAKE-STRING, STRING-LEFT-TRIM,
 
1960
 
 
1961
;STRING-RIGHT-TRIM, STRING-TRIM, STRING-UPCASE, STRING-CAPITALIZE,
 
1962
 
 
1963
;STRING-DOWNCASE, NSTRING-CAPITALIZE, NSTRING-DOWNCASE, NSTRING-UPCASE, STRING,
 
1964
 
 
1965
;Kap 19 Strukturen
 
1966
;-------------------------------------------------------------------------------
 
1967
 
 
1968
;DEFSTRUCT,
 
1969
 
 
1970
;Kap 20 EVAL
 
1971
;-------------------------------------------------------------------------------
 
1972
 
 
1973
;EVAL, EVALHOOK, *evalhook*, APPLYHOOK, *applyhook*,
 
1974
 
 
1975
(CONSTANTP -5)
 
1976
T
 
1977
 
 
1978
(CONSTANTP (READ-FROM-STRING "1.0e30"))
 
1979
T
 
1980
 
 
1981
;Kap 21 Streams
 
1982
;-------------------------------------------------------------------------------
 
1983
 
 
1984
;MAKE-SYNONYM-STREAM, MAKE-BROADCAST-STREAM, MAKE-CONCATENATED-STREAM,
 
1985
;MAKE-TWO-WAY-STREAM, MAKE-ECHO-STREAM, MAKE-STRING-INPUT-STREAM,
 
1986
;MAKE-STRING-OUTPUT-STREAM, GET-OUTPUT-STREAM-STRING, with-input-from-string,
 
1987
;with-open-stream, with-output-to-string,
 
1988
 
 
1989
(STREAMP *STANDARD-INPUT*)
 
1990
T
 
1991
 
 
1992
(INPUT-STREAM-P *TERMINAL-IO*)
 
1993
T
 
1994
 
 
1995
;OUTPUT-STREAM-P, STREAM-ELEMENT-TYPE, CLOSE,
 
1996
 
 
1997
;Kap 22 Ein- und Ausgabe
 
1998
;-------------------------------------------------------------------------------
 
1999
 
 
2000
(READTABLEP *READTABLE*)
 
2001
T
 
2002
 
 
2003
(READTABLEP (QUOTE PROGN))
 
2004
NIL
 
2005
 
 
2006
;COPY-READTABLE, READ, *read-base*, READ-BYTE, READ-CHAR, READ-CHAR-NO-HANG,
 
2007
 
 
2008
;*read-default-float-format*, READ-DELIMITED-LIST, READ-FROM-STRING, READ-LINE,
 
2009
;READ-PRESERVING-WHITESPACE, *read-suppress*, *readtable*, UNREAD-CHAR,
 
2010
 
 
2011
;GET-DISPATCH-MACRO-CHARACTER, GET-MACRO-CHARACTER,
 
2012
;SET-DISPATCH-MACRO-CHARACTER, SET-MACRO-CHARACTER, SET-SYNTAX-FROM-CHAR,
 
2013
;MAKE-DISPATCH-MACRO-CHARACTER,
 
2014
 
 
2015
;PPRINT, PRIN1, PRIN1-TO-STRING, PRINC, PRINC-TO-STRING, PRINT, *print-array*,
 
2016
;*print-base*, *print-case*, *print-circle*, *print-escape*, *print-gensym*,
 
2017
 
 
2018
;*print-length*, *print-level*, *print-pretty*, *print-radix*,
 
2019
 
 
2020
;PEEK-CHAR, LISTEN, CLEAR-INPUT, CLEAR-OUTPUT, PARSE-INTEGER,
 
2021
 
 
2022
;WRITE, WRITE-BYTE, WRITE-CHAR, WRITE-LINE, WRITE-STRING, WRITE-TO-STRING,
 
2023
;Y-OR-N-P, YES-OR-NO-P,
 
2024
 
 
2025
;TERPRI, FINISH-OUTPUT, FORCE-OUTPUT, FORMAT, FRESH-LINE,
 
2026
 
 
2027
;Kap 23 File-Interface
 
2028
;-------------------------------------------------------------------------------
 
2029
 
 
2030
;PATHNAME, TRUENAME, PARSE-NAMESTRING, MERGE-PATHNAMES,
 
2031
;*default-pathname-defaults*, MAKE-PATHNAME, PATHNAMEP, PATHNAME-DEVICE,
 
2032
;PATHNAME-DIRECTORY, PATHNAME-HOST, PATHNAME-NAME, PATHNAME-TYPE,
 
2033
;PATHNAME-VERSION, NAMESTRING, FILE-NAMESTRING, DIRECTORY-NAMESTRING,
 
2034
 
 
2035
;HOST-NAMESTRING, ENOUGH-NAMESTRING, user-homedir-pathname, OPEN,
 
2036
;with-open-file, RENAME-FILE, DELETE-FILE, PROBE-FILE, FILE-WRITE-DATE,
 
2037
 
 
2038
;FILE-AUTHOR, FILE-LENGTH, FILE-POSITION, LOAD, *load-verbose*, DIRECTORY
 
2039
 
 
2040
;Kap 24 Fehler
 
2041
;-------------------------------------------------------------------------------
 
2042
 
 
2043
;CERROR, ERROR, *break-on-warnings*, WARN, BREAK, check-type, assert, etypecase,
 
2044
;ecase, ctypecase, ccase
 
2045
 
 
2046
;Kap 25 Erweiterungen
 
2047
;-------------------------------------------------------------------------------
 
2048
 
 
2049
;COMPILE, DISASSEMBLE, COMPILE-FILE, DOCUMENTATION, trace, untrace, step, time,
 
2050
;DESCRIBE, INSPECT, room, ed, DRIBBLE, APROPOS, APROPOS-LIST,
 
2051
;GET-DECODED-TIME, GET-INTERNAL-REAL-TIME, GET-INTERNAL-RUN-TIME,
 
2052
;GET-UNIVERSAL-TIME, DECODE-UNIVERSAL-TIME, ENCODE-UNIVERSAL-TIME,
 
2053
 
 
2054
;internal-time-units-per-second, SLEEP, LISP-IMPLEMENTATION-TYPE,
 
2055
;LISP-IMPLEMENTATION-VERSION, MACHINE-INSTANCE, MACHINE-TYPE, MACHINE-VERSION,
 
2056
 
 
2057
;SOFTWARE-TYPE, SOFTWARE-VERSION, SHORT-SITE-NAME, LONG-SITE-NAME, *features*,
 
2058
;IDENTITY
 
2059
 
 
2060
;Kap I Systeminterne Praedikate
 
2061
;-------------------------------------------------------------------------------
 
2062
 
 
2063
;? (SEQUENCEP (TYPE-SPECIFIER-P (BIT-ARRAY-P
 
2064
;? (ADJUSTABLE-VECTOR-WITH-FILL-POINTER-P (ALISTP (DECLARATION-SPECIFIER-P
 
2065
 
 
2066
 
 
2067
(SYS::FIXNUMP 10) ;?
 
2068
T ;?
 
2069
 
 
2070
;Kap II Systeminterne Atome
 
2071
;-------------------------------------------------------------------------------
 
2072
 
 
2073
;case-every, comment, cond-every, displace, return, return-from, ACCESS, BOOLE,
 
2074
;call-arguments-limit, DEFUN, errset, *errset*, *macroexpand-hook*, *package*,
 
2075
;*random-state*, *SAVE-OLD-DEFINITION-WHEN-REDEFINED*,