[armedbear-devel] How can I build ABCL 1.1.1 without recording the absolute path of the source ?
Hi, all I built ABCL 1.1.1 using Ant. After I built it, I found that the source locations of all the symbols are absolute path. For exmaple: [1] CL-USER(1): (symbol-plist 'defun) (SYSTEM::%SOURCE (#P"L:/abcl-src-1.1.1/src/org/armedbear/lisp/precompiler.lisp" . 44441) PRECOMPILER::PRECOMPILE-HANDLER PRECOMPILER::PRECOMPILE-DEFUN) I tried using '--nosystem', setting (LOGICAL-PATHNAME-TRANSLATIONS "sys") by myself, and even deleting system.lisp from the jar. But the source location didn't change. How can I build ABCL 1.1.1 without recording the absolute path of the source ? Or, making the source location changable so that I can locate it even if I change the path of the source code ? I think I can do it manually by i.g. (dolist (pkg (list-all-packages)) (do-symbols (sym pkg) if there exists system::%source in symbol-plist, replace it)). Is there any other way to do this ? Thanks Best regards, Xiaofeng Yang
On 2/22/13 4:01 PM, Xiaofeng Yang wrote:
Hi, all
I built ABCL 1.1.1 using Ant. After I built it, I found that the source locations of all the symbols are absolute path. For exmaple: [1] CL-USER(1): (symbol-plist 'defun) (SYSTEM::%SOURCE (#P"L:/abcl-src-1.1.1/src/org/armedbear/lisp/precompiler.lisp" . 44441) PRECOMPILER::PRECOMPILE-HANDLER PRECOMPILER::PRECOMPILE-DEFUN)
I tried using '--nosystem', setting (LOGICAL-PATHNAME-TRANSLATIONS "sys") by myself, and even deleting system.lisp from the jar. But the source location didn't change.
How can I build ABCL 1.1.1 without recording the absolute path of the source ? Or, making the source location changable so that I can locate it even if I change the path of the source code ? I think I can do it manually by i.g. (dolist (pkg (list-all-packages)) (do-symbols (sym pkg) if there exists system::%source in symbol-plist, replace it)). Is there any other way to do this ?
Currently, there is no way of building to not recording the physical pathname, but there should be. The values stored in the symbol plists should use the SYS:SRC logical pathname. I've recorded this as ticket [#301][]. [#301]: http://trac.common-lisp.net/armedbear/ticket/301 -- "A screaming comes across the sky. It has happened before, but there is nothing to compare it to now."
On Fri, Feb 22, 2013 at 3:58 PM, Mark Evenson <evenson@panix.com> wrote:
On 2/22/13 4:01 PM, Xiaofeng Yang wrote:
Hi, all
I built ABCL 1.1.1 using Ant. After I built it, I found that the source locations of all the symbols are absolute path. For exmaple: [1] CL-USER(1): (symbol-plist 'defun) (SYSTEM::%SOURCE (#P"L:/abcl-src-1.1.1/src/org/armedbear/lisp/precompiler.lisp" . 44441) PRECOMPILER::PRECOMPILE-HANDLER PRECOMPILER::PRECOMPILE-DEFUN)
I tried using '--nosystem', setting (LOGICAL-PATHNAME-TRANSLATIONS "sys") by myself, and even deleting system.lisp from the jar. But the source location didn't change.
How can I build ABCL 1.1.1 without recording the absolute path of the source ? Or, making the source location changable so that I can locate it even if I change the path of the source code ? I think I can do it manually by i.g. (dolist (pkg (list-all-packages)) (do-symbols (sym pkg) if there exists system::%source in symbol-plist, replace it)). Is there any other way to do this ?
Currently, there is no way of building to not recording the physical pathname, but there should be. The values stored in the symbol plists should use the SYS:SRC logical pathname. I've recorded this as ticket [#301][].
Make sure this works with slime. IIRC slime doesn't understand logical pathnames as source locations currently. FWIW I've used the below to adjust the source pointers in the past. (defun fix-abcl-src-pointers () (do-all-symbols (sym) (let ((s (get sym 'system::%source))) (when (and s (consp s) (pathnamep (car s)) (search '("org" "armedbear") (pathname-directory (car s)) :test 'equal)) (let ((new-pname (cond ((find #\! (namestring (car s))) (format nil "abcl-src:~a" (substitute #\; #\/ (subseq (namestring (car s)) (+ 2 (position #\! (namestring (car s)))))) )) ((position "src" (pathname-directory (car s)) :test 'equal) (format nil "abcl-src:~{~A;~}~a.~a" (subseq (pathname-directory (car s)) (1+ (position "src" (pathname-directory (car s)) :test 'equal))) (pathname-name (car s)) (pathname-type (car s))))))) (when new-pname (setf (car s) (translate-logical-pathname new-pname))) ))))) I define the logical pathname ABCL-SRC to be wherever the src directory is, e.g (setf (logical-pathname-translations "abcl-src") `(("**;*.*" "/Users/alanr/repos/abcl/src/**/*.*")))
[#301]: http://trac.common-lisp.net/armedbear/ticket/301
--
"A screaming comes across the sky. It has happened before, but there is nothing to compare it to now."
_______________________________________________ armedbear-devel mailing list armedbear-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel
On 2/23/13 4:14 PM, Alan Ruttenberg wrote:
I define the logical pathname ABCL-SRC to be wherever the src directory is, e.g (setf (logical-pathname-translations "abcl-src") `(("**;*.*" "/Users/alanr/repos/abcl/src/**/*.*")))
As noted in the ticket, [we're currently populating the logical pathnames SYS:SRC in system.lisp][CREATE-SYSTEM-LOGICAL-TRANSLATIONS], but I actually think having something more like Alan's 'ABCL-SYS' (like maybe 'ABCL:SRC' as the logical host) would actually be more informative to the user. [CREATE-SYSTEM-LOGICAL-TRANSLATIONS]: http://trac.common-lisp.net/armedbear/browser/trunk/abcl/src/org/armedbear/l... -- "A screaming comes across the sky. It has happened before, but there is nothing to compare it to now."
participants (3)
-
Alan Ruttenberg -
Mark Evenson -
Xiaofeng Yang