(setq cl:*package* (sys:%find-package "COMMON-LISP"))

;; Define a temporary, primitive version of the defun macro.
(sys:set-symbol-function 'defun
			 (sys:%make-macro
			  (function (lambda (form env)
			      (let ((name (car form)) (body (cdr form)))
				(list 'progn
				      (list 'sys:set-symbol-function
					    (list 'quote name)
					    (list 'function (cons 'lambda body)))
				      (list 'sys:set-function-name
					    (list 'sys:get-symbol-function (list 'quote name))
					    (list 'symbol-name (list 'quote name)))
				      (list 'sys:get-symbol-function (list 'quote name))))))))

;        (defun in-package (pkg)
;          (setq *package* (sys:%find-package pkg)))
