summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-21 13:32:51 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-21 13:32:51 +0100
commit5ce666fc19c76a234df7819e9be1d2cb07c0c6cf (patch)
treee000aecf332af8311eba9be34cb9546c6299b47a
parent27893623bc42bee742d4692a256e9e7bb91924f7 (diff)
Minor cleanups.
darcs-hash:c0614dcedf9c9c6050445219688b1498509df676
-rw-r--r--Lisp/class-definition.lisp28
1 files changed, 0 insertions, 28 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index 9256112..6e816fd 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -347,31 +347,3 @@
(defun collect-classes ()
(%objcl-for-each-class-do (callback collect-class)))
-
-
-;;;; (@* "Quick tests")
-#+(or)
-(make-instance 'objective-c-class :wrapped-foreign-class "NSString")
-#+(or)
-(c2mop:ensure-class 'ns-string
- :metaclass 'objective-c-class
- :wrapped-foreign-class "NSString")
-#+(or)
-(defclass ns-string ()
- ((bla :foreign-type 'string
- :foreign-name "_bla"
- :accessor ns-string-bla)
- (nothing :accessor ns-string-nothing
- :initarg :ns-string
- :initform 100))
- (:metaclass objective-c-classes::+ns-string)
- (:wrapped-foreign-class "NSString"))
-#+(or)
-(defclass mlk-string (ns-string)
- ((foos :type list
- :initform nil
- :initarg :foos
- :accessor mlk-string-foos)
- (foo-count :foreign-type (:int ())))
- (:metaclass #+(or) objective-c-class
- ns:+ns-object))