&rest not working in csound? / Re: [CM] new tar of cm-2.4.0

[Larry Troxler]

Oh no! I can't get the &rest thingy to work in csound:

; Loading #p"/root/cm-2.4.0/bin/cminit.lisp".
* (defobject ff (f) (args) (:parameters time num &rest args))

* (setf foo (new ff time 0 num 10 args (list 1 2 3)))

Warning:  Declaring FOO special.

#i(FF TIME 0 NUM 10 ARGS (1 2 3))

* (events foo "test.sco")

Warning: These variables are undefined:
  OBJV PAR

Error in KERNEL::UNBOUND-SYMBOL-ERROR-HANDLER:  the variable OBJV is
unbound.

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

Debug  (type H for help)

(EVAL::LEAF-VALUE
 #<C::REF #x4811B69D
     LEAF= #<C::GLOBAL-VAR #x4811B675  NAME= OBJV  KIND= :GLOBAL>>
 0
 #())
Source: Error finding source: 
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer
exists:  target:compiler/eval.lisp.

0] backtrace

0: (EVAL::LEAF-VALUE
    #<C::REF #x4811B69D
        LEAF= #<C::GLOBAL-VAR #x4811B675  NAME= OBJV  KIND= :GLOBAL>>
    0
    #())
1: ((PCL::FAST-METHOD WRITE-EVENT (FF SCO-FILE T)) (#(NIL 2 1) . #())
    #S(PCL::FAST-METHOD-CALL
         :FUNCTION #<Function |(PCL::FAST-METHOD WRITE-EVENT (T T T))|
                     {112ADA99}>
         :PV-CELL NIL
         :NEXT-METHOD-CALL NIL
         :ARG-INFO (3))
    #i(FF TIME 0 NUM 10 ARGS (1 2 3)) #<SCO-FILE "test.sco"> ...)
2: (SCHEDULE-EVENTS #<Function "DEFUN EVENTS" {11323DD9}>
                    #i(FF TIME 0 NUM 10 ARGS (1 2 3))
                    0)
3: (EVENTS #i(FF TIME 0 NUM 10 ARGS (1 2 3)) "test.sco")
4: (EXTENSIONS:INTERACTIVE-EVAL (EVENTS FOO "test.sco"))
5: (COMMON-LISP::%TOP-LEVEL)
6: ("DEFUN SAVE-CM")
7: (COMMON-LISP::RESTART-LISP)

0]