Sun Apr 12 21:55:35 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* indent variant.lisp & minor cleanup
hunk ./src/timer.lisp 9
-(defvar *single-shot-timers* nil)
+(defvar *single-shot-timers* nil "Pending timers.")
hunk ./src/variant.lisp 3
-(declaim (optimize (debug 3)))
-
hunk ./src/variant.lisp 36
+;;FIXME define setf-able value function
+
hunk ./src/variant.lisp 42
- (cerror "Return (VALUES)" "Type of variant ~A is invalid." variant)
- (values))
+ (cerror "Return NIL" "Type of variant ~A is invalid." variant)
+ nil)
hunk ./src/variant.lisp 45
- (cxx:to-string variant))
+ (cxx:to-string variant))
hunk ./src/variant.lisp 49
- (cxx:to-uint variant))
+ (cxx:to-uint variant))
hunk ./src/variant.lisp 51
- (cxx:to-int variant))
+ (cxx:to-int variant))
hunk ./src/variant.lisp 53
- (cxx:to-double variant))
- (#.*cxx-lisp-object-metatype* ;; FIXME test this!
+ (cxx:to-double variant))
+ (#.*cxx-lisp-object-metatype*