minor things in accept-specializer.lisp

[specializable.git] / accept-specializer.lisp

diff --git a/accept-specializer.lisp b/accept-specializer.lisp
index 70d8dfc47c6febee8dc255fd9f349ba0c1d54475..a72b1595918ca6b30b7a065e508ad62e5eafdfc5 100644 (file)
--- a/accept-specializer.lisp
+++ b/accept-specializer.lisp
@@ -82,7 +82,7 @@
 \f
 ;;; 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))