[Axiom-developer] Small patches

[Camm Maguire]

Greetings!  Tim, do you need these?

Take care,

=============================================================================
--- /fix/t1/camm/axiom/axiom/new/new/src/boot/ptyout.boot.pamphlet      
2002-12-21 22:14:36.000000000 +0000
+++ ptyout.boot.pamphlet        2003-07-24 00:41:55.000000000 +0000
@@ -801,11 +801,11 @@
     (DECLARE (SPECIAL |$bfClamming|))
     (RETURN
       (PROGN
-        (SETQ |a| (PACKAGE-NAME *PACKAGE*))
+        (SETQ boottran::|a| (PACKAGE-NAME *PACKAGE*))
         (IN-PACKAGE 'BOOTTRAN)
         (SETQ |$bfClamming| NIL)
         (BOOTTOCLLINES NIL |fn|)
-        (IN-PACKAGE |a|)))))
+        (IN-PACKAGE |a|) (makunbound 'boottran::|a|)))))
 
 (DEFUN BOOTCLAM (|fn|) (PROG () (RETURN (BOOTCLAMLINES NIL |fn|))))
 
@@ -927,7 +927,7 @@
     (DECLARE (SPECIAL |$bfClamming|))
     (RETURN
       (PROGN
-        (SETQ |b| (PACKAGE-NAME *PACKAGE*))
+        (SETQ boottran::|b| (PACKAGE-NAME *PACKAGE*))
         (IN-PACKAGE 'BOOTTRAN)
         (SETQ |$bfClamming| NIL)
         (SETQ |infn| (|shoeAddbootIfNec| |fn|))
@@ -936,7 +936,7 @@
                       *LISP-SOURCE-FILETYPE*))
         (|shoeOpenInputFile| |a| |infn|
             (|shoeClLines| |a| |infn| NIL |outfn|))
-        (IN-PACKAGE |b|)
+        (IN-PACKAGE |b|)(makunbound 'boottran::|b|)
         (LOAD |outfn|)))))
 
 (DEFUN BO (|fn|)
@@ -944,13 +944,13 @@
     (DECLARE (SPECIAL |$GenVarCounter| |$bfClamming|))
     (RETURN
       (PROGN
-        (SETQ |b| (PACKAGE-NAME *PACKAGE*))
+        (SETQ boottran::|b| (PACKAGE-NAME *PACKAGE*))
         (IN-PACKAGE 'BOOTTRAN)
         (SETQ |$GenVarCounter| 0)
         (SETQ |$bfClamming| NIL)
         (SETQ |infn| (|shoeAddbootIfNec| |fn|))
         (|shoeOpenInputFile| |a| |infn| (|shoeToConsole| |a| |fn|))
-        (IN-PACKAGE |b|)))))
+        (IN-PACKAGE |b|)(makunbound 'boottran::|b|)))))
 
 (DEFUN BOCLAM (|fn|)
   (PROG (|$bfClamming| |$GenVarCounter| |infn|)
@@ -1949,10 +1949,10 @@
   (PROG (|b| |a|)
     (RETURN
       (PROGN
-        (SETQ |a| (PACKAGE-NAME *PACKAGE*))
+        (SETQ boottran::|a| (PACKAGE-NAME *PACKAGE*))
         (IN-PACKAGE 'BOOTTRAN)
         (SETQ |b| (|bStreamNull| |s|))
-        (IN-PACKAGE |a|)
+        (IN-PACKAGE |a|)(makunbound 'boottran::|a|)
         |b|))))
 
 (DEFUN PSTTOMC (|string|)
=============================================================================
--- /fix/t1/camm/axiom/axiom/new/new/src/interp/foam_l.lisp.pamphlet    
2003-06-18 19:05:18.000000000 +0000
+++ foam_l.lisp.pamphlet        2003-07-23 23:03:11.000000000 +0000
@@ -852,13 +852,13 @@
        ( (and (ATOM u) (ATOM v)) (eql u v))
        ( (or (ATOM u) (ATOM v)) nil)
        ( (equal (length u) (length v)) (|magicEq1| u v)) 
-       nil ))
+       (t nil) ))
 
 (defun |magicEq1| (u v)
  (cond ( (and (atom u) (atom v)) (|politicallySound| u v))
        ( (or (atom u) (atom v)) nil)
        ( (|politicallySound| (car u) (car v)) (|magicEq1| (cdr u) (cdr v)))
-       nil ))
+       (t nil) ))
 
 @
 \eject
=============================================================================


-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah