darcs - qt.examples

repos / qt.examples / annotate_shade

Pleated Hyperbolic Paraboloid

Annotate for file src/origami/tri.util.lisp

2009-07-06       tobias  (defun expression-defun (name variables expressions)
21:50:38              '    `(defun ,name ,variables
                      '       (values ,@(rest expressions))))
                      '  
                      '  (defun print-to-file (file expression)
                      '    (with-open-file (out file :direction :output
                      '                         :if-exists :append :if-does-not-exist :create)
                      '      (let ((*print-case* :downcase))
                      '        (print expression out)
                      '        (terpri out))))
                      '  
                      '  (defun printexpressionsdefun (name function-names variables expressions)
                      '    (loop
                      '       for function-name in (first (rest function-names))
                      '       for expression in (rest (first (rest expressions))) do
                      '         (print-to-file name (expression-defun function-name
                      '                                               (rest variables)
                      '                                               expression))))
                      '  

Crece desde el pueblo el futuro / crece desde el pie

RSS