On Fri, 2009-09-11 at 15:31 -0400, Gary King wrote:
> This release includes ASDF-binary-locations in the ASDF.lisp file and  
> makes some effort to improve the tagging / revision logic (with assist  
> from Robert Goldman).
> 
> I'm going to get ABL documentation into ASDF and (finally) incorporate  
> Faré's patch too.

There's something fishy with

(defvar *asdf-revision* 
  ;; the 1+ hair is to ensure that we don't do an inadvartent find and
replace
  (subseq "REVISION:1.365"))))

there are two extra closing parens(so the file doesn't compile), also
the call to subseq is incorrect because one required arg is missing and
there's a typo in the comment: inadvertant instead of inadvertent.

Also, I've attached a couple of patches.

-- 
Stelian Ionescu a.k.a. fe[nl]ix
Quidquid latine dictum sit, altum videtur.
http://common-lisp.net/project/iolib
diff --git a/asdf.lisp b/asdf.lisp
index 70a9cb6..a659d96 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1679,8 +1696,8 @@ See [implementation-specific-directory-name][] for details.")
   #+openmcl   (format nil "~d....@[-~d~]"
                       ccl::*openmcl-major-version* 
                       ccl::*openmcl-minor-version*
-                      #+ppc64-target 64 
-                      #-ppc64-target nil)
+                      #+(or ppc64-target x8664-target) 64 
+                      #-(or ppc64-target x8664-target) nil)
   #+lispworks (format nil "~...@[~a~]"
                       (lisp-implementation-version)
                       (when (member :lispworks-64bit *features*) "-64bit"))
diff --git a/asdf.lisp b/asdf.lisp
index 70a9cb6..947e738 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1624,22 +1624,39 @@ See [implementation-specific-directory-name][] for details.")
   (merge-pathnames
    (make-pathname :directory '(:relative ".fasls"))
    (truename (user-homedir-pathname)))
-  "If \\*centralize-lisp-binaries\\* is true, then compiled lisp files without an explicit mapping \(see \\*source-to-target-mappings\\*\) will be placed in subdirectories of \\*default-toplevel-directory\\*.")
+  "If \\*centralize-lisp-binaries\\* is true, then compiled lisp
+files without an explicit mapping \(see
+\\*source-to-target-mappings\\*\) will be placed in subdirectories of
+\\*default-toplevel-directory\\*.")
 
 (defparameter *include-per-user-information*
   nil
-  "When \\*centralize-lisp-binaries\\* is true this variable controls whether or not to customize the output directory based on the current user. It can be nil, t or a string. If it is nil \(the default\), then no additional information will be added to the output directory. If it is t, then the user's name \(as taken from the return value of #'user-homedir-pathname\) will be included into the centralized path (just before the lisp-implementation directory). Finally, if \\*include-per-user-information\\* is a string, then this string will be included in the output-directory.")
+  "When \\*centralize-lisp-binaries\\* is true this variable controls
+whether or not to customize the output directory based on the current
+user. It can be nil, t or a string. If it is nil \(the default\), then
+no additional information will be added to the output directory. If it
+is t, then the user's name \(as taken from the return value of
+#'user-homedir-pathname\) will be included into the centralized
+path (just before the lisp-implementation directory). Finally, if
+\\*include-per-user-information\\* is a string, then this string will
+be included in the output-directory.")
 
 (defparameter *map-all-source-files*
   nil
-  "If true, then all subclasses of source-file will have their output locations mapped by ASDF-Binary-Locations. If nil (the default), then only subclasses of cl-source-file will be mapped.")
+  "If true, then all subclasses of source-file will have their output
+locations mapped by ASDF-Binary-Locations. If nil (the default), then
+only subclasses of cl-source-file will be mapped.")
 
 (defvar *source-to-target-mappings* 
   #-sbcl
   nil
   #+sbcl
   (list (list (princ-to-string (sb-ext:posix-getenv "SBCL_HOME")) nil))
-  "The \\*source-to-target-mappings\\* variable specifies mappings from source to target. If the target is nil, then it means to not map the source to anything. I.e., to leave it as is. This has the effect of turning off ASDF-Binary-Locations for the given source directory. Examples:
+  "The \\*source-to-target-mappings\\* variable specifies mappings
+from source to target. If the target is nil, then it means to not map
+the source to anything. I.e., to leave it as is. This has the effect
+of turning off ASDF-Binary-Locations for the given source
+directory. Examples:
 
     ;; compile everything in .../src and below into .../cmucl
     '((\"/nfs/home/compbio/d95-bli/share/common-lisp/src/\" 
@@ -1755,7 +1772,10 @@ operating system, and hardware architecture."
 
 (defgeneric output-files-for-system-and-operation
   (system operation component source possible-paths)
-  (:documentation "Returns the directory where the componets output files should be placed. This may depends on the system, the operation and the component. The ASDF default input and outputs are provided in the source and possible-paths parameters."))
+  (:documentation "Returns the directory where the componets output
+files should be placed. This may depends on the system, the operation
+and the component. The ASDF default input and outputs are provided in
+the source and possible-paths parameters."))
 
 (defun source-to-target-resolved-mappings ()
   "Answer `*source-to-target-mappings*` with additional entries made

Attachment: signature.asc
Description: This is a digitally signed message part

_______________________________________________
asdf-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel

Reply via email to