replace :cormanlisp with :broken-fasl-loader

;;; 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

(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 

;;; 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)

	(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)