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

Diff of /slime/swank-backend.lisp

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

revision 1.72 by heller, Mon Nov 1 17:19:35 2004 UTC revision 1.73 by mbaringer, Tue Nov 9 22:58:01 2004 UTC
# Line 106  implementation. Line 106  implementation.
106  Backends implement these functions using DEFIMPLEMENTATION."  Backends implement these functions using DEFIMPLEMENTATION."
107    (check-type documentation string "a documentation string")    (check-type documentation string "a documentation string")
108    (flet ((gen-default-impl ()    (flet ((gen-default-impl ()
109             (let ((received-args (gensym "ARGS-")))             `(defmethod ,name ,args ,@default-body)))
              `(defmethod ,name ,args ,@default-body))))  
110       `(progn (defgeneric ,name ,args (:documentation ,documentation))       `(progn (defgeneric ,name ,args (:documentation ,documentation))
111               (pushnew ',name *interface-functions*)               (pushnew ',name *interface-functions*)
112               ,(if (null default-body)               ,(if (null default-body)
# Line 214  This is intended for setting up extra co Line 213  This is intended for setting up extra co
213  that the calling thread is the one that interacts with Emacs.  that the calling thread is the one that interacts with Emacs.
214    
215  STREAM is the redirected user output stream to Emacs.  This is passed  STREAM is the redirected user output stream to Emacs.  This is passed
216  so that the backend can apply buffer flushing magic."  so that the backend can apply buffer flushing magic."
217    nil)     (declare (ignore stream))
218       nil)
219    
220    
221  ;;;; Unix signals  ;;;; Unix signals
# Line 346  This is called for each stream used for Line 346  This is called for each stream used for
346  \(e.g. *standard-output*). An implementation could setup some  \(e.g. *standard-output*). An implementation could setup some
347  implementation-specific functions to control output flushing at the  implementation-specific functions to control output flushing at the
348  like."  like."
349      (declare (ignore stream))
350    nil)    nil)
351    
352    
# Line 444  the stack.") Line 445  the stack.")
445  (definterface frame-package (frame)  (definterface frame-package (frame)
446    "Return the preferred package to use when printing local variables.    "Return the preferred package to use when printing local variables.
447  NIL can be used if no particular package is known."  NIL can be used if no particular package is known."
448      (declare (ignore frame))
449    nil)    nil)
450    
451  (definterface frame-source-location-for-emacs (frame-number)  (definterface frame-source-location-for-emacs (frame-number)
# Line 507  Each reference is one of: Line 509  Each reference is one of:
509     {:FUNCTION | :SPECIAL-OPERATOR | :MACRO | :SECTION | :GLOSSARY }     {:FUNCTION | :SPECIAL-OPERATOR | :MACRO | :SECTION | :GLOSSARY }
510     symbol-or-name)     symbol-or-name)
511    (:SBCL :NODE node-name)"    (:SBCL :NODE node-name)"
512      (declare (ignore condition))
513    '())    '())
514    
515  (definterface condition-extras (condition)  (definterface condition-extras (condition)
516    "Return a list of extra for the debugger.    "Return a list of extra for the debugger.
517  The allowed elements are of the form:  The allowed elements are of the form:
518    (:SHOW-FRAME-SOURCE frame-number)"    (:SHOW-FRAME-SOURCE frame-number)"
519      (declare (ignore condition))
520    '())    '())
521    
522  (definterface activate-stepping (frame-number)  (definterface activate-stepping (frame-number)
# Line 556  LOCATION is the source location for the Line 560  LOCATION is the source location for the
560    
561  (definterface buffer-first-change (filename)  (definterface buffer-first-change (filename)
562    "Called for effect the first time FILENAME's buffer is modified."    "Called for effect the first time FILENAME's buffer is modified."
563      (declare (ignore filename))
564    nil)    nil)
565    
566    
# Line 678  inserted into the buffer as is, or a lis Line 683  inserted into the buffer as is, or a lis
683    
684   NIL - do nothing.")   NIL - do nothing.")
685    
686  (defmethod inspect-for-emacs (object inspector)  (defmethod inspect-for-emacs ((object t) (inspector t))
687    "Generic method for inspecting any kind of object.    "Generic method for inspecting any kind of object.
688    
689  Since we don't know how to deal with OBJECT we simply dump the  Since we don't know how to deal with OBJECT we simply dump the
690  output of CL:DESCRIBE."  output of CL:DESCRIBE."
691    (declare (ignore inspector inspection-mode))    (declare (ignore inspector))
692    (values "A value."    (values "A value."
693            `("Type: " (:value ,(type-of object))            `("Type: " (:value ,(type-of object))
694              (:newline)              (:newline)

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

  ViewVC Help
Powered by ViewVC 1.1.5