Changeset 13071

Timestamp:

Oct 22, 2009, 12:00:03 AM (10 years ago)

Author:

gz

Message:

Remove debugging...

File:

• branches/working-0711/ccl/library/core-files.lisp (modified) (1 diff)

branches/working-0711/ccl/library/core-files.lisp

@@ -586 +586 @@
                     (find-package (core-package-name obj)))
                (let ((v (%copy-uvector-from-core obj depth)))
-                 (format t "~&Copied #x~x, depth=~s symbolp=~s @~x"
-                         obj depth (symbolp v) (%fixnum-address-of v))
                  (when (and (symbolp v) (<= depth 1))
                    ;; Need to fix up the package slot else it's not useful
                    (let ((pp (%svref (symptr->symvector v) target::symbol.package-predicate-cell)))
-                     (format t "~&pp = ~x" pp)
                      (when (unresolved-address-p pp)
                        (setq pp (copy-from-core pp :depth 1)))