~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/clx/demo/clx-demos.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Albin Tonnerre
  • Date: 2008-06-20 18:00:19 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20080620180019-7fbz1ln5444vtkkr
Tags: 0.9j-20080306-2ubuntu1
* Enabled unicode support. (Closes: LP #123530)
* Modify Maintainer value to match the DebianMaintainerField specification.

Show diffs side-by-side

added added

removed removed

Lines of Context:
36
36
       (unless *display*
37
37
         #+:cmu
38
38
         (multiple-value-setq (*display* *screen*) (ext:open-clx-display))
39
 
         #+sbcl
 
39
         #+(or ecl sbcl)
40
40
         (progn
41
41
           (setf *display* (xlib::open-default-display))
42
42
           (setf *screen* (xlib:display-default-screen *display*)))
43
 
         #-(or cmu sbcl)
 
43
         #-(or cmu sbcl ecl)
44
44
         (progn
45
45
           ;; Portable method
46
46
           (setf *display* (xlib:open-display (machine-instance)))