floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix type spec in maths module

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-12-27 14:17:11 +01:00
parent fc69969099
commit 0aef2509d5
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
maths/types.lisp
View file

@ -21,22 +21,22 @@
:documentation "The internal representation of the vector")))
(defclass int2 (vect)
((array :type (array 'fixnum (2)))))
((array :type (array fixnum (2)))))
(defclass int3 (vect)
((array :type (array 'fixnum (3)))))
((array :type (array fixnum (3)))))
(defclass int4 (vect)
((array :type (array 'fixnum (4)))))
((array :type (array fixnum (4)))))
(defclass float2 (vect)
((array :type (array 'single-float (2)))))
((array :type (array single-float (2)))))
(defclass float3 (vect)
((array :type (array 'single-float (3)))))
((array :type (array single-float (3)))))
(defclass float4 (vect)
((array :type (array 'single-float (4)))))
((array :type (array single-float (4)))))
(defclass quaternion (float4)
())
@ -49,22 +49,22 @@
:documentation "The internal representation of the matrix")))
(defclass int22 (matrix)
((array :type (array 'fixnum (4)))))
((array :type (array fixnum (4)))))
(defclass int33 (matrix)
((array :type (array 'fixnum (9)))))
((array :type (array fixnum (9)))))
(defclass int44 (matrix)
((array :type (array 'fixnum (16)))))
((array :type (array fixnum (16)))))
(defclass float22 (matrix)
((array :type (array 'single-float (4)))))
((array :type (array single-float (4)))))
(defclass float33 (matrix)
((array :type (array 'single-float (9)))))
((array :type (array single-float (9)))))
(defclass float44 (matrix)
((array :type (array 'single-float (16)))))
((array :type (array single-float (16)))))
(defgeneric dimension (x))
(defmethod dimension ((x number)) 1)