[Gd-chatter] r11557 - trunk/ltd/code

[cgay at gwydiondylan.org]

Author: cgay
Date: Tue Dec 18 12:25:00 2007
New Revision: 11557

Modified:
   trunk/ltd/code/dpp.lisp
   trunk/ltd/code/load.lisp
   trunk/ltd/code/ltd-table.lisp
   trunk/ltd/code/tables.lisp
Log:
Job: minor
Fix some minor LTD bugs
* (float x) was as(x, <float>), now as(<float>, x)
* fluid-bind => dynamic-bind

Modified: trunk/ltd/code/dpp.lisp
==============================================================================
--- trunk/ltd/code/dpp.lisp	(original)
+++ trunk/ltd/code/dpp.lisp	Tue Dec 18 12:25:00 2007
@@ -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)

Modified: trunk/ltd/code/load.lisp
==============================================================================
--- trunk/ltd/code/load.lisp	(original)
+++ trunk/ltd/code/load.lisp	Tue Dec 18 12:25:00 2007
@@ -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 ()

Modified: trunk/ltd/code/ltd-table.lisp
==============================================================================
--- trunk/ltd/code/ltd-table.lisp	(original)
+++ trunk/ltd/code/ltd-table.lisp	Tue Dec 18 12:25:00 2007
@@ -195,7 +195,7 @@
 		      (special? (bracketed-with (string var) #\*)))
 		 (setf code
 		       (if special?
-			   `((fluid-bind
+			   `((dynamic-bind
 			      (= ,(add-type-declaration var declarations)
 				 ,val) , at code))
 			 `((let ,(add-type-declaration var declarations)

Modified: trunk/ltd/code/tables.lisp
==============================================================================
--- trunk/ltd/code/tables.lisp	(original)
+++ trunk/ltd/code/tables.lisp	Tue Dec 18 12:25:00 2007
@@ -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)