/[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.19 by sboukarev, Wed Mar 10 00:02:53 2010 UTC revision 1.20 by heller, Thu May 27 14:48:19 2010 UTC
# Line 115  Line 115 
115    (car (rassoc-if (lambda (x) (member coding-system x :test #'equal))    (car (rassoc-if (lambda (x) (member coding-system x :test #'equal))
116                    *external-format-to-coding-system*)))                    *external-format-to-coding-system*)))
117    
118    (defimplementation socket-fd (stream)
119      (ccl::ioblock-device (ccl::stream-ioblock stream t)))
120    
121  ;;; Unix signals  ;;; Unix signals
122    
123  (defimplementation getpid ()  (defimplementation getpid ()

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

  ViewVC Help
Powered by ViewVC 1.1.5