;;;----- Licensing notice ---------------------------------------------------
;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
;;;
;;; SOD is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; along with SOD; if not, write to the Free Software Foundation,
;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-(cl:defpackage #:sod-sysdef
- (:use #:common-lisp #:asdf))
+(cl:defpackage #:sod-test-sysdef
+ (:use #:common-lisp #:asdf)
+ (:export #:*version*))
-(cl:in-package #:sod-sysdef)
+(cl:in-package #:sod-test-sysdef)
-#|@-auto-@|# (load "auto.lisp")
+#|@-auto-@|# (load (merge-pathnames "auto.lisp" *load-pathname*))
;;;--------------------------------------------------------------------------
;;; Definition.
(defsystem sod-test
;; Boring copyright stuff.
- :version #:*sysdef-version*
+ :version #.*sysdef-version*
:author "Mark Wooding"
:license "GNU General Public License, version 2 or later"
#|@-path-@|# :pathname "@srcdir@"
;;; Testing.
(defmethod perform ((op test-op) (system (eql (find-system "sod-test"))))
- (handler-bind (((or warning style-warning)
- (lambda (cond)
- (declare (ignore cond))
- (invoke-restart 'muffle-warning))))
+ (handler-bind (((or warning style-warning) #'muffle-warning))
(operate 'load-op system)
(let ((result (funcall (find-symbol "RUN-TESTS" "SOD-TEST"))))
(unless (funcall (find-symbol "WAS-SUCCESSFUL" "XLUNIT") result)