manzyuk

// Set the number of snowflakes (more than 30 - 40 not recommended)
var snowmax=120

// Set the colors for the snow. Add as many colors as you like
var snowcolor=new Array("#b9dff5","#b9dff5","#b9dff5","#b9dff5","#b9dff5")

// Set the fonts, that create the snowflakes. Add as many fonts as you like
var snowtype=new Array("Times")

// Set the letter that creates your snowflake (recommended: * )

Eskatrem

(defparameter *maths-functions* (list))

(defmacro defun-maths (func-name args core)
  "appends the code of func-name into maths-functions."
  `(progn
     (push (list :name (quote ,func-name) :variable (quote ,args) :core (quote ,core)) *maths-functions*)
     (defun ,func-name ,args ,core)))

(defun get-source (func-name)
  (car (remove-if-not (lambda (f) (eql (getf f :name) func-name)) *maths-functions*