[CM] cm/supercollider working

[andersvi at extern.uio.no]

Heres a set-env-var for cmucl to put in src/cmu.lisp:

(defun set-env-var (name value)
  (let ((cell (assoc (string name) ext:*environment-list* :test #'equalp
                     :key #'string)))
    (if cell
        (setf (cdr cell) (string value))
      (push (cons (intern (string name) "KEYWORD") (string value))
	    ext:*environment-list*))))


Ive no idea what to do in sbcl though.

(Actually i tried "commit"-ing this change to cmu.lisp to CVS
without luck.  "CVS knows nothing about cmu.lisp" - or similar :-/


-anders