[lisplab-cvs] r147 - in trunk: . doc/www

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Sun Mar 21 09:53:36 2010
New Revision: 147

Log:
cleanup

Modified:
   trunk/doc/www/index.html
   trunk/lisplab.asd
   trunk/start.lisp

Modified: trunk/doc/www/index.html
==============================================================================
--- trunk/doc/www/index.html	(original)
+++ trunk/doc/www/index.html	Sun Mar 21 09:53:36 2010
@@ -51,7 +51,8 @@
   </div>
   <p>
     Lisplab is a mathematics library in Common Lisp
-    released under the GNU General Public License (GPL). 
+    released under the GNU General Public License (GPL)
+    and hosted at  <a href="http://common-lisp.net/">common-lisp.net</a>.
     Lisplab is based on code from <a href=http://matlisp.sourceforge.net>Matlisp</a>, 
     but has now moved quite far from the original code mass.
   <p>
@@ -83,9 +84,10 @@
     The external libraries, BLAS, LAPACK, and FFTW must be installed separately. 
     They make Lisplab more powerful, but it also makes sense to run it 
     without external libraries. 
-    Lisplab does not depend on any other Common Lisp projects, but will only 
-    compile out-of-the-box for <a href="http://www.sbcl.org/">SBCL</a> and 
-    for other Lisps you must expect some hacking. 
+    Lisplab is mainly ANSI compliant and does not depend on any other Common Lisp projects, 
+    but it has so far only been tested on
+    <a href="http://www.sbcl.org/">SBCL</a>, so 
+    for other Lisps you must expect some hacking to make it build. 
   </p>
   <p>
     See 
@@ -98,6 +100,8 @@
   contains <verb>lisplab.asd</verb>. Then you install it by
   <pre>   > (require :lisplab)</pre> and use it by
   <pre>   > (use-package :ll-user)</pre>
+  When compiling for the first time you must have *read-default-float-format*
+  set to 'double-float because the generated slatec code requires it.
   When started, you can do
   <pre>  LL-USER> (.^ (dmat (1 2) (3 4)) 2)
   #<MATRIX-DGE  2x2
@@ -120,6 +124,7 @@
   mmax mmin circ-shift pad-shift
   m* m/ minv mtp mct 
   eivenvalues eigenvectors 
+  LU-factor
   dlmread dlmwrite pswrite pgmwrite
   export-list import-list
   fftw1 ifftw1 
@@ -173,6 +178,9 @@
     tree from anonymous svn,
     <pre>
   % svn checkout svn://common-lisp.net/project/lisplab/svn lisplab</pre>
+    or if you want just the latest version,
+    <pre>
+  % svn checkout svn://common-lisp.net/project/lisplab/svn/trunk lisplab</pre>
   </p>
 
   <h3>Mailing Lists</h3>

Modified: trunk/lisplab.asd
==============================================================================
--- trunk/lisplab.asd	(original)
+++ trunk/lisplab.asd	Sun Mar 21 09:53:36 2010
@@ -10,8 +10,6 @@
 (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)))
@@ -224,12 +222,6 @@
 
 (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 
   (
    ;;
@@ -284,15 +276,10 @@
 
 (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 
   (
    ;;
-   ;; Quadpack. Generated with f2cl. 
+   ;; Slatec. Generated with f2cl. 
    ;; Taken from Maxima
 
    (:module :shared/slatec

Modified: trunk/start.lisp
==============================================================================
--- trunk/start.lisp	(original)
+++ trunk/start.lisp	Sun Mar 21 09:53:36 2010
@@ -7,11 +7,9 @@
 ;; (defvar *lisplab-liblapack-path* #P"/usr/lib/atlas/liblapack.so.3.0")
 ;; (defvar  *lisplab-libfftw-path* #P"/usr/lib/libfftw3.so.3")
 
+;; Slatec needs this for compiling. 
+(setf *read-default-float-format* 'double-float) 
 
 (require :lisplab)
-(let ((asdf:*compile-file-failure-behaviour* :ignore))
-    ;; There seems to bee some compilation trouble in SBCL 
-    ;; due to type interference. Should be fixed, not just skipped.
-  (require :slatec))
 
-(format t "Lisplab is loaded.~%")
+(format t "~&Lisplab is loaded.~%")