/[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.27 by heller, Thu Mar 18 21:53:27 2004 UTC revision 1.28 by heller, Tue Mar 23 21:32:17 2004 UTC
# Line 62  Line 62 
62  (defimplementation lisp-implementation-type-name ()  (defimplementation lisp-implementation-type-name ()
63    "clisp")    "clisp")
64    
65    (defimplementation set-default-directory (directory)
66      (setf (ext:default-directory) directory)
67      (namestring (setf *default-pathname-defaults* (ext:default-directory))))
68    
69    
70  ;;; TCP Server  ;;; TCP Server
71    
# Line 365  Execute BODY with NAME's funtion slot se Line 369  Execute BODY with NAME's funtion slot se
369  (defxref list-callers   xref:list-callers)  (defxref list-callers   xref:list-callers)
370  (defxref list-callees   xref:list-callees)  (defxref list-callees   xref:list-callees)
371    
372  (defun xref-results (fspecs)  (defun xref-results (symbols)
373    (let ((xrefs '()))    (let ((xrefs '()))
374      (dolist (fspec fspecs)      (dolist (symbol symbols)
375        (dolist (location (fspec-source-locations fspec))        (push (list symbol (fspec-location symbol)) xrefs))
         (push (list fspec location) xrefs)))  
376      xrefs))      xrefs))
377    
378  (when (find-package :swank-loader)  (when (find-package :swank-loader)
# Line 398  Execute BODY with NAME's funtion slot se Line 401  Execute BODY with NAME's funtion slot se
401               ;; Issue 91               ;; Issue 91
402               )               )
403           (ext:with-restarts           (ext:with-restarts
404               ((CONTINUE               ((continue
405                 :report (lambda (stream)                 :report (lambda (stream)
406                           (format stream (sys::TEXT "Return from ~S loop")                           (format stream (sys::text "Return from ~S loop")
407                                   'break))                                   'break))
408                 ()))                 ()))
409             (with-condition-restarts condition (list (find-restart 'CONTINUE))             (with-condition-restarts condition (list (find-restart 'continue))
410                                      (invoke-debugger condition)))))                                      (invoke-debugger condition)))))
411     nil))     nil))
412    

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5