[Bese-devel] with-slots and action calls

[Matley]

defactions containing a with-slots and a call to another action, doesn't
compile (on the last ucw snapshot):

e.g.

(defaction foo ((cp standard-component)) ())
(defaction bar ((cp standard-component)) (with-slots (place) cp (foo cp)))



This is the error:

*  (defaction foo ((cp standard-component)) ()) (defaction bar ((cp
standard-com
ponent)) (with-slots (place) cp (foo cp)))

; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. CP):
; Compiling Top-Level Form:

FOO
*

Type-error in KERNEL::OBJECT-NOT-SYMBOL-ERROR-HANDLER:
   (CP) is not of type SYMBOL
   [Condition of type TYPE-ERROR]

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

(C::PROCESS-TYPE-DECLARATION (PCL::VARIABLE-REBINDING (CP))
 #S(C::LEXENV
      :FUNCTIONS (# # # # # ...)
      :VARIABLES (# # # # # ...)
      :BLOCKS (#)
      :TAGS NIL
      :TYPE-RESTRICTIONS (# #)
      ...)
 (#<C::LAMBDA-VAR #x58334285
      NAME= #:CPS-LET-G2941-2942
      TYPE= #<UNKNOWN-TYPE PCL::VARIABLE-REBINDING>>))
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer
exists:
  target:compiler/ir1tran.lisp.
0]