anchor.diff:                    (sleep 0.5))))
       (unless successp
         (error condition)))
  -  (add-hook *exit-editor-hook*
  -            (lambda ()
  -              (ignore-errors
  -               (slime-quit)))))
  +  (add-hook *exit-editor-hook* 'slime-quit*))
   
   (defun slime-1 (command)
     (unless command
  
positive.code:              (lisp-rex '(uiop:quit))
               t)
        (remove-connection *connection*))))
  
  (define-command slime-restart () ()
    (let ((last-command (when *connection*
  
negative.code: ;; workaround for windows
  #+win32
  (add-hook *exit-editor-hook*
            ;; quit slime to exit lem normally (incomplete)
            'slime-quit*)
  
  (pushnew (cons ".lisp$" 'lisp-mode) *auto-mode-alist* :test #'equal)
  (pushnew (cons ".asd$" 'lisp-mode) *auto-mode-alist* :test #'equal)
  