From 5ce666fc19c76a234df7819e9be1d2cb07c0c6cf Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 21 Feb 2008 13:32:51 +0100
Subject: Minor cleanups.

darcs-hash:c0614dcedf9c9c6050445219688b1498509df676
---
 Lisp/class-definition.lisp | 28 ----------------------------
 1 file changed, 28 deletions(-)

(limited to 'Lisp')

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))
-- 
cgit v1.2.3