From c62c4f7fed333160b891ae0cd649736b32daf227 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 28 May 2021 14:55:25 -0700 Subject: define APPEND-PROPSPECS for null arguments Signed-off-by: Sean Whitton --- src/propspec.lisp | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'src/propspec.lisp') diff --git a/src/propspec.lisp b/src/propspec.lisp index 525429b..3a8682f 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -228,6 +228,15 @@ systems." `(silent-seqprops ,firstp ,secondp) (or firstp secondp))))) +(defmethod append-propspecs ((first null) (second unpreprocessed-propspec)) + second) + +(defmethod append-propspecs ((first unpreprocessed-propspec) (second null)) + first) + +(defmethod append-propspecs ((first null) (second null)) + nil) + (defmethod eval-propspec ((propspec preprocessed-propspec)) (eval (slot-value propspec 'preprocessed-propspec-expression))) -- cgit v1.2.3