Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-07-15 16:17:41 +02:00
Code Issues Releases Wiki Activity

bug 2573 Alternative fix

Browse Source 
This version matches the fix in Nyquist 3.16.
This commit is contained in:
SteveDaulton 2020-10-26 21:10:32 +00:00
parent daf2b3cd02
commit 2cc6dccc5d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
nyquist/nyquist.lsp
View File

@ -2213,7 +2213,8 @@ loop
;; The new (Nyquist 3.15) version: ;; The new (Nyquist 3.15) version:
(defun multichan-expand-new (src fn types &rest args) (defun multichan-expand-new (src fn types &rest args)
(let (len newlen result prev typ (index 0) nonsnd) ; len is a flag as well as a count (let (chan len newlen result prev typ (index 0) nonsnd)
; len is a flag as well as a count
(dolist (a args) (dolist (a args)
(setf typ (car types) types (cdr types)) (setf typ (car types) types (cdr types))
;; we only report argument position when there is more than one. ;; we only report argument position when there is more than one.
@ -2241,8 +2242,7 @@ loop
((and (eq nonsnd 'NULL) (null chan))) ((and (eq nonsnd 'NULL) (null chan)))
((and (eq nonsnd 'INT-OR-NULL) ((and (eq nonsnd 'INT-OR-NULL)
(or (integerp chan) (null chan)))) (or (integerp chan) (null chan))))
(t (ny:error src index typ a t))) (t (ny:error src index typ a t))))
(setf chan nil))
(setf prev a) (setf prev a)
(setf len newlen)) (setf len newlen))
((and (eq nonsnd 'NUMBER) (numberp a))) ((and (eq nonsnd 'NUMBER) (numberp a)))