source: trunk/abcl/t/without-use-cl.lisp

(in-package :cl-user)

(prove:plan 1)
(prove:ok
 (let ((*package* (defpackage :without-use-cl)))
   (cl:load (cl:compile-file
             (asdf:system-relative-pathname :abcl
                                            "t/eg/without-use-cl.lisp")))
   "Compiling in a package without a (:USE :CL) clause"))

(prove:plan 1)
(let ((source (make-pathname :type "lisp"
                             :defaults (uiop:with-temporary-file (:pathname o) o))))
  (with-open-file (o source :direction :output :if-exists :supersede)
    (write '(cl:format cl:t "~&I am in package ~s.~%" cl:*package*) :stream o))
  (let ((output (compile-file source)))
    (prove:ok 
     (let ((*package* (defpackage :without-use-cl)))
       (cl:load cl-user::output))
     "Loading a fasl from a package without a (:USE :CL) clause.")))

(prove:finalize)