[Gcl-devel] methods

[Leo Butler]

Hi,

I don't understand the following behaviour.

>(defstruct w (a))

W

>(defmethod print-object ((w w) s) (format s "#s(w :a ~a) ;; w struct" (w-a w)))

#<Standard-Method PRINT-OBJECT (W T) 74054530>

>#s(w a 1)

#S(W A 1)

>(print-object * t)
#s(w :a 1) ;; w struct
NIL

My expectation is that the last 2 outputs should be the same. Why
aren't they? Note that

>(defclass v () (a))

#<Standard-Class V 74043170>

>(defmethod print-object ((v v) s) (format s "#s(v :a) ;; v class"))

#<Standard-Method PRINT-OBJECT (V T) 74042710>

>(make-instance 'v)

#s(v :a) ;; v class

Leo