Fix SBCL #'software-version crash also when starting from an image.
Fri Jul 3 12:17:07 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix SBCL #'software-version crash also when starting from an image.
diff -rN -u old-qt.examples/make-bundle.sh new-qt.examples/make-bundle.sh
--- old-qt.examples/make-bundle.sh 2014-10-30 06:59:50.000000000 +0100
+++ new-qt.examples/make-bundle.sh 2014-10-30 06:59:50.000000000 +0100
@@ -9,7 +9,7 @@
--eval '(mb:load :qt.examples)' \
--eval "(smoke::add-startup-function #'(lambda() (format t \"\
cl-smoke: build: `date -R`~%\
-Run examples with: (qt.examples:launcher)\")))" \
+Run the examples with: (qt.examples:launcher)\")))" \
--eval "(smoke:save-bundle \"cl-smoke-qt.examples.linux.x86.run\"\
'(\"src/widget.ui\" \"src/hello-world_de.qm\" \
\"/usr/local/lib/libsmokeqt.so.2\" \
diff -rN -u old-qt.examples/src/i18n-hello-world.lisp new-qt.examples/src/i18n-hello-world.lisp
--- old-qt.examples/src/i18n-hello-world.lisp 2014-10-30 06:59:50.000000000 +0100
+++ new-qt.examples/src/i18n-hello-world.lisp 2014-10-30 06:59:50.000000000 +0100
@@ -35,5 +35,5 @@
;; sb-sys::*software-version* and we thus prevent the crash in
;; (run-program "/bin/uname" [...]).
#+sbcl
-(eval-when (:load-toplevel)
+(smoke:eval-startup (:load-toplevel)
(software-version))