home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xws2.t < prev    next >
Encoding:
Text File  |  1990-06-01  |  14.5 KB  |  351 lines
  1. (HERALD XWS2 (ENV TSYS (XLIB INTERFACE)))
  2.  
  3. (DEFINE-FOREIGN XOPENDISPLAY* ("XOpenDisplay" (IN REP/STRING)) REP/POINTER)
  4. (DEFINE (XOPENDISPLAY DISPLAY)
  5.         (LET* ((DISPLAY (IF (STRING? DISPLAY)
  6.                             (STRING->ASCIZ! DISPLAY)
  7.                             (ERROR "Argument is incorrect type: ~s" DISPLAY)))
  8.                (RETURN-VALUE (CONS 'DISPLAYP (XOPENDISPLAY* DISPLAY))))
  9.               RETURN-VALUE))
  10. (DEFINE-FOREIGN XALLPLANES* ("XAllPlanes") REP/INTEGER)
  11. (DEFINE (XALLPLANES) (LET* ((RETURN-VALUE (XALLPLANES*))) RETURN-VALUE))
  12. (DEFINE-FOREIGN XBLACKPIXEL*
  13.                 ("XBlackPixel" (IN REP/C-POINTER) (IN REP/INTEGER))
  14.                 REP/INTEGER)
  15. (DEFINE (XBLACKPIXEL DPY SCR)
  16.         (LET* ((DPY (CHK-DISPLAYP DPY))
  17.                (SCR SCR)
  18.                (RETURN-VALUE (XBLACKPIXEL* DPY SCR)))
  19.               RETURN-VALUE))
  20. (DEFINE-FOREIGN XWHITEPIXEL*
  21.                 ("XWhitePixel" (IN REP/C-POINTER) (IN REP/INTEGER))
  22.                 REP/INTEGER)
  23. (DEFINE (XWHITEPIXEL DPY SCR)
  24.         (LET* ((DPY (CHK-DISPLAYP DPY))
  25.                (SCR SCR)
  26.                (RETURN-VALUE (XWHITEPIXEL* DPY SCR)))
  27.               RETURN-VALUE))
  28. (DEFINE-FOREIGN XCONNECTIONNUMBER*
  29.                 ("XConnectionNumber" (IN REP/C-POINTER))
  30.                 REP/INTEGER)
  31. (DEFINE (XCONNECTIONNUMBER DPY)
  32.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XCONNECTIONNUMBER* DPY)))
  33.               RETURN-VALUE))
  34. (DEFINE-FOREIGN XDEFAULTCOLORMAP*
  35.                 ("XDefaultColormap" (IN REP/C-POINTER) (IN REP/INTEGER))
  36.                 REP/INTEGER)
  37. (DEFINE (XDEFAULTCOLORMAP DPY SCR)
  38.         (LET* ((DPY (CHK-DISPLAYP DPY))
  39.                (SCR SCR)
  40.                (RETURN-VALUE (XDEFAULTCOLORMAP* DPY SCR)))
  41.               RETURN-VALUE))
  42. (DEFINE-FOREIGN XDEFAULTDEPTH*
  43.                 ("XDefaultDepth" (IN REP/C-POINTER) (IN REP/INTEGER))
  44.                 REP/INTEGER)
  45. (DEFINE (XDEFAULTDEPTH DPY SCR)
  46.         (LET* ((DPY (CHK-DISPLAYP DPY))
  47.                (SCR SCR)
  48.                (RETURN-VALUE (XDEFAULTDEPTH* DPY SCR)))
  49.               RETURN-VALUE))
  50. (DEFINE-FOREIGN XDEFAULTGC*
  51.                 ("XDefaultGC" (IN REP/C-POINTER) (IN REP/INTEGER))
  52.                 REP/POINTER)
  53. (DEFINE (XDEFAULTGC DPY SCR)
  54.         (LET* ((DPY (CHK-DISPLAYP DPY))
  55.                (SCR SCR)
  56.                (RETURN-VALUE (CONS 'GC (XDEFAULTGC* DPY SCR))))
  57.               RETURN-VALUE))
  58. (DEFINE-FOREIGN XDEFAULTROOTWINDOW*
  59.                 ("XDefaultRootWindow" (IN REP/C-POINTER))
  60.                 REP/INTEGER)
  61. (DEFINE (XDEFAULTROOTWINDOW DPY)
  62.         (LET* ((DPY (CHK-DISPLAYP DPY))
  63.                (RETURN-VALUE (XDEFAULTROOTWINDOW* DPY)))
  64.               RETURN-VALUE))
  65. (DEFINE-FOREIGN XDEFAULTSCREENOFDISPLAY*
  66.                 ("XDefaultScreenOfDisplay" (IN REP/C-POINTER))
  67.                 REP/POINTER)
  68. (DEFINE (XDEFAULTSCREENOFDISPLAY DPY)
  69.         (LET* ((DPY (CHK-DISPLAYP DPY))
  70.                (RETURN-VALUE (CONS 'SCREENP
  71.                                    (XDEFAULTSCREENOFDISPLAY* DPY))))
  72.               RETURN-VALUE))
  73. (DEFINE-FOREIGN XSCREENOFDISPLAY*
  74.                 ("XScreenOfDisplay" (IN REP/C-POINTER) (IN REP/INTEGER))
  75.                 REP/POINTER)
  76. (DEFINE (XSCREENOFDISPLAY DPY SCR)
  77.         (LET* ((DPY (CHK-DISPLAYP DPY))
  78.                (SCR SCR)
  79.                (RETURN-VALUE (CONS 'SCREENP (XSCREENOFDISPLAY* DPY SCR))))
  80.               RETURN-VALUE))
  81. (DEFINE-FOREIGN XDEFAULTSCREEN*
  82.                 ("XDefaultScreen" (IN REP/C-POINTER))
  83.                 REP/INTEGER)
  84. (DEFINE (XDEFAULTSCREEN DPY)
  85.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XDEFAULTSCREEN* DPY)))
  86.               RETURN-VALUE))
  87. (DEFINE-FOREIGN XDEFAULTVISUAL*
  88.                 ("XDefaultVisual" (IN REP/C-POINTER) (IN REP/INTEGER))
  89.                 REP/POINTER)
  90. (DEFINE (XDEFAULTVISUAL DPY SCR)
  91.         (LET* ((DPY (CHK-DISPLAYP DPY))
  92.                (SCR SCR)
  93.                (RETURN-VALUE (CONS 'VISUALP (XDEFAULTVISUAL* DPY SCR))))
  94.               RETURN-VALUE))
  95. (DEFINE-FOREIGN XDISPLAYCELLS*
  96.                 ("XDisplayCells" (IN REP/C-POINTER) (IN REP/INTEGER))
  97.                 REP/INTEGER)
  98. (DEFINE (XDISPLAYCELLS DPY SCR)
  99.         (LET* ((DPY (CHK-DISPLAYP DPY))
  100.                (SCR SCR)
  101.                (RETURN-VALUE (XDISPLAYCELLS* DPY SCR)))
  102.               RETURN-VALUE))
  103. (DEFINE-FOREIGN XDISPLAYPLANES*
  104.                 ("XDisplayPlanes" (IN REP/C-POINTER) (IN REP/INTEGER))
  105.                 REP/INTEGER)
  106. (DEFINE (XDISPLAYPLANES DPY SCR)
  107.         (LET* ((DPY (CHK-DISPLAYP DPY))
  108.                (SCR SCR)
  109.                (RETURN-VALUE (XDISPLAYPLANES* DPY SCR)))
  110.               RETURN-VALUE))
  111. (DEFINE-FOREIGN XDISPLAYSTRING*
  112.                 ("XDisplayString" (IN REP/C-POINTER))
  113.                 REP/POINTER)
  114. (DEFINE (XDISPLAYSTRING DPY)
  115.         (LET* ((DPY (CHK-DISPLAYP DPY))
  116.                (RETURN-VALUE (ASCIZ->STRING (XDISPLAYSTRING* DPY))))
  117.               RETURN-VALUE))
  118. (DEFINE-FOREIGN XLASTKNOWNREQUESTPROCESSED*
  119.                 ("XLastKnownRequestProcessed" (IN REP/C-POINTER))
  120.                 REP/INTEGER)
  121. (DEFINE (XLASTKNOWNREQUESTPROCESSED DPY)
  122.         (LET* ((DPY (CHK-DISPLAYP DPY))
  123.                (RETURN-VALUE (XLASTKNOWNREQUESTPROCESSED* DPY)))
  124.               RETURN-VALUE))
  125. (DEFINE-FOREIGN XNEXTREQUEST* ("XNextRequest" (IN REP/C-POINTER)) REP/INTEGER)
  126. (DEFINE (XNEXTREQUEST DPY)
  127.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XNEXTREQUEST* DPY)))
  128.               RETURN-VALUE))
  129. (DEFINE-FOREIGN XPROTOCOLVERSION*
  130.                 ("XProtocolVersion" (IN REP/C-POINTER))
  131.                 REP/INTEGER)
  132. (DEFINE (XPROTOCOLVERSION DPY)
  133.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XPROTOCOLVERSION* DPY)))
  134.               RETURN-VALUE))
  135. (DEFINE-FOREIGN XPROTOCOLREVISION*
  136.                 ("XProtocolRevision" (IN REP/C-POINTER))
  137.                 REP/INTEGER)
  138. (DEFINE (XPROTOCOLREVISION DPY)
  139.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XPROTOCOLREVISION* DPY)))
  140.               RETURN-VALUE))
  141. (DEFINE-FOREIGN XQLENGTH* ("XQLength" (IN REP/C-POINTER)) REP/INTEGER)
  142. (DEFINE (XQLENGTH DPY)
  143.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XQLENGTH* DPY)))
  144.               RETURN-VALUE))
  145. (DEFINE-FOREIGN XROOTWINDOW*
  146.                 ("XRootWindow" (IN REP/C-POINTER) (IN REP/INTEGER))
  147.                 REP/INTEGER)
  148. (DEFINE (XROOTWINDOW DPY SCR)
  149.         (LET* ((DPY (CHK-DISPLAYP DPY))
  150.                (SCR SCR)
  151.                (RETURN-VALUE (XROOTWINDOW* DPY SCR)))
  152.               RETURN-VALUE))
  153. (DEFINE-FOREIGN XSCREENCOUNT* ("XScreenCount" (IN REP/C-POINTER)) REP/INTEGER)
  154. (DEFINE (XSCREENCOUNT DPY)
  155.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XSCREENCOUNT* DPY)))
  156.               RETURN-VALUE))
  157. (DEFINE-FOREIGN XSERVERVENDOR* ("XServerVendor" (IN REP/C-POINTER)) REP/POINTER)
  158. (DEFINE (XSERVERVENDOR DPY)
  159.         (LET* ((DPY (CHK-DISPLAYP DPY))
  160.                (RETURN-VALUE (ASCIZ->STRING (XSERVERVENDOR* DPY))))
  161.               RETURN-VALUE))
  162. (DEFINE-FOREIGN XVENDORRELEASE*
  163.                 ("XVendorRelease" (IN REP/C-POINTER))
  164.                 REP/INTEGER)
  165. (DEFINE (XVENDORRELEASE DPY)
  166.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XVENDORRELEASE* DPY)))
  167.               RETURN-VALUE))
  168. (DEFINE-FOREIGN XIMAGEBYTEORDER*
  169.                 ("XImageByteOrder" (IN REP/C-POINTER))
  170.                 REP/INTEGER)
  171. (DEFINE (XIMAGEBYTEORDER DPY)
  172.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XIMAGEBYTEORDER* DPY)))
  173.               RETURN-VALUE))
  174. (DEFINE-FOREIGN XBITMAPUNIT* ("XBitmapUnit" (IN REP/C-POINTER)) REP/INTEGER)
  175. (DEFINE (XBITMAPUNIT DPY)
  176.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XBITMAPUNIT* DPY)))
  177.               RETURN-VALUE))
  178. (DEFINE-FOREIGN XBITMAPBITORDER*
  179.                 ("XBitmapBitOrder" (IN REP/C-POINTER))
  180.                 REP/INTEGER)
  181. (DEFINE (XBITMAPBITORDER DPY)
  182.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XBITMAPBITORDER* DPY)))
  183.               RETURN-VALUE))
  184. (DEFINE-FOREIGN XBITMAPPAD* ("XBitmapPad" (IN REP/C-POINTER)) REP/INTEGER)
  185. (DEFINE (XBITMAPPAD DPY)
  186.         (LET* ((DPY (CHK-DISPLAYP DPY)) (RETURN-VALUE (XBITMAPPAD* DPY)))
  187.               RETURN-VALUE))
  188. (DEFINE-FOREIGN XDISPLAYHEIGHT*
  189.                 ("XDisplayHeight" (IN REP/C-POINTER) (IN REP/INTEGER))
  190.                 REP/INTEGER)
  191. (DEFINE (XDISPLAYHEIGHT DPY SCR)
  192.         (LET* ((DPY (CHK-DISPLAYP DPY))
  193.                (SCR SCR)
  194.                (RETURN-VALUE (XDISPLAYHEIGHT* DPY SCR)))
  195.               RETURN-VALUE))
  196. (DEFINE-FOREIGN XDISPLAYHEIGHTMM*
  197.                 ("XDisplayHeightMM" (IN REP/C-POINTER) (IN REP/INTEGER))
  198.                 REP/INTEGER)
  199. (DEFINE (XDISPLAYHEIGHTMM DPY SCR)
  200.         (LET* ((DPY (CHK-DISPLAYP DPY))
  201.                (SCR SCR)
  202.                (RETURN-VALUE (XDISPLAYHEIGHTMM* DPY SCR)))
  203.               RETURN-VALUE))
  204. (DEFINE-FOREIGN XDISPLAYWIDTH*
  205.                 ("XDisplayWidth" (IN REP/C-POINTER) (IN REP/INTEGER))
  206.                 REP/INTEGER)
  207. (DEFINE (XDISPLAYWIDTH DPY SCR)
  208.         (LET* ((DPY (CHK-DISPLAYP DPY))
  209.                (SCR SCR)
  210.                (RETURN-VALUE (XDISPLAYWIDTH* DPY SCR)))
  211.               RETURN-VALUE))
  212. (DEFINE-FOREIGN XDISPLAYWIDTHMM*
  213.                 ("XDisplayWidthMM" (IN REP/C-POINTER) (IN REP/INTEGER))
  214.                 REP/INTEGER)
  215. (DEFINE (XDISPLAYWIDTHMM DPY SCR)
  216.         (LET* ((DPY (CHK-DISPLAYP DPY))
  217.                (SCR SCR)
  218.                (RETURN-VALUE (XDISPLAYWIDTHMM* DPY SCR)))
  219.               RETURN-VALUE))
  220. (DEFINE-FOREIGN XBLACKPIXELOFSCREEN*
  221.                 ("XBlackPixelOfScreen" (IN REP/C-POINTER))
  222.                 REP/INTEGER)
  223. (DEFINE (XBLACKPIXELOFSCREEN S)
  224.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XBLACKPIXELOFSCREEN* S)))
  225.               RETURN-VALUE))
  226. (DEFINE-FOREIGN XWHITEPIXELOFSCREEN*
  227.                 ("XWhitePixelOfScreen" (IN REP/C-POINTER))
  228.                 REP/INTEGER)
  229. (DEFINE (XWHITEPIXELOFSCREEN S)
  230.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XWHITEPIXELOFSCREEN* S)))
  231.               RETURN-VALUE))
  232. (DEFINE-FOREIGN XCELLSOFSCREEN*
  233.                 ("XCellsOfScreen" (IN REP/C-POINTER))
  234.                 REP/INTEGER)
  235. (DEFINE (XCELLSOFSCREEN S)
  236.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XCELLSOFSCREEN* S)))
  237.               RETURN-VALUE))
  238. (DEFINE-FOREIGN XDEFAULTCOLORMAPOFSCREEN*
  239.                 ("XDefaultColormapOfScreen" (IN REP/C-POINTER))
  240.                 REP/INTEGER)
  241. (DEFINE (XDEFAULTCOLORMAPOFSCREEN S)
  242.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XDEFAULTCOLORMAPOFSCREEN* S)))
  243.               RETURN-VALUE))
  244. (DEFINE-FOREIGN XDEFAULTDEPTHOFSCREEN*
  245.                 ("XDefaultDepthOfScreen" (IN REP/C-POINTER))
  246.                 REP/INTEGER)
  247. (DEFINE (XDEFAULTDEPTHOFSCREEN S)
  248.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XDEFAULTDEPTHOFSCREEN* S)))
  249.               RETURN-VALUE))
  250. (DEFINE-FOREIGN XDEFAULTGCOFSCREEN*
  251.                 ("XDefaultGCOfScreen" (IN REP/C-POINTER))
  252.                 REP/POINTER)
  253. (DEFINE (XDEFAULTGCOFSCREEN S)
  254.         (LET* ((S (CHK-SCREENP S))
  255.                (RETURN-VALUE (CONS 'GC (XDEFAULTGCOFSCREEN* S))))
  256.               RETURN-VALUE))
  257. (DEFINE-FOREIGN XDEFAULTVISUALOFSCREEN*
  258.                 ("XDefaultVisualOfScreen" (IN REP/C-POINTER))
  259.                 REP/POINTER)
  260. (DEFINE (XDEFAULTVISUALOFSCREEN S)
  261.         (LET* ((S (CHK-SCREENP S))
  262.                (RETURN-VALUE (CONS 'VISUALP (XDEFAULTVISUALOFSCREEN* S))))
  263.               RETURN-VALUE))
  264. (DEFINE-FOREIGN XDOESBACKINGSTORE*
  265.                 ("XDoesBackingStore" (IN REP/C-POINTER))
  266.                 REP/INTEGER)
  267. (DEFINE (XDOESBACKINGSTORE S)
  268.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XDOESBACKINGSTORE* S)))
  269.               RETURN-VALUE))
  270. (DEFINE-FOREIGN XDOESSAVEUNDERS*
  271.                 ("XDoesSaveUnders" (IN REP/C-POINTER))
  272.                 REP/INTEGER)
  273. (DEFINE (XDOESSAVEUNDERS S)
  274.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XDOESSAVEUNDERS* S)))
  275.               RETURN-VALUE))
  276. (DEFINE-FOREIGN XDISPLAYOFSCREEN*
  277.                 ("XDisplayOfScreen" (IN REP/C-POINTER))
  278.                 REP/POINTER)
  279. (DEFINE (XDISPLAYOFSCREEN S)
  280.         (LET* ((S (CHK-SCREENP S))
  281.                (RETURN-VALUE (CONS 'DISPLAYP (XDISPLAYOFSCREEN* S))))
  282.               RETURN-VALUE))
  283. (DEFINE-FOREIGN XEVENTMASKOFSCREEN*
  284.                 ("XEventMaskOfScreen" (IN REP/C-POINTER))
  285.                 REP/INTEGER)
  286. (DEFINE (XEVENTMASKOFSCREEN S)
  287.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XEVENTMASKOFSCREEN* S)))
  288.               RETURN-VALUE))
  289. (DEFINE-FOREIGN XWIDTHOFSCREEN*
  290.                 ("XWidthOfScreen" (IN REP/C-POINTER))
  291.                 REP/INTEGER)
  292. (DEFINE (XWIDTHOFSCREEN S)
  293.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XWIDTHOFSCREEN* S)))
  294.               RETURN-VALUE))
  295. (DEFINE-FOREIGN XHEIGHTOFSCREEN*
  296.                 ("XHeightOfScreen" (IN REP/C-POINTER))
  297.                 REP/INTEGER)
  298. (DEFINE (XHEIGHTOFSCREEN S)
  299.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XHEIGHTOFSCREEN* S)))
  300.               RETURN-VALUE))
  301. (DEFINE-FOREIGN XWIDTHMMOFSCREEN*
  302.                 ("XWidthMMOfScreen" (IN REP/C-POINTER))
  303.                 REP/INTEGER)
  304. (DEFINE (XWIDTHMMOFSCREEN S)
  305.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XWIDTHMMOFSCREEN* S)))
  306.               RETURN-VALUE))
  307. (DEFINE-FOREIGN XHEIGHTMMOFSCREEN*
  308.                 ("XHeightMMOfScreen" (IN REP/C-POINTER))
  309.                 REP/INTEGER)
  310. (DEFINE (XHEIGHTMMOFSCREEN S)
  311.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XHEIGHTMMOFSCREEN* S)))
  312.               RETURN-VALUE))
  313. (DEFINE-FOREIGN XMAXCMAPSOFSCREEN*
  314.                 ("XMaxCmapsOfScreen" (IN REP/C-POINTER))
  315.                 REP/INTEGER)
  316. (DEFINE (XMAXCMAPSOFSCREEN S)
  317.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XMAXCMAPSOFSCREEN* S)))
  318.               RETURN-VALUE))
  319. (DEFINE-FOREIGN XMINCMAPSOFSCREEN*
  320.                 ("XMinCmapsOfScreen" (IN REP/C-POINTER))
  321.                 REP/INTEGER)
  322. (DEFINE (XMINCMAPSOFSCREEN S)
  323.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XMINCMAPSOFSCREEN* S)))
  324.               RETURN-VALUE))
  325. (DEFINE-FOREIGN XPLANESOFSCREEN*
  326.                 ("XPlanesOfScreen" (IN REP/C-POINTER))
  327.                 REP/INTEGER)
  328. (DEFINE (XPLANESOFSCREEN S)
  329.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XPLANESOFSCREEN* S)))
  330.               RETURN-VALUE))
  331. (DEFINE-FOREIGN XROOTWINDOWOFSCREEN*
  332.                 ("XRootWindowOfScreen" (IN REP/C-POINTER))
  333.                 REP/INTEGER)
  334. (DEFINE (XROOTWINDOWOFSCREEN S)
  335.         (LET* ((S (CHK-SCREENP S)) (RETURN-VALUE (XROOTWINDOWOFSCREEN* S)))
  336.               RETURN-VALUE))
  337. (DEFINE-FOREIGN XNOOP* ("XNoOp" (IN REP/C-POINTER)) IGNORE)
  338. (DEFINE (XNOOP DPY)
  339.         (LET* ((DPY (CHK-DISPLAYP DPY))
  340.                (RETURN-VALUE (BLOCK (XNOOP* DPY) '())))
  341.               RETURN-VALUE))
  342. (DEFINE-FOREIGN XFREE* ("XFree" (IN REP/INTEGER)) IGNORE)
  343. (DEFINE (XFREE DATA)
  344.         (LET* ((DATA DATA) (RETURN-VALUE (BLOCK (XFREE* DATA) '())))
  345.               RETURN-VALUE))
  346. (DEFINE-FOREIGN XCLOSEDISPLAY* ("XCloseDisplay" (IN REP/C-POINTER)) IGNORE)
  347. (DEFINE (XCLOSEDISPLAY DPY)
  348.         (LET* ((DPY (CHK-DISPLAYP DPY))
  349.                (RETURN-VALUE (BLOCK (XCLOSEDISPLAY* DPY) '())))
  350.               RETURN-VALUE))
  351.