Skip to content
Snippets Groups Projects
Commit 0d1d25d9 authored by dtc's avatar dtc
Browse files

Fix for merge-type-aux from Raymond Toy; type specifiers must have the

same format to be able to merged them.
parent 522527c2
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.58 1997/10/08 10:39:57 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.59 1997/10/09 21:21:41 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -855,6 +855,8 @@ ...@@ -855,6 +855,8 @@
(cond ((and cur-interval this (cond ((and cur-interval this
(eq (numeric-type-class cur) (eq (numeric-type-class cur)
(numeric-type-class this-interval)) (numeric-type-class this-interval))
(eq (numeric-type-format cur)
(numeric-type-format this-interval))
(or (interval-intersect-p cur-interval this) (or (interval-intersect-p cur-interval this)
(interval-adjacent-p cur-interval this))) (interval-adjacent-p cur-interval this)))
(let ((result (interval-merge-pair cur-interval this))) (let ((result (interval-merge-pair cur-interval this)))
......
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