Christophe
Weblog
Wiki
Code
Publications
Music
projects
/
specializable.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1ee54cd
)
minor things in accept-specializer.lisp
author
Jan Moringen
<jmoringe@techfak.uni-bielefeld.de>
Tue, 18 Feb 2014 03:15:00 +0000
(
04:15
+0100)
committer
Christophe Rhodes
<csr21@cantab.net>
Sun, 2 Mar 2014 17:04:12 +0000
(17:04 +0000)
accept-specializer.lisp
patch
|
blob
|
history
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)
\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))))
(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)
(: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))
(make-instance 'accept-specializer :media-type arg))
(defmethod sb-pcl:unparse-specializer-using-class
((gf accept-generic-function) (specializer accept-specializer))