/[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.67 by heller, Mon Feb 28 23:32:06 2005 UTC revision 1.68 by heller, Tue Mar 22 10:12:19 2005 UTC
# Line 520  Return NIL if the symbol is unbound." Line 520  Return NIL if the symbol is unbound."
520           (tmpname (hcl:make-temp-file nil "lisp")))           (tmpname (hcl:make-temp-file nil "lisp")))
521      (with-swank-compilation-unit (location)      (with-swank-compilation-unit (location)
522        (compile-from-temp-file        (compile-from-temp-file
523         (format nil "~S~%~A" `(eval-when (:compile-toplevel)         (with-output-to-string (s)
524                                (setq dspec::*location* (list ,@location)))           (let ((*print-radix* t))
525                 string)             (print `(eval-when (:compile-toplevel)
526                         (setq dspec::*location* (list ,@location)))
527                      s))
528             (write-string string s))
529         tmpname))))         tmpname))))
530    
531  ;;; xref  ;;; xref
# Line 535  Return NIL if the symbol is unbound." Line 538  Return NIL if the symbol is unbound."
538  (defxref who-macroexpands hcl:who-calls) ; macros are in the calls table too  (defxref who-macroexpands hcl:who-calls) ; macros are in the calls table too
539  (defxref calls-who      hcl:calls-who)  (defxref calls-who      hcl:calls-who)
540  (defxref list-callers   list-callers-internal)  (defxref list-callers   list-callers-internal)
541  (defxref list-callees   list-callees-internal)  ;; (defxref list-callees   list-callees-internal)
542    
543  (defun list-callers-internal (name)  (defun list-callers-internal (name)
544    (let ((callers (make-array 100    (let ((callers (make-array 100
# Line 700  Return NIL if the symbol is unbound." Line 703  Return NIL if the symbol is unbound."
703  (defimplementation emacs-connected ()  (defimplementation emacs-connected ()
704    (when (eq (eval (swank-sym :*communication-style*))    (when (eq (eval (swank-sym :*communication-style*))
705              nil)              nil)
706      (set-sigint-handler)))      (set-sigint-handler))
707      ;; pop up the slime debugger by default
708      (let ((lw:*handle-warn-on-redefinition* :warn))
709        (defmethod env-internals:environment-display-notifier
710            (env &key restarts condition)
711          (declare (ignore restarts))
712          (funcall (find-symbol (string :swank-debugger-hook) :swank)
713                   condition *debugger-hook*))
714        (defmethod env-internals:environment-display-debugger (env)
715          *debug-io*)))
716    
717  (defimplementation make-stream-interactive (stream)  (defimplementation make-stream-interactive (stream)
718    (unless (find-method #'stream:stream-soft-force-output nil `((eql ,stream))    (unless (find-method #'stream:stream-soft-force-output nil `((eql ,stream))

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

  ViewVC Help
Powered by ViewVC 1.1.5