From: Jan Moringen <jmoringe@techfak.uni-bielefeld.de>
Date: Tue, 18 Feb 2014 03:15:00 +0000 (+0100)
Subject: minor things in accept-specializer.lisp
X-Git-Tag: els2014-submission~5
X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=206c80bb505fa274ef0ff9e22b1ffd4a93720dd3;p=specializable.git

minor things in accept-specializer.lisp
---

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))