3rdparties/software/trivial-features-20200427-git/trivial-features.asd (2455 bytes)
1 ;;;; -*- Mode: lisp; indent-tabs-mode: nil -*- 2 ;;; 3 ;;; trivial-features.asd --- ASDF system definition. 4 ;;; 5 ;;; Copyright (C) 2007, Luis Oliveira <loliveira@common-lisp.net> 6 ;;; 7 ;;; Permission is hereby granted, free of charge, to any person 8 ;;; obtaining a copy of this software and associated documentation 9 ;;; files (the "Software"), to deal in the Software without 10 ;;; restriction, including without limitation the rights to use, copy, 11 ;;; modify, merge, publish, distribute, sublicense, and/or sell copies 12 ;;; of the Software, and to permit persons to whom the Software is 13 ;;; furnished to do so, subject to the following conditions: 14 ;;; 15 ;;; The above copyright notice and this permission notice shall be 16 ;;; included in all copies or substantial portions of the Software. 17 ;;; 18 ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 19 ;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 20 ;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 21 ;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 22 ;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 23 ;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 24 ;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 25 ;;; DEALINGS IN THE SOFTWARE. 26 27 #-(or sbcl clisp allegro openmcl mcl mkcl lispworks ecl cmu scl cormanlisp abcl xcl mocl clasp mezzano) 28 (error "Sorry, your Lisp is not supported. Patches welcome.") 29 30 (defsystem trivial-features 31 :description "Ensures consistent *FEATURES* across multiple CLs." 32 :author "Luis Oliveira <loliveira@common-lisp.net>" 33 :licence "MIT" 34 :components 35 ((:module src 36 :serial t 37 :components 38 (#+allegro (:file "tf-allegro") 39 #+clisp (:file "tf-clisp") 40 #+cmu (:file "tf-cmucl") 41 #+cormanlisp (:file "tf-cormanlisp") 42 #+ecl (:file "tf-ecl") 43 #+lispworks (:file "tf-lispworks") 44 #+openmcl (:file "tf-openmcl") 45 #+mcl (:file "tf-mcl") 46 #+mkcl (:file "tf-mkcl") 47 #+sbcl (:file "tf-sbcl") 48 #+scl (:file "tf-scl") 49 #+abcl (:file "tf-abcl") 50 #+xcl (:file "tf-xcl") 51 #+mocl (:file "tf-mocl") 52 #+clasp (:file "tf-clasp") 53 #+mezzano (:file "tf-mezzano") 54 )))) 55 56 #-mezzano 57 (defmethod perform ((o test-op) (c (eql (find-system 'trivial-features)))) 58 (operate 'load-op 'trivial-features-tests) 59 (operate 'test-op 'trivial-features-tests))