Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-27 15:50:10 +01:00
Code Issues Releases Wiki Activity

Update Nyquist to v3.09.

Browse Source
This commit is contained in:
Leland Lucius
2015-04-07 22:10:17 -05:00
parent f88b27e6d8
commit 9fb0ce5b82
358 changed files with 26327 additions and 7043 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
nyquist/sal-parse.lsp
View File

@@ -51,8 +51,8 @@
(:/ "/" /)
(:% "%" rem)
(:^ "^" expt)
(:= "=" eql) ; equality and assigment
(:!= "!=" not-eql)
(:= "=" sal-equal) ; equality and assigment
(:!= "!=" not-sal-equal)
(:< "<" <)
(:> ">" >)
(:<= "<=" <=) ; leq and assignment minimization
@@ -1419,7 +1419,7 @@
((eq op '/=) (setq expr `(/ ,vref ,expr)))
((eq op '&=) (setq expr `(nconc ,vref (list ,expr))))
((eq op '@=) (setq expr `(cons ,expr ,vref)))
((eq op '^=) (setq expr `(nconc ,vref (copy-list ,expr))))
((eq op '^=) (setq expr `(nconc ,vref (append ,expr nil))))
((eq op '<=) (setq expr `(min ,vref ,expr)))
((eq op '>=) (setq expr `(max ,vref ,expr)))
(t (errexit (format nil "unknown assigment operator ~A" op))))
@@ -1605,7 +1605,7 @@
(and term-test (member (car term-test) '(>= >))))
(setf binding (list id init (list '1+ id))))
(t ; loop goes down because of "above" or "downto"
(display "for step" term-test)
; (display "for step" term-test)
(setf binding (list id init (list '1- id)))))
(setf binding (list binding)))
(t