In the code below, which principally defines USER-PICK-COLOR for Mac OS X,<div>why do I get a warning when compiling the objc:defmethod subform?</div><div>(Commenting out that part confirms it as the source of the warning.)<br><div><br></div><div><div>(in-package :easygui)</div><div><br></div><div>(let ((running nil))</div><div><br></div><div>  ; Provokes uncomprehended warning</div><div>  ; Undeclared free variable |-[NSColorPanel NSWindowWillCloseNotification]|</div><div>  (objc:defmethod (#/NSWindowWillCloseNotification :void)</div><div>                             ((self ns:ns-color-panel))</div><div>    (setf running nil)</div><div>    (#/stopModal (easygui::application-object)))</div><div>  </div><div>  (defun application-object nil</div><div>    (#/sharedApplication ns:ns-application))</div><div><br></div><div>  (defun user-pick-color (&key color (prompt "Pick a color") position)</div><div>    "POSITION argument is provided only for Digitool MCL compatibility, it is ignored"</div><div>    (declare (ignore position))</div><div>    (gui::with-autorelease-pool </div><div>        (let* ((panel (#/sharedColorPanel ns:ns-color-panel))) ; find or create the NSColorPanel</div><div>          (#/setPickerMode: ns:ns-color-panel #$NSWheelModeColorPanel)</div><div>          (#/setTitle: panel prompt)</div><div>          (#/addObserver:selector:name:object:                 ; observe yourself close but</div><div>           (#/defaultCenter ns:ns-notification-center)         ; sadly confound OK & CANCEL</div><div>           panel</div><div>           (objc:\@selector #/NSWindowWillCloseNotification)</div><div>           "NSWindowWillCloseNotification"</div><div>           panel)</div><div>          (when color (#/setColor: panel color))</div><div>          (setf running t)</div><div>          (#/runModalForWindow: (easygui::application-object) panel)</div><div>          (do () ((not running)) (sleep 0.1))</div><div>          (#/removeObserver:name:object:                       ; prevent pileup</div><div>           (#/defaultCenter ns:ns-notification-center)</div><div>           panel</div><div>           "NSWindowWillCloseNotification"</div><div>           panel)</div><div>          (#/color panel)))))</div></div></div>