Permalink
Browse files

Additional support for Lispworks.

Thanks to Reinhard Oldenburg for his message dated 2008-12-27.
  • Loading branch information...
1 parent e507592 commit 51b9413c18c837dcfba2bb602ec66f1f893b8276 robert_dodier committed Dec 30, 2008
Showing with 17 additions and 1 deletion.
  1. +2 −0 INSTALL.lisp
  2. +2 −1 lisp-utils/defsystem.lisp
  3. +13 −0 src/maxima-build.lisp
View
@@ -79,6 +79,8 @@ to subsitute their knowledge of defsystem for the following steps.
There is a function MAXIMA-DUMP in src/maxima-build.lisp to dump an image.
At present it works for Clisp, SBCL, GCL, CMUCL, Scieneer, and Allegro.
+ Reinhard Oldenburg writes, in reference to Lispworks:
+ "(maxima-dump) works when threading is disabled."
Some Lisp implementations (SBCL, GCL, CMUCL, Scieneer, maybe others)
terminate after saving the image.
@@ -1271,7 +1271,8 @@
#+(and :lispworks (not :lispworks4))
,(multiple-value-bind (major minor)
#-:lispworks-personal-edition
- (system::lispworks-version)
+ (values system::*major-version-number*
+ system::*minor-version-number*)
#+:lispworks-personal-edition
(values system::*major-version-number*
system::*minor-version-number*)
View
@@ -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

0 comments on commit 51b9413

Please sign in to comment.