[Axiom-developer] [build-improvements] boottocl

[Gabriel Dos Reis]

With this patchlet we return whather shoeNotFound returns when the
input file is invalid.  This behaviour now matches that of other
translation functions.

-- Gaby

2006-11-15  Gabriel Dos Reis  <address@hidden>

        * ptyout.boot.pamphlet (shoeClLines): Return the result of 
        shoeNotFound is input file is not existent.

*** ptyout.boot.pamphlet        (revision 16887)
--- ptyout.boot.pamphlet        (local)
*************** BOOTCLAMLINES(lines, fn) ==
*** 96,104 ****
  <<BOOTTOCLLINES>>
  shoeClLines(a,fn,lines,outfn)==
        if null a
!       then
!            shoeNotFound fn
!            nil
        else
         $GenVarCounter:local := 0
         shoeOpenOutputFile(stream,outfn,
--- 96,102 ----
  <<BOOTTOCLLINES>>
  shoeClLines(a,fn,lines,outfn)==
        if null a
!       then shoeNotFound fn
        else
         $GenVarCounter:local := 0
         shoeOpenOutputFile(stream,outfn,
*************** PSTOUT string==
*** 860,866 ****
      (DECLARE (SPECIAL |$GenVarCounter|))
      (RETURN
        (COND
!         ((NULL |a|) (|shoeNotFound| |fn|) NIL)
          ('T (SETQ |$GenVarCounter| 0)
           (|shoeOpenOutputFile| |stream| |outfn|
               (PROGN
--- 858,864 ----
      (DECLARE (SPECIAL |$GenVarCounter|))
      (RETURN
        (COND
!         ((NULL |a|) (|shoeNotFound| |fn|))
          ('T (SETQ |$GenVarCounter| 0)
           (|shoeOpenOutputFile| |stream| |outfn|
               (PROGN