Raymond Toy pushed to branch rtoy-update-clx-with-cmucl-fixes at cmucl / cmucl

Commits:

3 changed files:

Changes:

  • src/clx/depdefs.lisp
    ... ... @@ -387,9 +387,7 @@
    387 387
       ;; FIXME: maybe we should reevaluate this?
    
    388 388
       (defvar *def-clx-class-use-defclass*
    
    389 389
         #+(or Genera allegro) t
    
    390
    -    #+(and cmu pcl) '(XLIB:DRAWABLE XLIB:WINDOW XLIB:PIXMAP)
    
    391
    -    #+(and cmu (not pcl)) nil
    
    392
    -    #-(or Genera cmu allegro) nil
    
    390
    +    #-(or Genera allegro) nil
    
    393 391
         "Controls whether DEF-CLX-CLASS uses DEFCLASS.
    
    394 392
     
    
    395 393
     If it is a list, it is interpreted by DEF-CLX-CLASS to be a list of
    

  • src/clx/manual/clx.texinfo
    ... ... @@ -15162,11 +15162,11 @@ a keycode.
    15162 15162
     
    
    15163 15163
     @item
    
    15164 15164
     Convert the keycode into its corresponding keysym, based on the
    
    15165
    -current keyboard mapping. See @var{keycode->keysym}.
    
    15165
    +current keyboard mapping. See @var{keycode->keysym}.
    
    15166 15166
     
    
    15167 15167
     @item
    
    15168 15168
     Convert the keysym into the corresponding Common Lisp character. See
    
    15169
    -@var{keysym->character}.
    
    15169
    +@var{keysym->character}.
    
    15170 15170
     @end enumerate
    
    15171 15171
     
    
    15172 15172
     @menu
    

  • src/tools/clxcom.lisp
    ... ... @@ -75,9 +75,15 @@
    75 75
           (comf "target:clx/extensions/glx" :load t)
    
    76 76
           (comf "target:clx/extensions/gl" :load t)
    
    77 77
           (comf "target:clx/extensions/dpms" :load t)
    
    78
    +      (comf "target:clx/extensions/xtest" :load t)
    
    78 79
           (comf "target:clx/extensions/screensaver" :load t)
    
    80
    +      (comf "target:clx/extensions/randr" :load t)
    
    79 81
           (comf "target:clx/extensions/xinerama" :load t)
    
    80
    -      (comf "target:clx/extensions/xtest" :load t))
    
    82
    +      (comf "target:clx/extensions/dbe" :load t)
    
    83
    +      (comf "target:clx/extensions/xc-misc" :load t)
    
    84
    +      (comf "target:clx/extensions/dri2" :load t)
    
    85
    +      (comf "target:clx/extensions/composite" :load t)
    
    86
    +      )
    
    81 87
         (comf "target:code/clx-ext")
    
    82 88
         (comf "target:hemlock/charmacs" :load t)
    
    83 89
         (comf "target:hemlock/key-event" :load t)