From 206c80bb505fa274ef0ff9e22b1ffd4a93720dd3 Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Tue, 18 Feb 2014 04:15:00 +0100 Subject: [PATCH] minor things in accept-specializer.lisp --- accept-specializer.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.5