;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:ZL -*-

;;;This is obsolete:
;;;(load "jb:k;system")

(or (cerror "Load the Falcon system"
	"The /"K/" system is now called the /"Falcon/" system.  
Press ~C to do (~S :FALCON :NOCONFIRM)."
	#/resume
	'make-system)
    (make-system :falcon :noconfirm))