definitions-systems/forwarding.lisp at master · Hexstream/definitions-systems · GitHub

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
(in-package #:definitions-systems)

(defmethod defsys:locate ((system-name symbol) definition-name &rest options)
  (apply #'defsys:locate (defsys:locate (defsys:root-system) system-name)
         definition-name options))

(defmethod (setf defsys:locate) (new-definition (system-name symbol) definition-name &rest options &key &allow-other-keys)
  (setf (apply #'defsys:locate (defsys:locate (defsys:root-system) system-name)
               definition-name
               options)
        new-definition))

(defmethod defsys:unbind ((system-name symbol) definition-name)
  (defsys:unbind (defsys:locate (defsys:root-system) system-name)
                 definition-name))

(defmethod defsys:ensure ((system-name symbol) definition-name definition-class &rest initargs)
  (apply #'defsys:ensure
         (defsys:locate (defsys:root-system) system-name)
         definition-name definition-class initargs))

(defmethod defsys:map (function (system-name symbol))
  (defsys:map function (defsys:locate (defsys:root-system) system-name)))

(defmethod defsys:count ((system-name symbol))
  (defsys:count (defsys:locate (defsys:root-system) system-name)))