From a8d1baa6ae6d69f374d21c808e2a70197f37252b Mon Sep 17 00:00:00 2001 From: Cole Scott Date: Fri, 30 Aug 2019 12:55:31 -0700 Subject: [PATCH] Disable call to zap-info in app build Calling zap-info was causing the apps to fail to build with sbcl-1.5.6 --- build-app-ng.lisp | 2 +- build-app.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/build-app-ng.lisp b/build-app-ng.lisp index 789632c0..69a76f2b 100644 --- a/build-app-ng.lisp +++ b/build-app-ng.lisp @@ -33,7 +33,7 @@ (load-systems-table) (push #'local-system-search asdf:*system-definition-search-functions*) (asdf:load-system "qvm-app-ng") - (funcall (read-from-string "qvm-app-ng::zap-info")) + ;; (funcall (read-from-string "qvm-app-ng::zap-info")) (funcall (read-from-string "qvm-app-ng::disable-debugger")) (when (find "--qvm-sdk" sb-ext:*posix-argv* :test 'string=) (load "app/src/mangle-shared-objects.lisp")) diff --git a/build-app.lisp b/build-app.lisp index 5a51daf8..7238f0b2 100644 --- a/build-app.lisp +++ b/build-app.lisp @@ -36,7 +36,7 @@ (load-systems-table) (push #'local-system-search asdf:*system-definition-search-functions*) (asdf:load-system "qvm-app") - (funcall (read-from-string "qvm-app::zap-info")) + ;; (funcall (read-from-string "qvm-app::zap-info")) (funcall (read-from-string "qvm-app::setup-debugger")) (when (find "--qvm-sdk" sb-ext:*posix-argv* :test 'string=) (load "app/src/mangle-shared-objects.lisp"))