Christophe Rhodes <csr21@...> writes:
> timo.myyra@... (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))
> ((double-float 0d0 #.(float most-positive-fixnum 1d0))
> @@ -189,7 +189,7 @@ means to wait indefinitely.")
> (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)
Just completed build with CLISP succesfully with this patch applied.