Re: [CM] quicklisp clm
> On Dec 10, 2016, at 7:22 AM, b...@ccrma.stanford.edu wrote: > > ok -- that's fine by me, but I am no longer interested > in the CL part of that package. I haven't worked on it > in about 20 years, and no longer have the time or > energy to provide support -- users of it are on their own. > Good luck. > Thank you for your reply Bill. ¿Is anyone else is interested in collaborating on achieving a quicklisp loadable cl-clm? All that is required is separating the different parts of all.lisp so that it is loadable with asdf:load-system. I’ve managed to test my “port” successfully in ccl, sbcl and lispworks on osx. (though I would gladly accept any suggestions/advice that would make it clearer/better) Once this is achieved, the changes could be easily incorporated into the official distribution (and then available through quicklisp). I think it would be wonderful if clm was installable through quicklisp, not least for historical reasons! all best, jc ___ Cmdist mailing list Cmdist@ccrma.stanford.edu https://cm-mail.stanford.edu/mailman/listinfo/cmdist
Re: [CM] s7: How to use pretty-print in write.scm
I add to write.scm as I encounter unhandled cases -- I'll add the one you mention. Guile appears to use a version of Marc Feeley's genwrite.scm (also in slib), with new code added (in Guile 2) for this kind of case (I'm just guessing from a glance at the diffs). ___ Cmdist mailing list Cmdist@ccrma.stanford.edu https://cm-mail.stanford.edu/mailman/listinfo/cmdist
[CM] s7: How to use pretty-print in write.scm
Hi, 'pretty-print' in write.scm seems to behave the same way as 'display', and I can't find any documentation about the function. For instance, is there a way to make (pretty-print '(((hash-table '(:place . 53) '(:duration . 3473301/65534) '(:pitches (hash-table '(:place . 0) '(:value . 0.0) '(:logtype . 0) '(:chance . 1.0)) (hash-table '(:place . 347 3301/65534) '(:value . 53.0) '(:logtype . 0) '(:chance . 1.0))) '(:velocities (hash-table '(:place . 0) '(:value . 0.79998779296875) '(:logtype . 0)) (hash-table '(:place . 3473301/65534) '(:value . 0.7999877929 6875) '(:logtype . 0))) '(:continues-next-block . #t) print out " (((hash-table '(:place . 53) '(:duration . 3473301/65534) '(:pitches (hash-table '(:place . 0) '(:value . 0.0) '(:logtype . 0) '(:chance . 1.0)) (hash-table '(:place . 3473301/65534) '(:value . 53.0) '(:logtype . 0) '(:chance . 1.0))) '(:velocities (hash-table '(:place . 0) '(:value . 0.79998779296875) '(:logtype . 0)) (hash-table '(:place . 3473301/65534) '(:value . 0.79998779296875) '(:logtype . 0))) '(:continues-next-block . #t " ? Guile prints out this: " (((hash-table '(:place . 53) '(:duration . 3473301/65534) '(:pitches (hash-table '(:place . 0) '(:value . 0.0) '(:logtype . 0) '(:chance . 1.0)) (hash-table '(:place . 3473301/65534) '(:value . 53.0) '(:logtype . 0) '(:chance . 1.0))) '(:velocities (hash-table '(:place . 0) '(:value . 0.79998779296875) '(:logtype . 0)) (hash-table '(:place . 3473301/65534) '(:value . 0.79998779296875) '(:logtype . 0))) '(:continues-next-block . #t " which is good enough, perhaps even better, but s7 prints out this: " (((hash-table '(:place . 53) '(:duration . 3473301/65534) '(:pitches (hash-table '(:place . 0) '(:value . 0.0) '(:logtype . 0) '(:chance . 1.0)) (hash-table '(:place . 3473301/65534) '(:value . 53.0) '(:logtype . 0) '(:chance . 1.0))) '(:velocities (hash-table '(:place . 0) '(:value . 0.79998779296875) '(:logtype . 0)) (hash-table '(:place . 3473301/65534) '(:value . 0.79998779296875) '(:logtype . 0))) '(:continues-nex t-block . #t " which is just one lon gline. I've tried to set the "column" argument for pretty-print, but it doesn't seem to make a difference. Thank you. ___ Cmdist mailing list Cmdist@ccrma.stanford.edu https://cm-mail.stanford.edu/mailman/listinfo/cmdist