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

Diff of /slime/swank-ecl.lisp

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

revision 1.6 by heller, Thu Aug 10 11:53:35 2006 UTC revision 1.7 by heller, Sun Nov 19 21:33:03 2006 UTC
# Line 1  Line 1 
1  ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-  ;;;; -*- indent-tabs-mode: nil -*-
2  ;;;  ;;;
3  ;;; swank-ecl.lisp --- SLIME backend for ECL.  ;;; swank-ecl.lisp --- SLIME backend for ECL.
4    ;;;
5    ;;; This code has been placed in the Public Domain.  All warranties
6    ;;; are disclaimed.
7    ;;;
8    
9  ;;; Administrivia  ;;; Administrivia
10    
# Line 42  Line 46 
46  (defimplementation accept-connection (socket  (defimplementation accept-connection (socket
47                                        &key external-format                                        &key external-format
48                                        buffering timeout)                                        buffering timeout)
49    (declare (ignore buffering timeout))    (declare (ignore buffering timeout external-format))
50    (assert (eq external-format :iso-latin-1-unix))    (make-socket-io-stream (accept socket)))
   (make-socket-io-stream (accept socket) external-format))  
51    
52  (defun make-socket-io-stream (socket external-format)  (defun make-socket-io-stream (socket)
53    (sb-bsd-sockets:socket-make-stream socket    (sb-bsd-sockets:socket-make-stream socket
54                                       :output t                                       :output t
55                                       :input t                                       :input t
# Line 118  Line 121 
121      (funcall function)))      (funcall function)))
122    
123  (defimplementation swank-compile-file (*compile-filename* load-p  (defimplementation swank-compile-file (*compile-filename* load-p
124                                         &optional external-format)                                         external-format)
125    (declare (ignore external-format))    (declare (ignore external-format))
126    (with-compilation-hooks ()    (with-compilation-hooks ()
127      (let ((*buffer-name* nil))      (let ((*buffer-name* nil))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5