Trailing-Edge
-
PDP-10 Archives
-
clisp
-
clisp/upsala/kernel.cmp
There are no other files named kernel.cmp in the archive.
;COMPARISON OF SS:<CLISP.UPSALA>KERNEL.CLISP.1 AND PS:<VICTOR.CLISP>KERNEL.CLISP.52
;OPTIONS ARE /3
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 1-86 (2919)
^^ ^ $g ok $p bk $s go ? s m b e r g
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 1-86 (2919)
^^ ^ $g ok $p bk $s go ? n s m q p b e r g
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 1-93 (3332)
disassemble
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 1-93 (3338)
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-2 (3534)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 2-2 (3522)
;;; Make vars declared in kernel special if not done elsewhere.
(proclaim '(special *gc-trigger* *print-gc-info*
right-paren-whitespace t))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-93 (7288)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-93 (7432)
(%PUT (QUOTE LISP::BIGNUMP) (QUOTE LISP::%FUN-DOCUMENTATION)
(QUOTE "Returns T if the object is a bignum, else returns NIL."))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-97 (7435)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-100 (7711)
(%PUT (QUOTE LISP::BITP) (QUOTE LISP::%FUN-DOCUMENTATION)
(QUOTE "Returns T if the object is a bit, else returns NIL."))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-217 (13054)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-223 (13456)
(%PUT (QUOTE LISP::DOUBLE-FLOATP) (QUOTE LISP::%FUN-DOCUMENTATION)
(QUOTE "Returns T if the object is a double floating-point number, else
returns NIL."))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-298 (16878)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-308 (17444)
(%PUT (QUOTE LISP::FIXNUMP) (QUOTE LISP::%FUN-DOCUMENTATION)
(QUOTE "Returns T if the object is a fixnum, else returns NIL."))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-493 (26237)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-506 (26935)
(%PUT (QUOTE LISP::LONG-FLOATP) (QUOTE LISP::%FUN-DOCUMENTATION)
(QUOTE "Returns T if the object is a long floating-point number, else
returns NIL."))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-766 (39194)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-783 (40052)
(%PUT (QUOTE LISP::RATIOP) (QUOTE LISP::%FUN-DOCUMENTATION)
(QUOTE "Returns T if the object is a ratio, else returns NIL."))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-780 (39855)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-800 (40843)
(%PUT (QUOTE LISP::*READ-BASE*) (QUOTE LISP::%VAR-DOCUMENTATION)
(QUOTE "The radix that Lisp reads numbers in."))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-891 (45297)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-914 (46404)
(%PUT (QUOTE LISP::SHORT-FLOATP) (QUOTE LISP::%FUN-DOCUMENTATION)
(QUOTE "Returns T if the object is a short floating-point number, else
returns NIL."))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-907 (46031)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-934 (47300)
(%PUT (QUOTE LISP::SINGLE-FLOATP) (QUOTE LISP::%FUN-DOCUMENTATION)
(QUOTE "Returns T if the object is a single floating-point number, else
returns NIL."))
***************
**** FILE SS:<CLISP.UPSALA>KERNEL.CLISP.1, 2-937 (47311)
**** FILE PS:<VICTOR.CLISP>KERNEL.CLISP.52, 3-968 (48744)
(%PUT (QUOTE LISP::STRUCTUREP) (QUOTE LISP::%FUN-DOCUMENTATION)
(QUOTE "Returns T if the object is a structure, else returns NIL."))
***************