On Tue, Mar 2, 2010 at 9:17 PM, Daniel Gackle <[email protected]> wrote: > I needed a destructive append to a JS array, so I wrote this version of > NCONC for PS. It's primitive, but does what I need. > > (defun nconc (arr &rest arrs) > (when (and arr (> (length arr) 0)) > (loop :for other :in arrs :when (and other (> (length other) 0)) :do > ((@ arr :splice :apply) arr > (append (list (length arr) (length other)) other)))) > arr) > > I suppose this would naturally go in some kind of runtime library for PS. > (We have quite a few utility functions that might belong there, in fact.) > But I don't think there is one anymore. Should there be?
I maintain a utility library: http://github.com/gonzojive/paren-util You are welcome to add little functions like that to it--just use the pull request feature on github. The main Parenscript file can be browsed here: http://github.com/gonzojive/paren-util/blob/master/src/paren/util.paren I generally use ASDF to compile parenscript code from various libraries into a single file -- Red > > Daniel > > _______________________________________________ > parenscript-devel mailing list > [email protected] > http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel > > _______________________________________________ parenscript-devel mailing list [email protected] http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
