     ;; Define a default method for the generic function that calls back to the     ;; system stream implementation.  Call back via a message if there is one,     ;; otherwise via the Common Lisp function.     (defmethod ,method-name ((stream t) ,@method-