Changeset 13071
- Timestamp:
- Oct 22, 2009, 12:00:03 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/library/core-files.lisp
r13068 r13071 586 586 (find-package (core-package-name obj))) 587 587 (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))590 588 (when (and (symbolp v) (<= depth 1)) 591 589 ;; Need to fix up the package slot else it's not useful 592 590 (let ((pp (%svref (symptr->symvector v) target::symbol.package-predicate-cell))) 593 (format t "~&pp = ~x" pp)594 591 (when (unresolved-address-p pp) 595 592 (setq pp (copy-from-core pp :depth 1)))
Note: See TracChangeset
for help on using the changeset viewer.