On Tue, Mar 2, 2010 at 9:17 PM, Daniel Gackle danielgackle@gmail.com 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 parenscript-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel