Commit 873f8ccd authored by Edi Weitz's avatar Edi Weitz
Browse files

patches for Corman Lisp

parent 8a8c98f1
;;; This is asdf: Another System Definition Facility. $Revision: 1.81 $
;;; This is asdf: Another System Definition Facility. $Revision: 1.82 $
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <>. But note first that the canonical
......@@ -107,7 +107,7 @@
(in-package #:asdf)
(defvar *asdf-revision* (let* ((v "$Revision: 1.81 $")
(defvar *asdf-revision* (let* ((v "$Revision: 1.82 $")
(colon (or (position #\: v) -1))
(dot (position #\. v)))
(and v colon dot
......@@ -706,6 +706,7 @@ system."))
;;; perform is required to check output-files to find out where to put
;;; its answers, in case it has been overridden for site policy
(defmethod perform ((operation compile-op) (c cl-source-file))
(let ((source-file (component-pathname c))
(output-file (car (output-files operation c))))
(multiple-value-bind (output warnings-p failure-p)
......@@ -732,7 +733,8 @@ system."))
(error 'compile-error :component c :operation operation)))))
(defmethod output-files ((operation compile-op) (c cl-source-file))
(list (compile-file-pathname (component-pathname c))))
#-:cormanlisp (list (compile-file-pathname (component-pathname c)))
#+:cormanlisp (list (component-pathname c)))
(defmethod perform ((operation compile-op) (c static-file))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment