CM Build anomolies

[Larry Troxler]

On Tue, 18 Nov 1997, Tobias Kunze wrote:

> 
> does your build/make-cm.lisp file have these lines?
> 
> 
>     ;; maybe load CLM
>     #-clm
>     (when (and clm-directory (find ':clm syntaxes))
>       (let ((*default-pathname-defaults* (pathname clm-directory))
> 	    (loadfile (namestring (merge-pathnames
> 				   "load-all.cl" clm-directory))))
> 	(if (probe-file loadfile)
> 	  (load loadfile)
> 	  (error "Can't find CLM load script: ~S."
> 		 loadfile))))
>      ;; maybe load CMN
>     #-cmn
>     (when (and cmn-directory (find ':cmn syntaxes))
>       (let ((*default-pathname-defaults* (pathname cmn-directory)))
> 	(load (filename cmn-directory "load-all.lisp"))))
> 
> 

Not quite. It has this:
  
  ;; maybe load CLM
    #-clm
    (when clm-directory
      (let ((*default-pathname-defaults* (pathname clm-directory))
	    (loadfile (namestring (merge-pathnames 
				   "load-all.cl" clm-directory))))
	(if (probe-file loadfile)
	  (load loadfile)
	  (error "Can't find CLM load script: ~S."
		 loadfile))))
     ;; maybe load CMN
    #-cmn
    (when cmn-directory
      (let ((*default-pathname-defaults* (pathname cmn-directory)))
	(load (filename cmn-directory "cmn-all.lisp"))))
  
--  Larry Troxler  --  lt@westnet.com  --  Patterson, NY USA  --