On 07/03/11 14:58, Dirk Sondermann wrote:
> But you can easily create such a linking set by installing the
> desired clisp-module-* packages and using clisp-link.
As a more convenient alternative, you may apply the patch posted by
Ben Spencer on March 22 on this list. Since make-image.lisp.in has
changed in the meantime, I've attached an updated version of that
patch.
--
Dirk
diff --git a/Makefile.in b/Makefile.in
index c7512d7..4a5fd1f 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -1,11 +1,11 @@
LISP=@LISP_PROGRAM@
-clisp_BUILDOPTS=-K full -on-error exit ./make-image.lisp
+clisp_BUILDOPTS=-on-error exit ./make-image.lisp
sbcl_BUILDOPTS=--load ./make-image.lisp
ccl_BUILDOPTS=--load ./make-image.lisp
ecl_BUILDOPTS=-norc -shell ./make-image.lisp
-clisp_INFOOPTS=-K full -on-error exit -x "(require 'asdf '(\"asdf.lisp\")) (load \"stumpwm.asd\") (load \"@PPCRE_PATH@/cl-ppcre.asd\") (asdf:operate 'asdf:load-op :stumpwm) (load (compile-file \"manual.lisp\")) (stumpwm::generate-manual) (ext:exit)"
+clisp_INFOOPTS=-on-error exit -x "(require 'asdf '(\"asdf.lisp\")) (require \"clx\") (load \"stumpwm.asd\") (load \"@PPCRE_PATH@/cl-ppcre.asd\") (asdf:operate 'asdf:load-op :stumpwm) (load (compile-file \"manual.lisp\")) (stumpwm::generate-manual) (ext:exit)"
sbcl_INFOOPTS=--eval "(progn (require 'asdf) (require 'stumpwm) (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))"
ccl_INFOOPTS=--eval "(progn (require 'asdf) (require 'stumpwm))" --load manual.lisp --eval "(progn (stumpwm::generate-manual) (quit))"
ecl_INFOOPTS=-eval "(progn (require 'asdf) (load \"@PPCRE_PATH@/cl-ppcre.asd\") (require 'stumpwm) (load \"manual.lisp\"))" -eval "(progn (stumpwm::generate-manual) (ext:quit))"
diff --git a/configure.ac b/configure.ac
index 5c65917..625f01c 100644
--- a/configure.ac
+++ b/configure.ac
@@ -105,6 +105,14 @@ fi
if test "$LISP" = "clisp"; then
AC_CHECK_FILE([$PPCRE_PATH/cl-ppcre.asd],,AC_MSG_ERROR([Cannot find ppcre. When using clisp you must specify its location using --with-ppcre]))
+ AC_MSG_CHECKING([whether clisp is built with dynamic module support])
+ result=$($LISP_PROGRAM -q -x '(nth-value 0 (find-symbol "DYNLOAD-MODULES" "SYS"))')
+ if test "x$result" = "xNIL"; then
+ AC_MSG_RESULT([no])
+ LISP_PROGRAM="$LISP_PROGRAM -K full"
+ else
+ AC_MSG_RESULT([yes])
+ fi
fi
# XXX How to do an OR ?
diff --git a/make-image.lisp.in b/make-image.lisp.in
index cbba593..951d7f1 100644
--- a/make-image.lisp.in
+++ b/make-image.lisp.in
@@ -1,6 +1,7 @@
#-(or sbcl clisp openmcl ecl) (error "This lisp implementation is not supported.")
(require 'asdf #+clisp'("asdf.lisp"))
+#+clisp (require "clx")
#+(or clisp ecl) (load "@PPCRE_PATH@/cl-ppcre.asd")
(asdf:oos 'asdf:load-op 'stumpwm)
#-ecl (stumpwm:set-contrib-dir "@CONTRIB_DIR@")
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
