Sun Aug 2 12:12:41 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Cleanup C++ to Lisp translation

--- old-smoke/src/objects/method.lisp 2014-10-30 08:12:00.000000000 +0100

+++ new-smoke/src/objects/method.lisp 2014-10-30 08:12:00.000000000 +0100

@@ -14,7 +14,8 @@

(smoke-method-id method)))

(defmethod print-object ((smoke-method smoke-method) stream)

- (if (or (null-pointer-p (smoke-module-pointer (smoke-method-smoke smoke-method)))

+ (if (or (null-pointer-p (smoke-module-pointer

+ (smoke-method-smoke smoke-method)))

(null-pointer-p (smoke-method-pointer smoke-method)))

(call-next-method)

(print-unreadable-object (smoke-method stream :type t)

@@ -52,8 +53,7 @@

(mem-aref (smoke-array-pointer (smoke-module-method-names

(smoke-method-smoke method)))

:pointer

- (the (smoke-index 0)

- (method-slot-value method 'name))))

+ (the (smoke-index 0) (method-slot-value method 'name))))

;smoke-find-method

(defun make-smoke-method-from-name (class name)

@@ -136,8 +136,7 @@

"public"))

(defun modifiers (method)

- (format nil "~A~:[~; static~]" (access method)

- (static-p method)))

+ (format nil "~A~:[~; static~]" (access method) (static-p method)))

(defun return-type (method)

"Returns the return type of METHOD."

@@ -253,7 +252,6 @@

:id (+ (method-slot-value method 'arguments) index)

:smoke (smoke-method-smoke method)))

-

(defun build-argument-list (list argument)

(if (end-p argument)

list