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

Diff of /slime/swank-ecl.lisp

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

revision 1.26 by heller, Mon Aug 11 07:39:23 2008 UTC revision 1.27 by heller, Mon Aug 11 17:41:55 2008 UTC
# Line 71  Line 71 
71    
72  ;;;; Unix signals  ;;;; Unix signals
73    
74    (defimplementation install-sigint-handler (handler)
75      (let ((old-handler (symbol-function 'si:terminal-interrupt)))
76        (setf (symbol-function 'si:terminal-interrupt)
77              (if (consp handler)
78                  (car handler)
79                  (lambda (&rest args)
80                    (declare (ignore args))
81                    (funcall handler)
82                    (continue))))
83        (list old-handler)))
84    
85    
86  (defimplementation getpid ()  (defimplementation getpid ()
87    (si:getpid))    (si:getpid))
88    

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5