movitz-cvs April 2008

movitz-cvs@common-lisp.net

1 participants
115 discussions

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv14769 Modified Files: integers.lisp Log Message: Remove superfluous logandc1 and logandc2. --- /project/movitz/cvsroot/movitz/losp/muerte/integers.lisp 2008/04/13 08:21:40 1.125 +++ /project/movitz/cvsroot/movitz/losp/muerte/integers.lisp 2008/04/17 19:34:39 1.126 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.125 2008/04/13 08:21:40 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.126 2008/04/17 19:34:39 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -2300,14 +2300,6 @@ (declare (ignore integer-1)) integer-2) -(defun logandc1 (integer-1 integer-2) - (logand (lognot integer-1) - integer-2)) - -(defun logandc2 (integer-1 integer-2) - (logand integer-1 - (lognot integer-2))) - (defun boole-c1 (integer-1 integer-2) (declare (ignore integer-2)) (lognot integer-1))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv14683 Modified Files: hash-tables.lisp Log Message: Fix the utterly broken remhash. --- /project/movitz/cvsroot/movitz/losp/muerte/hash-tables.lisp 2007/02/06 20:03:57 1.13 +++ /project/movitz/cvsroot/movitz/losp/muerte/hash-tables.lisp 2008/04/17 19:34:08 1.14 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Feb 19 19:09:05 2001 ;;;; -;;;; $Id: hash-tables.lisp,v 1.13 2007/02/06 20:03:57 ffjeld Exp $ +;;;; $Id: hash-tables.lisp,v 1.14 2008/04/17 19:34:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -246,8 +246,9 @@ ((>= i bucket-length) nil) (declare ((index 2) i index2)) (let ((x (svref bucket index2))) - (when (or (eq x '--no-hash-key--) - (funcall (hash-table-test hash-table) x key)) + (when (eq x '--no-hash-key--) + (return nil)) + (when (funcall (hash-table-test hash-table) x key) (setf (svref bucket index2) '--no-hash-key--) (decf (hash-table-count hash-table)) ;; Now we must rehash any entries that might have been @@ -257,10 +258,11 @@ ((= i index2)) (declare ((index 2) i)) (let ((k (svref bucket i))) - (when (eq x '--no-hash-key--) + (when (eq k '--no-hash-key--) (return)) (let ((v (svref bucket (1+ i)))) (setf (svref bucket i) '--no-hash-key--) ; remove + (decf (hash-table-count hash-table)) (setf (gethash k hash-table) v)))) ; insert (hopefully this is safe..) (return t))))) @@ -282,5 +284,5 @@ (get-next-entry) (if (not entry-p) (return nil) - (map key value))))))) + (map key value)))))))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv14612 Modified Files: eval.lisp Log Message: Prefer assert over unless .. error. --- /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp 2008/04/13 20:12:37 1.30 +++ /project/movitz/cvsroot/movitz/losp/muerte/eval.lisp 2008/04/17 19:33:48 1.31 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 19 21:15:12 2001 ;;;; -;;;; $Id: eval.lisp,v 1.30 2008/04/13 20:12:37 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.31 2008/04/17 19:33:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -487,7 +487,7 @@ (declare (ignore)) (let* ((tag (cadr form)) (b (cdr (op-env-binding env tag +eval-binding-type-go-tag+)))) - (unless b (error "Go-tag ~S is not visible." tag)) + (assert b () "Go-tag ~S is not visible." tag) (throw (cdr b) (values tag)))) (defun eval-set-variable (variable-name value env)

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv14536 Modified Files: environment.lisp Log Message: Fresh-lines in trace output. --- /project/movitz/cvsroot/movitz/losp/muerte/environment.lisp 2006/04/07 21:53:47 1.15 +++ /project/movitz/cvsroot/movitz/losp/muerte/environment.lisp 2008/04/17 19:33:27 1.16 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Oct 20 00:41:57 2001 ;;;; -;;;; $Id: environment.lisp,v 1.15 2006/04/07 21:53:47 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.16 2008/04/17 19:33:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -86,7 +86,7 @@ (fresh-line *trace-output*) (dotimes (i *trace-level*) (write-string " " *trace-output*)) - (format *trace-output* "~D: (~S~{ ~S~})~%" + (format *trace-output* "~&~D: (~S~{ ~S~})~%" *trace-level* function-name args)) (multiple-value-call (lambda (&rest results) @@ -95,7 +95,7 @@ (fresh-line *trace-output*) (dotimes (i (min *trace-level* 10)) (write-string " " *trace-output*)) - (format *trace-output* "~D: =>~{ ~W~^,~}.~%" + (format *trace-output* "~&~D: =>~{ ~W~^,~}.~%" *trace-level* results) (values-list results))) (let ((*trace-level* (1+ *trace-level*))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv14469 Modified Files: defstruct.lisp Log Message: Fix a bug where the :copier and :constructor options were mixed up. --- /project/movitz/cvsroot/movitz/losp/muerte/defstruct.lisp 2008/03/15 20:57:34 1.18 +++ /project/movitz/cvsroot/movitz/losp/muerte/defstruct.lisp 2008/04/17 19:33:11 1.19 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Jan 22 13:10:59 2001 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: defstruct.lisp,v 1.18 2008/03/15 20:57:34 ffjeld Exp $ +;;;; $Id: defstruct.lisp,v 1.19 2008/04/17 19:33:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -168,7 +168,7 @@ (:conc-name (push (string (or parameter "")) (getf collector :conc-name))) (:constructor (push parameter (getf collector :constructor))) - (:copier (push parameter (getf collector :constructor))) + (:copier (push parameter (getf collector :copier))) (:predicate (push parameter (getf collector :predicate))) (:type (push parameter (getf collector :type))) (:initial-offset (push parameter (getf collector :initial-offset)))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv14362 Modified Files: conditions.lisp Log Message: Add defun simple-program-error. --- /project/movitz/cvsroot/movitz/losp/muerte/conditions.lisp 2008/04/09 18:01:36 1.26 +++ /project/movitz/cvsroot/movitz/losp/muerte/conditions.lisp 2008/04/17 19:32:27 1.27 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Nov 20 15:47:04 2002 ;;;; -;;;; $Id: conditions.lisp,v 1.26 2008/04/09 18:01:36 ffjeld Exp $ +;;;; $Id: conditions.lisp,v 1.27 2008/04/17 19:32:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -102,6 +102,11 @@ (define-condition program-error (error) ()) +(defun simple-program-error (format-control &rest format-arguments) + (error 'program-error + :format-control format-control + :format-argumetns format-arguments)) + (define-condition type-error (error) ((expected-type :initarg :expected-type

1 0

[movitz-cvs] CVS movitz/losp
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp In directory clnet:/tmp/cvs-serv14218 Modified Files: los0.lisp Log Message: Initialize loop macroexpander at startup. --- /project/movitz/cvsroot/movitz/losp/los0.lisp 2007/04/09 17:30:15 1.51 +++ /project/movitz/cvsroot/movitz/losp/los0.lisp 2008/04/17 19:31:13 1.52 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.51 2007/04/09 17:30:15 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.52 2008/04/17 19:31:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -56,7 +56,7 @@ (in-package los0) ;; (defun load-ansi-tests () -;; (load "../ansi-tests.lisp")) +;; (load "ansi-tests.lisp")) (defun assess-cpu-frequency () "Assess the CPU's frequency in units of 1024 Hz." @@ -470,7 +470,9 @@ *standard-input* s *terminal-io* s *debug-io* s))) - + (when (fboundp 'muerte::make-ansi-loop-universe) + (setf muerte::*loop-ansi-universe* + (muerte::make-ansi-loop-universe nil))) (setf threading:*segment-descriptor-table-manager* (make-instance 'threading:segment-descriptor-table-manager))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv14102 Modified Files: loop.lisp Log Message: Make loop work at run-time. --- /project/movitz/cvsroot/movitz/losp/muerte/loop.lisp 2008/03/15 20:57:44 1.8 +++ /project/movitz/cvsroot/movitz/losp/muerte/loop.lisp 2008/04/17 19:30:43 1.9 @@ -64,8 +64,19 @@ ;;;(in-package :ansi-loop) -(provide :muerte/loop :load-priority 0) +(provide :muerte/loop :load-priority 1) +#+movitz +(progn + (defmacro movitz-macroexpand (&rest args) + `(macroexpand ,@args)) + (defmacro movitz-macroexpand-1 (&rest args) + `(macroexpand-1 ,@args)) + (eval-when (:compile-toplevel) + (defmacro movitz-macroexpand (&rest args) + `(movitz::movitz-macroexpand ,@args)) + (defmacro movitz-macroexpand-1 (&rest args) + `(movitz::movitz-macroexpand-1 ,@args)))) ;;;This is the "current" loop context in use when we are expanding a ;;;loop. It gets bound on each invocation of LOOP. @@ -76,7 +87,7 @@ ;;@@@@Explorer?? #-Genera `(copy-list ,l)) -(eval-when (:compile-toplevel) +(eval-when (:compile-toplevel :load-toplevel :execute) (defvar *loop-real-data-type* 'real) (defvar *loop-universe*) @@ -256,12 +267,11 @@ ,@body))) -(defmacro/cross-compilation loop-collect-rplacd (&environment env +(defmacro loop-collect-rplacd (&environment env (head-var tail-var &optional user-head-var) form) (declare - #+LISPM (ignore head-var user-head-var) ;use locatives, unconditionally update through the tail. - ) - (setq form (movitz::movitz-macroexpand form env)) + #+LISPM (ignore head-var user-head-var)) ;use locatives, unconditionally update through the tail. + (setq form (movitz-macroexpand form env)) (flet ((cdr-wrap (form n) (declare (fixnum n)) (do () ((<= n 4) (setq form `(,(case n @@ -364,7 +374,7 @@ ;;;; Maximization Technology -(eval-when (:compile-toplevel :execute) +(eval-when (:compile-toplevel :load-toplevel :execute) #| The basic idea of all this minimax randomness here is that we have to @@ -494,7 +504,7 @@ ;;;; Token Hackery -(eval-when (:compile-toplevel #+movitz-loop :load-toplevel) +(eval-when (:compile-toplevel :load-toplevel :execute) ;;;Compare two "tokens". The first is the frob out of *LOOP-SOURCE-CODE*, @@ -712,7 +722,7 @@ -(eval-when (:compile-toplevel #+movitz-loop :load-toplevel) +(eval-when (:compile-toplevel :load-toplevel :execute) ;;;; Code Analysis Stuff @@ -812,8 +822,10 @@ (dolist (x l n) (incf n (estimate-code-size-1 x env)))))) ;;@@@@ ???? (declare (function list-size (list) fixnum)) (cond ((constantp x #+Genera env) 1) - ((symbolp x) (multiple-value-bind (new-form expanded-p) (movitz::movitz-macroexpand-1 x env) - (if expanded-p (estimate-code-size-1 new-form env) 1))) + ((symbolp x) + (multiple-value-bind (new-form expanded-p) + (movitz-macroexpand-1 x env) + (if expanded-p (estimate-code-size-1 new-form env) 1))) ((atom x) 1) ;??? self-evaluating??? ((symbolp (car x)) (let ((fn (car x)) (tem nil) (n 0)) @@ -848,7 +860,8 @@ ((eq fn 'return-from) (1+ (estimate-code-size-1 (third x) env))) ((or (special-operator-p fn) (member fn *estimate-code-size-punt*)) (throw 'estimate-code-size nil)) - (t (multiple-value-bind (new-form expanded-p) (movitz::movitz-macroexpand-1 x env) + (t (multiple-value-bind (new-form expanded-p) + (movitz-macroexpand-1 x env) (if expanded-p (estimate-code-size-1 new-form env) (f 3)))))))) @@ -864,14 +877,12 @@ (defun loop-error (format-string &rest format-args) - #+movitz (declare (dynamic-extent format-args)) #+(or Genera CLOE) (declare (dbg:error-reporter)) #+Genera (setq format-args (copy-list format-args)) ;Don't ask. (error "~?~%Current LOOP context:~{ ~S~}." format-string format-args (loop-context))) (defun loop-warn (format-string &rest format-args) - #+movitz (declare (dynamic-extent format-args)) (warn "~?~%Current LOOP context:~{ ~S~}." format-string format-args (loop-context))) @@ -919,11 +930,11 @@ (loop-iteration-driver) (loop-bind-block) (let ((answer `(loop-body - ,(nreverse *loop-prologue*) - ,(nreverse *loop-before-loop*) - ,(nreverse *loop-body*) - ,(nreverse *loop-after-body*) - ,(nreconc *loop-epilogue* (nreverse *loop-after-epilogue*))))) + ,(reverse *loop-prologue*) + ,(reverse *loop-before-loop*) + ,(reverse *loop-body*) + ,(reverse *loop-after-body*) + ,(revappend *loop-epilogue* (reverse *loop-after-epilogue*))))) (do () (nil) (setq answer `(block ,(pop *loop-names*) ,answer)) (unless *loop-names* (return nil))) @@ -1234,7 +1245,7 @@ -(eval-when (:compile-toplevel #+movitz-loop :load-toplevel) +(eval-when (:compile-toplevel :load-toplevel :execute) (defun loop-get-collection-info (collector class default-type) (let ((form (loop-get-form)) @@ -2037,10 +2048,6 @@ w)) -(defparameter *loop-ansi-universe* - (make-ansi-loop-universe nil)) - - (defun loop-standard-expansion (keywords-and-forms environment universe) (if (and keywords-and-forms (symbolp (car keywords-and-forms))) (loop-translate keywords-and-forms environment universe) @@ -2049,14 +2056,21 @@ ) +(eval-when (:compile-toplevel) + (defvar *loop-ansi-universe* + (make-ansi-loop-universe nil))) + +(eval-when (:load-toplevel :execute) + (defvar *loop-ansi-universe* nil)) + ;;;INTERFACE: ANSI -(defmacro/cross-compilation loop (&rest keywords-and-forms) +(defmacro loop (&rest keywords-and-forms) #+Genera (declare (compiler:do-not-record-macroexpansions) (zwei:indentation . zwei:indent-loop)) (loop-standard-expansion keywords-and-forms nil *loop-ansi-universe*)) ;;;INTERFACE: Traditional, ANSI, Lucid. -(defmacro/cross-compilation loop-finish () +(defmacro loop-finish () "Causes the iteration to terminate \"normally\", the same as implicit termination by an iteration driving clause, or by use of WHILE or UNTIL -- the epilogue code (if any) will be run, and any implicitly @@ -2064,12 +2078,12 @@ '(go end-loop)) -(defmacro/cross-compilation loop-body (prologue - before-loop - main-body - after-loop - epilogue - &aux (env nil) rbefore rafter flagvar) +(defmacro loop-body (prologue + before-loop + main-body + after-loop + epilogue + &aux (env nil) rbefore rafter flagvar) (unless (= (length before-loop) (length after-loop)) (error "LOOP-BODY called with non-synched before- and after-loop lists.")) ;;All our work is done from these copies, working backwards from the end: @@ -2141,7 +2155,7 @@ (return))))))) -(defmacro/cross-compilation loop-really-desetq (&rest var-val-pairs &aux (env nil)) +(defmacro loop-really-desetq (&rest var-val-pairs &aux (env nil)) (labels ((find-non-null (var) ;; see if there's any non-null thing here ;; recurse if the list element is itself a list @@ -2161,7 +2175,7 @@ (and (consp x) (or (not (eq (car x) 'car)) (not (symbolp (cadr x))) - (not (symbolp (setq x (movitz::movitz-macroexpand x env))))) + (not (symbolp (setq x (movitz-macroexpand x env))))) (cons x nil))) (cdr val)) `(,val))))

1 0

[movitz-cvs] CVS movitz
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv13777 Modified Files: special-operators.lisp Log Message: Tweak assembly-macro :lexical-store. --- /project/movitz/cvsroot/movitz/special-operators.lisp 2008/04/12 16:23:26 1.58 +++ /project/movitz/cvsroot/movitz/special-operators.lisp 2008/04/17 19:28:37 1.59 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.58 2008/04/12 16:23:26 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.59 2008/04/17 19:28:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -564,9 +564,11 @@ nil)) (setf (assembly-macro-expander :lexical-store amenv) (lambda (expr) - (destructuring-bind (var reg &key (type t)) + (destructuring-bind (var reg &key (type t) protect-registers) (cdr expr) - `((:store-lexical ,(movitz-binding var env) ,reg :type ,type))))) + `((:store-lexical ,(movitz-binding var env) ,reg + :type ,type + :protect-registers ,protect-registers))))) (setf (assembly-macro-expander :lexical-binding amenv) (lambda (expr) (destructuring-bind (var)

1 0

[movitz-cvs] CVS movitz
by ffjeld 17 Apr '08

17 Apr '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv13631 Modified Files: image.lisp Log Message: Tweak dump-image wrt. qemu-align. --- /project/movitz/cvsroot/movitz/image.lisp 2008/04/12 16:43:49 1.121 +++ /project/movitz/cvsroot/movitz/image.lisp 2008/04/17 19:27:43 1.122 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.121 2008/04/12 16:43:49 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.122 2008/04/17 19:27:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -839,14 +839,15 @@ (values)) (defun dump-image (&key (path *default-image-file*) ((:image *image*) *image*) - (multiboot-p t) ignore-dump-count (qemu-align-p t)) + (multiboot-p t) ignore-dump-count (qemu-align :floppy)) "When <multiboot-p> is true, include a MultiBoot-compliant header in the image." (when (and (not ignore-dump-count) (= 0 (dump-count *image*))) ;; This is a hack to deal with the fact that the first dump won't work ;; because the packages aren't properly set up. (format t "~&;; Doing initiating dump..") - (dump-image :path path :multiboot-p multiboot-p :ignore-dump-count t) + (dump-image :path path :multiboot-p multiboot-p :ignore-dump-count t + :qemu-align nil) (assert (plusp (dump-count *image*)))) (setf (movitz-symbol-value (movitz-read 'muerte:*build-number*)) (1+ *bootblock-build*)) @@ -969,8 +970,8 @@ (image-end (file-position stream)) (kernel-size (- image-end image-start))) (format t "~&;; Kernel size: ~D octets.~%" kernel-size) - (cond - (qemu-align-p + (ecase qemu-align + (:floppy ;; QEMU is rather stupid about "auto-detecting" floppy geometries. (loop for qemu-geo in '(320 360 640 720 720 820 840 1440 1440 1600 1640 1660 1760 2080 2240 2400 2880 2952 2988 3200 3200 3360 3444 3486 3520 3680 3840 5760 6240 6400 7040 7680) @@ -980,13 +981,19 @@ (write-byte #x0 stream) (return)) finally - (cerror "Never mind, dump the image." - "No matching QEMU floppy geometry for size ~,2F MB." (/ image-end (* 1024 1024))))) - (t (let ((align-image-size 512)) ; Ensure image is multiple of x octets - (unless (zerop (mod image-end align-image-size)) - (set-file-position stream (+ image-end (- (1- align-image-size) (mod image-end 512))) - 'pad-image-tail) - (write-byte #x0 stream))))) + (cerror "Never mind, dump the image without any QEMU geometry alignment." + "No matching QEMU floppy geometry for size ~,2F MB." + (/ image-end (* 1024 1024))))) + (:hd (let ((align-image-size (* 512 16 63))) ; Ensure image is multiple of x octets + (unless (zerop (mod image-end align-image-size)) + (set-file-position stream (+ image-end (- (1- align-image-size) (mod image-end 512))) + 'pad-image-tail) + (write-byte #x0 stream)))) + ((nil) (let ((align-image-size (* 512 1))) ; Ensure image is multiple of x octets + (unless (zerop (mod image-end align-image-size)) + (set-file-position stream (+ image-end (- (1- align-image-size) (mod image-end 512))) + 'pad-image-tail) + (write-byte #x0 stream))))) (format t "~&;; Image file size: ~D octets.~%" image-end) ;; Write simple stage1 bootblock into sector 0.. (format t "~&;; Dump count: ~D." (incf (dump-count *image*)))

1 0

← Newer
1
...
5
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs April 2008