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

Diff of /slime/swank-sbcl.lisp

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

revision 1.119 by heller, Mon Feb 28 23:32:06 2005 UTC revision 1.120 by lgorrie, Wed Mar 2 23:50:29 2005 UTC
# Line 504  stack." Line 504  stack."
504    
505  (defimplementation print-frame (frame stream)  (defimplementation print-frame (frame stream)
506    (let ((*standard-output* stream))    (let ((*standard-output* stream))
507      (sb-debug::print-frame-call frame :verbosity 1 :number nil)))      (sb-debug::print-frame-call frame stream :verbosity 1 :number nil)))
508    
509  (defun code-location-source-path (code-location)  (defun code-location-source-path (code-location)
510    (let* ((location (sb-debug::maybe-block-start-location code-location))    (let* ((location (sb-debug::maybe-block-start-location code-location))
# Line 554  stack." Line 554  stack."
554        (:lisp        (:lisp
555         (make-location         (make-location
556          (list :source-form (with-output-to-string (*standard-output*)          (list :source-form (with-output-to-string (*standard-output*)
557                               (sb-debug::print-code-location-source-form                               (print (sb-debug::code-location-source-form
558                                code-location 100)))                                       code-location 100))))
559          (list :position 0))))))          (list :position 0))))))
560    
561  (defun safe-source-location-for-emacs (code-location)  (defun safe-source-location-for-emacs (code-location)

Legend:
Removed from v.1.119  
changed lines
  Added in v.1.120

  ViewVC Help
Powered by ViewVC 1.1.5