Changeset 1efd5f22d66198240c6952ab8b59b0d5436e8519 for oct.asd
- Timestamp:
- 12/05/11 09:45:54 (18 months ago)
- Children:
- 612465af4decd8a0dfd4dbc199f0d48503e4b31a
- Parents:
- a0b50beda0b7bee4268de6c4a8ef8ff4136f33df
- git-committer:
- Raymond Toy <toy.raymond@…> (12/05/11 09:45:54)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
oct.asd
r5da3f9 r1efd5f 37 37 :maintainer "See <http://www.common-lisp.net/project/oct>" 38 38 :licence "MIT" 39 :version "2011 -02-09" ; Just use the date39 :version "2011.12.05" ; Just use the date 40 40 :components 41 41 ((:file "qd-package") … … 70 70 )) 71 71 72 (defmethod perform ((op test-op) (c (eql ( find-system :oct))))72 (defmethod perform ((op test-op) (c (eql (asdf:find-system :oct)))) 73 73 (oos 'test-op 'oct-tests)) 74 74 75 75 (asdf:defsystem oct-tests 76 76 :depends-on (oct) 77 :version "2011 -02-09" ; Just use the date77 :version "2011.12.05" ; Just use the date 78 78 :in-order-to ((compile-op (load-op :rt)) 79 79 (test-op (load-op :rt :oct))) … … 83 83 (:file "rt-tests"))) 84 84 85 (defmethod perform ((op test-op) (c (eql ( find-system :oct-tests))))85 (defmethod perform ((op test-op) (c (eql (asdf:find-system :oct-tests)))) 86 86 (or (funcall (intern "DO-TESTS" (find-package "RT"))) 87 87 (error "TEST-OP failed for OCT-TESTS")))
