print-object

• Modify standard common lisp behavior

(defmethod print-object ((object point) stream)

(let ((x (point-x object)) (y (point-y object)))

(if *print-escape*

(print-unreadable-object

(object stream :identity t :type t)

(format stream " ~S,~S " x y))

(format stream " ~S ~S,~S " (type-of object) x y))))

> (setq p (make-instance ‘point :x 3 :y 2))

#<POINT 3,2 @ #x204d8452>

> (princ p)

POINT 3,2

Previous slide

Next slide

Back to first slide

View graphic version