From 80653962f3b4b68aed652de2145a9f984537218d Mon Sep 17 00:00:00 2001 From: csr21 <unknown> Date: Wed, 30 Apr 2003 09:58:30 -0400 Subject: [PATCH] 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 --- xvidmode.lisp | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/xvidmode.lisp b/xvidmode.lisp index 6bd217a..a83f6eb 100644 --- a/xvidmode.lisp +++ b/xvidmode.lisp @@ -262,7 +262,8 @@ into the returned structure." (incf offset 4) (setf (mode-info-privsize mode-info) size (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)))) (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." (setf size 0)) (setf (mode-info-privsize mode-info) size (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)) mode-info)))))) @@ -461,9 +463,12 @@ invalid." (off2 (+ off1 rep-size (* 2 (mod rep-size 2))))) (declare (type fixnum off1 off2)) (values - (sequence-get :format card16 :length (card16-get 8) :index 32) - (sequence-get :format card16 :length (card16-get 8) :index off1) - (sequence-get :format card16 :length (card16-get 8) :index off2))))))) + (sequence-get :format card16 :length (card16-get 8) + :index 32 :result-type 'list) + (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) (declare (type (or null simple-vector) red green blue) @@ -577,8 +582,9 @@ in the XF86Config file." (nvsync (card8-get 11)) (vindex (+ 32 (* 4 (+ nhsync nvsync)))) (mindex (+ vindex vendor-name-length pad)) - (hsync (sequence-get :length nhsync :index 32)) - (vsync (sequence-get :length nvsync :index (+ 32 (* nhsync 4))))) + (hsync (sequence-get :length nhsync :index 32 :result-type 'list)) + (vsync (sequence-get :length nvsync :index (+ 32 (* nhsync 4)) + :result-type 'list))) (declare (type card8 nhsync nvsync vendor-name-length model-name-length) (type fixnum pad vindex mindex)) (values @@ -645,7 +651,8 @@ x and y keyword parameters value (zero will be theire default value)." (values (card32-get 8) ; flags (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)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; ;;;; -- GitLab