From 642c0c594a8abe05be1cb887110ed3e602cd0e48 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 30 Jun 2022 07:57:54 -0500 Subject: [structure] renamed some asd modules --- src/core-units/unit.lisp | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 src/core-units/unit.lisp (limited to 'src/core-units/unit.lisp') diff --git a/src/core-units/unit.lisp b/src/core-units/unit.lisp deleted file mode 100644 index 20e05e2..0000000 --- a/src/core-units/unit.lisp +++ /dev/null @@ -1,30 +0,0 @@ -;;;; units/unit.lisp - -(in-package #:wheelwork) - -(defclass/std unit () - ((cached-application :a) - (container :with :a))) - -(defmethod (setf closer-mop:slot-value-using-class) :after - (newval class (unit unit) slot) - (case (closer-mop:slot-definition-name slot) - (container - (setf (cached-application unit) nil)))) - - -(defun app-of-unit (unit) - "Returns the APPLICATION instance, if any, of which this UNIT is a -part. NIL indicates that the unit has not been added to any container -in this application." - (or (cached-application unit) - (setf (cached-application unit) - (labels ((rec (u) - (when-let (c (unit-container u)) - (etypecase c - (application c) - (unit (rec c)) - (null nil))))) - (rec unit))))) - - -- cgit v1.2.3