Changeset 13152

Timestamp:

Oct 30, 2009, 5:29:52 PM (15 years ago)

Author:

Gary Byers

Message:

Propagate r13151 to 1.4.

File:

• release/1.4/source/compiler/nx1.lisp (modified) (1 diff)

release/1.4/source/compiler/nx1.lisp

@@ -35 +35 @@
              (if (typep ctype 'function-ctype)
                'function
-               (nx-target-type (type-specifier ctype))))))
+               (if (typep ctype 'values-ctype)
+                 '*
+                 (nx-target-type (type-specifier ctype)))))))
     (let* ((typespec (typespec-for-the typespec))
            (*nx-form-type* typespec)