Commit 55cc4315 authored by Edi Weitz's avatar Edi Weitz
Browse files

replace :cormanlisp with :broken-fasl-loader

parent 6586a296
;;; This is asdf: Another System Definition Facility. $Revision: 1.83 $
;;; This is asdf: Another System Definition Facility. $Revision: 1.84 $
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
......@@ -107,7 +107,7 @@
(in-package #:asdf)
(defvar *asdf-revision* (let* ((v "$Revision: 1.83 $")
(defvar *asdf-revision* (let* ((v "$Revision: 1.84 $")
(colon (or (position #\: v) -1))
(dot (position #\. v)))
(and v colon dot
......@@ -702,7 +702,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))
#-:cormanlisp
#-:broken-fasl-loader
(let ((source-file (component-pathname c))
(output-file (car (output-files operation c))))
(multiple-value-bind (output warnings-p failure-p)
......@@ -727,8 +727,8 @@ system."))
(error 'compile-error :component c :operation operation)))))
(defmethod output-files ((operation compile-op) (c cl-source-file))
#-:cormanlisp (list (compile-file-pathname (component-pathname c)))
#+:cormanlisp (list (component-pathname c)))
#-:broken-fasl-loader (list (compile-file-pathname (component-pathname c)))
#+:broken-fasl-loader (list (component-pathname c)))
(defmethod perform ((operation compile-op) (c static-file))
nil)
......
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