[lisplab-cvs] r108 - src/matrix

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Tue Nov  3 09:53:01 2009
New Revision: 108

Log:
bugfix

Modified:
   src/matrix/store-ordinary-functions.lisp

Modified: src/matrix/store-ordinary-functions.lisp
==============================================================================
--- src/matrix/store-ordinary-functions.lisp	(original)
+++ src/matrix/store-ordinary-functions.lisp	Tue Nov  3 09:53:01 2009
@@ -56,8 +56,8 @@
 (defmacro expand-ordinary-functions-dfa-to-dfa-map ()
   (cons 'progn
       (mapcar (lambda (x)
-		`(defun-dfa ,(cdr x) ,(car x)))
-	      +ordinary-functions-dfa-map+)))
+		`(defun-dfa-to-dfa ,(cdr x) ,(car x)))
+	      +ordinary-functions-dfa-to-dfa-map+)))
 
 (expand-ordinary-functions-dfa-to-dfa-map)
 
@@ -79,7 +79,7 @@
 (defmacro expand-ordinary-functions-dfa-to-cdfa-map ()
   (cons 'progn
       (mapcar (lambda (x)
-		`(defun-dfa ,(cdr x) ,(car x)))
+		`(defun-dfa-to-cdfa ,(cdr x) ,(car x)))
 	      +ordinary-functions-dfa-to-cdfa-map+)))
 
 (expand-ordinary-functions-dfa-to-cdfa-map)
@@ -102,7 +102,7 @@
 (defmacro expand-ordinary-functions-cdfa-to-dfa-map ()
   (cons 'progn
       (mapcar (lambda (x)
-		`(defun-dfa ,(cdr x) ,(car x)))
+		`(defun-cdfa-to-dfa ,(cdr x) ,(car x)))
 	      +ordinary-functions-cdfa-to-dfa-map+)))
 
 (expand-ordinary-functions-cdfa-to-dfa-map)
@@ -130,7 +130,7 @@
 (defmacro expand-ordinary-functions-cdfa-to-cdfa-map ()
   (cons 'progn
       (mapcar (lambda (x)
-		`(defun-dfa ,(cdr x) ,(car x)))
+		`(defun-cdfa-to-cdfa ,(cdr x) ,(car x)))
 	      +ordinary-functions-cdfa-to-cdfa-map+)))
 
 (expand-ordinary-functions-cdfa-to-cdfa-map)
\ No newline at end of file