[Openmcl-devel] Error: Can't resolve foreign symbol "sinf"

[Otto Diesenbacher]

Gary Byers <gb at clozure.com> writes:

thanks for your answer!

yep, it gives a null-pointer:

Welcome to Clozure Common Lisp Version 1.8-dev-r15129M-trunk  (LinuxX8664)!
? (with-cstrs ((name "sinf"))
    (#_dlsym #$RTLD_DEFAULT name))
#<A Null Foreign Pointer>

Stable Release 1.7 works fine:

Welcome to Clozure Common Lisp Version 1.7-r14925M  (LinuxX8664)!
? (sin .5)
0.47942555

just for the records, my system:

 uname -a
Linux brynhild 3.0.0-13-generic #22-Ubuntu SMP Wed Nov 2 13:27:26 UTC 2011 x86_64 x86_64 x86_64 GNU/Linux

best regards,
 /okflo

> [src/ccl] gb at leadfoot> ccl64
> Welcome to Clozure Common Lisp Version 1.8-dev-r15129M-trunk  (LinuxX8664)!
> ? (sin .5)
> 0.47942555
> ? (external "sinf")
> #<EXTERNAL-ENTRY-POINT "sinf" (#x00007F3991506AD0) libm.so.6 #x3000400356CD>
>
> We know that those things don't work for you, but don't know why they don't.
>
> CCL::RESOLVE-EEP will do something very much like:
>
> ? (with-cstrs ((name "sinf"))
>     (#_dlsym #$RTLD_DEFAULT name))
> #<A Foreign Pointer #x7F3991506AD0>
>
> Does this return a non-null pointer for you ?
>
>
>
> On Fri, 9 Dec 2011, Otto Diesenbacher wrote:
>
>>
>> Hi CCLers,
>>
>> with current ccl r15129 (linuxx86-64), when calling f.e. (sin .5):
>>
>> Welcome to Clozure Common Lisp Version 1.8-dev-r15129M-trunk  (LinuxX8664)!
>> ? (sin .5)
>>> Error: Can't resolve foreign symbol "sinf"
>>> While executing: CCL::RESOLVE-EEP, in process listener(1).
>>> Type :POP to abort, :R for a list of available restarts.
>>> Type :? for other options.
>> 1 > :b
>> (7F62804A3888) : 0 (RESOLVE-EEP #<EXTERNAL-ENTRY-POINT "sinf" {unresolved}  #x3000400356CD> T) 341
>> (7F62804A38D8) : 1 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 3005
>> (7F62804A3930) : 2 (FUNCALL-WITH-ERROR-REENTRY-DETECTION
>> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)
>> #x7F6281AE21BF>) 181
>> (7F62804A3970) : 3 (FUNCALL #'#<CCL::%XERR-DISP> 17507629796830) 549
>> (7F62804A39A8) : 4 (%PASCAL-FUNCTIONS% 2 17507629796830) 397
>> *(7F62804A3A10) : 5 (%SINGLE-FLOAT-SIN 0.5) 76
>> (7F62804A3A70) : 6 (CALL-CHECK-REGS SIN 0.5) 221
>> (7F62804A3AA8) : 7 (TOPLEVEL-EVAL (SIN 0.5) NIL) 717
>> (7F62804A3B48) : 8 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to
>> *TERMINAL-IO* #x3020006B78DD> :OUTPUT-STREAM #<SYNONYM-STREAM to
>> *TERMINAL-IO* #x3020006B777D> :BREAK-LEVEL 0 :PROMPT-FUNCTION
>> #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)
>> #x30000050722F>) 2325
>> (7F62804A3DA8) : 9 (RUN-READ-LOOP :BREAK-LEVEL 0) 157
>> (7F62804A3DD0) : 10 (TOPLEVEL-LOOP) 101
>> (7F62804A3DF8) : 11 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 117
>> (7F62804A3E18) : 12 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 645
>> (7F62804A3EB0) : 13 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER
>> listener(1) [Active] #x3020006B66AD> (#<COMPILED-LEXICAL-CLOSURE #
>> #x3020006B61EF>)) 717
>> (7F62804A3F48) : 14 (FUNCALL #'#<(:INTERNAL
>> (CCL::%PROCESS-PRESET-INTERNAL (PROCESS)))> #<TTY-LISTENER
>> listener(1) [Active] #x3020006B66AD> (#<COMPILED-LEXICAL-CLOSURE #
>> #x3020006B61EF>)) 381
>> (7F62804A3F98) : 15 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 301
>>
>> current image is build with (rebuild-ccl :full t)
>>
>> best regard,
>>  /okflo
>>
>> -- 
>> diesenbacher.net
>> Dipl. Ing. (FH) Otto Karl Florian Diesenbacher
>> okflo at diesenbacher.net
>> http://www.diesenbacher.net/
>>
>> _______________________________________________
>> Openmcl-devel mailing list
>> Openmcl-devel at clozure.com
>> http://clozure.com/mailman/listinfo/openmcl-devel
>>
>>

-- 
diesenbacher.net
Dipl. Ing. (FH) Otto Karl Florian Diesenbacher
okflo at diesenbacher.net
http://www.diesenbacher.net/