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

Diff of /slime/swank-lispworks.lisp

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

revision 1.73 by eweitz, Mon Jun 13 09:17:32 2005 UTC revision 1.74 by heller, Tue Jul 5 20:30:59 2005 UTC
# Line 1  Line 1 
1  ;;; -*- Mode: lisp; indent-tabs-mode: nil -*-  ;;; -*- indent-tabs-mode: nil -*-
2  ;;;  ;;;
3  ;;; swank-lispworks.lisp --- LispWorks specific code for SLIME.  ;;; swank-lispworks.lisp --- LispWorks specific code for SLIME.
4  ;;;  ;;;
# Line 84  Line 84 
84      (make-instance 'comm:socket-stream :socket fd :direction :io      (make-instance 'comm:socket-stream :socket fd :direction :io
85                     :element-type 'base-char)))                     :element-type 'base-char)))
86    
87    (defun find-external-format (coding-system &optional default)
88      (case coding-system
89        (:iso-latin-1-unix '(:latin-1 :eol-style :lf))
90        (:utf-8-unix '(:utf-8 :eol-style :lf))
91        (t default)))
92    
93  (defun set-sigint-handler ()  (defun set-sigint-handler ()
94    ;; Set SIGINT handler on Swank request handler thread.    ;; Set SIGINT handler on Swank request handler thread.
95    #-win32    #-win32
# Line 366  Return NIL if the symbol is unbound." Line 372  Return NIL if the symbol is unbound."
372           (signal-error-data-base compiler::*error-database* ,location)           (signal-error-data-base compiler::*error-database* ,location)
373           (signal-undefined-functions compiler::*unknown-functions* ,location)))))           (signal-undefined-functions compiler::*unknown-functions* ,location)))))
374    
375  (defimplementation swank-compile-file (filename load-p)  (defimplementation swank-compile-file (filename load-p
376                                           &optional external-format)
377    (with-swank-compilation-unit (filename)    (with-swank-compilation-unit (filename)
378      (compile-file filename :load load-p)))      (let ((ef (if external-format
379                      (find-external-format external-format)
380                      :default)))
381          (compile-file filename :load load-p :external-format ef))))
382    
383  (defvar *within-call-with-compilation-hooks* nil  (defvar *within-call-with-compilation-hooks* nil
384    "Whether COMPILE-FILE was called from within CALL-WITH-COMPILATION-HOOKS.")    "Whether COMPILE-FILE was called from within CALL-WITH-COMPILATION-HOOKS.")
# Line 745  function names like \(SETF GET)." Line 755  function names like \(SETF GET)."
755    
756  ;;; Some intergration with the lispworks environment  ;;; Some intergration with the lispworks environment
757    
758  (defun swank-sym (name) (find-symbol (string name) (string :swank)))  (defun swank-sym (name) (find-symbol (string name) :swank))
759    
760  (defimplementation emacs-connected ()  (defimplementation emacs-connected ()
761    (when (eq (eval (swank-sym :*communication-style*))    (when (eq (eval (swank-sym :*communication-style*))
# Line 756  function names like \(SETF GET)." Line 766  function names like \(SETF GET)."
766      (defmethod env-internals:environment-display-notifier      (defmethod env-internals:environment-display-notifier
767          (env &key restarts condition)          (env &key restarts condition)
768        (declare (ignore restarts))        (declare (ignore restarts))
769        (funcall (find-symbol (string :swank-debugger-hook) :swank)        (funcall (swank-sym :swank-debugger-hook) condition *debugger-hook*))
                condition *debugger-hook*))  
770      (defmethod env-internals:environment-display-debugger (env)      (defmethod env-internals:environment-display-debugger (env)
771        *debug-io*)))        *debug-io*)))
772    

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

  ViewVC Help
Powered by ViewVC 1.1.5