Skip to content
Snippets Groups Projects
Commit 80653962 authored by csr21's avatar csr21
Browse files

Give the result-type argument to SEQUENCE-GET so that xvidmode actually

Give the result-type argument to SEQUENCE-GET so that xvidmode actually
works. (checked on my laptop)

darcs-hash:20030430135830-ed5a3-552fe685683666fc6fbf8cbbea63b206a83a048f.gz
parent 15d59973
No related branches found
No related tags found
No related merge requests found
...@@ -262,7 +262,8 @@ into the returned structure." ...@@ -262,7 +262,8 @@ into the returned structure."
(incf offset 4) (incf offset 4)
(setf (mode-info-privsize mode-info) size (setf (mode-info-privsize mode-info) size
(mode-info-private mode-info) (mode-info-private mode-info)
(sequence-get :format card32 :index offset :length size)) (sequence-get :format card32 :index offset
:length size :result-type 'list))
mode-info)))) mode-info))))
(defun xfree86-vidmode-get-all-mode-lines (dpy screen) (defun xfree86-vidmode-get-all-mode-lines (dpy screen)
...@@ -304,7 +305,8 @@ The first element of the list corresponds to the current video mode." ...@@ -304,7 +305,8 @@ The first element of the list corresponds to the current video mode."
(setf size 0)) (setf size 0))
(setf (mode-info-privsize mode-info) size (setf (mode-info-privsize mode-info) size
(mode-info-private mode-info) (mode-info-private mode-info)
(sequence-get :format card32 :index offset :length size)) (sequence-get :format card32 :index offset
:length size :result-type 'list))
(incf offset (* 4 size)) (incf offset (* 4 size))
mode-info)))))) mode-info))))))
...@@ -461,9 +463,12 @@ invalid." ...@@ -461,9 +463,12 @@ invalid."
(off2 (+ off1 rep-size (* 2 (mod rep-size 2))))) (off2 (+ off1 rep-size (* 2 (mod rep-size 2)))))
(declare (type fixnum off1 off2)) (declare (type fixnum off1 off2))
(values (values
(sequence-get :format card16 :length (card16-get 8) :index 32) (sequence-get :format card16 :length (card16-get 8)
(sequence-get :format card16 :length (card16-get 8) :index off1) :index 32 :result-type 'list)
(sequence-get :format card16 :length (card16-get 8) :index off2))))))) (sequence-get :format card16 :length (card16-get 8)
:index off1 :result-type 'list)
(sequence-get :format card16 :length (card16-get 8)
:index off2 :result-type 'list)))))))
(defun xfree86-vidmode-set-gamma-ramp (dpy scr size &key red green blue) (defun xfree86-vidmode-set-gamma-ramp (dpy scr size &key red green blue)
(declare (type (or null simple-vector) red green blue) (declare (type (or null simple-vector) red green blue)
...@@ -577,8 +582,9 @@ in the XF86Config file." ...@@ -577,8 +582,9 @@ in the XF86Config file."
(nvsync (card8-get 11)) (nvsync (card8-get 11))
(vindex (+ 32 (* 4 (+ nhsync nvsync)))) (vindex (+ 32 (* 4 (+ nhsync nvsync))))
(mindex (+ vindex vendor-name-length pad)) (mindex (+ vindex vendor-name-length pad))
(hsync (sequence-get :length nhsync :index 32)) (hsync (sequence-get :length nhsync :index 32 :result-type 'list))
(vsync (sequence-get :length nvsync :index (+ 32 (* nhsync 4))))) (vsync (sequence-get :length nvsync :index (+ 32 (* nhsync 4))
:result-type 'list)))
(declare (type card8 nhsync nvsync vendor-name-length model-name-length) (declare (type card8 nhsync nvsync vendor-name-length model-name-length)
(type fixnum pad vindex mindex)) (type fixnum pad vindex mindex))
(values (values
...@@ -645,7 +651,8 @@ x and y keyword parameters value (zero will be theire default value)." ...@@ -645,7 +651,8 @@ x and y keyword parameters value (zero will be theire default value)."
(values (values
(card32-get 8) ; flags (card32-get 8) ; flags
(card32-get 16) ; max clocks (card32-get 16) ; max clocks
(sequence-get :length (card32-get 12) :format card32 :index 32)))) (sequence-get :length (card32-get 12) :format card32
:index 32 :result-type 'list))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;; ;;;; ;;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment