Changeset 13071


Ignore:
Timestamp:
Oct 22, 2009, 12:00:03 AM (10 years ago)
Author:
gz
Message:

Remove debugging...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/library/core-files.lisp

    r13068 r13071  
    586586                    (find-package (core-package-name obj)))
    587587               (let ((v (%copy-uvector-from-core obj depth)))
    588                  (format t "~&Copied #x~x, depth=~s symbolp=~s @~x"
    589                          obj depth (symbolp v) (%fixnum-address-of v))
    590588                 (when (and (symbolp v) (<= depth 1))
    591589                   ;; Need to fix up the package slot else it's not useful
    592590                   (let ((pp (%svref (symptr->symvector v) target::symbol.package-predicate-cell)))
    593                      (format t "~&pp = ~x" pp)
    594591                     (when (unresolved-address-p pp)
    595592                       (setq pp (copy-from-core pp :depth 1)))
Note: See TracChangeset for help on using the changeset viewer.