(eval-when (compile load eval)
  (let ((sym (find-symbol "FOREIGN-SYMBOL-ADDRESS" "C")))
    (unintern sym "C")
    (import sym "SYSTEM")
    (export sym "SYSTEM"))
  (export 'c::backend-disassem-params "C")
  (export 'di::do-debug-function-blocks "DI")
  )

(setf (macro-function 'di::do-debug-function-blocks)
      (macro-function 'di::do-blocks))

(handler-bind ((error #'(lambda (condition)
			  (format *error-output* "~2&~A~2&"
				  condition)
			  (format *error-output* "Proceeding...~%")
			  (continue))))
  (load "/afs/cs/project/clisp/build/@sys/alpha/compiler/disassem")
  (load "/afs/cs/project/clisp/build/@sys/alpha/compiler/assembler"))