[lisplab-cvs] r146 - trunk

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Sun Mar 21 07:24:02 2010
New Revision: 146

Log:
fixed double float issue

Modified:
   trunk/lisplab.asd

Modified: trunk/lisplab.asd
==============================================================================
--- trunk/lisplab.asd	(original)
+++ trunk/lisplab.asd	Sun Mar 21 07:24:02 2010
@@ -10,6 +10,8 @@
 (defpackage :asdf-lisplab (:use :asdf :cl))
 (in-package :asdf-lisplab)
 
+(defvar *orig-read-default-float-format* nil)
+
 (defun load-lisplab-lib (name)
   (when name  
     #+sbcl (sb-alien:load-shared-object name)))
@@ -222,6 +224,12 @@
 
 (defsystem :quadpack
   :depends-on ()
+  :perform (asdf:load-op :before (op c)
+			 (setf  *orig-read-default-float-format* *read-default-float-format*
+				*read-default-float-format* 'double-float))
+  :perform (asdf:load-op :after (op c)
+			 (setf  *read-default-float-format* *orig-read-default-float-format*))
+
   :components 
   (
    ;;
@@ -276,6 +284,11 @@
 
 (defsystem :slatec
   :depends-on ()
+  :perform (asdf:load-op :before (op c)
+			 (setf  *orig-read-default-float-format* *read-default-float-format*
+				*read-default-float-format* 'double-float))
+  :perform (asdf:load-op :after (op c)
+			 (setf  *read-default-float-format* *orig-read-default-float-format*))
   :components 
   (
    ;;