;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtype.lisp,v 1.43 2006-02-08 21:53:34 espen Exp $
+;; $Id: gtype.lisp,v 1.44 2006-02-19 19:23:23 espen Exp $
(in-package "GLIB")
;; A ginstance should never be invalidated since it is ref counted
nil)
+(defmethod callback-from-alien-form (form (type t) &rest args)
+ (apply #'from-alien-form form type args))
+
(defmethod copy-from-alien-form (location (class ginstance-class) &rest args)
(declare (ignore location class args))
(error "Doing copy-from-alien on a ref. counted class is most certainly an error, but if it really is what you want you should use REFERENCE-FOREIGN on the returned instance instead."))