What causes this warning?

Hello,

What does one have to do to get the following error
message?  The only time I get the message is when I
run the program.  The defmethods are so deep in
macrology that I haven't been able to get an expansion
that recreates the problem. Every time I run the
program, I get 40 or 50 of these warnings:

Warning: 
(METHOD WINDOWS-MESSAGE
 (DISPLAY-WNDPROC-MSGMAP 
  (EQL *HWND-EDIT*) 
  (EQL 1) 
  T 
  T)) 
defined more than once in c:\lisp\projects\app.lisp.

When I try to create the problem by hand, I cannot:

CL-USER 12 > 
(defmethod windows-message 
  ((map (eql 1)) 
   (hwnd (eql 2)) 
   (msg (eql 3)) 
   wparam 
   lparam) 
 4)
#<STANDARD-METHOD WINDOWS-MESSAGE 
  NIL ((EQL 1) (EQL 2) (EQL 3) T T) 205E9E94>

CL-USER 13 > 
(defmethod windows-message 
  ((map (eql 1)) 
  (hwnd (eql 2)) 
  (msg (eql 3)) 
  wparam 
  lparam) 
  4)
#<STANDARD-METHOD WINDOWS-MESSAGE 
  NIL ((EQL 1) (EQL 2) (EQL 3) T T) 205EB71C>

CL-USER 14 > (setq hwnd 1)
1

CL-USER 15 > 
(defmethod windows-message 
  ((map (eql hwnd)) ;; Different on this line
  (hwnd (eql 2)) 
  (msg (eql 3)) 
  wparam 
  lparam) 
  4)
#<STANDARD-METHOD WINDOWS-MESSAGE 
  NIL ((EQL 1) (EQL 2) (EQL 3) T T) 205ED66C>

CL-USER 19 > 
(defmethod windows-message 
  ((map (eql 'hwnd)) ;; Different yet again 
   (hwnd (eql 2)) 
   (msg (eql 3)) 
   wparam 
   lparam) 
  4)
#<STANDARD-METHOD WINDOWS-MESSAGE 
  NIL ((EQL HWND) (EQL 2) (EQL 3) T T) 205FAD24>

;; Note (EQL HWND) above, which matches the original 
;; one a little better. Repeating the form above does 
;; not generate the message.

Nothing I do generates the message.... 

Jeff Caldwell


__________________________________________________
Do you Yahoo!?
Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop!
http://platinum.yahoo.com