;;; -*- Mode: LISP -*-

(load "lispm2;let qfasl")
(package-declare cube global 5000.
  (("bsg;cubrdf qfasl" defs)
   ("bsg;cbdcls qfasl" defs)
   ("bsg;csdcls qfasl" defs)
   ("bsg;oonl qfasl" defs)
   ("bsg;cube qfasl")
   ("bsg;cutils qfasl")
   ("bsg;csolve qfasl")
   ("bsg;cxfrm qfasl")
   ("bsg;qqc qfasl")
   ("bsg;qcolor qfasl"))
  (shadow push *array array fillarray listarray)
  (myrefname global c))

(let ((inhibit-fdefine-warnings t))
  (pkg-load 'cube '(:noconfirm)))

(defun cube ()
    (cube:run-cube))