RosettaCodeData/Task/Polymorphic-copy/Common-Lisp/polymorphic-copy-2.lisp
2023-07-01 13:44:08 -04: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)))