>>>>> "Wolfgang" == Wolfgang Jenkner writes:
Wolfgang> As a temporary solution, we could also revert to our previous version
Wolfgang> of defsystem and apply something like the following patch to
Wolfgang> maxima.system instead (or does this break older versions of cmucl?).
I've reverted back to 1.14. I'm also going to apply the following
patch, which is the fix in clocc's defsystem for cmucl's pathname
change.
I hope someone with gcl 2.6.x can try this out.
Ray
Index: defsystem.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/lisp-utils/defsystem.lisp,v
retrieving revision 1.16
diff -u -r1.16 defsystem.lisp
--- defsystem.lisp 13 Jan 2005 14:46:14 -0000 1.16
+++ defsystem.lisp 13 Jan 2005 14:47:53 -0000
@@ -2842,7 +2842,8 @@
;; Pass along the host and devices
(setf (component-host component)
(or (component-host component)
- (when parent (component-host parent))))
+ (when parent (component-host parent))
+ (pathname-host *default-pathname-defaults*)))
(setf (component-device component)
(or (component-device component)
(when parent (component-device parent))))