anchor.diff:      (unless (null-pointer-p arg)
         (when free-contents
   	(funcall
  -	 (get-destroy-function (type-from-number (arg-type arg)))
  +	 (intern-destroy-function (type-from-number (arg-type arg)))
   	 arg +arg-value-offset+))
         (deallocate-memory arg)))))
   
  -(define-foreign %arg-reset () nil
  +(defbinding %arg-reset () nil
     (arg arg))
   
   (defun arg-name (arg)
  -  (funcall (get-reader-function '(static string)) arg +arg-name-offset+))
  +  (funcall (intern-reader-function 'string) arg +arg-name-offset+))
   
   (defun (setf arg-name) (name arg)
  -  (funcall (get-writer-function '(static string)) name arg +arg-name-offset+)
  +  (funcall (intern-writer-function 'string) name arg +arg-name-offset+)
     name)
   
   (defun arg-type (arg)
  
positive.code:   (setf (system:sap-ref-32 arg +arg-type-offset+) type))
  
  (defun arg-value (arg &optional (type (type-from-number (arg-type arg))))
    (funcall (get-reader-function type) arg +arg-value-offset+))
  
  ;; One should never call this function on an arg whose value is already set
  (defun (setf arg-value)
      (value arg &optional (type (type-from-number (arg-type arg))))
    (funcall (get-writer-function type) value arg +arg-value-offset+)
    value)
  
  (defun (setf return-arg-value)
      (value arg &optional (type (type-from-number (arg-type arg))))
    ; this is probably causing a memory leak
    (funcall (get-writer-function type) value (arg-value arg 'pointer) 0)
    value)
  
  (defun arg-array-ref (arg0 index)
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: gtkobject.lisp,v 1.9 2001-05-29 16:00:52 espen Exp $
  
  
  (in-package "GTK")
  
  
  ;;;; Misc utils
  
  ; (defun name-to-string (name)
  ;   (substitute #\_ #\- (string-downcase (string name))))
  
  ; (defun string-to-name (name &optional (package "KEYWORD"))
  ;   (intern (substitute #\- #\_ (string-upcase name)) package))
  
  
  ;;; Argument stuff - to be removed soon
  