bash-2.03$ gcl
GCL (GNU Common Lisp)  Version(2.2.2) Tue Jan  4 22:26:46 JST 2000
Licensed under GNU Public Library License
Contains Enhancements by W. Schelter

>(compile-file "lll.lisp")
Compiling lll.lisp.
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling lll.lisp.
#"lll.o"

>(load "lll.o")
Loading lll.o
start address -T 2560000 Finished loading lll.o
6040

>b5
#2A((1 0 0 0 97409091) (0 1 0 0 31006277) (0 0 1 0 9869604)
    (0 0 0 1 3141593) (0 0 0 0 1000000))

>c5
#2A((1 0 0 0 -97409091/1000000) (0 1 0 0 -31006277/1000000)
    (0 0 1 0 -2467401/250000) (0 0 0 1 -3141593/1000000)
    (0 0 0 0 1/1000000))

>(a* b5 c5)
#2A((1 0 0 0 0) (0 1 0 0 0) (0 0 1 0 0) (0 0 0 1 0) (0 0 0 0 1))

>(a* c5 b5)
#2A((1 0 0 0 0) (0 1 0 0 0) (0 0 1 0 0) (0 0 0 1 0) (0 0 0 0 1))

>(lll b5)
(#2A((2 5 0 -6 9) (6 -5 12 1 2) (4 2 -5 12 14) (3 14 9 -1 -6)
     (16 5 -12 -1 0))
 #2A((1 0 0 0 0) (-1/146 1 0 0 0) (36/73 -804/30659 1 0 0)
     (14/73 6306/30659 -3485179/10710683 1 0)
     (63/146 -467/1333 2728720/10710683 115167162/727676209 1)))

>b5
#2A((2 5 0 -6 9) (6 -5 12 1 2) (4 2 -5 12 14) (3 14 9 -1 -6)
    (16 5 -12 -1 0))

>(a* b5 c5)
#2A((2 5 0 -6 -331) (6 -5 12 1 -551) (4 2 -5 12 -440) (3 14 9 -1 -812)
    (16 5 -12 -1 -1592))

>(compile-file "wlll.lisp")
Compiling wlll.lisp.
End of Pass 1.  
End of Pass 2.  
OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
Finished compiling wlll.lisp.
#"wlll.o"

>(load "wlll.o")
Loading wlll.o
start address -T 2565000 Finished loading wlll.o
5896

>b5
#2A((1 0 0 0 97409091) (0 1 0 0 31006277) (0 0 1 0 9869604)
    (0 0 0 1 3141593) (0 0 0 0 1000000))

>(wlll b5)
(#2A((2 5 0 -6 9) (6 -5 12 1 2) (4 2 -5 12 14) (3 14 9 -1 -6)
     (16 5 -12 -1 0))
 #2A((NIL NIL NIL NIL NIL) (-1 NIL NIL NIL NIL) (72 -804 NIL NIL NIL)
     (28 6306 -3485179 NIL NIL) (63 -10741 2728720 460668648 NIL))
 #(146 30659 10710683 2910704836 1000000000000))

>b5
#2A((2 5 0 -6 9) (6 -5 12 1 2) (4 2 -5 12 14) (3 14 9 -1 -6)
    (16 5 -12 -1 0))

>(a* b5 c5)
#2A((2 5 0 -6 -331) (6 -5 12 1 -551) (4 2 -5 12 -440) (3 14 9 -1 -812)
    (16 5 -12 -1 -1592))

>(bye)
bash-2.03$