[Openmcl-cvs-notifications] r12512 - /trunk/source/compiler/nx-basic.lisp

[gz at clozure.com]

Author: gz
Date: Sat Aug  1 11:22:04 2009
New Revision: 12512

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

Modified:
    trunk/source/compiler/nx-basic.lisp

Modified: trunk/source/compiler/nx-basic.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/nx-basic.lisp (original)
+++ trunk/source/compiler/nx-basic.lisp Sat Aug  1 11:22:04 2009
@@ -359,7 +359,7 @@
       (unless (or (null ctype)
 		  (not (function-ctype-p ctype))
 		  (eq *wild-type* (function-ctype-returns ctype)))
-	(let ((result-type (type-specifier (function-ctype-returns ctype))))
+	(let ((result-type (type-specifier (single-value-type (function-ctype-ret=
urns ctype)))))
 	  (and (neq result-type 't) result-type))))))
 =

 (defmacro define-declaration (decl-name lambda-list &body body &environmen=
t env)