movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 04 Aug '04

04 Aug '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv19715 Modified Files: image.lisp Log Message: Slightly improved disassembly of primitive-functions. Date: Wed Aug 4 05:58:46 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.60 movitz/image.lisp:1.61 --- movitz/image.lisp:1.60 Sat Jul 31 17:37:22 2004 +++ movitz/image.lisp Wed Aug 4 05:58:45 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.60 2004/08/01 00:37:22 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.61 2004/08/04 12:58:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1288,12 +1288,12 @@ (slot-offset 'movitz-funobj 'constant0)) 4) (movitz-funobj-const-list funobj))) - when (and funobj (typep operand 'ia-x86::operand-rel-pointer)) + when (typep operand 'ia-x86::operand-rel-pointer) collect (let* ((x (+ pc (imagpart (ia-x86::instruction-original-datum instruction)) (length (ia-x86:instruction-prefixes instruction)) (ia-x86::operand-offset operand))) - (label (car (find x (movitz-funobj-symtab funobj) :key #'cdr)))) + (label (and funobj (car (find x (movitz-funobj-symtab funobj) :key #'cdr))))) (if label (format nil "branch to ~S at ~D" label x) (format nil "branch to ~D" x)))

1 0

[movitz-cvs] CVS update: movitz/ide/ide.lisp
by Luke Gorrie 02 Aug '04

02 Aug '04

Update of /project/movitz/cvsroot/movitz/ide In directory common-lisp.net:/tmp/cvs-serv4281 Modified Files: ide.lisp Log Message: Fixed with-open-file args in `compile-defun'. Date: Mon Aug 2 00:45:31 2004 Author: lgorrie Index: movitz/ide/ide.lisp diff -u movitz/ide/ide.lisp:1.1 movitz/ide/ide.lisp:1.2 --- movitz/ide/ide.lisp:1.1 Wed Jul 21 03:54:42 2004 +++ movitz/ide/ide.lisp Mon Aug 2 00:45:30 2004 @@ -23,7 +23,8 @@ (defun compile-defun (source) "Compile the string SOURCE as Movitz source." - (with-open-file (s temp-source-file :direction :output :if-exists :overwrite) + (with-open-file (s temp-source-file :direction :output + :if-exists :overwrite :if-does-not-exist :create) (princ source s)) (compile-movitz-file temp-source-file))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp
by Frode Vatvedt Fjeld 01 Aug '04

01 Aug '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv16477 Modified Files: integers.lisp Log Message: Added 'complicated-eql' that understands ratios. Also, now = is essentially the same as eql. Date: Sat Jul 31 17:37:31 2004 Author: ffjeld Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.89 movitz/losp/muerte/integers.lisp:1.90 --- movitz/losp/muerte/integers.lisp:1.89 Fri Jul 30 15:10:59 2004 +++ movitz/losp/muerte/integers.lisp Sat Jul 31 17:37:31 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.89 2004/07/30 22:10:59 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.90 2004/08/01 00:37:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -139,6 +139,57 @@ (:ret)))) (do-it))) +(defun complicated-eql (x y) + (macrolet + ((do-it () + `(with-inline-assembly (:returns :multiple-values) ; well.. + (:compile-two-forms (:eax :ebx) x y) + (:cmpl :eax :ebx) ; EQ? + (:je 'done) + (:leal (:eax ,(- (movitz:tag :other))) :ecx) + (:testb 7 :cl) + (:jne 'done) + (:leal (:ebx ,(- (movitz:tag :other))) :ecx) + (:testb 7 :cl) + (:jne 'done) + (:movl (:eax ,movitz:+other-type-offset+) :ecx) + (:cmpb ,(movitz:tag :bignum) :cl) + (:jne 'not-bignum) + (:cmpl :ecx (:ebx ,movitz:+other-type-offset+)) + (:jne 'done) + ;; Ok.. we have two bignums of identical sign and size. + (:shrl 16 :ecx) + (:movl :ecx :edx) ; counter + compare-loop + (:subl ,movitz:+movitz-fixnum-factor+ :edx) + (:jz 'done) + (:movl (:eax :edx (:offset movitz-bignum bigit0 -4)) :ecx) + (:cmpl :ecx (:ebx :edx (:offset movitz-bignum bigit0 -4))) + (:je 'compare-loop) + (:jmp 'done) + not-bignum + (:cmpb ,(movitz:tag :ratio) :cl) + (:jne 'not-ratio) + (:cmpl :ecx (:ebx ,movitz:+other-type-offset+)) + (:jne 'done) + (:movl (:eax (:offset movitz-ratio numerator)) :eax) + (:movl (:ebx (:offset movitz-ratio numerator)) :ebx) + (:call (:esi (:offset movitz-funobj code-vector%2op))) + (:jne 'done) + (:compile-two-forms (:eax :ebx) x y) + (:movl (:eax (:offset movitz-ratio denominator)) :eax) + (:movl (:ebx (:offset movitz-ratio denominator)) :ebx) + (:call (:esi (:offset movitz-funobj code-vector%2op))) + (:jmp 'done) + not-ratio + + done + (:movl :edi :eax) + (:clc) + ))) + (do-it))) + + (define-primitive-function fast-eql (x y) "Compare EAX and EBX under EQL, result in ZF. Preserve EAX and EBX." @@ -337,9 +388,7 @@ (:call-global-pf fast-compare-two-reals)))))) ((movitz:movitz-constantp n2 env) `(=%2op ,n2 ,n1)) - (t `(with-inline-assembly (:returns :boolean-zf=1 :side-effects nil) - (:compile-two-forms (:eax :ebx) ,n1 ,n2) - (:call-global-pf fast-compare-two-reals))))) + (t `(eql ,n1 ,n2)))) (define-number-relational = =%2op nil :defun-p nil) @@ -349,7 +398,10 @@ (unless (= first-number n) (return nil)))) -(define-number-relational /= /=%2op :boolean-zf=0 :defun-p nil) +(define-compiler-macro /=%2op (n1 n2) + `(not (= ,n1 ,n2))) + +(define-number-relational /= /=%2op nil :defun-p nil) (defun /= (&rest numbers) (declare (dynamic-extent numbers)) @@ -724,9 +776,9 @@ (:testb 7 :cl) (:jnz '(:sub-program (not-a-number) (:compile-form (:result-mode :ignore) - (if (ratio-p x) - (make-rational (- (ratio-numerator x)) - (ratio-denominator x)) + (if (typep x 'ratio) + (make-rational (- (%ratio-numerator x)) + (%ratio-denominator x)) (error 'type-error :expected-type 'number :datum x))))) (:movl (:eax ,movitz:+other-type-offset+) :ecx) (:cmpb ,(movitz:tag :bignum) :cl) @@ -1212,21 +1264,21 @@ (defun truncate (number &optional (divisor 1)) (numargs-case (1 (number) - (if (not (ratio-p number)) + (if (not (typep number 'ratio)) (values number 0) (multiple-value-bind (q r) - (truncate (ratio-numerator number) - (ratio-denominator number)) - (values q (make-rational r (ratio-denominator number)))))) + (truncate (%ratio-numerator number) + (%ratio-denominator number)) + (values q (make-rational r (%ratio-denominator number)))))) (t (number divisor) (number-double-dispatch (number divisor) ((t (eql 1)) - (if (not (ratio-p number)) + (if (not (typep number 'ratio)) (values number 0) (multiple-value-bind (q r) - (truncate (ratio-numerator number) - (ratio-denominator number)) - (values q (make-rational r (ratio-denominator number)))))) + (truncate (%ratio-numerator number) + (%ratio-denominator number)) + (values q (make-rational r (%ratio-denominator number)))))) ((fixnum fixnum) (with-inline-assembly (:returns :multiple-values) (:compile-form (:result-mode :eax) number) @@ -1414,10 +1466,10 @@ (defun / (number &rest denominators) (numargs-case (1 (x) - (if (not (ratio-p x)) + (if (not (typep x 'ratio)) (make-rational 1 x) - (make-rational (ratio-denominator x) - (ratio-numerator x)))) + (make-rational (%ratio-denominator x) + (%ratio-numerator x)))) (2 (x y) (multiple-value-bind (q r) (truncate x y) @@ -2172,11 +2224,11 @@ "This is floor written in terms of truncate." (numargs-case (1 (n) - (if (not (ratio-p n)) + (if (not (typep n 'ratio)) (values n 0) (multiple-value-bind (r q) - (floor (ratio-numerator n) (ratio-denominator n)) - (values r (make-rational q (ratio-denominator n)))))) + (floor (%ratio-numerator n) (%ratio-denominator n)) + (values r (%make-rational q (%ratio-denominator n)))))) (2 (n divisor) (multiple-value-bind (q r) (truncate n divisor)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/basic-macros.lisp
by Frode Vatvedt Fjeld 01 Aug '04

01 Aug '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv15555 Modified Files: basic-macros.lisp Log Message: Added 'complicated-eql' that understands ratios. Also, now = is essentially the same as eql. Date: Sat Jul 31 17:37:26 2004 Author: ffjeld Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.35 movitz/losp/muerte/basic-macros.lisp:1.36 --- movitz/losp/muerte/basic-macros.lisp:1.35 Wed Jul 28 18:24:45 2004 +++ movitz/losp/muerte/basic-macros.lisp Sat Jul 31 17:37:26 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.35 2004/07/29 01:24:45 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.36 2004/08/01 00:37:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -438,11 +438,15 @@ `(eql ,y ,x)) ((and (movitz:movitz-constantp x env) (not (typep (movitz:movitz-eval x env) - '(and integer (not fixnum))))) + '(and number (not fixnum))))) `(eq ',(movitz:movitz-eval x env) ,y)) - (t `(with-inline-assembly (:returns :boolean-zf=1) + (t `(with-inline-assembly (:returns :boolean-zf=1 :labels (eql-done)) (:compile-two-forms (:eax :ebx) ,x ,y) - (:call-global-pf fast-eql))))) + (:cmpl :eax :ebx) + (:je 'eql-done) + (:globally (:movl (:edi (:edi-offset complicated-eql)) :esi)) + (:call (:esi (:offset movitz-funobj code-vector%2op))) + eql-done)))) (define-compiler-macro values (&rest sub-forms) `(inline-values ,@sub-forms))

1 0

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 01 Aug '04

01 Aug '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv11774 Modified Files: image.lisp Log Message: Added 'complicated-eql' that understands ratios. Also, now = is essentially the same as eql. Date: Sat Jul 31 17:37:22 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.59 movitz/image.lisp:1.60 --- movitz/image.lisp:1.59 Sat Jul 31 16:34:52 2004 +++ movitz/image.lisp Sat Jul 31 17:37:22 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.59 2004/07/31 23:34:52 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.60 2004/08/01 00:37:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -289,6 +289,12 @@ :binary-tag :primitive-function) (+ :initform 'muerte.cl:+ + :binary-type word + :binary-tag :global-function + :map-binary-write 'movitz-intern + :map-binary-read-delayed 'movitz-word) + (complicated-eql + :initform 'muerte::complicated-eql :binary-type word :binary-tag :global-function :map-binary-write 'movitz-intern

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/typep.lisp
by Frode Vatvedt Fjeld 31 Jul '04

31 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv29280 Modified Files: typep.lisp Log Message: Changed the implementation of ratios from a defstruct to a built-in structure. Date: Sat Jul 31 16:35:14 2004 Author: ffjeld Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.35 movitz/losp/muerte/typep.lisp:1.36 --- movitz/losp/muerte/typep.lisp:1.35 Wed Jul 28 07:50:26 2004 +++ movitz/losp/muerte/typep.lisp Sat Jul 31 16:35:13 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.35 2004/07/28 14:50:26 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.36 2004/07/31 23:35:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -179,6 +179,8 @@ (make-other-typep :bignum 0)) ((negative-bignum) (make-other-typep :bignum #xff)) + ((ratio) + (make-other-typep :ratio)) ((integer) `(with-inline-assembly-case () (do-case (t :boolean-zf=1 :labels (done)) @@ -556,12 +558,11 @@ (define-simple-typep (bignum bignump) (x) (typep x 'bignum)) +(define-simple-typep (rational rationalp) (x) + (typep x '(or fixnum bignum ratio))) + (define-simple-typep (number numberp) (x) - "Currently, only integers and ratios are supported." - (or (typep x 'fixnum) - (and (typep x 'tag6) - (or (typep x 'bignum) - (ratio-p x))))) + (typep x 'rational)) (define-simple-typep (function functionp) (x) (typep x 'function))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/ratios.lisp
by Frode Vatvedt Fjeld 31 Jul '04

31 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv28989 Modified Files: ratios.lisp Log Message: Changed the implementation of ratios from a defstruct to a built-in structure. Date: Sat Jul 31 16:35:09 2004 Author: ffjeld Index: movitz/losp/muerte/ratios.lisp diff -u movitz/losp/muerte/ratios.lisp:1.4 movitz/losp/muerte/ratios.lisp:1.5 --- movitz/losp/muerte/ratios.lisp:1.4 Fri Jul 30 15:04:17 2004 +++ movitz/losp/muerte/ratios.lisp Sat Jul 31 16:35:09 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 20 00:39:59 2004 ;;;; -;;;; $Id: ratios.lisp,v 1.4 2004/07/30 22:04:17 ffjeld Exp $ +;;;; $Id: ratios.lisp,v 1.5 2004/07/31 23:35:09 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -21,9 +21,37 @@ (in-package muerte) -(defstruct (ratio (:constructor make-ratio (numerator denominator)) - (:superclass rational)) - numerator denominator) +;;;(defstruct (ratio (:constructor make-ratio (numerator denominator)) +;;; (:superclass rational)) +;;; numerator denominator) + +(defun make-ratio (numerator denominator) + (check-type numerator integer) + (check-type denominator (integer 1 *)) + (let ((ratio (malloc-pointer-words 4))) + (setf (memref ratio #.(bt:slot-offset 'movitz:movitz-basic-vector 'movitz::type) + 0 :unsigned-byte32) + #.(movitz:tag :ratio)) + (setf (memref ratio -6 2 :lisp) numerator + (memref ratio -6 3 :lisp) denominator) + ratio)) + +(defun ratio-p (x) + (typep x 'ratio)) + +(define-compiler-macro %ratio-numerator (x) + `(memref ,x ,(bt:slot-offset 'movitz::movitz-ratio 'movitz::numerator) 0 :lisp)) + +(defun ratio-numerator (x) + (check-type x ratio) + (%ratio-numerator x)) + +(define-compiler-macro %ratio-denominator (x) + `(memref ,x ,(bt:slot-offset 'movitz::movitz-ratio 'movitz::denominator) 0 :lisp)) + +(defun ratio-denominator (x) + (check-type x ratio) + (%ratio-denominator x)) (defun make-rational (numerator denominator) (check-type numerator integer) @@ -44,11 +72,11 @@ (defun numerator (x) (etypecase x (integer x) - (ratio (ratio-numerator x)))) + (ratio (%ratio-numerator x)))) (defun denominator (x) (etypecase x (integer 1) - (ratio (ratio-denominator x)))) + (ratio (%ratio-denominator x)))) (defconstant pi #xea7632a/4aa1a8b)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by Frode Vatvedt Fjeld 31 Jul '04

31 Jul '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25568 Modified Files: primitive-functions.lisp Log Message: Changed the implementation of ratios from a defstruct to a built-in structure. Date: Sat Jul 31 16:35:04 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.35 movitz/losp/muerte/primitive-functions.lisp:1.36 --- movitz/losp/muerte/primitive-functions.lisp:1.35 Mon Jul 26 14:02:25 2004 +++ movitz/losp/muerte/primitive-functions.lisp Sat Jul 31 16:35:03 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.35 2004/07/26 21:02:25 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.36 2004/07/31 23:35:03 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -718,6 +718,8 @@ (defun complicated-class-of (object) (typecase object + (ratio + (find-class 'ratio)) (std-instance (movitz-accessor object movitz-std-instance class)) (standard-gf-instance

1 0

[movitz-cvs] CVS update: movitz/storage-types.lisp
by Frode Vatvedt Fjeld 31 Jul '04

31 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv20948 Modified Files: storage-types.lisp Log Message: Changed the implementation of ratios from a defstruct to a built-in structure. Date: Sat Jul 31 16:34:57 2004 Author: ffjeld Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.36 movitz/storage-types.lisp:1.37 --- movitz/storage-types.lisp:1.36 Wed Jul 28 19:14:35 2004 +++ movitz/storage-types.lisp Sat Jul 31 16:34:57 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.36 2004/07/29 02:14:35 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.37 2004/07/31 23:34:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -69,6 +69,8 @@ :basic-vector #x22 :funobj #x3a :bignum #x4a + :ratio #x52 + :complex #x5a :defstruct #x20 :std-instance #x40 :run-time-context #x50 @@ -1255,3 +1257,38 @@ (#x00 x) (#xff (- x)))) header)) + +(define-binary-class movitz-ratio (movitz-heap-object-other) + ((type + :binary-type other-type-byte + :initform :ratio) + (dummy0 + :binary-type u8 + :initform 0) + (dummy1 + :binary-type lu16 + :initform 0) + (dummy2 + :binary-type word + :initform 0) + (numerator + :binary-type word + :map-binary-read-delayed 'movitz-word + :map-binary-write 'movitz-read-and-intern) + (denominator + :binary-type word + :map-binary-read-delayed 'movitz-word + :map-binary-write 'movitz-read-and-intern) + (value + :reader movitz-ratio-value + :initarg :value)) + (:slot-align type #.+other-type-offset+)) + +(defmethod write-binary-record ((obj movitz-ratio) stream) + (declare (ignore stream)) + (let ((value (movitz-ratio-value obj))) + (check-type value ratio) + (setf (slot-value obj 'numerator) (numerator value) + (slot-value obj 'denominator) (denominator value)) + (call-next-method))) + \ No newline at end of file

1 0

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 31 Jul '04

31 Jul '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv19328 Modified Files: image.lisp Log Message: Changed the implementation of ratios from a defstruct to a built-in structure. Date: Sat Jul 31 16:34:52 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.58 movitz/image.lisp:1.59 --- movitz/image.lisp:1.58 Fri Jul 30 14:06:22 2004 +++ movitz/image.lisp Sat Jul 31 16:34:52 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.58 2004/07/30 21:06:22 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.59 2004/07/31 23:34:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -618,7 +618,7 @@ (defmethod image-classes-map ((image symbolic-image)) '(muerte.cl:null muerte.cl:cons muerte.cl:fixnum muerte.cl:symbol muerte.cl:character muerte.cl:function muerte.cl:condition - muerte.cl:integer muerte.cl:ratio + muerte.cl:integer muerte.cl:ratio muerte.cl:complex muerte.cl:vector muerte.cl:string muerte.cl:bit-vector muerte.cl:array muerte.cl:class muerte.cl:standard-class muerte.cl:standard-generic-function @@ -1472,6 +1472,9 @@ (hash-table (make-movitz-hash-table expr)) (ratio + (make-instance 'movitz-ratio + :value expr) + #+ignore (let ((slot-descriptions (gethash 'muerte.cl::ratio (image-struct-slot-descriptions *image*) nil)))

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs