Wed May 27 14:20:30 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix some warnings
hunk ./smoke.mbd 48
- (:components "object" "enum" "method" "class"
- "type" "instance" "stack"))
+ (:components "object" "enum" "type" "method" "class"
+ "instance" "stack"))
hunk ./src/class-map.lisp 28
- (declare (smoke-class smoke-class)
- (smoke-standard-class class))
+ (declare (smoke-class smoke-class))
hunk ./src/objects/method.lisp 134
-(defgeneric get-flag (object flag)
- (:documentation "Returns the value for FLAG of OBJECT."))
-
hunk ./src/objects/stack.lisp 14
+(defgeneric size (object))
hunk ./src/objects/type.lisp 39
+(defgeneric get-flag (object flag)
+ (:documentation "Returns the value for FLAG of OBJECT."))
+
hunk ./src/objects/type.lisp 63
-(defmethod const-p ((type smoke-type))
- "Returns T when TYPE is const; NIL otherwise."
- (/= 0 (get-flag type :const)))
+(defgeneric const-p (object)
+ (:method ((type smoke-type))
+ "Returns T when TYPE is const; NIL otherwise."
+ (/= 0 (get-flag type :const))))
hunk ./src/overload-resolution.lisp 443
- (multiple-value-bind (method sequence)
- (call-using-types find-best-viable-function2
- (if (using-typep)
- #'standard-conversion-sequence-using-types
- #'standard-conversion-sequence)
- (format nil "~A" (name (get-class type)))
- (list object) to-class)
- (when method
+ (when (call-using-types find-best-viable-function2
+ (if (using-typep)
+ #'standard-conversion-sequence-using-types
+ #'standard-conversion-sequence)
+ (format nil "~A" (name (get-class type)))
+ (list object) to-class)
hunk ./src/overload-resolution.lisp 450
- 'coerce-to-class
- to-class))))))
+ 'coerce-to-class
+ to-class)))))
hunk ./src/smoke.lisp 92
- (let ((method-name (concatenate 'string "~" (name object))))
+ (let ((method-name (concatenate 'string "~" (name (class-of object)))))
hunk ./src/smoke.lisp 94
- (make-smoke-method object method-name)
+ (make-smoke-method (class-of object) method-name)
hunk ./src/translate.lisp 25
+ (declare (ignore smoke-class))