Ignore:
Timestamp:
Aug 1, 2009, 3:22:04 PM (10 years ago)
Author:
gz
Message:

bug#573: return a single value type from nx-declared-result-type

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r12500 r12512  
    361361                  (not (function-ctype-p ctype))
    362362                  (eq *wild-type* (function-ctype-returns ctype)))
    363         (let ((result-type (type-specifier (function-ctype-returns ctype))))
     363        (let ((result-type (type-specifier (single-value-type (function-ctype-returns ctype)))))
    364364          (and (neq result-type 't) result-type))))))
    365365
Note: See TracChangeset for help on using the changeset viewer.