Bug re-compiling traced methods with keywords

[cornell@freya.cs.umass.edu]

Enclosed is two files, bug-trace.text (a Listener trace) and bug.lisp.
The compiler warnings are not relevant to this bug. I hope I'm not
missing something (e.g. following behavior is OK).

matt


==== Start bug-trace.text ====
Welcome to Macintosh Common Lisp Version 2.0p1!
? ;; Eval buffer bug.lisp
#<STANDARD-CLASS OBJECT2>
#<STANDARD-CLASS CHANGE2>
;Compiler warnings :
;   Unused lexical variable F-INITIAL-CHANGE2, in NOTE-CHANGE2.
#<STANDARD-METHOD NOTE-CHANGE2 :AROUND (OBJECT2 CHANGE2)>
;Compiler warnings :
;   Unused lexical variable F-INITIAL-CHANGE2, in NOTE-CHANGE2.
#<STANDARD-METHOD NOTE-CHANGE2 (OBJECT2 CHANGE2)>
;Compiler warnings :
;   Undeclared free variable INDEXED-INSTANCE-LINKED-IN, in PROPAGATE-CHANGE2.
#<STANDARD-METHOD PROPAGATE-CHANGE2 (OBJECT2 CHANGE2)>
NIL
? ;; Re-eval def of propagate-change2
> Error: Can't take CAR of #<Compiled-function CCL::%%NTH-ARG-DCODE #x39274E>.
> While executing: CCL::LIST-POSITION/FIND-SIMPLE
> Type Command-. to abort.
See the RestartsI menu item for further choices.
1 > 
==== End bug-trace.text ====

==== Start bug.lisp ====
(defclass object2 ()())
(defclass change2 ()())


(defmethod note-change2 :around ((object2-notified object2) (change2 change2)
                                &key (f-initial-change2 t))
  )


(defmethod note-change2 ((object2-notified object2) (change2 change2)
                        &key (f-initial-change2 t))
  )


(defmethod propagate-change2 ((object2-notified object2) (change2 change2))
  (note-change2 indexed-instance-linked-in change2 :f-initial-change2 nil))


(trace note-change2)
==== End bug.lisp ====