On 12 June 2012 09:42, CRLF0710 <span dir="ltr"><<a href="mailto:crlf0710@gmail.com" target="_blank">crlf0710@gmail.com</a>></span> wrote:<br><div><span>> I think you might want to try something like</span></div><span>> (asdf:make-build :hyde :type :program :epilogue-code '(funcall (intern "</span><span>MY-PKG-MAIN</span><span>" 'cl-user)))</span><font color="#222222" face="arial, sans-serif"><br>
> and maybe there are some even better ways to do this.</font><br><br>Thanks for trying to solve this problem. Unfortunately, using funcall did not work. I still get undefined function (but server-start is both defined and exported in my package). Since my clumsy hack works, I will stick to that until I find a better working solution. The reason I want to run the init code in the cl-user package and not in my package is I do not want user-level Lisp code to be able to access the internals (private functions) of the server package. asdf:make-build does not seem to provide a simple way to do it. Moreover another library using my package would want to have full control on when to start the server, that is not necessarily on package loading.<br>
<br>[ant@mira hyde]$ ./server<br>;;; Loading #P"/usr/lib/ecl-12.2.1/sockets.fas"<br><br>|start-server| <br>Condition of type: UNDEFINED-FUNCTION<br>The function |start-server| is undefined.<br><br>No restarts available.<br>
<br>Top level in: #<process TOP-LEVEL>.<br><br>PS: <span class="HOEnZb"><font color="#888888">Wir müssen wissen; wir werden wissen! is Vogliamo sapere e sapremo! in Italian</font></span><br><br>