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

Diff of /slime/swank-clisp.lisp

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

revision 1.38 by mbaringer, Fri Sep 17 12:49:26 2004 UTC revision 1.39 by heller, Sun Oct 3 12:27:53 2004 UTC
# Line 122  Line 122 
122    (funcall fn))    (funcall fn))
123    
124  #+unix (defmethod getpid () (system::program-id))  #+unix (defmethod getpid () (system::program-id))
125  #+win32 (defmethod getpid () (or (system::getenv "PID") -1))  #+win32
126    (defmethod getpid ()
127      (cond ((find-package :win32)
128             (funcall (find-symbol "GetCurrentProcessId" :win32)))
129            (t
130             (system::getenv "PID"))))
131    
132  ;; the above is likely broken; we need windows NT users!  ;; the above is likely broken; we need windows NT users!
133    
134  (defimplementation lisp-implementation-type-name ()  (defimplementation lisp-implementation-type-name ()
# Line 308  Return NIL if the symbol is unbound." Line 314  Return NIL if the symbol is unbound."
314    (sys::redo-eval-frame (nth-frame index)))    (sys::redo-eval-frame (nth-frame index)))
315    
316  (defimplementation frame-source-location-for-emacs (index)  (defimplementation frame-source-location-for-emacs (index)
317    (list :error (format nil "Cannot find source for frame: ~A"    (let ((f (nth-frame index)))
318                         (nth-frame index))))      (list :error (format nil "Cannot find source for frame: ~A ~A ~A"
319                             f
320                             (sys::eval-frame-p f)
321                             (sys::the-frame)))))
322    
323  ;;; Profiling  ;;; Profiling
324    
# Line 548  Execute BODY with NAME's funtion slot se Line 557  Execute BODY with NAME's funtion slot se
557      (declare (ignore inspector))))      (declare (ignore inspector))))
558    
559  (defimplementation quit-lisp ()  (defimplementation quit-lisp ()
560    (#+lisp=cl ext:quit #-lisp=cl lisp:quit code))    #+lisp=cl (ext:quit)
561      #-lisp=cl (lisp:quit))
562    
563  ;;; Local Variables:  ;;; Local Variables:
564  ;;; eval: (put 'compile-file-frobbing-notes 'lisp-indent-function 1)  ;;; eval: (put 'compile-file-frobbing-notes 'lisp-indent-function 1)

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.5