[Maxima-commits] CVS: maxima/share/sym load-sym-lisp-files.lisp, NONE, 1.1 sym1.mac, 1.2, 1.3 sym.system, 1.1, 1.2 compile.lisp, 1.2, 1.3

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/share/sym
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv27948

Modified Files:
	sym1.mac sym.system compile.lisp 
Added Files:
	load-sym-lisp-files.lisp 
Log Message:
Attempt to make the sym package more nearly loadable.
These changes help, but compilation still fails when the share/sym
directory is not writable by the user (e.g. typical Linux installation).

(1) load-sym-lisp-files.lisp: new file, loads the Lisp file for sym
    within WITH-COMPILATION-UNIT to stifle the extremely verbose
    warning messages from SBCL.
(2) sym1.mac: load load-sym-lisp-files.lisp instead of individual files.
(3) sym.system: construct :binary-pathname from *MAXIMA-SYMDIR*
    (existing special variable).
(4) compile.lisp: look for sym.system under *MAXIMA-SYMDIR*.


--- NEW FILE: load-sym-lisp-files.lisp ---
;; Load all Lisp files within WITH-COMPILATION-UNIT macro.
;; This quiets the undefined function warnings from SBCL
;; which are otherwise very voluminous (and this construct
;; is accepted by other CL implementations).

#+gcl (defmacro with-compilation-unit (a &rest b) `(progn ,@b))

(with-compilation-unit nil
  ($load "macros")
  ($load "util")
  ($load "lecteur")
  ($load "ecrivain")
  ($load "operations")
  ($operation)
  ($load "arite")
  ($load "elem")
  ($load "pui")
  ($load "chbase")
  ($load "schur")
  ($load "direct")
  ($load "kak")
  ($load "partpol")
  ($load "multmon")
  ($load "permut")
  ($load "treillis")
  ($load "resolv1")
  ($load "resolvante")
  ($load "resolcayley"))


Index: sym1.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/sym/sym1.mac,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- sym1.mac	25 Nov 2004 00:23:42 -0000	1.2
+++ sym1.mac	19 Mar 2007 03:04:28 -0000	1.3
@@ -45,24 +45,5 @@
 
 block([file_search_maxima:chemin,
   file_search_lisp:chemin],
-  load("macros"),
-  load("util"),
-  load("lecteur"),
-  load("ecrivain"),
-  load("operations"),
-  operation(),
-  load("arite"),
-  load("elem"),
-  load("pui"),
-  load("chbase"),
-  load("schur"),
-  load("direct"),
-  load("kak"),
-  load("partpol"),
-  load("multmon"),
-  load("permut"),
-  load("treillis"),
-  load("resolv1"),
-  load("resolvante"),
-  load("resolcayley"),
+  load("load-sym-lisp-files"),
   'done);

Index: sym.system
===================================================================
RCS file: /cvsroot/maxima/maxima/share/sym/sym.system,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sym.system	25 Nov 2004 00:48:37 -0000	1.1
+++ sym.system	19 Mar 2007 03:04:28 -0000	1.2
@@ -2,9 +2,7 @@
 
 (mk:defsystem "sym"
     :source-extension "lisp"
-    :binary-pathname (make-pathname
-		      :directory 
-		      (pathname-directory *load-truename*))
+    :binary-pathname *maxima-symdir*
     ;; Don't use separate directories because the files should be in $chemin
     ;; #+clisp "binary-clisp"
     ;; #+cmu "binary-cmucl"

Index: compile.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/sym/compile.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- compile.lisp	25 Nov 2004 00:50:14 -0000	1.2
+++ compile.lisp	19 Mar 2007 03:04:28 -0000	1.3
@@ -16,7 +16,5 @@
 ;       *              e-mail : av...@sy...                      *
 ;       ***************************************************************
 
-(load (make-pathname :directory (pathname-directory *load-truename*)
-		     :name "sym" :type "system"))
-
+(load (concatenate 'string *maxima-symdir* "/" "sym.system"))
 (mk:compile-system "sym")