gistfile1.lisp

(defun @1 (ptr &optional arg1 arg2 arg3)
    (if (symbolp arg1) 
	(case arg1
	  (:char (mem-aref (resolve-pointer ptr) :char 0))
	  (:uchar (mem-aref (resolve-pointer ptr) :uchar arg2))
	  (:unsigned-char (mem-aref (resolve-pointer ptr) :unsigned-char arg2))
	  (:short (mem-aref (resolve-pointer ptr) :short arg2))
	  (:ushort (mem-aref (resolve-pointer ptr) :ushort arg2))
	  (:unsigned-short (mem-aref (resolve-pointer ptr) :unsigned-short arg2))
	  (:int (mem-aref (resolve-pointer ptr) :int arg2))
	  (:uint (mem-aref (resolve-pointer ptr) :uint arg2))
	  (:int8 (mem-aref (resolve-pointer ptr) :int8 arg2))
	  (:uint8 (mem-aref (resolve-pointer ptr) :uint8 arg2))
	  (:uint64 (mem-aref (resolve-pointer ptr) :uint64 arg2))
	  (:unsigned-int (mem-aref (resolve-pointer ptr) :unsigned-int arg2))
	  (:long (mem-aref (resolve-pointer ptr) :long arg2))
	  (:llong (mem-aref (resolve-pointer ptr) :llong arg2))
	  (:long-long (mem-aref (resolve-pointer ptr) :long-long arg2))
	  (:unsigned-long (mem-aref (resolve-pointer ptr) :unsigned-long arg2))
	  (:ulong (mem-aref (resolve-pointer ptr) :ulong arg2))
	  (:ullong (mem-aref (resolve-pointer ptr) :ullong arg2))
	  (:unsigned-long-long (mem-aref (resolve-pointer ptr) :unsigned-long arg2))
	  (:float (mem-aref (resolve-pointer ptr) :float arg2))
	  (:double (mem-aref (resolve-pointer ptr) :double arg2))
	  (:pointer (mem-aref (resolve-pointer ptr) :pointer arg2))
	  (:1char (mem-aref (resolve-pointer ptr) :char arg2))
	  (:1uchar (mem-aref (resolve-pointer ptr) :uchar arg2))
	  (:1unsigned-char (mem-aref (resolve-pointer ptr) :unsigned-char arg2))
	  (:1short (mem-aref (resolve-pointer ptr) :short arg2))
	  (:1ushort (mem-aref (resolve-pointer ptr) :ushort 0))
	  (:1unsigned-short (mem-aref (resolve-pointer ptr) :unsigned-short arg2))
	  (:1int (mem-aref (resolve-pointer ptr) :int arg2))
	  (:1uint (mem-aref (resolve-pointer ptr) :uint arg2))
	  (:1int8 (mem-aref (resolve-pointer ptr) :int8 arg2))
	  (:1uint8 (mem-aref (resolve-pointer ptr) :uint8 arg2))
	  (:1uint64 (mem-aref (resolve-pointer ptr) :uint64 arg2))
	  (:1unsigned-int (mem-aref (resolve-pointer ptr) :unsigned-int arg2))
	  (:1long (mem-aref (resolve-pointer ptr) :long arg2))
	  (:1llong (mem-aref (resolve-pointer ptr) :llong arg2))
	  (:1long-long (mem-aref (resolve-pointer ptr) :long-long arg2))
	  (:1unsigned-long (mem-aref (resolve-pointer ptr) :unsigned-long arg2))
	  (:1ulong (mem-aref (resolve-pointer ptr) :ulong arg2))
	  (:1ullong (mem-aref (resolve-pointer ptr) :ullong arg2))
	  (:1unsigned-long-long (mem-aref (resolve-pointer ptr) :unsigned-long arg2))
	  (:1float (mem-aref (resolve-pointer ptr) :float arg2))
	  (:1double (mem-aref (resolve-pointer ptr) :double arg2))
	  (:1pointer (mem-aref (resolve-pointer ptr) :pointer 0)))))