Changeset 13151


Ignore:
Timestamp:
Oct 31, 2009, 12:28:50 AM (10 years ago)
Author:
gb
Message:

Don't choke on VALUES types in THE. (Previous incarnations of
this may have actually done something reasonable with them.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r13067 r13151  
    3535             (if (typep ctype 'function-ctype)
    3636               'function
    37                (nx-target-type (type-specifier ctype))))))
     37               (if (typep ctype 'values-ctype)
     38                 '*
     39                 (nx-target-type (type-specifier ctype)))))))
    3840    (let* ((typespec (typespec-for-the typespec))
    3941           (*nx-form-type* typespec)
Note: See TracChangeset for help on using the changeset viewer.