From 5ce666fc19c76a234df7819e9be1d2cb07c0c6cf Mon Sep 17 00:00:00 2001 From: Matthias Benkard 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(-) 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