Skip to content
Snippets Groups Projects
Commit c957a57b authored by gerd's avatar gerd
Browse files

* src/compiler/srctran.lisp (convert-member-type): Don't construct

	types of the form (complex type from to).
parent e6aa9123
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.129 2003/09/01 20:47:37 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.130 2003/09/02 13:51:13 gerd Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1094,10 +1094,12 @@ ...@@ -1094,10 +1094,12 @@
(member (first members)) (member (first members))
(member-type (type-of member))) (member-type (type-of member)))
(assert (not (rest members))) (assert (not (rest members)))
(specifier-type `(,(if (subtypep member-type 'integer) (cond ((subtypep member-type 'integer)
'integer (specifier-type `(integer ,member ,member)))
member-type) ((subtypep member-type 'complex)
,member ,member)))) (specifier-type member-type))
(t
(specifier-type `(,member-type ,member ,member))))))
;;; ONE-ARG-DERIVE-TYPE ;;; ONE-ARG-DERIVE-TYPE
;;; ;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment