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

Diff of /gcl/tests/alltest.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    ;*                      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*,

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