[Openmcl-cvs-notifications] r16248 - /trunk/source/cocoa-ide/apropos-window.lisp

rme at clozure.com rme at clozure.com
Fri Sep 26 16:43:00 UTC 2014


Author: rme
Date: Fri Sep 26 16:43:00 2014
New Revision: 16248

Log:
Un-break apropos window.

Modified:
    trunk/source/cocoa-ide/apropos-window.lisp

Modified: trunk/source/cocoa-ide/apropos-window.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/apropos-window.lisp	(original)
+++ trunk/source/cocoa-ide/apropos-window.lisp	Fri Sep 26 16:43:00 2014
@@ -173,7 +173,8 @@
 						       combo-box
 						       (index :<NSI>nteger))
   (with-slots (packages) combo-box
-    (let* ((pkg-name (package-name (svref packages index))))
+    (let* ((pkg-name (and packages
+			  (package-name (svref packages index)))))
       (if pkg-name
 	(#/autorelease (%make-nsstring pkg-name))
 	+null-ptr+))))



More information about the Openmcl-cvs-notifications mailing list