RosettaCodeData/Task/Inheritance-Single/Comal/inheritance-single-4.comal

10 lines
253 B
Plaintext

;;; ASN.1 serialization logic specialized for animal class
(defmethod serialize-to-asn-1 ((a animal))
#| ... |#
)
;;; casually introduce the method over strings too; no relation to animal
(defmethod serialize-to-asn-1 ((s string))
#| ... #|
)