/[slime]/slime/swank-ccl.lisp
ViewVC logotype

Diff of /slime/swank-ccl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by sboukarev, Fri Aug 6 14:10:50 2010 UTC revision 1.23 by heller, Sun Nov 6 17:04:32 2011 UTC
# Line 82  Line 82 
82    (let ((str (symbol-name sym)))    (let ((str (symbol-name sym)))
83      `(or (find-symbol ,str :swank)      `(or (find-symbol ,str :swank)
84           (error "There is no symbol named ~a in the SWANK package" ,str))))           (error "There is no symbol named ~a in the SWANK package" ,str))))
85    ;;; UTF8
86    
87    (defimplementation string-to-utf8 (string)
88      (ccl:encode-string-to-octets string :external-format :utf-8))
89    
90    (defimplementation utf8-to-string (octets)
91      (ccl:decode-string-from-octets octets :external-format :utf-8))
92    
93  ;;; TCP Server  ;;; TCP Server
94    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5