Changeset 11318


Ignore:
Timestamp:
Nov 9, 2008, 12:45:31 AM (11 years ago)
Author:
gb
Message:

Whoops; thought I checked this in in the last commit.

In PPC2-CONSTANT-VALUE-OK-FOR-TYPE-KEYWORD, use ACODE-UNWRAPPED-FORM.
(This will hide the bug described above in CL-TEST::PSETF.21, but
we really should recognize trivial bindings to constants ...)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/PPC/ppc2.lisp

    r11213 r11318  
    18611861
    18621862(defun ppc2-constant-value-ok-for-type-keyword (type-keyword form)
    1863   (if (and (acode-p form)
     1863  (if (and (acode-p (setq form (acode-unwrapped-form form)))
    18641864           (or (eq (acode-operator form) (%nx1-operator immediate))
    18651865               (eq (acode-operator form) (%nx1-operator fixnum))))
Note: See TracChangeset for help on using the changeset viewer.