Index: /branches/objc-gf/ccl/examples/objc-package.lisp
===================================================================
--- /branches/objc-gf/ccl/examples/objc-package.lisp	(revision 6074)
+++ /branches/objc-gf/ccl/examples/objc-package.lisp	(revision 6074)
@@ -0,0 +1,33 @@
+;;;-*-Mode: LISP; Package: CCL -*-
+;;;
+;;;   Copyright (C) 2007 Clozure Associates and contributors.
+;;;   This file is part of OpenMCL.  
+;;;
+;;;   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
+;;;   License , known as the LLGPL and distributed with OpenMCL as the
+;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
+;;;   which is distributed with OpenMCL as the file "LGPL".  Where these
+;;;   conflict, the preamble takes precedence.  
+;;;
+;;;   OpenMCL is referenced in the preamble as the "LIBRARY."
+;;;
+;;;   The LLGPL is also available online at
+;;;   http://opensource.franz.com/preamble.html
+;;;
+
+;;; All class names and instance variable names are interned in the NS package
+;;; Force all symbols interned in the NS package to be external
+
+(defpackage "NS"
+  (:use))
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (package-force-export "NS"))
+
+
+(defpackage "OBJC"
+  (:use)
+  (:export "OBJC-OBJECT" "OBJC-CLASS-OBJECT" "OBJC-CLASS" "OBJC-METACLASS"))
+
+
+(provide "OBJC-PACKAGE")