[movitz-cvs] CVS update: movitz/compiler-types.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv17668

Modified Files:
	compiler-types.lisp 
Log Message:
A hack to teach the compiler that fixnum == integer (for now).

Date: Tue Apr  6 09:35:41 2004
Author: ffjeld

Index: movitz/compiler-types.lisp
diff -u movitz/compiler-types.lisp:1.9 movitz/compiler-types.lisp:1.10
--- movitz/compiler-types.lisp:1.9	Thu Apr  1 12:26:04 2004
+++ movitz/compiler-types.lisp	Tue Apr  6 09:35:41 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Sep 10 00:40:07 2003
 ;;;;                
-;;;; $Id: compiler-types.lisp,v 1.9 2004/04/01 17:26:04 ffjeld Exp $
+;;;; $Id: compiler-types.lisp,v 1.10 2004/04/06 13:35:41 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -423,6 +423,8 @@
     (cond
      ((atom type-specifier)
       (case type-specifier
+	(fixnum
+	 (type-values 'integer))
 	((t nil cons symbol keyword function array vector integer hash-table character)
 	 (type-values type-specifier))
 	(null