contrib/sb-queue/sb-queue.asd

   1 ;;; -*-  Lisp -*-
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   6 ;;;; This software is derived from the CMU CL system, which was
   7 ;;;; written at Carnegie Mellon University and released into the
   8 ;;;; public domain. The software is in the public domain and is
   9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  10 ;;;; files for more information.
  11
  12 (defpackage :sb-queue-system
  13   (:use :asdf :cl))
  14
  15 (in-package :sb-queue-system)
  16
  17 (defsystem :sb-queue
  18   :components ((:file "queue")))
  19
  20 (defsystem :sb-queue-tests
  21   :depends-on (:sb-queue :sb-rt)
  22   :components ((:file "test-queue")))
  23
  24 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-queue))))
  25   (provide 'sb-queue))
  26
  27 (defmethod perform ((o test-op) (c (eql (find-system :sb-queue))))
  28   (operate 'load-op :sb-queue-tests)
  29   (operate 'test-op :sb-queue-tests))
  30
  31 (defmethod perform ((op test-op) (com (eql (find-system :sb-queue-tests))))
  32   (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
  33       (error "~S failed" 'test-op)))