/usr/share/common-lisp/source/metatilities-base/dev/metatilities.system is in cl-metatilities-base 20170403-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 111 112 113 114 115 116 117 118 119 120 | ;;; -*- Mode: Lisp; package: CL-USER; Syntax: Common-lisp; Base: 10 -*-
(in-package common-lisp-user)
(glu-define-logical-pathname-translations (metatilities)
(source)
(mcl-utils ("utilities" "mcl"))
(openmcl-utils ("utilities" "openmcl"))
(allegro-utils ("allegro" "mcl"))
(lispworks-utils ("utilities" "lispworks")))
;;; ---------------------------------------------------------------------------
(define-glu-system :metatilities-base
((("package"
"l0-utils"
"l0-macros"
"l0-arrays"
"l0-clos"
"l0-files"
"set-equal"
"generic-lisp"
"generic-interface"))
(("defclass-star"
"define-class"
)))
:base-dir "metatilities:source;"
:bin-identifiers (:platform :vendor)
:initially-do (progn
#+(and DIGITOOL ANSI-MAKE-LOAD-FORM)
(require 'ansi-make-load-form)
(pushnew :metatilities *features*))
:include-in-menu nil
:depends-on (:moptilities))
;;; ---------------------------------------------------------------------------
(define-glu-system :metabang.generic-lisp
((("generic-lisp"
;"generic-interface-support"
)))
:base-dir (or #+OpenMCL "metatilities:openmcl;"
#+DIGITOOL "metatilities:mcl;"
(warn "Generic Lisp not defined for platform"))
:bin-identifiers (:platform :vendor)
:include-in-menu nil)
;;; ---------------------------------------------------------------------------
(define-glu-system :metabang.dynamic-classes
((("dynamic-class")))
:base-dir "metatilities:source;"
:bin-identifiers (:platform :vendor)
:include-in-menu nil
:depends-on (:metatilities-base ))
;;; ---------------------------------------------------------------------------
(define-glu-system :metatilities
((("anaphoric"
"graham"
"dates-and-times"
"files"
"macros"
"locks"
"notifications"
"sequences"
"spy"
"strings"
#+Ignore "threads"
"sequences"
"utilities"
"tcp"
"searching"
"views-and-windows"))
#+Digitool
(("tcp-mcl") :base-dir "metatilities:mcl-utils;")
#+Lispworks
(("tcp-lispworks") :base-dir "metatilities:source;utilities;lispworks;")
#+Allegro
(("tcp-allegro") :base-dir "metatilities:source;utilities;allegro;")
#+openmcl
(("tcp-openmcl") :base-dir "metatilities:source;utilities;openmcl;")
;;; contrib
#+Digitool
((;; "appearance-mcl"
"windoid-key-events"
;; "scrolling-windows"
;; "qt-midi"
;; "progress-indicator"
;; "processes"
;; "image-window"
;; "Image-Dialog-Item"
"eval-apple-script"
;; "appleevent-toolkit"
)
:base-dir "metatilities:source;contrib;mcl;")
(("notes.text")
:associates? t)
)
:base-dir "metatilities:source;utilities;"
:bin-identifiers (:platform :vendor)
:include-in-menu nil
:depends-on (:metatilities-base :cl-containers metabang.bind
:metabang.generic-lisp))
;;; ---------------------------------------------------------------------------
(define-glu-system :metatilities-development
((("profile")
:base-dir "metatilities:source;contrib;mcl;"))
:bin-identifiers (:platform :vendor)
:include-in-menu nil
:depends-on (:metatilities :phex :metabang.interface))
|