Changeset 16 in CGBLisp

Timestamp:

Jan 27, 2009, 12:50:03 AM (15 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• trunk/src/parse.lisp (modified) (3 diffs)

trunk/src/parse.lisp

@@ -242 +242 @@
   (cond
     ((numberp expr)
-     (cons (make-list n :initial-element 0) expr))
+     (cond
+       ((zerop expr) NIL)
+       (t (list (cons (make-list n :initial-element 0) expr)))))
     ((symbolp expr)
      (nth (position expr vars) basis)) 
@@ -260 +262 @@
          (*
           (reduce #'(lambda (p q) ($poly* p q n order ring)) r))
-         (/ ($poly/ (car r) (cadr r) ring))
-         (expt ($poly-expt (car r) (cadr r) n order ring)))))))
+         (/
+          ($poly/ (car r) (cadr r) ring))
+         (expt
+          ($poly-expt (car r) (cadr r) n order ring)))))))
 
              
@@ -285 +289 @@
                        (copy-tree
                         (make-list n :initial-element
-                                   (list 'quote (list (cons
-                                                       (make-list
-                                                        n
-                                                        :initial-element 0)
-                                                       1)))))))
+                                   (list (cons
+                                          (make-list
+                                           n
+                                           :initial-element 0)
+                                          1))))))
   "Generate a list of monomials ((1 0 ... 0) (0 1 0 ... 0) ... (0 0 ... 1)
 which correspond to linear monomials X1, X2, ... XN."
   (dotimes (i n basis)
-    (setf (elt (caaadr (elt basis i)) i) 1)))
+    (setf (elt (caar (elt basis i)) i) 1)))