(let* ((class-obj (class NSAutoreleasePool))
       (sel (selector* (bar "alloc")))
       (imp (method-get-implementation
	     (class-get-class-method class-obj sel))))
  (let ((vm (make-vm 5)))
    (pp (vm-mode vm 0))
    (pp (vm-reset vm))
    
    (pp (vm-pointer-arg vm (object-get-class class-obj)))
    (pp (vm-pointer-arg vm sel))

    (pp imp)
    (pp (method-get-implementation
	 (class-get-class-method class-obj sel)))

    (pp vm)
    (pp (object-get-class-name (vm-call-pointer vm imp)))
    ))