Custom Query (1030 matches)

Reported in email:

I know this is an internal function, but I don't see any exported equivalent
functionality.  In any case, it appears the :start keyword argument is doing
something wrong.

Welcome to Clozure Common Lisp Version 1.2-r7902S  (LinuxX8664)!
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65))
"AAAAA"
5
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65) :start 1)
"AA"
3
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65) :start 0)
"AAAAA"
5
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65) :start 2)
""
1
? (ccl::decode-string-from-octets  (make-array 5 :element-type
'(unsigned-byte 8) :initial-element 65) :start 1)
"AA"
3


In this case it's skipping some extra octets.  But that's not the worst of
it.  "In the wild" I observed this function adding garbage to the end of the
string that is returned, if start > 0.

? #'(lambda (x y) (ccl::%new-ptr x y)) 
> Error: Compiler bug or inconsistency: 
>        x862-form ? (100 (24614 #) (24614 #)) 
> While executing: CCL::COMPILER-BUG, in process listener(1). 
> Type :POP to abort, :R for a list of available restarts. 
> Type :? for other options. 
1 >  

In order to dump an image that I can start, it appears that I need to unload the shared libraries that have been loaded and load them at image startup time. I figured that CLOSE-SHARED-LIBRARY is meant to be used to close and unload a shared library. This function is unavailable on FreeBSD, and it appears that fixing this is not totally trivial, as OPEN-SHARED-LIBRARY seems not to return or store the pointer returned by dlopen. I guess this is not news. Is there a workaround available that makes it possible to use images dumped from a CCL that has shared libraries loaded?