Sun Apr 12 22:25:47 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* fix cxx generic function documentation generation
hunk ./src/objects/method.lisp 169
+ (declare (function function)
+ (cffi:foreign-pointer smoke)
+ (optimize (speed 3)))
hunk ./src/objects/method.lisp 174
- :smoke smoke)))
- (loop for id from 1 to (1- (smoke-methods-size smoke)) do
- (when (= (mod id (floor (smoke-methods-size smoke) 10)) 0)
- (format t "[ ~A ]~%" (* 10
- (floor (* 10 id)
- (smoke-methods-size smoke)))))
+ :smoke smoke))
+ (length (1- (the fixnum (smoke-methods-size smoke)))))
+ (loop for id from 1 to length do
hunk ./src/smoke.lisp 101
-(defmethod documentation ((class smoke-standard-class) (doc-type t))
+(defmethod documentation ((class smoke-standard-class) (doc-type (eql 't)))
+ (declare (optimize (speed 3)))
hunk ./src/smoke.lisp 105
-(defmethod documentation ((gf smoke-gf) (doc-type t))
+;; No eql T since all-methods is to slow to be used in conjunction with
+;; mb:document
+(defmethod documentation ((gf smoke-gf) (doc-type (eql 'cxx-function)))
+ (declare (optimize (speed 3)))
hunk ./src/smoke.lisp 116
+ ;;FIXME speed this up, needed by (mb:document :smoke).
+ (declare (string name)
+ (optimize (speed 3)))