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

[Rick Taube]

> Oh no! I can't get the &rest thingy to work in csound:
its a copy paste bug when i pulled the code from clm.lisp.
sorry, ill put a new tarball on the server with the fix later today. 


----- Original Message ----- 
From: "Larry Troxler" <lt at westnet.com>
To: <cmdist at ccrma.Stanford.EDU>; <taube at uiuc.edu>
Sent: Monday, December 02, 2002 6:37 PM
Subject: &rest not working in csound? / Re: [CM] new tar of cm-2.4.0


> 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]
> _______________________________________________
> Cmdist mailing list
> Cmdist at ccrma.stanford.edu
> http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
>