|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T u ┃
Length: 21566 (0x543e)
Types: TextFile
Names: »utabmd.scm.35«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/scheme/scm/utabmd.scm.35«
;;; -*-Scheme-*-
;;;
;;; Copyright (c) 1984 Massachusetts Institute of Technology
;;;
;;; This material was developed by the Scheme project at the
;;; Massachusetts Institute of Technology, Department of
;;; Electrical Engineering and Computer Science. Permission to
;;; copy this software, to redistribute it, and to use it for any
;;; purpose is granted, subject to the following restrictions and
;;; understandings.
;;;
;;; 1. Any copy made of this software must include this copyright
;;; notice in full.
;;;
;;; 2. Users of this software agree to make their best efforts (a)
;;; to return to the MIT Scheme project any improvements or
;;; extensions that they make, so that these may be included in
;;; future releases; and (b) to inform MIT of noteworthy uses of
;;; this software.
;;;
;;; 3. All materials developed as a consequence of the use of
;;; this software shall duly acknowledge such use, in accordance
;;; with the usual standards of acknowledging credit in academic
;;; research.
;;;
;;; 4. MIT has made no warrantee or representation that the
;;; operation of this software will be error-free, and MIT is
;;; under no obligation to provide any services, by way of
;;; maintenance, update, or otherwise.
;;;
;;; 5. In conjunction with products arising from the use of this
;;; material, there shall be no use of the name of the
;;; Massachusetts Institute of Technology nor of any adaptation
;;; thereof in any advertising, promotional, or sales literature
;;; without prior written consent from MIT in each case.
;;;
;;;; Machine Dependent Type Tables
(declare (usual-integrations))
;;; For quick access to any given table,
;;; search for the following strings:
;;;
;;; [] Fixed
;;; [] Types
;;; [] Returns
;;; [] Primitives
;;; [] External
;;; [] Errors
\f
;;; [] Fixed
(vector-set! (get-fixed-objects-vector)
15 ;(fixed-objects-vector-slot 'MICROCODE-FIXED-OBJECTS-SLOTS)
#(NON-OBJECT ;00
SYSTEM-INTERRUPT-VECTOR ;01
SYSTEM-ERROR-VECTOR ;02
OBARRAY ;03
MICROCODE-TYPES-VECTOR ;04
MICROCODE-RETURNS-VECTOR ;05
MICROCODE-PRIMITIVES-VECTOR ;06
MICROCODE-ERRORS-VECTOR ;07
HASH-NUMBER ;08
HASH-TABLE ;09
UNHASH-TABLE ;0A
GC-DAEMON ;0B
STACK-OVERFLOW ;0C
OPEN-FILES ;0D
STEPPER-STATE ;0E
MICROCODE-FIXED-OBJECTS-SLOTS ;0F
MICROCODE-EXTERNAL-PRIMITIVES ;10
STATE-SPACE-TAG ;11
STATE-POINT-TAG ;12
DUMMY-HISTORY ;13
BIGNUM-ONE ;14
SCHEDULER ;15
MICROCODE-TERMINATIONS-VECTOR ;16
MICROCODE-TERMINATIONS-PROCEDURES ;17
FIXED-OBJECTS-VECTOR ;18
THE-WORK-QUEUE ;19
))
\f
;;; [] Types
(vector-set! (get-fixed-objects-vector)
4 ;(fixed-objects-vector-slot 'MICROCODE-TYPES-VECTOR)
#((NULL FALSE MANIFEST-VECTOR GLOBAL-ENVIRONMENT
COMPILED-FRAME-SIZE) ;00
(PAIR LIST) ;01
CHARACTER ;02
QUOTATION ;03
PRIMITIVE-COMBINATION-2 ;04
UNINTERNED-SYMBOL ;05
(FLONUM BIG-FLONUM) ;06
COMBINATION-1 ;07
TRUE ;08
EXTENDED-PROCEDURE ;09
VECTOR ;0A
RETURN-ADDRESS ;0B
COMBINATION-2 ;0C
COMPILED-PROCEDURE ;0D
(BIGNUM BIG-FIXNUM) ;0E
PROCEDURE ;0F
PRIMITIVE-EXTERNAL ;10
DELAY ;11
ENVIRONMENT ;12
DELAYED ;13
EXTENDED-LAMBDA ;14
COMMENT ;15
NON-MARKED-VECTOR ;16
LAMBDA ;17
PRIMITIVE ;18
SEQUENCE-2 ;19
(FIXNUM ADDRESS) ;1A
PRIMITIVE-COMBINATION-1 ;1B
CONTROL-POINT ;1C
INTERNED-SYMBOL ;1D
(STRING CHARACTER-STRING VECTOR-8B) ;1E
ACCESS ;1F
EXTENDED-FIXNUM ;20
DEFINITION ;21
BROKEN-HEART ;22
ASSIGNMENT ;23
(TRIPLE HUNK3) ;24
IN-PACKAGE ;25
COMBINATION ;26
MANIFEST-NM-VECTOR ;27
COMPILED-EXPRESSION ;28
LEXPR ;29
PRIMITIVE-COMBINATION-3 ;2A
MANIFEST-SPECIAL-NM-VECTOR ;2B
VARIABLE ;2C
THE-ENVIRONMENT ;2D
FUTURE ;2E
(VECTOR-1B BIT-STRING) ;2F
PRIMITIVE-COMBINATION-0 ;30
VECTOR-16B ;31
UNASSIGNED ;32
SEQUENCE-3 ;33
CONDITIONAL ;34
DISJUNCTION ;35
() ;36
() ;37
() ;38
() ;39
() ;3A
() ;3B
() ;3C
() ;3D
() ;3E
() ;3F
() ;40
() ;41
() ;42
() ;43
() ;44
() ;45
() ;46
() ;47
() ;48
() ;49
() ;4A
() ;4B
() ;4C
() ;4D
() ;4E
() ;4F
() ;50
() ;51
() ;52
() ;53
() ;54
() ;55
() ;56
() ;57
() ;58
() ;59
() ;5A
() ;5B
() ;5C
() ;5D
() ;5E
() ;5F
() ;60
() ;61
() ;62
() ;63
() ;64
() ;65
() ;66
() ;67
() ;68
() ;69
() ;6A
() ;6B
() ;6C
() ;6D
() ;6E
() ;6F
() ;70
() ;71
() ;72
() ;73
() ;74
() ;75
() ;76
() ;77
() ;78
() ;79
() ;7A
() ;7B
() ;7C
() ;7D
() ;7E
() ;7F
))
\f
;;; [] Return
(vector-set! (get-fixed-objects-vector)
5 ;(fixed-objects-vector-slot 'MICROCODE-RETURNS-VECTOR)
#(NON-EXISTENT-CONTINUATION ;00
RESTORE-CONTROL-POINT ;01
RESTORE-CONTINUATION ;02
INTERNAL-APPLY ;03
BAD-INTERRUPT-CONTINUE ;04
RESTORE-HISTORY ;05
INVOKE-STACK-THREAD ;06
RESTART-EXECUTION ;07
ASSIGNMENT-CONTINUE ;08
DEFINITION-CONTINUE ;09
ACCESS-CONTINUE ;0A
IN-PACKAGE-CONTINUE ;0B
SEQUENCE-2-SECOND ;0C
SEQUENCE-3-SECOND ;0D
SEQUENCE-3-THIRD ;0E
CONDITIONAL-DECIDE ;0F
DISJUNCTION-DECIDE ;10
COMBINATION-1-PROCEDURE ;11
COMBINATION-APPLY ;12
COMBINATION-2-FIRST-OPERAND ;13
COMBINATION-2-PROCEDURE ;14
COMBINATION-SAVE-VALUE ;15
PRIMITIVE-COMBINATION-1-APPLY ;16
PRIMITIVE-COMBINATION-2-FIRST-OPERAND ;17
PRIMITIVE-COMBINATION-2-APPLY ;18
PRIMITIVE-COMBINATION-3-SECOND-OPERAND ;19
PRIMITIVE-COMBINATION-3-FIRST-OPERAND ;1A
PRIMITIVE-COMBINATION-3-APPLY ;1B
FORCE-SNAP-THUNK ;1C
REENTER-COMPILED-CODE ;1D
#!FALSE ;1E
RESTART-COMPILER-REFERENCE ;1F
NORMAL-GARBAGE-COLLECT-DONE ;20
COMPLETE-GARBAGE-COLLECT-DONE ;21
PURIFY-AFTER-FIRST-GC ;22
PURIFY-AFTER-SECOND-GC ;23
AFTER-MEMORY-UPDATE ;24
RETRY-MICROCODE-TERMINATION-RESTARTABLE ;25
#!FALSE ;26
#!FALSE ;27
RESTART_COMPILER_ASSIGNMENT ;28
POP-RETURN-TO-COMPILED-CODE ;29
RETURN-TRAP-POINT ;2A
RESTORE-STEPPER ;2B
RESTORE-TO-STATE-POINT ;2C
MOVE-TO-ADJACENT-POINT ;2D
RESTORE-VALUE ;2E
RESTORE-DONT-COPY-HISTORY ;2F
#!FALSE ;30
#!FALSE ;31
#!FALSE ;32
#!FALSE ;33
#!FALSE ;34
#!FALSE ;35
#!FALSE ;36
#!FALSE ;37
#!FALSE ;38
#!FALSE ;39
#!FALSE ;3A
#!FALSE ;3B
#!FALSE ;3C
#!FALSE ;3D
#!FALSE ;3E
#!FALSE ;3F
POP-RETURN-ERROR ;40
EVAL-ERROR ;41
REPEAT-PRIMITIVE ;42
COMPILER-ENTRY-GC ;43
COMPILER-RECURSION-GC ;44
RESTORE-INTERRUPT-MASK ;45
HALT ;46
FINISH-GLOBAL-INTERRUPT ;47
))
\f
;;; [] Primitives
(vector-set! (get-fixed-objects-vector)
6 ;(fixed-objects-vector-slot 'MICROCODE-PRIMITIVES-VECTOR)
#(LEXICAL-ASSIGNMENT ;$00
LOCAL-REFERENCE ;$01
LOCAL-ASSIGNMENT ;$02
CALL-WITH-CURRENT-CONTINUATION ;$03
SCODE-EVAL ;$04
APPLY ;$05
SET-INTERRUPT-ENABLES! ;$06
() ; STRING->SYMBOL soon ;$07
GET-WORK ;$08
() ;$09
() ;$0A
() ;$0B
(NULL? NOT FALSE?) ;$0C
EQ? ;$0D
STRING-EQUAL? ;$0E
PRIMITIVE-TYPE? ;$0F
PRIMITIVE-TYPE ;$10
PRIMITIVE-SET-TYPE ;$11
LEXICAL-REFERENCE ;$12
LEXICAL-UNREFERENCEABLE? ;$13
() ;$14
() ;$15
EXIT ;$16
() ;$17
LEXICAL-UNASSIGNED? ;$18
INSERT-NON-MARKED-VECTOR! ;$19
HALT ;$1A
() ;$1B
MEMQ ;$1C
INSERT-STRING ;$1D
ENABLE-INTERRUPTS! ;$1E
MAKE-EMPTY-STRING ;$1F
CONS ;$20
(CAR FIRST) ;$21
(CDR FIRST-TAIL) ;$22
(SET-CAR! SET-FIRST!) ;$23
(SET-CDR! SET-FIRST-TAIL!) ;$24
PRINT-STRING ;$25
GET-CURSOR ;$26
GENERAL-CAR-CDR ;$27
HUNK3-CONS ;$28
HUNK3-CXR ;$29
HUNK3-SET-CXR! ;$2A
INSERT-STRING! ;$2B
VECTOR-CONS ;$2C
VECTOR-SIZE ;$2D
VECTOR-REF ;$2E
SET-CURRENT-HISTORY! ;$2F
VECTOR-SET! ;$30
NON-MARKED-VECTOR-CONS ;$31
GET-CHARACTER-FROM-INPUT-CHANNEL ;$32
LEXICAL-UNBOUND? ;$33
() ;$34
() ;$35
() ;$36
() ;$37
() ;$38
() ;$39
GARBAGE-COLLECT ;$3A
PLUS-FIXNUM ;$3B
MINUS-FIXNUM ;$3C
MULTIPLY-FIXNUM ;$3D
DIVIDE-FIXNUM ;$3E
EQUAL-FIXNUM? ;$3F
LESS-THAN-FIXNUM? ;$40
POSITIVE-FIXNUM? ;$41
ONE-PLUS-FIXNUM ;$42
MINUS-ONE-PLUS-FIXNUM ;$43
TRUNCATE-STRING! ;$44
SUBSTRING ;$45
ZERO-FIXNUM? ;$46
MAKE-OBJECT-SAFE ;$47
MAKE-OBJECT-DANGEROUS ;$48
OBJECT-DANGEROUS? ;$49
SUBSTRING->LIST ;$4A
MAKE-FILLED-STRING ;$4B
PLUS-BIGNUM ;$4C
MINUS-BIGNUM ;$4D
MULTIPLY-BIGNUM ;$4E
DIVIDE-BIGNUM ;$4F
LISTIFY-BIGNUM ;$50
EQUAL-BIGNUM? ;$51
LESS-THAN-BIGNUM? ;$52
POSITIVE-BIGNUM? ;$53
() ;$54
() ;$55
PRIMITIVE-FASDUMP ;$56
BINARY-FASLOAD ;$57
STRING-POSITION ;$58
STRING-LESS? ;$59
OBJECT-HASH ;$5A
OBJECT-UNHASH ;$5B
REHASH-GC-DAEMON ;$5C
LENGTH ;$5D
ASSQ ;$5E
LIST->STRING ;$5F
EQUAL-STRING-TO-LIST? ;$60
MAKE-CELL ;$61
CELL-CONTENTS ;$62
CELL? ;$63
CHARACTER-UPCASE ;$64
CHARACTER-LIST-HASH ;$65
GCD-FIXNUM ;$66
COERCE-FIXNUM-TO-BIGNUM ;$67
COERCE-BIGNUM-TO-FIXNUM ;$68
PLUS-FLONUM ;$69
MINUS-FLONUM ;$6A
MULTIPLY-FLONUM ;$6B
DIVIDE-FLONUM ;$6C
EQUAL-FLONUM? ;$6D
LESS-THAN-FLONUM? ;$6E
ZERO-BIGNUM? ;$6F
TRUNCATE-FLONUM ;$70
ROUND-FLONUM ;$71
COERCE-INTEGER-TO-FLONUM ;$72
SINE-FLONUM ;$73
COSINE-FLONUM ;$74
ARCTAN-FLONUM ;$75
EXP-FLONUM ;$76
LN-FLONUM ;$77
SQRT-FLONUM ;$78
PRIMITIVE-FASLOAD ;$79
GET-FIXED-OBJECTS-VECTOR ;$7A
SET-FIXED-OBJECTS-VECTOR! ;$7B
LIST->VECTOR ;$7C
SUBVECTOR->LIST ;$7D
PAIR? ;$7E
NEGATIVE-FIXNUM? ;$7F
NEGATIVE-BIGNUM? ;$80
GREATER-THAN-FIXNUM? ;$81
GREATER-THAN-BIGNUM? ;$82
STRING-HASH ;$83
SYSTEM-PAIR-CONS ;$84
SYSTEM-PAIR? ;$85
SYSTEM-PAIR-CAR ;$86
SYSTEM-PAIR-CDR ;$87
SYSTEM-PAIR-SET-CAR! ;$88
SYSTEM-PAIR-SET-CDR! ;$89
INITIALIZE-OBJECT-HASH ;$8A
GET-CHARACTER-FROM-INPUT-CHANNEL-IMMEDIATE;$8B
SET-CELL-CONTENTS! ;$8C
EQUAL-BIT-STRING? ;$8D
SYSTEM-HUNK3-CXR0 ;$8E
SYSTEM-HUNK3-SET-CXR0! ;$8F
MAP-MACHINE-ADDRESS-TO-CODE ;$90
SYSTEM-HUNK3-CXR1 ;$91
SYSTEM-HUNK3-SET-CXR1! ;$92
MAP-CODE-TO-MACHINE-ADDRESS ;$93
SYSTEM-HUNK3-CXR2 ;$94
SYSTEM-HUNK3-SET-CXR2! ;$95
PRIMITIVE-PROCEDURE-ARITY ;$96
SYSTEM-LIST-TO-VECTOR ;$97
SYSTEM-SUBVECTOR-TO-LIST ;$98
SYSTEM-VECTOR? ;$99
SYSTEM-VECTOR-REF ;$9A
SYSTEM-VECTOR-SET! ;$9B
WITH-HISTORY-DISABLED ;$9C
VECTOR-1B-CONS ;$9D
VECTOR-1B? ;$9E
VECTOR-1B-REF ;$9F
VECTOR-1B-SET! ;$A0
VECTOR-1B-SET-FALSE! ;$A1
VECTOR-1B-SET-TRUE! ;$A2
VECTOR-8B-CONS ;$A3
VECTOR-8B? ;$A4
(STRING-REF VECTOR-8B-REF) ;$A5
(STRING-SET! VECTOR-8B-SET!) ;$A6
ZERO-FLONUM? ;$A7
POSITIVE-FLONUM? ;$A8
NEGATIVE-FLONUM? ;$A9
GREATER-THAN-FLONUM? ;$AA
INTERN-CHARACTER-LIST ;$AB
VECTOR-1B-SIZE ;$AC
(STRING-LENGTH STRING-SIZE VECTOR-8B-SIZE);$AD
SYSTEM-VECTOR-SIZE ;$AE
FORCE ;$AF
PRIMITIVE-DATUM ;$B0
MAKE-NON-POINTER-OBJECT ;$B1
DEBUGGING-PRINTER ;$B2
STRING-UPCASE ;$B3
PRIMITIVE-PURIFY ;$B4
() ;$B5
COMPLETE-GARBAGE-COLLECT ;$B6
DUMP-BAND ;$B7
SUBSTRING-SEARCH ;$B8
LOAD-BAND ;$B9
CONSTANT? ;$BA
PURE? ;$BB
PRIMITIVE-GC-TYPE ;$BC
PRIMITIVE-IMPURIFY ;$BD
WITH-THREADED-CONTINUATION ;$BE
WITHIN-CONTROL-POINT ;$BF
SET-RUN-LIGHT! ;$C0
() ;$C1
() ;$C2
() ;$C3
() ;$C4
() ;$C5
() ;$C6
CLOSE-LOST-OPEN-FILES ;$C7
PUT-CHARACTER-TO-OUTPUT-CHANNEL ;$C8
MASK-INTERRUPT-ENABLES! ;$C9
PRIMITIVE-EVAL-STEP ;$CA
PRIMITIVE-APPLY-STEP ;$CB
PRIMITIVE-RETURN-STEP ;$CC
() ;$CD
() ;$CE
() ;$CF
() ;$D0
MAKE-UNFILLED-BIT-STRING ;$D1
MAKE-FILLED-BIT-STRING ;$D2
BIT-STRING? ;$D3
BIT-STRING-SIZE ;$D4
BIT-STRING-REF ;$D5
BIT-STRING-SET! ;$D6
BIT-STRING-SET-TRUE! ;$D7
BIT-STRING-SET-FALSE! ;$D8
BIT-SUBSTRING ;$D9
INSERT-BIT-STRING ;$DA
INSERT-BIT-STRING! ;$DB
INTEGER->BIT-STRING ;$DC
BIT-STRING->INTEGER ;$DD
REVERSE-BIT-STRING ;$DE
READ-BITS ;$DF
WRITE-BITS! ;$E0
MAKE-STATE-SPACE ;$E1
EXECUTE-AT-NEW-STATE-POINT ;$E2
TRANSLATE-TO-STATE-POINT ;$E3
GET-NEXT-CONSTANT ;$E4
MICROCODE-IDENTIFY ;$E5
ZERO? ;$E6
POSITIVE? ;$E7
NEGATIVE? ;$E8
&= ;$E9
&< ;$EA
&> ;$EB
&+ ;$EC
&- ;$ED
&* ;$EE
&/ ;$EF
INTEGER-DIVIDE ;$F0
1+ ;$F1
-1+ ;$F2
TRUNCATE ;$F3
ROUND ;$F4
FLOOR ;$F5
CEILING ;$F6
SQRT ;$F7
EXP ;$F8
LOG ;$F9
SIN ;$FA
COS ;$FB
&ATAN ;$FC
() ;$FD
() ;$FE
() ;$FF
() ;$100
GET-EXTERNAL-COUNTS ;$101
GET-EXTERNAL-NAME ;$102
GET-EXTERNAL-NUMBER ;$103
OPEN-CHANNEL ;$104
CLOSE-PHYSICAL-CHANNEL ;$105
GET-NEXT-INTERRUPT-CHARACTER ;$106
CHECK-AND-CLEAN-UP-INPUT-CHANNEL ;$107
INITIALIZE-MICROCODE-DEBUG ;$108
SYSTEM-CLOCK ;$109
FILE-EXISTS? ;$10A
DELETE-FILE ;$10B
MOVE-CURSOR ;$10C
INTERNAL-PHOTO ;$10D
CURRENT-DATE ;$10E
CURRENT-TIME ;$10F
TRANSLATE-FILE ;$110
COPY-FILE ;$111
RENAME-FILE ;$112
REMOVE-FILE ;$113
LINK-FILE ;$114
MAKE-DIRECTORY ;$115
VOLUME-NAME ;$116
PREFIX-VOLUME ;$117
OPEN-CATALOG ;$118
CLOSE-CATALOG ;$119
NEXT-FILE ;$11A
CAT-NAME ;$11B
CAT-KIND ;$11C
CAT-PSIZE ;$11D
CAT-LSIZE ;$11E
CAT-INFO ;$11F
CAT-BLOCK ;$120
CAT-CREATE-DATE ;$121
CAT-CREATE-TIME ;$122
CAT-LAST-DATE ;$123
CAT-LAST-TIME ;$124
ERROR-MESSAGE ;$125
CURRENT-YEAR ;$126
CURRENT-MONTH ;$127
CURRENT-DAY ;$128
CURRENT-HOUR ;$129
CURRENT-MINUTE ;$12A
CURRENT-SECOND ;$12B
INIT-FLOPPY ;$12C
ZERO-FLOPPY ;$12D
PACK-VOLUME ;$12E
LOAD-PICTURE ;$12F
STORE-PICTURE ;$130
LOOKUP-SYSTEM-SYMBOL ;$131
() ;$132
CLEAR-SCREEN ;$133
CLEAR-TO-END-OF-LINE ;$134
NUMBER-OF-COLUMNS ;$135
NUMBER-OF-LINES ;$136
WITH-INTERRUPT-MASK ;$137
))
\f
;;; [] External
(vector-set! (get-fixed-objects-vector)
16 ;(fixed-objects-vector-slot 'MICROCODE-EXTERNAL-PRIMITIVES)
#())
\f
;;; [] Errors
(vector-set! (get-fixed-objects-vector)
7 ;(fixed-objects-vector-slot 'MICROCODE-ERRORS-VECTOR)
#(BAD-ERROR-CODE ;00
UNBOUND-VARIABLE ;01
UNASSIGNED-VARIABLE ;02
UNDEFINED-PROCEDURE ;03
() ;04
() ;05
BAD-FRAME ;06
BROKEN-CVARIABLE ;07
UNDEFINED-USER-TYPE ;08
UNDEFINED-PRIMITIVE-OPERATION ;09
EXTERNAL-RETURN ;0A
EXECUTE-MANIFEST-VECTOR ;0B
WRONG-NUMBER-OF-ARGUMENTS ;0C
WRONG-TYPE-ARGUMENT-0 ;0D
WRONG-TYPE-ARGUMENT-1 ;0E
WRONG-TYPE-ARGUMENT-2 ;0F
BAD-RANGE-ARGUMENT-0 ;10
BAD-RANGE-ARGUMENT-1 ;11
BAD-RANGE-ARGUMENT-2 ;12
() ;13
() ;14
() ;15
() ;16
FASL-FILE-TOO-BIG ;17
FASL-FILE-BAD-DATA ;18
IMPURIFY-OBJECT-TOO-LARGE ;19
WRITE-INTO-PURE-SPACE ;1A
() ;1B
NO-HASH-TABLE ;1C
ASSIGN-LAMBDA-NAME ;1D
FAILED-ARG-1-COERCION ;1E
FAILED-ARG-2-COERCION ;1F
OUT-OF-FILE-HANDLES ;20
() ;21
BAD-RANGE-ARGUMENT-3 ;22
BAD-RANGE-ARGUMENT-4 ;23
BAD-RANGE-ARGUMENT-5 ;24
BAD-RANGE-ARGUMENT-6 ;25
BAD-RANGE-ARGUMENT-7 ;26
BAD-RANGE-ARGUMENT-8 ;27
BAD-RANGE-ARGUMENT-9 ;28
WRONG-TYPE-ARGUMENT-3 ;29
WRONG-TYPE-ARGUMENT-4 ;2A
WRONG-TYPE-ARGUMENT-5 ;2B
WRONG-TYPE-ARGUMENT-6 ;2C
WRONG-TYPE-ARGUMENT-7 ;2D
WRONG-TYPE-ARGUMENT-8 ;2E
WRONG-TYPE-ARGUMENT-9 ;2F
))
;;; [] Terminations
(vector-set! (get-fixed-objects-vector)
22 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATIONS-VECTOR)
#(HALT ;00
DISK-RESTORE ;01
BROKEN-HEART ;02
NON-POINTER-RELOCATION ;03
BAD-ROOT ;04
NON-EXISTENT-CONTINUATION ;05
BAD-STACK ;06
STACK-OVERFLOW ;07
STACK-ALLOCATION-FAILED ;08
NO-ERROR-HANDLER ;09
NO-INTERRUPT-HANDLER ;0A
UNIMPLEMENTED-CONTINUATION ;0B
EXIT ;0C
BAD-PRIMITIVE-DURING-ERROR ;0D
EOF ;0E
BAD-PRIMITIVE ;0F
TERMINATION-HANDLER ;10
END-OF-CONTINUATION ;11
INVALID-TYPE-CODE ;12
))
(vector-set! (get-fixed-objects-vector)
23 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATION-PROCEDURES)
#())