[movitz-cvs] CVS update: movitz/compiler-types.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

1 Apr 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv17689
Modified Files:
    compiler-types.lisp 
Log Message:
Don't forget the character type.
Date: Thu Apr  1 12:26:04 2004
Author: ffjeld
Index: movitz/compiler-types.lisp
diff -u movitz/compiler-types.lisp:1.8 movitz/compiler-types.lisp:1.9

--- movitz/compiler-types.lisp:1.8	Sat Feb 14 17:47:25 2004
+++ movitz/compiler-types.lisp	Thu Apr  1 12:26:04 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.8 2004/02/14 22:47:25 ffjeld Exp $
+;;;; $Id: compiler-types.lisp,v 1.9 2004/04/01 17:26:04 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -423,7 +423,7 @@
     (cond
      ((atom type-specifier)
       (case type-specifier
-	((t nil cons symbol keyword function array vector integer hash-table)
+	((t nil cons symbol keyword function array vector integer hash-table character)
     (type-values type-specifier))
    (null
     (type-values () :members '(nil)))

    