/[cmucl]/src/code/pred.lisp
ViewVC logotype

Diff of /src/code/pred.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by wlott, Tue Mar 19 18:51:08 1991 UTC revision 1.18 by wlott, Thu Jul 25 15:44:24 1991 UTC
# Line 53  Line 53 
53        bignump        bignump
54        bit-vector-p        bit-vector-p
55        characterp        characterp
56          code-component-p
57        consp        consp
58        compiled-function-p        compiled-function-p
59        complexp        complexp
# Line 63  Line 64 
64        integerp        integerp
65        listp        listp
66        long-float-p        long-float-p
67          lra-p
68        not        not
69        null        null
70        numberp        numberp
71        rationalp        rationalp
72        ratiop        ratiop
73        realp        realp
74          scavenger-hook-p
75        short-float-p        short-float-p
76        simple-array-p        simple-array-p
77        simple-bit-vector-p        simple-bit-vector-p
# Line 151  Line 154 
154      (array (type-specifier (ctype-of object)))      (array (type-specifier (ctype-of object)))
155      (system-area-pointer 'system-area-pointer)      (system-area-pointer 'system-area-pointer)
156      (weak-pointer 'weak-pointer)      (weak-pointer 'weak-pointer)
157        (code-component 'code-component)
158        (lra 'lra)
159        (scavenger-hook 'scavenger-hook)
160      (t      (t
161       (warn "Can't figure out the type of ~S" object)       (warn "Can't figure out the type of ~S" object)
162       t)))       t)))
# Line 211  Line 217 
217                   (symbol-package :foo))))                   (symbol-package :foo))))
218         (system-area-pointer (system-area-pointer-p object))         (system-area-pointer (system-area-pointer-p object))
219         (weak-pointer (weak-pointer-p object))         (weak-pointer (weak-pointer-p object))
220           (code-component (code-component-p object))
221           (lra (lra-p object))
222           (scavenger-hook (scavenger-hook-p object))
223         (structure (structurep object))))         (structure (structurep object))))
224      (numeric-type      (numeric-type
225       (and (numberp object)       (and (numberp object)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5