port point : *def-clx-class-uses-defclass*

hello all;


I was looking through CMU CL's clx sources, and encountered the definition of
*DEF-CLX-CLASS-USES-DEFCLASS*, in depdefs.lisp


for CMU CL, the definition of it looks like so:

 (defvar *def-clx-class-use-defclass*
  #+(and cmu pcl) '(XLIB:DRAWABLE XLIB:WINDOW XLIB:PIXMAP)
  #+(and cmu (not pcl)) nil
  #-(or  cmu) nil
  "Controls whether DEF-CLX-CLASS uses DEFCLASS.  
   If it is a list, it is interpreted by DEF-CLX-CLASS to be a list of type names
   for which DEFCLASS should be used. 
   If it is not a list, then DEFCLASS is always used.
   If it is NIL, then DEFCLASS is never used, since NIL is the empty list.")




for ECL, the definition is so:

 (defvar *def-clx-class-use-defclass* #+Genera t #-Genera nil
  "Controls whether DEF-CLX-CLASS uses DEFCLASS.  
   If it is a list, it is interpreted by DEF-CLX-CLASS to be a list of type names
   for which DEFCLASS should be used. 
   If it is not a list, then DEFCLASS is always used.
   If it is NIL, then DEFCLASS is never used, since NIL is the empty list.")



I haven't looked elsewhere, yet; just wanted to mark this variable in the
record, as being something to notice, if/when making "a CLX for ~all
implementations" or what.





later

--
sean
[email protected]