last.lisp

;; See the file LICENSE for the full license governing this code.
;;

;;; All this is allegro-sepcific.

(in-package :system)

;;; This is, perhaps, a temporary hack to get the EUC stuff loaded at
;;; a non-bad time.
;;
;; This is no longer needed, since we're using native-to-* interface now
;; The euc module may be autoloaded due to process-code usage, but the
;; autoload no longer produces a mesage at inopportune times.
#+ignore
(eval-when (:load-toplevel :execute)
  (require :euc)
  (find-external-format :euc))

#-(version>= 5 0 pre-final 16)
(load-patches "patch" "sys:;update-clim;*.fasl")
#+(and (version>= 5 0 pre-final 16)
       (not clim-dont-load-patches))
(load-patches :product #.*patch-product-code-clim*
	      :version #.excl::*cl-patch-version-char*)

(provide
 #+mswindows :climnt
 #-mswindows
 (cond ((excl::featurep :clim-motif) :climxm)
       ((excl::featurep :clim-openlook) :climol)
       (t (error "Unknown Xt backend"))))