Changeset 5131


Ignore:
Timestamp:
Sep 5, 2006, 9:38:28 PM (18 years ago)
Author:
Gary Byers
Message:

NX-FORM-TYPEP uses NX-TARGET-TYPE.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/compiler/nx0.lisp

    r4878 r5131  
    21942194
    21952195(defun nx-form-typep (arg type &optional (env *nx-lexical-environment*))
    2196   (setq type (type-expand type))
     2196  (setq type (nx-target-type (type-expand type)))
    21972197  (if (constantp arg)
    21982198    (typep (nx-unquote arg) type)
Note: See TracChangeset for help on using the changeset viewer.