Relax generic function typing

diff --git a/base-class.lisp b/base-class.lisp
index 8c2780b498d9c0d05afb6c7bb122cf25e4f52b4c..a7acb3bb04e75a480c4296305d5096a0678cae38 100644 (file)
--- a/base-class.lisp
+++ b/base-class.lisp
@@ -20,7 +20,7 @@
   (:metaclass hyperobject-class)
   (:description "Basic hyperobject class"))
 
   (: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)))
   (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 093861f76c609d8cbae6d3060e0e173c63b43b60..b37a59c21300673022024970184867678f1e6db1 100644 (file)
--- a/mop.lisp
+++ b/mop.lisp
@@ -104,7 +104,7 @@
                      :lookup nil :lookup-keys nil))
 
 
                      :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))))
 
   (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)))
 
    (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))))
 
   (print-unreadable-object (obj s :type t :identity t)
     (format s "~S" (name obj))))