*** /site/uio/cm-sys/clm-2/defins.lisp	2004-07-14 11:56:32.000000000 +0200
--- /site/uio/cm-sys/clm-2/defins.lisp~	2004-06-30 12:03:14.000000000 +0200
***************
*** 384,390 ****
  		  (princ (format nil "; Writing ~S~%" c-file-name))
  		  ;; in MCL we should check this for file name too long -- still not sure what the limit is (32? 18?)
  		  (format *c-file* "/* ~A~A C file generated ~A by CLM (version: ~A) */~%~%~
!                                     #include ~S~%~
                                      #include <stdio.h>~%#include <stdarg.h>~%~
                                      ~A~%~
                                      #include <math.h>~%~A~%~
--- 384,390 ----
  		  (princ (format nil "; Writing ~S~%" c-file-name))
  		  ;; in MCL we should check this for file name too long -- still not sure what the limit is (32? 18?)
  		  (format *c-file* "/* ~A~A C file generated ~A by CLM (version: ~A) */~%~%~
!                                     #include <config.h>~%~
                                      #include <stdio.h>~%#include <stdarg.h>~%~
                                      ~A~%~
                                      #include <math.h>~%~A~%~
***************
*** 394,403 ****
                                      ~A~%~
                                      ~A~%~%"
  			  name (if *c-scheduling* " (parallel)" "") (timestring) *clm-date*
- 
- 			  ;; site-wide config.h:
- 			  (concatenate 'string clm::*clm-binary-directory* "config.h")
- 			  
  			  #-(and mcl (not openmcl)) "#include <signal.h>" #+(and mcl (not openmcl)) "#include <stdlib.h>"
  			  #-sgi "" #+sgi "#include <sys/fpu.h>"
  			  cmus-header-string
--- 394,399 ----