From 7488e60672318e28e08f87c64fe3868690dbfd7b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 23 Feb 2010 10:44:08 -0700 Subject: [PATCH] Relax generic function typing --- base-class.lisp | 2 +- mop.lisp | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/base-class.lisp b/base-class.lisp index 8c2780b..a7acb3b 100644 --- a/base-class.lisp +++ b/base-class.lisp @@ -20,7 +20,7 @@ (:metaclass hyperobject-class) (:description "Basic hyperobject class")) -(defmethod print-object ((obj hyperobject) (s stream)) +(defmethod print-object ((obj hyperobject) s) (print-unreadable-object (obj s :type t :identity nil) (funcall (obj-data-printer (get-view-id obj :compact-text)) obj s nil))) diff --git a/mop.lisp b/mop.lisp index 093861f..b37a59c 100644 --- a/mop.lisp +++ b/mop.lisp @@ -104,7 +104,7 @@ :lookup nil :lookup-keys nil)) -(defmethod print-object ((obj subobject) (s stream)) +(defmethod print-object ((obj subobject) s) (print-unreadable-object (obj s :type t) (format s "~S" (name-slot obj)))) @@ -118,7 +118,7 @@ (link-parameters :type list :initform nil :initarg :link-parameters :reader link-parameters))) -(defmethod print-object ((obj hyperlink) (s stream)) +(defmethod print-object ((obj hyperlink) s) (print-unreadable-object (obj s :type t :identity t) (format s "~S" (name obj)))) -- 2.34.1