[Axiom-developer] A first attempt at a notangle in Lisp

[C Y]

I hesitate to say it's useful, but I have what appears to be a (more or
less) working notangle command in lisp.  It successfully handles a
couple test files, and although I haven't inspected the results it
handled most of the contents of boot and interp without crashing. 
Unfortunately it's performance is worse than abysmal.  The first result
is with noweb's notangle on the boot and interp directories, the second
with the lisp one:

CL-USER> (load "./setup/cleardirs.lisp")
T
CL-USER> (time (load "./setup/runnotangle.lisp"))
Evaluation took:
  7.172 seconds of real time
  0.892056 seconds of user run time
  1.44809 seconds of system run time
  [Run times include 0.016 seconds GC run time.]
  0 calls to %EVAL
  0 page faults and
  12,691,344 bytes consed.
T
CL-USER> (load "./setup/cleardirs.lisp")
T
CL-USER> (time (load "./setup/runlispnotangle.lisp"))
Evaluation took:
  610.982 seconds of real time
  591.209 seconds of user run time
  10.440652 seconds of system run time
  [Run times include 15.088 seconds GC run time.]
  0 calls to %EVAL
  0 page faults and
  12,712,508,936 bytes consed.
T

What I'm hoping is all of the things I've undoubtedly done very very
wrong can be fixed, but I'm not sure at this point.  In the hopes that
this will prod someone into doing it right, I'll upload the files (and
yes the cl-notangle.lisp file was notangled by cl-notangle ;-).  I
haven't got a noweb command in lisp yet though, which I guess we would
need unless we switch to the latex-as-chunks style.

Cheers,
CY



 
____________________________________________________________________________________
We won't tell. Get more on shows you hate to love 
(and love to hate): Yahoo! TV's Guilty Pleasures list.
http://tv.yahoo.com/collections/265

cl-notangle.lisp.pamphlet
Description: 494032100-cl-notangle.lisp.pamphlet

cl-notangle.lisp
Description: 718643324-cl-notangle.lisp