projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1876: *** empty log message ***
[uffi.git]
/
test-examples.cl
diff --git
a/test-examples.cl
b/test-examples.cl
index a3f7a13a12690c94cacdf9e983db09953180a076..e62d2a5cfcc00f56bfc5c1213db59480b2bab1fb 100644
(file)
--- a/
test-examples.cl
+++ b/
test-examples.cl
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: test-examples.cl,v 1.1
0 2002/04/02 21:42:11
kevin Exp $
+;;;; $Id: test-examples.cl,v 1.1
1 2002/04/02 23:27:05
kevin Exp $
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-19,6
+19,7
@@
#-uffi
(mk:load-system :uffi)
#-uffi
(mk:load-system :uffi)
+#-allegro
(load (make-pathname :name "acl-compat-tester" :type "cl"
:defaults *load-truename*))
(load (make-pathname :name "acl-compat-tester" :type "cl"
:defaults *load-truename*))
@@
-26,7
+27,7
@@
(defun do-tests ()
(pushnew :test-uffi cl:*features*)
(util.test:with-tests (:name "UFFI")
(defun do-tests ()
(pushnew :test-uffi cl:*features*)
(util.test:with-tests (:name "UFFI")
-
; (setq util.test:*break-on-test-failures* break
)
+
(setq util.test:*break-on-test-failures* t
)
(flet ((load-test (name)
(load (merge-pathnames
(make-pathname :name name
(flet ((load-test (name)
(load (merge-pathnames
(make-pathname :name name