[Openmcl-cvs-notifications] r14749 - /trunk/source/cocoa-ide/cocoa-utils.lisp

[svspire at clozure.com]

Author: svspire
Date: Thu Apr 28 20:02:06 2011
New Revision: 14749

Log:
#'target. Does the same thing as in MCL.

Modified:
    trunk/source/cocoa-ide/cocoa-utils.lisp

Modified: trunk/source/cocoa-ide/cocoa-utils.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/cocoa-utils.lisp (original)
+++ trunk/source/cocoa-ide/cocoa-utils.lisp Thu Apr 28 20:02:06 2011
@@ -141,6 +141,14 @@
 (defun front-window ()
   (map-windows #'(lambda (win) (return-from front-window win))))
 =

+(defun target ()
+  "Returns the second window in the list returned by (windows)."
+  (let ((first? nil))
+    (map-windows #'(lambda (win)
+                     (if first?
+                       (return-from target win)
+                       (setf first? t))))))
+
 (defun first-window-satisfying-predicate (pred)
   (block foo
     (map-windows #'(lambda (w) (when (funcall pred w)