diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-28 19:33:10 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-29 11:44:43 -0700 |
| commit | 2f4355eda82335a7eef5696241f5ff5f6ede3a52 (patch) | |
| tree | a2967e302c8fdd95c6e16a693fb1c2cd99064273 /src/property/os.lisp | |
| parent | 4d0c10c402aaef7a3c43683e40e33ce59ddcf1f5 (diff) | |
| download | consfigurator-2f4355eda82335a7eef5696241f5ff5f6ede3a52.tar.gz | |
apt pinning properties: rework specifying suites to pin
This means that we can do away with defining OS:DEBIAN-UNSTABLE etc. as both
properties and functions, which led to confusing SLIME echo area hints.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/os.lisp')
| -rw-r--r-- | src/property/os.lisp | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/property/os.lisp b/src/property/os.lisp index 7fd5f25..d04c262 100644 --- a/src/property/os.lisp +++ b/src/property/os.lisp @@ -45,9 +45,6 @@ (defclass debian-stable (debian) ()) -(defun debian-stable (suite) - (make-instance 'debian-stable :suite suite)) - (defprop debian-stable :posix (suite architecture) (:desc (declare (ignore architecture)) @@ -60,9 +57,6 @@ (defclass debian-testing (debian) ((suite :initform "testing"))) -(defun debian-testing () - (make-instance 'debian-testing)) - (defprop debian-testing :posix (architecture) (:desc (declare (ignore architecture)) @@ -75,9 +69,6 @@ (defclass debian-unstable (debian) ((suite :initform "unstable"))) -(defun debian-unstable () - (make-instance 'debian-unstable)) - (defprop debian-unstable :posix (architecture) (:desc (declare (ignore architecture)) @@ -90,9 +81,6 @@ (defclass debian-experimental (debian) ((suite :initform "experimental"))) -(defun debian-experimental () - (make-instance 'debian-experimental)) - (defmethod debian-architecture ((os linux)) "Return a string representing the architecture of OS as used by Debian." (string-downcase (symbol-name (linux-architecture os)))) |