/[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.64 by msimmons, Tue Dec 21 13:49:30 2004 UTC revision 1.65 by heller, Tue Feb 22 05:59:14 2005 UTC
# Line 27  Line 27 
27    
28  (import-swank-mop-symbols :clos '(:slot-definition-documentation  (import-swank-mop-symbols :clos '(:slot-definition-documentation
29                                    :eql-specializer                                    :eql-specializer
30                                    :eql-specializer-object))                                    :eql-specializer-object
31                                      :compute-applicable-methods-using-classes))
32    
33  (defun swank-mop:slot-definition-documentation (slot)  (defun swank-mop:slot-definition-documentation (slot)
34    (documentation slot t))    (documentation slot t))
35    
36  ;;;; lispworks doesn't have the eql-specializer class, it represents  (defun swank-mop:compute-applicable-methods-using-classes (gf classes)
37  ;;;; them as a list of `(EQL ,OBJECT)    (clos::compute-applicable-methods-from-classes gf classes))
38    
39    ;; lispworks doesn't have the eql-specializer class, it represents
40    ;; them as a list of `(EQL ,OBJECT)
41  (deftype swank-mop:eql-specializer () 'cons)  (deftype swank-mop:eql-specializer () 'cons)
42    
43  (defun swank-mop:eql-specializer-object (eql-spec)  (defun swank-mop:eql-specializer-object (eql-spec)
# Line 88  Line 92 
92    
93  (defimplementation emacs-connected ()  (defimplementation emacs-connected ()
94    (declare (ignore stream))    (declare (ignore stream))
95    (when (eq nil (symbol-value    (when (eq (symbol-value (find-symbol "*COMMUNICATION-STYLE*" :swank))
96                   (find-symbol (string :*communication-style*) :swank)))              nil)
97      (set-sigint-handler))      (set-sigint-handler))
98    (let ((lw:*handle-warn-on-redefinition* :warn))    (let ((lw:*handle-warn-on-redefinition* :warn))
99      (defmethod env-internals:environment-display-notifier      (defmethod env-internals:environment-display-notifier

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

  ViewVC Help
Powered by ViewVC 1.1.5