Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv9184
Modified Files: typep.lisp Log Message: Fixed a bug in typep for types like (integer * 4).
Date: Wed Jul 14 03:53:24 2004 Author: ffjeld
Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.25 movitz/losp/muerte/typep.lisp:1.26 --- movitz/losp/muerte/typep.lisp:1.25 Thu Jul 8 14:50:03 2004 +++ movitz/losp/muerte/typep.lisp Wed Jul 14 03:53:24 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.25 2004/07/08 21:50:03 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.26 2004/07/14 10:53:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -289,7 +289,7 @@ `(typep ,object 'integer)) ((null lower-limit) `(let ((x ,object)) - (and (typep x 'integer) (<= x upper-limit)))) + (and (typep x 'integer) (<= x ,upper-limit)))) ((and (null upper-limit) (= (1+ movitz:+movitz-most-positive-fixnum+) lower-limit)) `(with-inline-assembly-case ()