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@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