Job: minor

Fix some minor LTD bugs
* (float x) was as(x, <float>), now as(<float>, x)
* fluid-bind => dynamic-bind

code/dpp.lisp

@@ -83,7 +83,7 @@
 (dpp (define-variable)#'dpp-define-variable)
 (dpp (define-module)  #'dpp-define-module)
 (dpp (element)        #'dpp-element)
-(dpp (fluid-bind)     #'dpp-conditional)
+(dpp (dynamic-bind)   #'dpp-conditional)
 (dpp (for)            #'dpp-conditional)
 (dpp (if)             #'dpp-conditional)
 (dpp (let)            #'dpp-let)

code/load.lisp

@@ -7,7 +7,7 @@
 (defun load-ltd (&key (compile nil))
   (with-compilation-unit ()
       (mapc #'(lambda (file) (load (if compile (compile-file file) file)))
-	    '("misc.lisp" "options.lisp" "read.lisp" "dpp.lisp"  
+	    '("package.lisp" "misc.lisp" "options.lisp" "read.lisp" "dpp.lisp"  
 	      "ltd.lisp" "ltd-table.lisp" "loop.lisp" "tables.lisp"))))
 
 (defun test-ltd ()

code/ltd-table.lisp

@@ -195,7 +195,7 @@
 		      (special? (bracketed-with (string var) #\*)))
 		 (setf code
 		       (if special?
-			   `((fluid-bind
+			   `((dynamic-bind
 			      (= ,(add-type-declaration var declarations)
 				 ,val) ,@code))
 			 `((let ,(add-type-declaration var declarations)

code/tables.lisp

@@ -261,7 +261,7 @@
 (ltd-fn  asinh                   asinh)
 (ltd-fn  acosh                   acosh)
 (ltd-fn  atanh                   atanh)
-(ltd-fn (float x &opt y)         `(as ,x ,(ifd y `(class-of ,y) '<float>)))
+(ltd-fn (float x &opt y)         `(as ,(ifd y `(class-of ,y) '<float>) ,x))
 (ltd-fn (rational x)             `(as <rational> ,x))
 (ltd-fn  rationalize             rationalize)
 (ltd-fn  numerator               numerator)