/[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.58 by dcrosher, Wed Mar 22 16:40:01 2006 UTC revision 1.59 by heller, Thu Aug 10 11:53:35 2006 UTC
# Line 125  Line 125 
125      (ext:make-encoding :charset charset :line-terminator :unix)))      (ext:make-encoding :charset charset :line-terminator :unix)))
126    
127  (defimplementation accept-connection (socket  (defimplementation accept-connection (socket
128                                        &key (external-format :iso-latin-1-unix)                                        &key external-format buffering timeout)
                                       buffering timeout)  
129    (declare (ignore buffering timeout))    (declare (ignore buffering timeout))
130      (setq external-format (or external-format :iso-latin-1-unix))
131    (socket:socket-accept socket    (socket:socket-accept socket
132                          :buffered nil ;; XXX should be t                          :buffered nil ;; XXX should be t
133                          :element-type 'character                          :element-type 'character
# Line 239  Return NIL if the symbol is unbound." Line 239  Return NIL if the symbol is unbound."
239    (let* (;;(sys::*break-count* (1+ sys::*break-count*))    (let* (;;(sys::*break-count* (1+ sys::*break-count*))
240           ;;(sys::*driver* debugger-loop-fn)           ;;(sys::*driver* debugger-loop-fn)
241           ;;(sys::*fasoutput-stream* nil)           ;;(sys::*fasoutput-stream* nil)
242           (*sldb-backtrace* (nthcdr 6 (sldb-backtrace))))           (*sldb-backtrace* (nthcdr 5 (sldb-backtrace))))
243      (funcall debugger-loop-fn)))      (funcall debugger-loop-fn)))
244    
245  (defun nth-frame (index)  (defun nth-frame (index)
# Line 363  Return NIL if the symbol is unbound." Line 363  Return NIL if the symbol is unbound."
363    (sys::redo-eval-frame (car (nth-frame index))))    (sys::redo-eval-frame (car (nth-frame index))))
364    
365  (defimplementation frame-source-location-for-emacs (index)  (defimplementation frame-source-location-for-emacs (index)
366    (let ((f (car (nth-frame index))))    `(:error
367      (list :error (format nil "Cannot find source for frame: ~A ~A ~A"      ,(format nil "frame-source-location not implemented. (frame: ~A)"
368                           f               (car (nth-frame index)))))
                          (sys::eval-frame-p f)  
                          (sys::the-frame)))))  
369    
370  ;;; Profiling  ;;; Profiling
371    

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

  ViewVC Help
Powered by ViewVC 1.1.5