/[cmucl]/src/clx/big-requests.lisp
ViewVC logotype

Contents of /src/clx/big-requests.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Wed Jun 17 18:22:45 2009 UTC (4 years, 10 months ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, intl-branch-working-2010-02-19-1000, unicode-string-buffer-impl-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, intl-2-branch-base, GIT-CONVERSION, cross-sol-x86-merged, intl-branch-working-2010-02-11-1000, RELEASE_20b, release-20a-base, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, snapshot-2010-08, cross-sol-x86-2010-12-20, intl-branch-2010-03-18-1300, RELEASE_20a, release-20a-pre1, snapshot-2009-11, snapshot-2009-12, cross-sparc-branch-base, intl-branch-base, snapshot-2009-08, snapshot-2009-07, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, RELEASE-20A-BRANCH, amd64-dd-branch, unicode-string-buffer-impl-branch, intl-branch, cross-sol-x86-branch, intl-2-branch
Changes since 1.1: +1 -1 lines
Merge portable-clx (2009-06-16) to main branch.  Tested by running
src/contrib/games/feebs and hemlock which works (in non-unicode
builds).
1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: XLIB; -*-
2 ;;;
3 ;;; (c) copyright 2006 Richard Kreuter
4 ;;; (c) copyright 2007 by Christophe Rhodes
5 ;;;
6 ;;; Permission is granted to any individual or institution to use,
7 ;;; copy, modify, and distribute this software, provided that this
8 ;;; complete copyright and permission notice is maintained, intact, in
9 ;;; all copies and supporting documentation.
10 ;;;
11 ;;; This program is distributed in the hope that it will be useful,
12 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14
15 #+cmu
16 (ext:file-comment "$Id: big-requests.lisp,v 1.2 2009/06/17 18:22:45 rtoy Rel $")
17
18 (in-package "XLIB")
19
20 ;;; No new events or errors are defined by this extension. (Big
21 ;;; Requests Extension, section 3)
22 ;;;
23 ;;; The name of this extension is "BIG-REQUESTS" (Big Requests
24 ;;; Extension, section 4)
25 (define-extension "BIG-REQUESTS")
26
27 (defun enable-big-requests (display)
28 (declare (type display display))
29 (let ((opcode (extension-opcode display "BIG-REQUESTS")))
30 (with-buffer-request-and-reply (display opcode nil)
31 ((data 0))
32 (let ((maximum-request-length (card32-get 8)))
33 (setf (display-extended-max-request-length display)
34 maximum-request-length)))))

  ViewVC Help
Powered by ViewVC 1.1.5