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

Diff of /slime/swank-sbcl.lisp

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

revision 1.51 by heller, Thu Jan 15 18:31:04 2004 UTC revision 1.52 by heller, Sun Jan 18 07:15:49 2004 UTC
# Line 56  Line 56 
56     sb-gray:stream-line-column     sb-gray:stream-line-column
57     sb-gray:stream-line-length))     sb-gray:stream-line-length))
58    
 (defun without-interrupts* (body)  
   (sb-sys:without-interrupts (funcall body)))  
   
59  ;;; TCP Server  ;;; TCP Server
60    
61  (setq *swank-in-background* :fd-handler)  (setq *swank-in-background* :fd-handler)
# Line 117  Line 114 
114                                  :output-stream output)))                                  :output-stream output)))
115      (values input output)))      (values input output)))
116    
117    (defmethod call-without-interrupts (fn)
118      (sb-sys:without-interrupts (funcall fn)))
119    
120    (defmethod getpid ()
121      (sb-unix:unix-getpid))
122    
123  ;;; Utilities  ;;; Utilities
124    
125  (defvar *swank-debugger-stack-frame*)  (defvar *swank-debugger-stack-frame*)
# Line 127  Line 130 
130    (namestring *default-pathname-defaults*))    (namestring *default-pathname-defaults*))
131    
132  (defmethod arglist-string (fname)  (defmethod arglist-string (fname)
133    (let ((*print-case* :downcase))    (format-arglist fname #'sb-introspect:function-arglist))
     (multiple-value-bind (function condition)  
         (ignore-errors (values  
                         (find-symbol-designator fname *buffer-package*)))  
       (when condition  
         (return-from arglist-string (format nil "(-- ~A)" condition)))  
       (let ((arglist  
              (ignore-errors (sb-introspect:function-arglist function))))  
         (if arglist  
             (princ-to-string arglist)  
             "(-- <Unknown-Function>)")))))  
134    
135  (defvar *buffer-name* nil)  (defvar *buffer-name* nil)
136  (defvar *buffer-offset*)  (defvar *buffer-offset*)
# Line 386  Return NIL if the symbol is unbound." Line 379  Return NIL if the symbol is unbound."
379      (sb-walker:walk-form form)))      (sb-walker:walk-form form)))
380    
381    
 ;;;  
   
 (defslimefun getpid ()  
   (sb-unix:unix-getpid))  
   
   
382  ;;; Debugging  ;;; Debugging
383    
384  (defvar *sldb-stack-top*)  (defvar *sldb-stack-top*)

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

  ViewVC Help
Powered by ViewVC 1.1.5