Changeset 9948


Ignore:
Timestamp:
Jul 10, 2008, 8:59:11 AM (11 years ago)
Author:
gb
Message:

PRINT-OBJECT for package-ref: show the package object.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-reader.lisp

    r9800 r9948  
    3232(defmethod print-object ((ref package-ref) stream)
    3333  (print-unreadable-object (ref stream :type t :identity t)
    34     (format stream "for ~s" (package-ref.name ref))))
     34    (format stream "for ~s [~s]" (package-ref.name ref) (package-ref.pkg ref))))
    3535
    3636;;; Maps character names to characters
Note: See TracChangeset for help on using the changeset viewer.