/[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.324 by sboukarev, Sat Aug 4 23:48:19 2012 UTC revision 1.325 by sboukarev, Mon Dec 3 03:43:16 2012 UTC
# Line 1860  stack." Line 1860  stack."
1860                      (funcall completion-function                      (funcall completion-function
1861                               (zerop (sb-posix:wexitstatus status))))))))))))                               (zerop (sb-posix:wexitstatus status))))))))))))
1862    
 (defun deinit-log-output ()  
   ;; Can't hang on to an fd-stream from a previous session.  
   (setf (symbol-value (find-symbol "*LOG-OUTPUT*" 'swank))  
         nil))  
   
1863  (pushnew 'deinit-log-output sb-ext:*save-hooks*)  (pushnew 'deinit-log-output sb-ext:*save-hooks*)

Legend:
Removed from v.1.324  
changed lines
  Added in v.1.325

  ViewVC Help
Powered by ViewVC 1.1.5