Changeset 13151

Timestamp:

Oct 30, 2009, 5:28:50 PM (15 years ago)

Author:

Gary Byers

Message:

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

File:

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

trunk/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)