Permalink
Browse files

cosmetic

  • Loading branch information...
1 parent d341edb commit 0a4062608c4b7fa6c85312147d6e024c30ab985b @lisp committed Aug 2, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 protocol.lisp
View
@@ -216,15 +216,15 @@
;;; protocol operators
-(defmethod initialize-instance ((transport encoded-protocol) &rest initargs &key (charset nil))
+(defmethod initialize-instance ((protocol encoded-protocol) &rest initargs &key (charset nil))
(declare (dynamic-extent initargs))
(multiple-value-bind (decoder encoder)
(ecase charset
((nil) (values #'(lambda (string) (map 'vector #'char-code string))
#'(lambda (bytes) (map 'string #'code-char bytes))))
(:utf8 (values #'trivial-utf-8:utf-8-bytes-to-string
#'trivial-utf-8:string-to-utf-8-bytes)))
- (apply #'call-next-method transport
+ (apply #'call-next-method protocol
:string-encoder encoder
:string-decoder decoder
initargs)))

0 comments on commit 0a40626

Please sign in to comment.