jlinker and generate-application

Jack Tanner <[email protected]> Wed, 15 Sep 2004 04:46:14 -0400
Newsgroups gmane.lisp.allegro
Message-ID <[email protected]>
I'm trying to build a deliverable version of my lisp+jlinker application 
so that I can deploy it on a machine that's running Tomcat. The last 
time I tried this was targetting Windows with an older 6.2, and 
everything worked fine. Now I'm recompiling for Linux, and using a 
freshly-patched ACL 6.2, and I've encountered the problem below.

The weird thing is that this problem doesn't come up if I just load my 
code in alisp without using generate-application.

$ alisp -L genapp.lisp -kill > make.stdout
$ cat genapp.lisp
(generate-application "myapp" "delivery"
   '("load-myapp.lisp")
   :allow-existing-directory t
   :include-compiler t :discard-compiler t :runtime-bundle t)

The build fails, and here's the error in make.stdout:

;     Fast loading /usr/local/acl/acl62/code/jlinker.001
;;; Installing jlinker patch, version 1
;     Autoloading for package "ACL-SOCKET":
;       Fast loading from bundle code/sock-s.fasl.
Error (from DEBUG): Attempt to make a FUNCTION definition for the name
                     (:PROPERTY MULTIPROCESSING::CLOCK-EVENT
                      EXCL::ENSURE-RESOURCE).
                     This name is in the MULTIPROCESSING package and
                     defining it is a violation for portable programs.
                     The package MULTIPROCESSING has
                     PACKAGE-DEFINITION-LOCK set, which causes the
                     system to signal this violation.
Continuable error: Set the FUNCTION definition of the name
(:PROPERTY MULTIPROCESSING::CLOCK-EVENT EXCL::ENSURE-RESOURCE) anyway.

The file that triggers the error contains source code that is 
essentially identical to acl62/examples/jlinker/servlet/run.cl:
$ cat weblink.lisp
(require :jlinker)
(use-package :javatools.jlinker)
(require :jlinkent)

(defun run-weblink ()
   (jlinker-listen :init-args
	      (list :lisp-file nil :lisp-port 4321 :verbose t)))

(setf excl:*restart-init-function* #'run-weblink)

I'd be mighty grateful for any ideas regarding what could be going wrong 
here.

Thanks!