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

Diff of /slime/swank-abcl.lisp

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

revision 1.58 by heller, Fri Oct 17 21:26:53 2008 UTC revision 1.59 by heller, Sun Oct 19 20:03:22 2008 UTC
# Line 127  Line 127 
127  (defimplementation local-port (socket)  (defimplementation local-port (socket)
128    (java:jcall (java:jmethod "java.net.ServerSocket" "getLocalPort") socket))    (java:jcall (java:jmethod "java.net.ServerSocket" "getLocalPort") socket))
129    
   
130  (defimplementation close-socket (socket)  (defimplementation close-socket (socket)
131    (ext:server-socket-close socket))    (ext:server-socket-close socket))
132    
# Line 263  Line 262 
262  (defimplementation frame-locals (index)  (defimplementation frame-locals (index)
263    `(,(list :name "??" :id 0 :value "??")))    `(,(list :name "??" :id 0 :value "??")))
264    
   
265  (defimplementation frame-catch-tags (index)  (defimplementation frame-catch-tags (index)
266    (declare (ignore index))    (declare (ignore index))
267    nil)    nil)
# Line 306  Line 304 
304  (in-package :swank-backend)  (in-package :swank-backend)
305    
306  (defun handle-compiler-warning (condition)  (defun handle-compiler-warning (condition)
307    (let ((loc nil));(getf (slot-value condition 'excl::plist) :loc)))    (let ((loc (when (and jvm::*compile-file-pathname*
308      (unless (member condition *abcl-signaled-conditions*) ; filter condition signaled more than once.                          system::*source-position*)
309                   (cons jvm::*compile-file-pathname* system::*source-position*))))
310        ;; filter condition signaled more than once.
311        (unless (member condition *abcl-signaled-conditions*)
312        (push condition *abcl-signaled-conditions*)        (push condition *abcl-signaled-conditions*)
313        (signal (make-condition        (signal (make-condition
314                 'compiler-condition                 'compiler-condition
# Line 325  Line 326 
326                                     (list :position (1+ pos)))))                                     (list :position (1+ pos)))))
327                                 (t                                 (t
328                                  (make-location                                  (make-location
329                                   (list :file *compile-filename*)                                   (list :file (namestring *compile-filename*))
330                                   (list :position 1)))))))))                                   (list :position 1)))))))))
331    
332  (defvar *abcl-signaled-conditions*)  (defvar *abcl-signaled-conditions*)

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

  ViewVC Help
Powered by ViewVC 1.1.5