Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

file 110 lines (102 sloc) 3.535 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
#| copyright

See the file COPYING for details

|#

(defpackage :metatilities-system (:use #:asdf #:cl))
(in-package :metatilities-system)

;; try hard
#+(or)
;; no, too weird
(unless (find-system 'asdf-system-connections nil)
 (when (find-package 'asdf-install)
   (funcall (intern (symbol-name :install) :asdf-install)
'asdf-system-connections)))
;; give up with a useful (?) error message
(unless (find-system 'asdf-system-connections nil)
  (print "The metatilities system works best with asdf-system-connections. See
http://www.cliki.net/asdf-system-connections for details and download
instructions."))

;; now try again
(when (find-system 'asdf-system-connections nil)
  (operate 'load-op 'asdf-system-connections))

(defsystem metatilities
  :author "Gary Warren King <gwking@metabang.com>"
  :version "0.6.17"
  :maintainer "Gary Warren King <gwking@metabang.com>"
  :licence "MIT Style license"
  :description "These are the rest of metabang.com's Common Lisp utilities"
  :long-description "These are the rest of metabang.com's Common Lisp utilities and what not."
  :properties ((:ait-timeout . 10)
               (:system-applicable-p . 3))
  :components ((:module
"extensions"
:pathname #.(make-pathname
:directory '(:relative "dev" "utilities"))
:components
((:file "package-additional")
(:file "anaphoric"
:depends-on ("package-additional"))
(:file "graham"
:depends-on ("anaphoric" "package-additional"))
(:file "dates-and-times"
:depends-on ("macros" "anaphoric" "package-additional"))
(:file "files"
:depends-on ("graham" "macros"))
(:file "macros"
:depends-on ("package-additional"))
(:file "sequences"
:depends-on ("package-additional"))
(:file "spy"
:depends-on ("package-additional" "macros"))
(:file "strings"
:depends-on ("package-additional"))
(:file "utilities"
:depends-on ("macros" "graham"))
(:file "searching"
:depends-on ("package-additional"))
(:file "views-and-windows"
:depends-on ("package-additional"))))
               (:module
"port"
:pathname #.(concatenate
'string "dev/"
(or #+OpenMCL "openmcl"
#+DIGITOOL "mcl"
#+SBCL "sbcl"
#+allegro "allegro"
#-(or OpenMCL DIGITOOL SBCL allegro)
"unsupported")
"/")
:components ((:file "generic-lisp")
#+DIGITOOL (:file "pop-up-menu")
(:file "generic-interface-support"
:depends-on ("generic-lisp"
#+DIGITOOL "pop-up-menu"))))
               (:module
"website"
:components
((:module "source"
:components ((:static-file "index.md"))))))
    :in-order-to ((test-op (load-op metatilities-test)))
    :perform (test-op :after (op c)
(funcall
(intern (symbol-name '#:run-tests) :lift)
:config :generic))
    :depends-on ((:version :metatilities-base "0.6.0")
:moptilities
:cl-containers
:metabang-bind
:asdf-system-connections))

(defmethod operation-done-p
           ((o test-op)
            (c (eql (find-system 'metatilities))))
  (values nil))

#+asdf-system-connections
(asdf:defsystem-connection lift-and-metatilities
  :requires (lift metatilities-base)
  :perform (load-op :after (op c)
                    (use-package (find-package :lift)
                                 (find-package :metatilities))
                    (funcall (intern
                              (symbol-name :export-exported-symbols)
                              'metatilities)
                             :lift :metatilities)))
Something went wrong with that request. Please try again.