Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/dec20init.lap
There are no other files named dec20init.lap in the archive.
;;; CLC vP.U.V.1(2) compiling CARMEN::SS:<CLISP.UPSALA>DEC20INIT.CLISP.17
(IN-PACKAGE (QUOTE LISP))
(EXPORT (QUOTE (*FEATURES* TOPS-20 DECSYSTEM-20 LAMBDA-LIST-KEYWORDS HELP LAMBDA-PARAMETERS-LIMIT CALL-ARGUMENTS-LIMIT MULTIPLE-VALUES-LIMIT ARRAY-DIMENSION-LIMIT ARRAY-TOTAL-SIZE-LIMIT MOST-POSITIVE-FIXNUM MOST-NEGATIVE-FIXNUM SHORT-FLOAT-RADIX SINGLE-FLOAT-RADIX LONG-FLOAT-RADIX DOUBLE-FLOAT-RADIX INTERNAL-TIME-UNITS-PER-SECOND MOST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SHORT-FLOAT MOST-NEGATIVE-SHORT-FLOAT LEAST-NEGATIVE-SHORT-FLOAT MOST-POSITIVE-SINGLE-FLOAT LEAST-POSITIVE-SINGLE-FLOAT MOST-NEGATIVE-SINGLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT MOST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-LONG-FLOAT MOST-POSITIVE-DOUBLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT LEAST-NEGATIVE-DOUBLE-FLOAT SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON LONG-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON LONG-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON)))
(%PUT (QUOTE %CATCH-ALL-OBJECT) (QUOTE GLOBALLY-SPECIAL) T)
(%PUT (QUOTE *PROMPT*) (QUOTE GLOBALLY-SPECIAL) T)
(%PUT (QUOTE *FEATURES*) (QUOTE GLOBALLY-SPECIAL) T)
(%PUT (QUOTE *LISP-INITIALIZATION-FUNCTIONS*) (QUOTE GLOBALLY-SPECIAL) T)
(DEFCONSTANT CURRENT-MACHINE (QUOTE DECSYSTEM-20))
(DEFCONSTANT CURRENT-SYSTEM (QUOTE TOPS-20))
(DEFCONSTANT TARGET-MACHINE (QUOTE DECSYSTEM-20))
(DEFCONSTANT TARGET-SYSTEM (QUOTE TOPS-20))
(DEFVAR *FEATURES* (QUOTE (COMMON DECSYSTEM-20 TOPS-20)) "A list of symbols that name 'features' provided by the implementation.")
(DEFCONSTANT LAMBDA-LIST-KEYWORDS (QUOTE (&OPTIONAL &REST &KEY &ALLOW-OTHER-KEYS &AUX &BODY &WHOLE &ENVIRONMENT)) "Keywords that you can put in a lambda-list, supposing you should
want to do such a thing.")
(DEFCONSTANT LAMBDA-PARAMETERS-LIMIT 256000 "The exclusive upper bound on the number of parameters which may be
specifed in a given lambda list. This is actually the limit on
required and optional parameters. With &key and &aux you can get
more.")
(DEFCONSTANT CALL-ARGUMENTS-LIMIT 256000 "The exclusive upper bound on the number of arguments which may be
passed to a function, including rest args.")
(DEFCONSTANT MULTIPLE-VALUES-LIMIT 256000 "The exclusive upper bound on the number of multiple-values that
you can have.")
(DEFCONSTANT %CHARACTER-CODE-BYTE (BYTE 7 0))
(DEFCONSTANT %CHARACTER-CONTROL-BYTE (BYTE 8 7))
(DEFCONSTANT %CHARACTER-FONT-BYTE (BYTE 8 15))
(DEFCONSTANT %CHARACTER-CODE-MASK 127)
(DEFCONSTANT %CHARACTER-CONTROL-MASK 32640)
(DEFCONSTANT %CHARACTER-FONT-MASK 8355840)
(DEFCONSTANT %CHARACTER-INT-MASK 8388607)
(DEFCONSTANT %CHARACTER-CODE-CONTROL-MASK 32767)
(DEFCONSTANT %MISC-TYPE 0)
(DEFCONSTANT %BIT-VECTOR-TYPE 1)
(DEFCONSTANT %INTEGER-VECTOR-TYPE 2)
(DEFCONSTANT %STRING-TYPE 3)
(DEFCONSTANT %BIGNUM-TYPE 4)
(DEFCONSTANT %LONG-FLOAT-TYPE 5)
(DEFCONSTANT %COMPLEX-TYPE 6)
(DEFCONSTANT %RATIO-TYPE 7)
(DEFCONSTANT %GENERAL-VECTOR-TYPE 8)
(DEFCONSTANT %FUNCTION-TYPE 9)
(DEFCONSTANT %ARRAY-TYPE 10)
(DEFCONSTANT %SYMBOL-TYPE 11)
(DEFCONSTANT %LIST-TYPE 12)
(DEFCONSTANT %STREAM-TYPE 13)
(DEFCONSTANT %HASH-TABLE-TYPE 14)
(DEFCONSTANT %FIXNUM-TYPE 16)
(DEFCONSTANT %+-FIXNUM-TYPE 16)
(DEFCONSTANT %--FIXNUM-TYPE 17)
(DEFCONSTANT %+-SHORT-FLOAT-TYPE 18)
(DEFCONSTANT %--SHORT-FLOAT-TYPE 19)
(DEFCONSTANT %CHARACTER-TYPE 20)
(DEFCONSTANT %VALUES-MARKER-TYPE 21)
(DEFCONSTANT %CALL-HEADER-TYPE 22)
(DEFCONSTANT %CATCH-HEADER-TYPE 23)
(DEFCONSTANT %CATCH-ALL-TYPE 24)
(DEFCONSTANT %GC-FORWARD-TYPE 25)
(DEFCONSTANT %ARRAY-DATA-SLOT 0)
(DEFCONSTANT %ARRAY-LENGTH-SLOT 1)
(DEFCONSTANT %ARRAY-FILL-POINTER-SLOT 2)
(DEFCONSTANT %ARRAY-DISPLACEMENT-SLOT 3)
(DEFCONSTANT %ARRAY-DIM-BASE 3)
(DEFCONSTANT %ARRAY-FIRST-DIM-SLOT 4)
(DEFCONSTANT %ARRAY-HEADER-OVERHEAD 3)
(DEFCONSTANT ARRAY-DIMENSION-LIMIT 256000 "The exclusive upper bound any given dimension of an array.")
(DEFCONSTANT ARRAY-TOTAL-SIZE-LIMIT 2000000 "The exclusive upper bound on the total number of elements in an
array.")
(DEFCONSTANT %RATIO-NUMERATOR-SLOT 0)
(DEFCONSTANT %RATIO-DENOMINATOR-SLOT 1)
#_(LAP #0_FAST-CHAR-UPCASE MACRO
(ENTRY-POINTS (2-FEW 1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(2 "Macro ~S cannot be called with ~S args." FAST-CHAR-UPCASE LET CH %SP-MAKE-FIXNUM IF (AND (> CH 96) (< CH 123)) (%SP-MAKE-IMMEDIATE-TYPE (- CH 32) %CHARACTER-TYPE))
(CODE-START)
(LABEL 1) (ADDI Q 4)
(MOVEM O1 -3 Q)
(CALL LENGTH 1)
(MOVEM O1 -2 Q)
(MOVE O2 (CONSTANT 0))
(CALL = 2)
(JUMPN O1 4)
(MOVE O1 -3 Q)
(CALL LENGTH 1)
(CALL 1- 1)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 1))
(MOVE O2 (CONSTANT 2))
(CALL ERROR 3)
(JRST 3)
(LABEL 4) (SKIPA)
(JRST 5)
(MOVE O1 -3 Q)
(MOVE O1 1 O1)
(MOVE O5 0 O1)
(MOVEM O5 -1 Q)
(MOVE O2 O5)
(MOVE O1 (CONSTANT 5))
(CALL LIST 2)
(MOVE O2 O1)
(MOVE O1 (CONSTANT 4))
(CALL LIST 2)
(CALL LIST 1)
(MOVEM O1 0 Q)
(MOVE O4 -1 Q)
(MOVE O1 (CONSTANT 6))
(MOVE O2 (CONSTANT 7))
(MOVE O3 (CONSTANT 8))
(CALL LIST 4)
(MOVE O3 O1)
(MOVE O1 (CONSTANT 3))
(MOVE O2 0 Q)
(CALL LIST 3)
(LABEL 5)
(LABEL 3) (SUBI Q 4)
(POPJ P)
)
(%PUT (QUOTE FAST-CHAR-UPCASE) (QUOTE %ARGS-DOCUMENTATION) (QUOTE (CHAR)))
(%PUT (QUOTE FAST-CHAR-UPCASE) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>DEC20INIT.CLISP.17") (GET (QUOTE FAST-CHAR-UPCASE) (QUOTE %SOURCE-DOCUMENTATION))))
(DEFCONSTANT %FIXNUM-LENGTH 32)
(DEFCONSTANT MOST-POSITIVE-FIXNUM 2147483647 "The fixnum closest in value to positive infinity.")
(DEFCONSTANT MOST-NEGATIVE-FIXNUM -2147483648 "The fixnum closest in value to negative infinity.")
(DEFCONSTANT SHORT-FLOAT-RADIX 2 "The radix of short-floats.")
(DEFCONSTANT SINGLE-FLOAT-RADIX 2 "The radix of single-floats.")
(DEFCONSTANT DOUBLE-FLOAT-RADIX 2 "The radix of double-floats.")
(DEFCONSTANT LONG-FLOAT-RADIX 2 "The radix of long-floats.")
(DEFCONSTANT %SHORT-FLOAT-EXPONENT-LENGTH 9)
(DEFCONSTANT %SHORT-FLOAT-MANTISSA-LENGTH 23)
(DEFCONSTANT %SINGLE-FLOAT-EXPONENT-LENGTH 9)
(DEFCONSTANT %SINGLE-FLOAT-MANTISSA-LENGTH 23)
(DEFCONSTANT %LONG-FLOAT-EXPONENT-LENGTH 9)
(DEFCONSTANT %LONG-FLOAT-MANTISSA-LENGTH 62)
(DEFCONSTANT %DOUBLE-FLOAT-EXPONENT-LENGTH 9)
(DEFCONSTANT %DOUBLE-FLOAT-MANTISSA-LENGTH 62)
(DEFCONSTANT MOST-POSITIVE-SHORT-FLOAT MOST-POSITIVE-SINGLE-FLOAT)
(DEFCONSTANT LEAST-POSITIVE-SINGLE-FLOAT (SCALE-FLOAT 1.0 -129))
(DEFCONSTANT LEAST-POSITIVE-SHORT-FLOAT LEAST-POSITIVE-SINGLE-FLOAT)
(DEFCONSTANT LEAST-NEGATIVE-SINGLE-FLOAT (- LEAST-POSITIVE-SINGLE-FLOAT))
(DEFCONSTANT LEAST-NEGATIVE-SHORT-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT)
(DEFCONSTANT MOST-NEGATIVE-SINGLE-FLOAT (- MOST-POSITIVE-SINGLE-FLOAT))
(DEFCONSTANT MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT)
(DEFCONSTANT %DP-V 4611686018427387903)
(DEFCONSTANT MOST-POSITIVE-DOUBLE-FLOAT (SCALE-FLOAT (FLOAT %DP-V 1.0D0) 65))
(DEFCONSTANT MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-DOUBLE-FLOAT)
(DEFCONSTANT LEAST-POSITIVE-DOUBLE-FLOAT (SCALE-FLOAT 1.0D0 -129))
(DEFCONSTANT LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT)
(DEFCONSTANT LEAST-NEGATIVE-DOUBLE-FLOAT (- LEAST-POSITIVE-DOUBLE-FLOAT))
(DEFCONSTANT LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-DOUBLE-FLOAT)
(DEFCONSTANT MOST-NEGATIVE-DOUBLE-FLOAT (- MOST-POSITIVE-DOUBLE-FLOAT))
(DEFCONSTANT MOST-NEGATIVE-LONG-FLOAT MOST-NEGATIVE-DOUBLE-FLOAT)
(DEFCONSTANT SINGLE-FLOAT-EPSILON (SCALE-FLOAT 1.0 -22))
(DEFCONSTANT SHORT-FLOAT-EPSILON SINGLE-FLOAT-EPSILON)
(DEFCONSTANT DOUBLE-FLOAT-EPSILON (SCALE-FLOAT 1.0D0 -62))
(DEFCONSTANT LONG-FLOAT-EPSILON DOUBLE-FLOAT-EPSILON)
(DEFCONSTANT SINGLE-FLOAT-NEGATIVE-EPSILON (+ (SCALE-FLOAT 1.0 -28) (SCALE-FLOAT 1.0 -50)))
(DEFCONSTANT SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON)
(DEFCONSTANT DOUBLE-FLOAT-NEGATIVE-EPSILON (+ (SCALE-FLOAT 1.0D0 -63) (SCALE-FLOAT 1.0D0 -124)))
(DEFCONSTANT LONG-FLOAT-NEGATIVE-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON)
(DEFCONSTANT INTERNAL-TIME-UNITS-PER-SECOND 1000 "The number of internal time units that fit into a second. See
Get-Internal-Real-Time and Get-Internal-Run-Time.")
#_(LAP #0_HELP EXPR
(ENTRY-POINTS (1 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY 2-MANY))
#0_(?)
(CODE-START)
(LABEL 1) (MOVE O1 (SPECIAL 0))
(MOVEI N 1)
(POPJ P)
)
(%PUT (QUOTE HELP) (QUOTE %ARGS-DOCUMENTATION) (QUOTE NIL))
(%PUT (QUOTE HELP) (QUOTE %SOURCE-DOCUMENTATION) (CONS (QUOTE "CARMEN::SS:<CLISP.UPSALA>DEC20INIT.CLISP.17") (GET (QUOTE HELP) (QUOTE %SOURCE-DOCUMENTATION))))