ATM Sourceforge seem to be in non-working state.  I will look
at the problem when Sourceforge works again.

> 
> It seems that sbcl 1.4.5 no longer exports
> SB-IMPL::VECTOR-LENGTH-IN-WORDS,
> causes 'sbcl_make_sized_vector' (in src/lisp/primitives.lisp)
> to return a uninitialized vector, see:
> 
> (1) -> new(5, 0)$U32VEC
> 
>    (1)  [0, 0, 0, 0, 40455807]
> 
> Relevant parts:
> 
> (defmacro sbcl_make_sized_vector(nb n)
>     (let ((get-tag (find-symbol "%VECTOR-WIDETAG-AND-N-BITS" "SB-IMPL"))
>           (length-sym nil))
>         (if (null get-tag)
>             (progn
>                 (setf get-tag
>                     (find-symbol "%VECTOR-WIDETAG-AND-N-BITS-SHIFT"
>                                  "SB-IMPL"))
>                 (setf length-sym (find-symbol "VECTOR-LENGTH-IN-WORDS"
>                                               "SB-IMPL"))))
>         (multiple-value-bind (typetag n-bits)
>             (FUNCALL get-tag `(unsigned-byte ,nb))
>             (let ((length-form
>                    (if length-sym
>                        `(,length-sym ,n ,n-bits)
>                        `(ceiling (* ,n ,n-bits) sb-vm:n-word-bits))))
>                 `(SB-KERNEL:ALLOCATE-VECTOR ,typetag ,n ,length-form)))))
> 
> -- 
> You received this message because you are subscribed to the Google Groups 
> "FriCAS - computer algebra system" group.
> To unsubscribe from this group and stop receiving emails from it, send an 
> email to fricas-devel+unsubscr...@googlegroups.com.
> To post to this group, send email to fricas-devel@googlegroups.com.
> Visit this group at https://groups.google.com/group/fricas-devel.
> For more options, visit https://groups.google.com/d/optout.
> 


-- 
                              Waldek Hebisch

-- 
You received this message because you are subscribed to the Google Groups 
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to fricas-devel+unsubscr...@googlegroups.com.
To post to this group, send email to fricas-devel@googlegroups.com.
Visit this group at https://groups.google.com/group/fricas-devel.
For more options, visit https://groups.google.com/d/optout.

Reply via email to