RosettaCodeData/Task/Polymorphic-copy/Common-Lisp/polymorphic-copy-2.lisp
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

5 lines
195 B
Common Lisp

(defmethod frob ((sequence sequence))
(format t "~&sequence has ~w elements" (length sequence)))
(defmethod frob ((string string))
(format t "~&the string has ~w elements" (length string)))