lang/lisp/1.8.7/src/lisp.bootstrap

Raw file
Back to index

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
NIL                      APVAL 
NIL 
T                        APVAL 
T 
F                        APVAL 
F 
COND                     FUNCTION 
(LAMBDA ((INDEFINITE QUOTE X)) . 0) 
BEGINOBLISTDUMP        FUNCTION 
(LAMBDA () . 1) 
NEXTATOM                FUNCTION 
(LAMBDA () . 2) 
ADDPROPERTY             FUNCTION 
(LAMBDA (X X X) . 3) 
ALTERPROPERTY           FUNCTION 
(LAMBDA (X X X) . 4) 
DELETEPROPERTY          FUNCTION 
(LAMBDA (X X) . 5) 
PROPERTYEXISTS          FUNCTION 
(LAMBDA (X X) . 6) 
PROPERTY                 FUNCTION 
(LAMBDA (X X) . 7) 
ADDFLAG                 FUNCTION 
(LAMBDA (X X) . 8) 
FLAG                     FUNCTION 
(LAMBDA (X X) . 9) 
DELETEFLAG              FUNCTION 
(LAMBDA (X X) . 10) 
BEGINPROPERTYLISTDUMP FUNCTION 
(LAMBDA (X) . 11) 
NEXTPROPERTY            FUNCTION 
(LAMBDA () . 12) 
APPLY                    FUNCTION 
(LAMBDA (X X X) . 13) 
EVAL                     FUNCTION 
(LAMBDA (X X) . 14) 
TRY                      FUNCTION 
(LAMBDA (X X X X) . 15) 
ASSOCIATIONLIST         FUNCTION 
(LAMBDA () . 16) 
ERRORSTOP               FUNCTION 
(LAMBDA (X) . 17) 
HEAD                     FUNCTION 
(LAMBDA (X) . 18) 
SETHEAD                 FUNCTION 
(LAMBDA (X X) . 19) 
TAIL                     FUNCTION 
(LAMBDA (X) . 20) 
SETTAIL                 FUNCTION 
(LAMBDA (X X) . 21) 
CONS                     FUNCTION 
(LAMBDA (X X) . 22) 
EQ                       FUNCTION 
(LAMBDA (X X) . 23) 
GET                      FUNCTION 
(LAMBDA () . 24) 
PUT                      FUNCTION 
(LAMBDA (X) . 25) 
NULL                     FUNCTION 
(LAMBDA (X) . 26) 
ATOM                     FUNCTION 
(LAMBDA (X) . 27) 
NAMEDATOM               FUNCTION 
(LAMBDA (X) . 28) 
GETATOM                 FUNCTION 
(LAMBDA () . 29) 
PUTATOM                 FUNCTION 
(LAMBDA (X) . 30) 
TEXT                     FUNCTION 
(LAMBDA (X) . 31) 
GETTEXT                 FUNCTION 
(LAMBDA () . 32) 
PUTTEXT                 FUNCTION 
(LAMBDA (X) . 33) 
CHARACTER                FUNCTION 
(LAMBDA (X) . 34) 
GETCHARACTER            FUNCTION 
(LAMBDA () . 35) 
PUTCHARACTER            FUNCTION 
(LAMBDA (X) . 36) 
INT                      FUNCTION 
(LAMBDA (X). 37) 
GETINT                  FUNCTION 
(LAMBDA () . 38) 
PUTINT                  FUNCTION 
(LAMBDA (X) . 39) 
SUM                      FUNCTION 
(LAMBDA ((INDEFINITE X)) . 40) 
DIFFERENCE               FUNCTION 
(LAMBDA (X X). 41) 
PRODUCT                  FUNCTION 
(LAMBDA ((INDEFINITE X)). 42) 
QUOTIENT                 FUNCTION 
(LAMBDA (X X).43) 
REMAINDER                FUNCTION 
(LAMBDA (X X).44) 
EQUAL                    FUNCTION 
(LAMBDA (X X) . 45) 
TRACE                    FUNCTION 
(LAMBDA () . 46 ) 
DEFINE                   FUNCTION 
(LAMBDA ((INDEFINITE X)) . 47 ) 
SET                      FUNCTION 
(LAMBDA (X X) . 48 ) 
QUOTE                    FUNCTION 
(LAMBDA ((QUOTE X)) X) 
LIST                     FUNCTION 
(LAMBDA ((INDEFINITE X)) X) 
DO                       FUNCTION 
(LAMBDA ((INDEFINITE X)) NIL) 
PUTLIST                 FUNCTION 
(LAMBDA ((INDEFINITE X)) 
  (COND 
    ((NULL X) NIL) 
    (T (DO (PUT (HEAD X)) (PUTLIST (TAIL X)))) 
  ) 
)