Changeset 14234


Ignore:
Timestamp:
Sep 7, 2010, 10:21:43 AM (9 years ago)
Author:
gb
Message:

In #/topListener, don't return doc if it's a null pointer.

File:
1 edited

Legend:

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

    r14216 r14234  
    386386          (let* ((wc (#/windowController w))
    387387                 (doc (#/document wc)))
    388             (when (#/isKindOfClass: doc self)
    389               (return doc))))))))
     388            (unless (%null-ptr-p doc)
     389              (when (#/isKindOfClass: doc self)
     390                (return doc)))))))))
    390391
    391392(defun symbol-value-in-top-listener-process (symbol)
Note: See TracChangeset for help on using the changeset viewer.