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

Diff of /slime/swank-rpc.lisp

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

revision 1.1 by tnorderhaug, Mon Jan 18 23:20:34 2010 UTC revision 1.2 by tnorderhaug, Tue Jan 19 19:41:01 2010 UTC
# Line 8  Line 8 
8  ;;; are disclaimed.  ;;; are disclaimed.
9  ;;;  ;;;
10    
11  (in-package :swank)  (defpackage :swank-rpc
12      (:export
13        ; export everything for compatibility, need to be trimmed down!
14        #:decode-message
15        #:read-packet
16        #:read-chunk
17        #:*swank-io-package*
18        #:read-form
19        #:encode-message
20        #:prin1-to-string-for-emacs
21        #:destructure-case
22        #:swank-protocol-error
23        #:swank-protocol-error.condition
24        #:swank-protocol-error.backtrace
25        #:make-swank-protocol-error
26        #:*log-events*
27        #:*log-output*
28        #:init-log-output
29        #:real-input-stream
30        #:real-output-stream
31        #:*event-history*
32        #:*event-history-index*
33        #:*enable-event-history*
34        #:log-event
35        #:event-history-to-list
36        #:clear-event-history
37        #:dump-event-history
38        #:dump-event
39        #:escape-non-ascii
40        #:ascii-string-p
41        #:ascii-char-p))
42    
43    (in-package :swank-rpc)
44    
45  ;;;;; Input  ;;;;; Input
46    
# Line 135  corresponding values in the CDR of VALUE Line 167  corresponding values in the CDR of VALUE
167               (princ (swank-protocol-error.condition condition) stream))))               (princ (swank-protocol-error.condition condition) stream))))
168    
169  (defun make-swank-protocol-error (condition)  (defun make-swank-protocol-error (condition)
170    (make-condition 'swank-protocol-error :condition condition    (make-condition 'swank-protocol-error :condition condition
171                    :backtrace (safe-backtrace)))                    ; should be eliminated from here and covered in swank module:
172                      :backtrace (funcall (intern "SAFE-BACKTRACE" "SWANK"))))
173    
174  ;;;;; Logging  ;;;;; Logging
175    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5