* Fix d3d10effect.lisp - effect matrix variables
  should be of arbitrary size, not just 4x4.
* Make more use of %get-value-into and %read-value-into.
* Rewrite memory accessor code generators. At the time they look crappy.
* Compile and load speed is VERY SLOW at the moment, especially on clisp.
  Fix it, if possible.

(declaim (inline %ratio))
(defstruct (%ratio (:constructor %ratio (x y)))
  (x 1 :type integer)
  (y 2 :type (and integer (not (eql 0)))))

(defun test (x)
  (%ratio x 0))

; compiling (DECLAIM (INLINE %RATIO))
; compiling (DEFSTRUCT (%RATIO #) ...)
; compiling (DEFUN TEST ...)

; file: D:\SBCL\test.lisp
; in: DEFUN TEST
;     (%RATIO X 0)
; 
; note: deleting unreachable code

; --> BLOCK SB-KERNEL::%MAKE-STRUCTURE-INSTANCE-MACRO TRULY-THE 
; --> SB-KERNEL:%MAKE-STRUCTURE-INSTANCE 
; ==>
;   X
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; caught WARNING:
;   Asserted type (OR (INTEGER * -1) (INTEGER 1)) conflicts with derived type
;   (VALUES (INTEGER 0 0) &OPTIONAL).
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; compilation unit finished
;   caught 1 WARNING condition
;   printed 3 notes

(defun test (v out n)
  (declare (type fixnum n)
           (type vector3 v out)
           (optimize (speed 3) (space 0) (safety 0) (debug 0)))
  (dotimes (i n) (vec3-add v out out)))

;;; (defun test (v out n) (declare (type fixnum n) (type vector3 v out) (optimize (speed 3) (space 0) (s
  [0]     (recover-fn)
  [5]     (movl (% ebp) (@ 8 (% esp)))
  [9]     (leal (@ 8 (% esp)) (% ebp))
  [13]    (popl (@ 4 (% ebp)))
  [16]    (pushl (% arg_y))
  [17]    (pushl (% arg_z))

;;; (dotimes (i n) (vec3-add v out out))
  [18]    (pushl ($ 0))
  [20]    (jmpl L728)

;;; (vec3-add v out out)
L25
( ~160 строчек )
;;; (dotimes (i n) (vec3-add v out out))
  [719]   (movl (@ -16 (% ebp)) (% arg_z))
  [722]   (addl ($ 4) (% arg_z))
  [725]   (movl (% arg_z) (@ -16 (% ebp)))
L728
  [728]   (movl (@ -16 (% ebp)) (% arg_y))
  [731]   (movl (@ -12 (% ebp)) (% arg_z))
  [734]   (cmpl (% arg_z) (% arg_y))
  [736]   (jl L25)
  [742]   (movl ($ 77825) (% arg_z))
  [747]   (leavel)
  [748]   (retl)

; disassembly for TEST
; 24C56BBA:       31C0             XOR EAX, EAX               ; no-arg-parsing entry point
;      BBC:       EB39             JMP L1
;      BBE: L0:   DDD8             FSTPD FR0
;      BC0:       D94201           FLD [EDX+1]
;      BC3:       DDD9             FSTPD FR1
;      BC5:       D94701           FLD [EDI+1]
;      BC8:       D9C9             FXCH FR1
;      BCA:       D8C1             FADDD FR1
;      BCC:       9B               WAIT
;      BCD:       D95701           FST [EDI+1]
;      BD0:       DDD8             FSTPD FR0
;      BD2:       D94205           FLD [EDX+5]
;      BD5:       DDD9             FSTPD FR1
;      BD7:       D94705           FLD [EDI+5]
;      BDA:       D9C9             FXCH FR1
;      BDC:       D8C1             FADDD FR1
;      BDE:       9B               WAIT
;      BDF:       D95705           FST [EDI+5]
;      BE2:       DDD8             FSTPD FR0
;      BE4:       D94209           FLD [EDX+9]
;      BE7:       DDD9             FSTPD FR1
;      BE9:       D94709           FLD [EDI+9]
;      BEC:       D9C9             FXCH FR1
;      BEE:       D8C1             FADDD FR1
;      BF0:       9B               WAIT
;      BF1:       D95709           FST [EDI+9]
;      BF4:       83C004           ADD EAX, 4
;      BF7: L1:   39F0             CMP EAX, ESI
;      BF9:       7CC3             JL L0
;      BFB:       BA0B001022       MOV EDX, 571473931
;      C00:       8BE5             MOV ESP, EBP
;      C02:       F8               CLC
;      C03:       5D               POP EBP
;      C04:       C3               RET