From: Wolfgang J. <wje...@us...> - 2005-03-18 12:39:41
|
Update of /cvsroot/maxima/maxima/share/affine In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12342 Modified Files: affine.system affine.lisp Log Message: Eliminate logical-pathname-translations stuff. Index: affine.system =================================================================== RCS file: /cvsroot/maxima/maxima/share/affine/affine.system,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- affine.system 18 Mar 2005 01:26:59 -0000 1.3 +++ affine.system 18 Mar 2005 12:39:24 -0000 1.4 @@ -1,17 +1,17 @@ ;;; -*- Mode:Lisp; Package:CL-MAXIMA; Syntax:COMMON-LISP; Base:10 -*-;;; (mk:defsystem "affine" - :source-pathname "affine:" :source-extension "lisp" - :binary-pathname - #+clisp "affine:binary-clisp;" - #+cmu "affine:binary-cmucl;" - #+sbcl "affine:binary-sbcl;" - #+gcl "affine:binary-gcl;" - #+allegro "affine:binary-acl6;" - #+openmcl "affine:binary-openmcl;" - #-(or clisp cmu sbcl gcl allegro openmcl) "affine:binary-unknownlisp;" - :components (;(:file "sys-declaim" :load-only t) + :binary-pathname (make-pathname + :name #+clisp "binary-clisp" + #+cmu "binary-cmucl" + #+sbcl "binary-sbcl" + #+gcl "binary-gcl" + #+allegro "binary-acl6" + #+openmcl "binary-openmcl" + #-(or clisp cmu sbcl gcl allegro openmcl) "binary-unknownlisp" + :directory (pathname-directory *load-truename*)) + :components ( ;;(:file "sys-declaim" :load-only t) (:file "sloop") (:file "compat") ;new (:file "amacros") Index: affine.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/share/affine/affine.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- affine.lisp 25 Jan 2004 06:31:45 -0000 1.1 +++ affine.lisp 18 Mar 2005 12:39:31 -0000 1.2 @@ -1,15 +1,8 @@ (in-package "MAXIMA") -#+clisp -(setq custom:*parse-namestring-ansi* t) - -(setf (logical-pathname-translations "affine") - `(("**;*.*.*" - ,(merge-pathnames - (make-pathname :directory '(:relative :wild-inferiors)) - (make-pathname :directory (pathname-directory *load-pathname*)))))) - -(load "affine:affine.system") +(load (merge-pathnames #p"affine.system" + (make-pathname + :directory (pathname-directory *load-truename*)))) (mk:load-system "affine") ;;; affine.lisp ends here |