/[cmucl]/src/code/room.lisp
ViewVC logotype

Diff of /src/code/room.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by wlott, Sun Dec 13 15:54:09 1992 UTC revision 1.18 by wlott, Thu Dec 17 09:13:12 1992 UTC
# Line 632  Line 632 
632                   (incf count-so-far)                   (incf count-so-far)
633                   (case type                   (case type
634                     (#.code-header-type                     (#.code-header-type
635                      (let ((dinfo (code-debug-info obj)))                      (let ((dinfo (%code-debug-info obj)))
636                        (format stream "~&Code object: ~S~%"                        (format stream "~&Code object: ~S~%"
637                                (if dinfo                                (if dinfo
638                                    (c::compiled-debug-info-name dinfo)                                    (c::compiled-debug-info-name dinfo)
# Line 675  Line 675 
675      (map-allocated-objects      (map-allocated-objects
676       #'(lambda (obj type size)       #'(lambda (obj type size)
677           (when (eql type code-header-type)           (when (eql type code-header-type)
678             (let* ((dinfo (code-debug-info obj))             (let* ((dinfo (%code-debug-info obj))
679                    (name (if dinfo                    (name (if dinfo
680                              (ecase how                              (ecase how
681                                (:package (c::compiled-debug-info-package dinfo))                                (:package (c::compiled-debug-info-package dinfo))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5