;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Base:10 -*-
; From modified file DJ: L.SYS2; MAKSYS.LISP#211 at 11-Aug-88 01:45:24
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: SYS2; MAKSYS  "

;;; Patch-file only
(defun fixup-existing-systems ()
  (loop for sys in *systems-list*
	do
	(typecase sys
	  (system
	   (loop for trans in (system-transformations sys)
		 for type = (transformation-transformation-type trans)
		 for ntype = (assoc (car type) *transformation-type-alist*)
		 for deps = (transformation-dependencies trans)
		 do
		 (setf (transformation-dependencies trans)
		       (loop for dep in deps
			     for ndep = (typecase dep
					    (list
					     (destructuring-bind (dtype &rest args) dep
						 (let ((ndtype
							 (assoc (car dtype) *transformation-type-alist*)))
						   (unless ndtype
						     (cerror "Do the rest of the transformations."
							     "Missing transformation type: ~S." (car dtype))
						     (setq ndtype `(,dtype ,@args)))
						   ndtype)))
					    (otherwise dep))
			     collect ndep))
		 (if (not ntype)
		     (cerror "Do the rest of the transformations."
			     "Missing transformation type: ~S." (car type))
		   (setf (transformation-transformation-type trans) ntype)))))))

(fixup-existing-systems)
))