From 8d26a86a2ce79743aecfb2fccccf3486525b8426 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 21 May 2012 02:45:26 +0000
Subject: 	* interp/vmlisp.lisp (SETANDFILE): Remove. 
 (LAM,EVALANDFILEACTQ): Likewise. 	* interp/sys-utility.boot
 (PRINT-AND-EVAL-DEFUN): Likewise. 	* interp/slam.boot
 (reportFunctionCompilation): Tidy. 	* interp/lisp-backend.boot
 (evalAndPrintBackendDecl): New. 	* interp/c-util.boot
 (backendCompileSPADSLAM): Use it in lieu of 	SETANDFILE. 
 (compAndDefine): Use evalAndPrintBackendDecl in lieu of 
 PRINT-AND-EVAL-DEFUN. 	* interp/hypertex.boot: Clean up. 	*
 interp/nhyper.boot: Likewise. 	* interp/word.boot: Likewise.

---
 src/interp/i-coerfn.boot | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/interp/i-coerfn.boot')

diff --git a/src/interp/i-coerfn.boot b/src/interp/i-coerfn.boot
index 407b0717..36d5772b 100644
--- a/src/interp/i-coerfn.boot
+++ b/src/interp/i-coerfn.boot
@@ -1896,7 +1896,7 @@ commuteMPolyCat(u,source,S,target,T) ==
 -- a function like deconstructTower.  RSS 8-1-85
 ------------------------------------------------------------------------
 
-SETANDFILEQ($CoerceTable, '(                                          _
+$CoerceTable ==  '(                                          _
   (Complex . ( _
     (Expression                       indeterm   Complex2Expr) _
     (Factored                         indeterm   Complex2FR) _
@@ -1976,9 +1976,9 @@ SETANDFILEQ($CoerceTable, '(                                          _
     (Tuple                                indeterm   L2Tuple) _
     (Vector                               indeterm   L2V) _
     ))_
-  ))
+  )
 
-SETANDFILEQ($CoerceTable,append!($CoerceTable,'( _
+$CoerceTable == append!($CoerceTable,'( _
   (Matrix . ( _
     (List                                 indeterm   M2L) _
     (RectangularMatrix                    partial    M2Rm) _
@@ -2099,12 +2099,12 @@ SETANDFILEQ($CoerceTable,append!($CoerceTable,'( _
     (SquareMatrix                         indeterm   V2Sm) _
     (Stream                               indeterm   Agg2Agg) _
     ) ) _
-  ) ) )
+  ) )
 
 -- this list is too long for the parser, so it has to be split into parts
 -- specifies the commute functions
 -- commute stands for partial commute function
---SETANDFILEQ($CommuteTable, '(                                           _
+-- $CommuteTable == '(                                           _
 --  (DistributedMultivariatePolynomial . (                                _
 --    (DistributedMultivariatePolynomial    commute    commuteMultPol)    _
 --    (Complex                              commute    commuteMultPol)    _
@@ -2177,9 +2177,9 @@ SETANDFILEQ($CoerceTable,append!($CoerceTable,'( _
 --    (SquareMatrix                         commute    commuteUp2)        _
 --    (UnivariatePolynomial                 commute    commuteUp2)        _
 --    ))                                                                  _
---  ))
+--  )
 
-SETANDFILEQ($CommuteTable, '(                                           _
+$CommuteTable ==  '(                                           _
   (Complex . (                                                         _
     (DistributedMultivariatePolynomial    commute    commuteG2)         _
     (MultivariatePolynomial               commute    commuteG2)         _
@@ -2209,5 +2209,5 @@ SETANDFILEQ($CommuteTable, '(                                           _
     (SparseUnivariatePolynomial           commute    commuteSm1)        _
     (UnivariatePolynomial                 commute    commuteSm2)        _
     ))                                                                  _
-  ))
+  )
 
-- 
cgit v1.2.3