[lisplab-cvs] r227 - in trunk/src: interface/1 vector/1/z

[jivestgarden at common-lisp.net]

Author: jivestgarden
Date: Sun Apr 15 12:36:00 2012
New Revision: 227

Log:
Moved class definition

Modified:
   trunk/src/interface/1/vector1-base.lisp
   trunk/src/vector/1/z/vector1-z.lisp

Modified: trunk/src/interface/1/vector1-base.lisp
==============================================================================
--- trunk/src/interface/1/vector1-base.lisp	Sun Apr 15 12:32:38 2012	(r226)
+++ trunk/src/interface/1/vector1-base.lisp	Sun Apr 15 12:36:00 2012	(r227)
@@ -31,10 +31,5 @@
 	  :reader vector-store
 	  :type (simple-array t (*)))))
 
-(defclass vector-z (vector-base element-complex-double-float)
-   ((store :initarg :store
-	   :initform nil
-	   :reader vector-store
-	   :type type-blas-store)))
 
 

Modified: trunk/src/vector/1/z/vector1-z.lisp
==============================================================================
--- trunk/src/vector/1/z/vector1-z.lisp	Sun Apr 15 12:32:38 2012	(r226)
+++ trunk/src/vector/1/z/vector1-z.lisp	Sun Apr 15 12:36:00 2012	(r227)
@@ -19,6 +19,12 @@
 
 (in-package :lisplab)
 
+(defclass vector-z (vector-base element-complex-double-float)
+   ((store :initarg :store
+	   :initform nil
+	   :reader vector-store
+	   :type type-blas-store)))
+
 (defmethod vref ((vector vector-z) i)
   (ref-blas-complex-store (slot-value vector 'store) i 0 1))