find_root with bfloats



Ok, here is the result.  Is it that the lines

(defmvar $find_bfroot_abs 0.0b0)
(defmvar $find_bfroot_rel 0.0b0)

at the beginning of the file that are bothering maxima?

===================================
Maxima 5.22.1 http://maxima.sourceforge.net
using Lisp SBCL 1.0.40
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) :lisp (load "fbfroot")

;     (MULTIPLE-VALUE-BIND (#:G986)
;         MAXIMA::|0.0B0|
;       (SB-KERNEL:%PUTHASH #:G983 #:G984 #:G986))
; ==>
;   (LET ((#:G986 MAXIMA::|0.0B0|))
;     (SB-KERNEL:%PUTHASH #:G983 #:G984 #:G986))
;
; caught WARNING:
;   undefined variable: |0.0B0|
;
; compilation unit finished
;   Undefined variable:
;     |0.0B0|
;   caught 1 WARNING condition

Maxima encountered a Lisp error:

  The variable |0.0B0| is unbound.

Automatically continuing.
To enable the Lisp debugger set *debugger-hook* to nil.
(%i1)

On 09/24/10 12:00 PM, Robert Dodier wrote:
> On 9/24/10, Kostas Oikonomou<ko at research.att.com>  wrote:
>
>> I believe I've hacked my way through :-) and I now have a
>> file fbroot.lisp.
>> But something goes wrong when I try to load it:
>>
>> (%i2) loadfile(fbroot);
>> ;
>> ; compilation unit aborted
>> ;   caught 1 fatal ERROR condition
>>
>> Load failed for $fbroot
>
> Try
>
> :lisp (load "path/to/fbroot.lisp")
>
> which might give a more detailed message.
>
> best
>
> Robert Dodier