Merge branch 'master' of git://common-lisp.net/projects/qitab/cl-protobufs
authorScott McKay <swmckay@gmail.com>
Thu, 3 Jan 2013 17:07:21 +0000 (12:07 -0500)
committerScott McKay <swmckay@gmail.com>
Thu, 3 Jan 2013 17:07:21 +0000 (12:07 -0500)
Conflicts:
tests/qtest.lisp

1  2 
model-classes.lisp
parser.lisp
tests/qtest.lisp
utilities.lisp

Simple merge
diff --cc parser.lisp
Simple merge
      (format t "~&Running test ~A" test)
      (funcall test)))
  
- (defmacro assert-equal (actual expected &key (test 'equal))
-   `(unless (,test ,actual ,expected)
+ (defmacro assert-equal (actual expected &key (test '#'equal))
+   `(unless (funcall ,test ,actual ,expected)
 -     (warn "The value ~S is not equal to the expected value ~S"
 -           ',actual ',expected)))
 +     (warn "The value of ~S (~S) is not equal to the expected value ~S"
 +           ',actual ,actual ,expected)))
  
  (defmacro assert-true (form)
    `(unless ,form
diff --cc utilities.lisp
Simple merge