Changeset 9426


Ignore:
Timestamp:
May 9, 2008, 10:10:08 AM (11 years ago)
Author:
gb
Message:

MAKE-LOAD-FORM, PRINT-OBJECT methods for PACKAGE-REF.

File:
1 edited

Legend:

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

    r8921 r9426  
    2525
    2626;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     27
     28(defmethod make-load-form ((ref package-ref) &optional env)
     29  (declare (ignore env))
     30  `(register-package-ref ',(package-ref.name ref)))
     31
     32(defmethod print-object ((ref package-ref) stream)
     33  (print-unreadable-object (ref stream :type t :identity t)
     34    (format stream "for ~s" (package-ref.name ref))))
    2735
    2836;;; Maps character names to characters
Note: See TracChangeset for help on using the changeset viewer.