Re: Compilation problem

OK, the problem seems to be OPEN-CLX-DISPLAY.  The version of garnet I
have doesn't use OPEN-CLX-DISPLAY.  It uses XLIB:OPEN-DISPLAY.
OPEN-CLX-DISPLAY is a CMUCL extension.  It only takes one optional
argument, while OPEN-DISPLAY takes three arguments.  It looks like
someone substituted OPEN-CLX-DISPLAY for XLIB:OPEN-DISPLAY.

Take a look at your garnet source, the file src/opal/x.lisp.  What does
the x-set-device-variables function look like?  Here's what I've got:

(defun x-set-device-variables (root-window)
  (declare (ignore root-window))
  (setq *default-x-display-number*
	(get-display-number opal::*default-x-display-name*))

  (setq opal::*default-x-display*
	(xlib:open-display opal::*default-x-display-name*
			   :display *default-x-display-number*))
  (setq opal::*default-x-screen*
        (nth opal::*default-x-screen-number*
             (xlib:display-roots opal::*default-x-display*)))
  (setq opal::*screen-width* (xlib:screen-width opal::*default-x-screen*))
  (setq opal::*screen-height* (xlib:screen-height opal::*default-x-screen*))
  (setq opal::*default-x-root* (xlib:screen-root opal::*default-x-screen*))

< etc. >

-- 
Fred Gilham                                         [email protected]
In the course of making code more readable, performance was
accidentally improved by about 20%. --- From BRL 2.1.23 release notes