← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/slime/intrepid

« back to all changes in this revision

Viewing changes to swank-lispworks.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2006-09-27 07:50:00 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20060927075000-tuc3ghjizncl7ndm
Tags: 1:20060925-1
New upstream version, with support for sbcl 0.9.17.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
swank-lispworks.lisp
66
66
  (comm::close-socket (socket-fd socket)))
67
67
 
68
68
(defimplementation accept-connection (socket 
69
 
                                      &key (external-format :iso-latin-1-unix)
70
 
                                      buffering timeout)
 
69
                                      &key external-format buffering timeout)
71
70
  (declare (ignore buffering timeout))
72
 
  (assert (eq external-format :iso-latin-1-unix))
 
71
  (assert (member external-format '(nil :iso-latin-1-unix)))
73
72
  (let* ((fd (comm::get-fd-from-socket socket)))
74
73
    (assert (/= fd -1))
75
74
    (make-instance 'comm:socket-stream :socket fd :direction :io 
632
631
(defimplementation make-default-inspector ()
633
632
  (make-instance 'lispworks-inspector))
634
633
 
635
 
(defimplementation inspect-for-emacs ((o t) (inspector lispworks-inspector))
 
634
(defmethod inspect-for-emacs ((o t) (inspector lispworks-inspector))
636
635
  (declare (ignore inspector))
637
636
  (lispworks-inspect o))
638
637
 
639
 
(defimplementation inspect-for-emacs ((o function) 
640
 
                                      (inspector lispworks-inspector))
 
638
(defmethod inspect-for-emacs ((o function) 
 
639
                              (inspector lispworks-inspector))
641
640
  (declare (ignore inspector))
642
641
  (lispworks-inspect o))
643
642
 
644
643
;; FIXME: slot-boundp-using-class in LW works with names so we can't
645
644
;; use our method in swank.lisp.
646
 
(defimplementation inspect-for-emacs ((o standard-object) 
647
 
                                      (inspector lispworks-inspector))
 
645
(defmethod inspect-for-emacs ((o standard-object) 
 
646
                              (inspector lispworks-inspector))
648
647
  (declare (ignore inspector))
649
648
  (lispworks-inspect o))
650
649