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

Diff of /slime/swank-clisp.lisp

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

revision 1.95 by sboukarev, Wed Sep 22 14:53:14 2010 UTC revision 1.96 by heller, Sun Nov 6 17:04:43 2011 UTC
# Line 135  Line 135 
135                         :name file                         :name file
136                         :type type)))))                         :type type)))))
137    
138    ;;;; UTF
139    
140    (defimplementation string-to-utf8 (string)
141      (let ((enc (load-time-value
142                  (ext:make-encoding :charset "utf-8" :line-terminator :unix)
143                  t)))
144        (ext:convert-string-to-bytes string enc)))
145    
146    (defimplementation utf8-to-string (octets)
147      (let ((enc (load-time-value
148                  (ext:make-encoding :charset "utf-8" :line-terminator :unix)
149                  t)))
150        (ext:convert-string-from-bytes octets enc)))
151    
152  ;;;; TCP Server  ;;;; TCP Server
153    
154  (defimplementation create-socket (host port)  (defimplementation create-socket (host port)

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

  ViewVC Help
Powered by ViewVC 1.1.5