Changeset 14811


Ignore:
Timestamp:
Jun 6, 2011, 5:51:12 PM (8 years ago)
Author:
svspire
Message:

Kill dead listener windows truly dead.
Make #'background-process-run-function more compatible with #'process-run-function (again).
Fixes ticket:845

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-listener.lisp

    r14750 r14811  
    282282           :initial-function
    283283           #'(lambda ()
    284                (setq ccl::*listener-autorelease-pool* (create-autorelease-pool))               (when (and *standalone-cocoa-ide*
    285                         (prog1 *first-listener* (setq *first-listener* nil)))
     284               (setq ccl::*listener-autorelease-pool* (create-autorelease-pool))
     285               (when (and *standalone-cocoa-ide*
     286                          (prog1 *first-listener* (setq *first-listener* nil)))
    286287                 (ccl::startup-ccl (ccl::application-init-file ccl::*application*))
    287288                 (ui-object-note-package *nsapp* *package*))
     
    311312      t
    312313      (progn
    313         (#/orderOut: w sender)
     314        ;(#/orderOut: w sender)
     315        (#/close w)
    314316        nil))))
    315317
     
    894896
    895897(defun background-process-run-function (keywords function)
     898  (unless (listp keywords)
     899    (setf keywords (list :name keywords)))
    896900  (destructuring-bind (&key (name "Anonymous")
    897901                            (priority  0)
Note: See TracChangeset for help on using the changeset viewer.