Pascal J. Bourguignon
Pascal J. Bourguignon
The same still occurs on Big Sur with the latest git! ``` $ ccl -n Clozure Common Lisp Version 1.12 (v1.12-39-g6c1a9458) DarwinX8664 For more information about CCL, please see http://ccl.clozure.com....
The problem seems to be in ccl:save-application, since this: ``` (ccl:save-application (merge-pathnames name directory) :toplevel-function nil :init-file nil :error-handler nil :application-class application-class-name :clear-clos-caches t :mode #o755 :prepend-kernel t) ``` produce...
Now, setting a break point on save_application in image.c, and calling ccl:save-application, leads to the creation of the executable with the kernel, but save_application is NOT called!
Tracing ccl::%save-application ccl::save-application shows that ccl::%save-application is not called. ``` [pjb@despina org.xquartz:0 ccl-pjb-debug 14Gi]$ PATH=/usr/bin:/usr/sbin:/bin:/sbin ./dx86cl64 -n Clozure Common Lisp Version 1.12.1 (v1.12.1-7-g4912320e) DarwinX8664 For more information about CCL, please...
It looks like `toplevel` is not called after `%set-toplevel` in `process-exit-application`. Could killing the tty process have an impact on the saving process? ``` [pjb@despina org.xquartz:0 ccl-pjb-debug 14Gi]$ PATH=/usr/bin:/usr/sbin:/bin:/sbin ./dx86cl64...
The `TOPLEVEL` function is not reached in `process-exit-application` Current test file: ``` (write-line ";;; Loading :build-application") (defparameter *output* (with-output-to-string (*standard-output*) (let ((*trace-output* *standard-output*)) (require :build-application)))) (write-line ";;; Tracing interesting functions")...
Perhaps the problem is in the code generated for that method? ``` cl-user> (disassemble (closer-mop:method-function (find-method (function ccl::process-exit-application) '() '(ccl::process t)))) ;; "ccl:l1;l1-processes.lisp.newest":22140-22979 (recover-fn-from-rip) ; [0] (cmpl ($ 16) (%...
%SET-TOPLEVEL seems to be working normally. ``` [pjb@despina org.xquartz:0 ccl-pjb-debug 20Gi]$ ./dx86cl64 -n -l test-sa.lisp ;;; Loading :build-application ;;; Tracing interesting functions ;;; Saving application ~/Desktop/Bar 0> Calling (SAVE-APPLICATION #P"/Users/pjb/Desktop/Bar"...
Yes, you could ask a style-warning from the implementation, but note that a conforming implementation may ignore any or all declarations but the SPECIAL declaration. What does the ccl documentation...
To let `sldb-hook` insert text in the sldb buffer, we have to correct `sldb-insert-restarts` which stores a point instead of a marker in the action: ``` (defun sldb-insert-restarts (restarts start...