You can't use FORMAT - the patch must be applied exactly as-is.
If successful, it should print:
COLD-INIT... (PACKAGE = "COMMON-LISP")
("Length(TLFs)= " 14243)
Before G-U-T
After G-U-T
Before FILE-WRITE-DATE "SYS:SRC;PCL;WALK.LISP"
After FILE-WRITE-DATE
... and many more
oh, sorry I didn't see the log... COLD-INIT.
So it's making it as far a DEBUG-INFO-
Here is a small patch to narrow down the failure within there:
--- a/src/code/ debug-info. lisp debug-info. lisp debug-sources* )
+++ b/src/code/
@@ -303,9 +303,15 @@
(defvar *!initial-
(defun !debug- info-cold- init () time))) debug-sources* ) source- namestring debug-source)) source- namestring debug-source))
(timestamp (file-write-date namestring))) source- created debug-source) timestamp
(debug- source- compiled debug-source) now)))))
+ (write-string "Before G-U-T") (terpri)
(let ((now (get-universal-
+ (write-string "After G-U-T") (terpri)
(dolist (debug-source *!initial-
+ (write-string "Before FILE-WRITE-DATE ")
+ (write (debug-
+ (terpri)
(let* ((namestring (debug-
+ (write-string "After FILE-WRITE-DATE") (terpri)
(setf (debug-
You can't use FORMAT - the patch must be applied exactly as-is. PCL;WALK. LISP"
If successful, it should print:
COLD-INIT... (PACKAGE = "COMMON-LISP")
("Length(TLFs)= " 14243)
Before G-U-T
After G-U-T
Before FILE-WRITE-DATE "SYS:SRC;
After FILE-WRITE-DATE
... and many more