X-Git-Url: http://christophe.rhodes.io/gitweb/?p=specializable.git;a=blobdiff_plain;f=accept-specializer.lisp;fp=accept-specializer.lisp;h=a72b1595918ca6b30b7a065e508ad62e5eafdfc5;hp=70d8dfc47c6febee8dc255fd9f349ba0c1d54475;hb=206c80bb505fa274ef0ff9e22b1ffd4a93720dd3;hpb=1ee54cd06b82b30021b63046cb12f953402599cc

diff --git a/accept-specializer.lisp b/accept-specializer.lisp
index 70d8dfc..a72b159 100644
--- a/accept-specializer.lisp
+++ b/accept-specializer.lisp
@@ -82,7 +82,7 @@
 
 ;;; FIXME: tiebreaker predicate (maybe defaulting to string<)?
 (defclass accept-specializer (extended-specializer)
-  ((media-type :initarg :media-type :reader media-type)))
+  ((media-type :initarg :media-type :type string :reader media-type)))
 (defmethod print-object ((o accept-specializer) s)
   (print-unreadable-object (o s :type t)
     (format s "~S" (media-type o))))
@@ -105,6 +105,7 @@
   (:metaclass sb-mop:funcallable-standard-class))
 
 (define-extended-specializer accept (gf arg)
+  (declare (ignore gf))
   (make-instance 'accept-specializer :media-type arg))
 (defmethod sb-pcl:unparse-specializer-using-class
     ((gf accept-generic-function) (specializer accept-specializer))