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

(setq excl::*restart-init-function* nil) ;; prevent IDE from starting

(with-open-file (s
		 #+allegro-cl-trial "TRIAL"
		 #-allegro-cl-trial "NON-TRIAL"
		 :direction :output :if-exists :supersede)
  (format s "t~%"))

(force-output)
(exit 0 :quiet t)
