Changeset 15166

Timestamp:

Jan 21, 2012, 8:53:53 AM (13 years ago)

Author:

gz

Message:

top-listener-process convenience function

Location:

trunk/source/cocoa-ide

Files:

• app-delegate.lisp (modified) (2 diffs)
• cocoa-listener.lisp (modified) (5 diffs)

trunk/source/cocoa-ide/app-delegate.lisp

@@ -211 +211 @@
     (when filename
       (#/ensureListener: self nil)
-      (let* ((doc (#/topListener hemlock-listener-document))
-             (process (hemlock-document-process doc)))
+      (let ((process (top-listener-process)))
         (process-interrupt process #'(lambda ()
                                        (load filename)
@@ -224 +223 @@
     (when filename
       (#/ensureListener: self nil)
-      (let* ((doc (#/topListener hemlock-listener-document))
-             (process (hemlock-document-process doc)))
+      (let ((process (top-listener-process)))
         (process-interrupt process #'(lambda ()
                                        (compile-file filename)

trunk/source/cocoa-ide/cocoa-listener.lisp

@@ -398 +398 @@
     (unless (%null-ptr-p doc) doc)))
 
+(defun top-listener-process ()
+  (let* ((doc (#/topListener hemlock-listener-document)))
+    (unless (%null-ptr-p doc)
+      (hemlock-document-process doc))))
+
 
 (defun symbol-value-in-top-listener-process (symbol)
-  (let* ((process (hemlock-document-process (#/topListener hemlock-listener-document))))
+  (let* ((process (top-listener-process)))
      (if process
        (ignore-errors (symbol-value-in-process symbol process))
@@ -406 +411 @@
   
 (defun hemlock-ext:top-listener-output-stream ()
-  (let* ((process (hemlock-document-process (#/topListener hemlock-listener-document))))
+  (let* ((process (top-listener-process)))
     (when process
       (setq process (require-type process 'cocoa-listener-process))
@@ -412 +417 @@
 
 (defun hemlock-ext:top-listener-input-stream ()
-  (let* ((process (hemlock-document-process (#/topListener hemlock-listener-document))))
+  (let* ((process (top-listener-process)))
     (when process
       (setq process (require-type process 'cocoa-listener-process))
@@ -549 +554 @@
                       (< range-end prot-end)))))
       t)))
-    
-    
+
+
 ;;; Action methods
 (objc:defmethod (#/interrupt: :void) ((self hemlock-listener-document) sender)
@@ -700 +705 @@
    +null-ptr+
    #$YES)
-  (hemlock-document-process (#/topListener hemlock-listener-document)))
+  (top-listener-process))
 
 (defmethod ui-object-eval-selection ((app ns:ns-application)