home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / lisp / 2395 < prev    next >
Encoding:
Text File  |  1992-09-10  |  1.3 KB  |  52 lines
  1. Newsgroups: comp.lang.lisp
  2. Path: sparky!uunet!mcsun!news.funet.fi!cs.joensuu.fi!prikala
  3. From: prikala@cs.joensuu.fi ( Pasi Rikala)
  4. Subject: Sun Common Lisp & Foreign functions
  5. Message-ID: <1992Sep10.122629.8200@cs.joensuu.fi>
  6. Keywords: foreign functions
  7. Organization: University of Joensuu
  8. Date: Thu, 10 Sep 1992 12:26:29 GMT
  9. Lines: 41
  10.  
  11. Hello Lisp-Gurus 
  12.  
  13. I have this strange problem with Sun Common Lisp when trying to use 
  14. functions originally written with c. 
  15.  
  16. My c-function is like this: 
  17.  
  18. /* mytest.c */ 
  19. int my_sleep() 
  20. { 
  21.         int i; 
  22.  
  23.         i = sleep(10); 
  24.         perror("After Sleep"); 
  25.         return(i); 
  26. } 
  27.  
  28. I compile it with "cc -c" to "mytest.o"
  29. And on lisp I say: 
  30. (def-foreign-function (my_sleep         (:return-type :signed-32bit) 
  31.                                         (:name "_my_sleep") 
  32.                                         (:language :c))) 
  33.  
  34. (load-foreign-files "mytest.o") 
  35.  
  36.  
  37. When I call it with (my_sleep), it does not sleep 10 seconds as supposed 
  38. but still returns 0: 
  39. > (my_sleep) 
  40. After Sleep: Interrupted system call 
  41. 0 
  42. > 
  43.  
  44. Same thing happens every time I call sleep from my functions.
  45.  
  46. My question is: What am I doing wrong? Why is sleep interrupted? 
  47. How can I tell lisp not to interrupt foreign functions when they 
  48. seem to be sleeping?
  49.  
  50.  
  51. Pasi Rikala    (prikala@cs.joensuu.fi)
  52.