Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv13739
Modified Files: typep.lisp Log Message: The new vector structure is called basic-vectors. This check-in adds some support for this structure. The plan is to add more-or-less complete support for the new structure, and then migrate everything to this, and then eventually remove the old structure "movitz-vector".
Date: Thu Jun 17 12:44:49 2004 Author: ffjeld
Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.18 movitz/losp/muerte/typep.lisp:1.19 --- movitz/losp/muerte/typep.lisp:1.18 Thu Jun 17 02:49:28 2004 +++ movitz/losp/muerte/typep.lisp Thu Jun 17 12:44:49 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.18 2004/06/17 09:49:28 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.19 2004/06/17 19:44:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -235,8 +235,10 @@ (make-other-typep :funobj)) ((basic-vector) (make-other-typep :basic-vector)) - ((vector array) + ((old-vector) (make-other-typep :vector)) + ((vector array) + `(typep ,object '(or old-vector basic-vector))) (simple-vector (make-vector-typep :any-t)) (string @@ -280,7 +282,7 @@ (= (1+ movitz:+movitz-most-positive-fixnum+) lower-limit)) `(with-inline-assembly-case () (do-case (t :boolean-zf=1 :labels (plusp-ok)) - (:compile-form (:result-mode :eax) ,object) + (:compile-form (:result-mode :eax) ,object) (:leal (:eax ,(- (movitz:tag :other))) :ecx) (:testb 7 :cl) (:jnz 'plusp-ok)