Changeset 4173


Ignore:
Timestamp:
Apr 11, 2006, 12:45:10 PM (15 years ago)
Author:
gb
Message:

NX-U31-CONSTANT-P.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/nx0.lisp

    r4026 r4173  
    14891489      (and (typep val '(unsigned-byte 32)) val))))
    14901490
     1491(defun nx-u31-constant-p (form)
     1492  (setq form (nx-untyped-form form))
     1493  (if (consp form)
     1494    (let* ((val (if (or (eq (acode-operator form) (%nx1-operator fixnum))
     1495                        (eq (acode-operator form) (%nx1-operator immediate)))
     1496                  (cadr form))))
     1497      (and (typep val '(unsigned-byte 31)) val))))
     1498
    14911499
    14921500;;; Reference-count vcell, fcell refs.
Note: See TracChangeset for help on using the changeset viewer.