From: <tim...@wi...> - 2013-07-05 18:45:08
|
Christophe Rhodes <cs...@ca...> writes: > tim...@wi... (Timo Myyrä) writes: > >> I've only changed the version string in the ports Makefile. CLISP builds the >> 1.1.8 just fine and only aborts the 1.1.9 building. >> CLISP version is 2.48 in both cases so I'd say the problem is caused by >> something on the sbcl side. > > Hm, yes. (The problem is that the transcript you posted didn't have > enough in it to identify the error). I've found at least one error; > thanks for the report, and please try the following patch. > > (An exercise for the builder would be to fail early: to adapt the build > so that if clisp aborts during one of the compilation phases, the build > script actually notices, rather than merrily continuing on it). > > > diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp > index ca49fd2..2ce86e7 100644 > --- a/src/code/toplevel.lisp > +++ b/src/code/toplevel.lisp > @@ -170,10 +170,10 @@ means to wait indefinitely.") > (values whole-seconds > (truly-the (integer 0 #.(expt 10 9)) > (%unary-truncate (* (- seconds (float whole-seconds)) > - (load-time-value 1s9 t)))))))) > + (load-time-value 1f9 t)))))))) > (declare (inline split-float)) > (typecase seconds > - ((single-float 0s0 #.(float most-positive-fixnum 1s0)) > + ((single-float 0f0 #.(float most-positive-fixnum 1f0)) > (split-float)) > ((double-float 0d0 #.(float most-positive-fixnum 1d0)) > (split-float)) > @@ -189,7 +189,7 @@ means to wait indefinitely.") > (t > (multiple-value-bind (sec frac) > (truncate seconds) > - (values sec (truncate frac (load-time-value 1s-9 t)))))))) > + (values sec (truncate frac (load-time-value 1f-9 t)))))))) > > (defun sleep (seconds) > #!+sb-doc > > > Best, > > Christophe Hi, Just completed build with CLISP succesfully with this patch applied. Timo |