[Maxima-commits] CVS: maxima/src maxima-build.lisp,1.6,1.7

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

Update of /cvsroot/maxima/maxima/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv7815/src

Modified Files:
	maxima-build.lisp 
Log Message:
Additional support for Lispworks.
Thanks to Reinhard Oldenburg for his message dated 2008-12-27.

Index: maxima-build.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/maxima-build.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- maxima-build.lisp	27 Jul 2008 07:04:10 -0000	1.6
+++ maxima-build.lisp	30 Dec 2008 01:32:33 -0000	1.7
@@ -1,3 +1,16 @@
+#+lispworks
+(setq hcl:*packages-for-warn-on-redefinition*
+    (remove-if (lambda (package-name)
+                 (member package-name
+                         '("HARLEQUIN-COMMON-LISP"
+                           ;"CL-USER"
+                           )
+                         :test #'string-equal))
+               *packages-for-warn-on-redefinition*))
+#+lispworks (in-package "HARLEQUIN-COMMON-LISP")
+#+lispworks (defun getenv (x) (LW:ENVIRONMENT-VARIABLE x))
+#+lispworks (in-package "CL-USER")
+
 (load "../lisp-utils/defsystem.lisp")
 #+ecl (load "maxima-package.lisp")
 #+ecl