Index: Backends/beagle/beagle-backend.asd
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Backends/beagle/beagle-backend.asd,v
retrieving revision 1.7
diff -u -8 -p -r1.7 beagle-backend.asd
--- Backends/beagle/beagle-backend.asd	12 Jun 2005 16:53:25 -0000	1.7
+++ Backends/beagle/beagle-backend.asd	17 Dec 2007 13:27:07 -0000
@@ -1,93 +1,12 @@
 ;; -*- Mode: Lisp; -*-
 
 ;; $Id: beagle-backend.asd,v 1.7 2005/06/12 16:53:25 drose Exp $
 
-(defpackage "BEAGLE"
-  (:use "CLIM" "CLIM-LISP")
-;  (:export #:run-listener #:run-listener-process #:dev-commands)
-  (:import-from :climi
-                #:+alt-key+
-                ;;
-                #:mirror-transformation
-                #:port-set-sheet-region
-                #:port-set-sheet-transformation
-                #:port-text-style-mappings
-                #:port-lookup-mirror
-                #:port-register-mirror
-                #:port-allocate-pixmap
-                #:port-deallocate-pixmap
-                #:port-mirror-width
-                #:port-mirror-height
-                #:port-event-process
-                #:port-grafts
-                #:port-enable-sheet
-                #:port-disable-sheet
-		#:port-motion-hints
-                #:port-force-output
-                #:%set-port-keyboard-focus
-                #:set-sheet-pointer-cursor
-                ;;
-                #:port-set-mirror-region
-                #:port-set-mirror-transformation
-                #:update-mirror-geometry
-                #:%sheet-mirror-region
-                #:%sheet-mirror-transformation
-                ;;
-                #:clamp
-                #:get-environment-variable
-                #:pixmap-sheet
-                #:port-lookup-sheet
-               #:port-unregister-mirror
-		#:port-pointer-sheet
-                #:map-repeated-sequence
-                #:pixmap-mirror
-		#:do-sequence
-                #:with-double-buffering 
-                #:with-transformed-position
-                #:with-transformed-positions
-                #:with-medium-options
-                ;;
-                #:border-pane
-                #:pixmap
-                #:top-level-sheet-pane
-                #:unmanaged-top-level-sheet-pane
-                #:menu-frame
-                #:get-next-event
-                ;;
-                #:frame-managers        ;used as slot
-                #:top-level-sheet       ;used as slot
-                ;; #:space-requirement     ;used as slot, very bogus
-                ;; fbound
-                #:medium-device-region
-                #:medium-draw-circle*
-                #:draw-image
-                #:text-style-character-width
-                #:height                ;this seems bogus
-                #:width                 ;dito
-                #:coordinate=
-                #:get-transformation
-                #:keyboard-input-focus
-                #:port-grab-pointer
-                #:port-ungrab-pointer
-                ;;
-                #:invoke-with-special-choices
-                #:medium-draw-glyph
-                #:medium-miter-limit
-                #:make-graft
-                ;; classes:
-                #:mirrored-pixmap
-                #:window-destroy-event
-                #:pointer-ungrab-event
-		#:pointer-motion-hint-event
-                #:device-font-text-style))
-
-(in-package :beagle)
-
 (require "OBJC-SUPPORT")
 
 (asdf::defsystem #:beagle
 		 :version "0.1"
 		 :serial t
 		 :components ((:file "package")
 			      (:module "Native"
 				       :pathname #.(make-pathname :directory '(:relative "native"))