Changeset 4620


Ignore:
Timestamp:
11/03/03 02:53:42 (18 years ago)
Author:
piso
Message:

Moved PRINT-OBJECT to print-object.lisp.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/clos.lisp

    r4614 r4620  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.4 2003-11-02 19:11:41 piso Exp $
     4;;; $Id: clos.lisp,v 1.5 2003-11-03 02:53:42 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    14081408;;;  Methods having to do with class metaobjects.
    14091409
    1410 (defmethod print-object ((class standard-class) stream)
    1411   (print-unreadable-object (class stream :identity t)
    1412                            (format stream "~:(~S~) ~S"
    1413                                    (class-name (class-of class))
    1414                                    (class-name class)))
    1415   class)
    1416 
    14171410(defmethod initialize-instance :after ((class standard-class) &rest args)
    14181411  (apply #'std-after-initialization-for-classes class args))
     
    14441437;;; Methods having to do with generic function metaobjects.
    14451438
    1446 (defmethod print-object ((gf standard-generic-function) stream)
    1447   (print-unreadable-object (gf stream :identity t)
    1448                            (format stream "~:(~S~) ~S"
    1449                                    (class-name (class-of gf))
    1450                                    (generic-function-name gf)))
    1451   gf)
    1452 
    14531439(defmethod initialize-instance :after ((gf standard-generic-function) &key)
    14541440  (finalize-generic-function gf))
    14551441
    14561442;;; Methods having to do with method metaobjects.
    1457 
    1458 (defmethod print-object ((method standard-method) stream)
    1459   (print-unreadable-object (method stream :identity t)
    1460                            (format stream "~:(~S~) ~S~{ ~S~} ~S"
    1461                                    (class-name (class-of method))
    1462                                    (generic-function-name
    1463                                     (method-generic-function method))
    1464                                    (method-qualifiers method)
    1465                                    (mapcar #'class-name
    1466                                            (method-specializers method))))
    1467   method)
    14681443
    14691444(defmethod initialize-instance :after ((method standard-method) &key)
Note: See TracChangeset for help on using the changeset viewer.