*** ../gcl-cvs/./cmpnew/gcl_cmpmain.lsp	Mon Mar 22 03:43:50 2004
--- ././cmpnew/gcl_cmpmain.lsp	Sat Apr 17 07:13:02 2004
***************
*** 29,35 ****
  
  (export '(*compile-print* *compile-verbose*))
  
! #+linux   (push :ld-not-accept-data  *features*)
  (defvar *compiler-in-use* nil)
  (defvar *compiler-input*)
  (defvar *compiler-output1*)
--- 29,38 ----
  
  (export '(*compile-print* *compile-verbose*))
  
! ;;; This had been true with Linux 1.2.13 a.out or even older
! ;;; #+linux   (push :ld-not-accept-data  *features*)
! ;;; its now a bug preventing the :linux feature.
! 
  (defvar *compiler-in-use* nil)
  (defvar *compiler-input*)
  (defvar *compiler-output1*)
*** ../gcl-cvs/./h/386-linux.h	Sun Apr  4 21:30:38 2004
--- ././h/386-linux.h	Fri Apr 16 21:19:50 2004
***************
*** 35,43 ****
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
  #define ADDITIONAL_FEATURES \
! 		     ADD_FEATURE("BSD386"); \
!       	             ADD_FEATURE("MC68020")
! 
  
  #define	I386
  #define SGC
--- 35,42 ----
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
  #define ADDITIONAL_FEATURES \
!         ADD_FEATURE("PC386"); \
!         ADD_FEATURE("LINUX") 
  
  #define	I386
  #define SGC
*** ../gcl-cvs/./h/alpha-linux.h	Fri Aug  2 20:38:04 2002
--- ././h/alpha-linux.h	Fri Apr 16 21:10:54 2004
***************
*** 7,16 ****
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! /*  #define ADDITIONAL_FEATURES \ */
! /*  		     ADD_FEATURE("BSD386"); \ */
! /*        	             ADD_FEATURE("MC68020") */
! 
  
  /*  #define	I386 */
  /*  #define SGC */
--- 7,15 ----
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! #define ADDITIONAL_FEATURES \
!         ADD_FEATURE("ALPHA"); \
!         ADD_FEATURE("LINUX") 
  
  /*  #define	I386 */
  /*  #define SGC */
*** ../gcl-cvs/./h/amd64-linux.h	Tue Apr 13 04:43:52 2004
--- ././h/amd64-linux.h	Fri Apr 16 21:10:54 2004
***************
*** 12,20 ****
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
  #define ADDITIONAL_FEATURES \
! 		     ADD_FEATURE("BSD386"); \
!       	             ADD_FEATURE("MC68020")
! 
  
  #define	I386
  #define SGC
--- 12,20 ----
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
  #define ADDITIONAL_FEATURES \
!         ADD_FEATURE("AMD64"); \
!         ADD_FEATURE("PC386"); \
!         ADD_FEATURE("LINUX") 
  
  #define	I386
  #define SGC
*** ../gcl-cvs/./h/hppa-linux.h	Sat Feb 14 18:36:30 2004
--- ././h/hppa-linux.h	Fri Apr 16 21:10:54 2004
***************
*** 7,16 ****
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! /*  #define ADDITIONAL_FEATURES \ */
! /*  		     ADD_FEATURE("BSD386"); \ */
! /*        	             ADD_FEATURE("MC68020") */
! 
  
  /*  #define	I386 */
  /*  #define SGC */
--- 7,15 ----
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! #define ADDITIONAL_FEATURES \
!         ADD_FEATURE("HPPA"); \
!         ADD_FEATURE("LINUX") 
  
  /*  #define	I386 */
  /*  #define SGC */
*** ../gcl-cvs/./h/ia64-linux.h	Thu Nov  6 17:08:07 2003
--- ././h/ia64-linux.h	Fri Apr 16 21:10:54 2004
***************
*** 7,16 ****
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! /*  #define ADDITIONAL_FEATURES \ */
! /*  		     ADD_FEATURE("BSD386"); \ */
! /*        	             ADD_FEATURE("MC68020") */
! 
  
  /*  #define	I386 */
  /*  #define SGC */
--- 7,15 ----
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! #define ADDITIONAL_FEATURES \
!         ADD_FEATURE("IA64"); \
!         ADD_FEATURE("LINUX") 
  
  /*  #define	I386 */
  /*  #define SGC */
*** ../gcl-cvs/./h/m68k-linux.h	Sun Apr  4 21:30:38 2004
--- ././h/m68k-linux.h	Fri Apr 16 21:10:54 2004
***************
*** 57,66 ****
  #define NULL_OR_ON_C_STACK(x) ( x == 0 || (((unsigned int) x) >= 0xe0000000 )) 
  
  #define ADDITIONAL_FEATURES \
! 		     ADD_FEATURE("BSD386"); \
!          	     ADD_FEATURE("MC68020")
! 
! 
  
  #define	M68K
  #define SGC
--- 57,64 ----
  #define NULL_OR_ON_C_STACK(x) ( x == 0 || (((unsigned int) x) >= 0xe0000000 )) 
  
  #define ADDITIONAL_FEATURES \
!         ADD_FEATURE("MC68020"); \
!         ADD_FEATURE("LINUX") 
  
  #define	M68K
  #define SGC
*** ../gcl-cvs/./h/mips-linux.h	Tue Jul 30 00:50:54 2002
--- ././h/mips-linux.h	Fri Apr 16 21:10:54 2004
***************
*** 7,16 ****
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! /*  #define ADDITIONAL_FEATURES \ */
! /*  		     ADD_FEATURE("BSD386"); \ */
! /*        	             ADD_FEATURE("MC68020") */
! 
  
  /*  #define	I386 */
  /*  #define SGC */
--- 7,15 ----
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! #define ADDITIONAL_FEATURES \
!         ADD_FEATURE("MISP"); \
!         ADD_FEATURE("LINUX") 
  
  /*  #define	I386 */
  /*  #define SGC */
*** ../gcl-cvs/./h/mipsel-linux.h	Tue Jul 30 00:50:54 2002
--- ././h/mipsel-linux.h	Fri Apr 16 21:10:54 2004
***************
*** 7,16 ****
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! /*  #define ADDITIONAL_FEATURES \ */
! /*  		     ADD_FEATURE("BSD386"); \ */
! /*        	             ADD_FEATURE("MC68020") */
! 
  
  /*  #define	I386 */
  /*  #define SGC */
--- 7,15 ----
  
  /*#define NULL_OR_ON_C_STACK(x) ((x)==0 || ((unsigned int)x) > (unsigned int)(pagetochar(MAXPAGE+1)))*/
  
! #define ADDITIONAL_FEATURES \
!         ADD_FEATURE("MIPSEL"); \
!         ADD_FEATURE("LINUX") 
  
  /*  #define	I386 */
  /*  #define SGC */
*** ../gcl-cvs/./h/s390-linux.h	Sun Apr  4 21:30:38 2004
--- ././h/s390-linux.h	Fri Apr 16 21:10:54 2004
***************
*** 2,7 ****
--- 2,11 ----
  
  /*  #define CLEAR_CACHE do {void *v=memory->cfd.cfd_start,*ve=v+memory->cfd.cfd_size; for (;v<ve;v+=32)   asm __volatile__ ("dcbst 0,%0\n\tsync\n\ticbi 0,%0\n\tsync\n\tisync": : "r" (v) : "memory");} while(0) */
  
+ #define ADDITIONAL_FEATURES \
+         ADD_FEATURE("S390"); \
+         ADD_FEATURE("LINUX") 
+ 
  #ifdef IN_GBC
  #undef MPROTECT_ACTION_FLAGS
  #define MPROTECT_ACTION_FLAGS SA_RESTART|SA_SIGINFO
*** ../gcl-cvs/./h/sparc-linux.h	Wed Oct  9 20:03:19 2002
--- ././h/sparc-linux.h	Fri Apr 16 21:10:54 2004
***************
*** 10,17 ****
  #endif
  
  #define ADDITIONAL_FEATURES \
! 		     ADD_FEATURE("SUN"); \
!       	             ADD_FEATURE("SPARC")
  
  #define	SPARC
  #define SGC
--- 10,18 ----
  #endif
  
  #define ADDITIONAL_FEATURES \
!         ADD_FEATURE("SUN"); \
!         ADD_FEATURE("SPARC"); \
!         ADD_FEATURE("LINUX")
  
  #define	SPARC
  #define SGC
*** ../gcl-cvs/./o/main.c	Sat Apr  3 21:24:00 2004
--- ././o/main.c	Sat Apr 17 06:33:25 2004
*************** init_main(void) {
*** 900,909 ****
    {object features;
    
  #define ADD_FEATURE(name) \
! 	 features=  make_cons(make_ordinary(name),features)
    
!   features=    make_cons(make_ordinary("COMMON"),
! 			 make_cons(make_ordinary("KCL"), Cnil));
    ADD_FEATURE("AKCL");
    ADD_FEATURE("GCL");
  
--- 900,909 ----
    {object features;
    
  #define ADD_FEATURE(name) \
! 	 features=  make_cons(make_keyword(name),features)
    
!   features=    make_cons(make_keyword("COMMON"),
! 			 make_cons(make_keyword("KCL"), Cnil));
    ADD_FEATURE("AKCL");
    ADD_FEATURE("GCL");
  
*** ../gcl-cvs/./pcl/makefile	Sun Feb  1 07:47:34 2004
--- ././pcl/makefile	Sat Apr 17 06:34:48 2004
*************** GFILES:=$(addprefix pcl_gazonk,$(GFILES1
*** 10,17 ****
  AFILES:=$(FILES) $(GFILES)
  
  SETUP='(load "../clcs/package.lisp")(load "../clcs/myload1.lisp")(load "sys-package.lisp")' \
! 	'(setq *features* (delete (quote kcl) *features*))'\
! 	'(load "defsys.lisp")(push (quote kcl) *features*)' \
  	'(setq pcl::*default-pathname-extensions* (cons "lisp" "o"))' \
  	'(setq pcl::*pathname-extensions* (cons "lisp" "o"))' \
  	'(load "sys-proclaim.lisp")' \
--- 10,17 ----
  AFILES:=$(FILES) $(GFILES)
  
  SETUP='(load "../clcs/package.lisp")(load "../clcs/myload1.lisp")(load "sys-package.lisp")' \
! 	'(setq *features* (delete (quote :kcl) *features*))'\
! 	'(load "defsys.lisp")(push (quote :kcl) *features*)' \
  	'(setq pcl::*default-pathname-extensions* (cons "lisp" "o"))' \
  	'(setq pcl::*pathname-extensions* (cons "lisp" "o"))' \
  	'(load "sys-proclaim.lisp")' \