← Back to branch summary

~ubuntu-branches/ubuntu/maverick/slime/maverick

« back to all changes in this revision

Viewing changes to swank-openmcl.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2007-10-04 09:09:47 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20071004090947-8oy7djtx8no3erxy
Tags: 1:20070927-2
http://bugs.debian.org/445174
Readded tree-widget to the sources. emacs21 on
debian does _not_ have that file. emacs22 and xemacs do.
(Closes: #445174)

Show diffs side-by-side

added added

removed removed

Lines of Context:
swank-openmcl.lisp
784
784
 
785
785
;;;; Inspection
786
786
 
787
 
(defclass openmcl-inspector (inspector)
788
 
  ())
 
787
(defclass openmcl-inspector (backend-inspector) ())
789
788
 
790
789
(defimplementation make-default-inspector ()
791
790
  (make-instance 'openmcl-inspector))
796
795
        (string (gethash typecode *value2tag*))
797
796
        (string (nth typecode '(tag-fixnum tag-list tag-misc tag-imm))))))
798
797
 
799
 
(defmethod inspect-for-emacs ((o t) (inspector openmcl-inspector))
 
798
(defmethod inspect-for-emacs ((o t) (inspector backend-inspector))
800
799
  (declare (ignore inspector))
801
800
  (let* ((i (inspector::make-inspector o))
802
801
         (count (inspector::compute-line-count i))
815
814
                (pprint o s)))
816
815
            lines)))
817
816
 
818
 
(defmethod inspect-for-emacs :around ((o t) (inspector openmcl-inspector))
 
817
(defmethod inspect-for-emacs :around ((o t) (inspector backend-inspector))
819
818
  (if (or (uvector-inspector-p o)
820
819
          (not (ccl:uvectorp o)))
821
820
      (call-next-method)
835
834
  (:method ((object t)) nil)
836
835
  (:method ((object uvector-inspector)) t))
837
836
 
838
 
(defmethod inspect-for-emacs ((uv uvector-inspector) (inspector openmcl-inspector))
 
837
(defmethod inspect-for-emacs ((uv uvector-inspector) 
 
838
                              (inspector backend-inspector))
839
839
  (with-slots (object)
840
840
      uv
841
841
    (values (format nil "The UVECTOR for ~S." object)