From cf47af18e948a54520568f88547ca2e463fe9148 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 16 Mar 2021 11:51:14 -0700 Subject: rename some symbols to avoid using names defined by CL package The point of using non-keywords here is to avoid clashes with other packages. Signed-off-by: Sean Whitton --- src/propspec.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/propspec.lisp') diff --git a/src/propspec.lisp b/src/propspec.lisp index 7f2019d..0a93e8e 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -316,7 +316,7 @@ application specification expression to a property application specification." (define-function-property-combinator unapply (propapp) (destructuring-bind (psym . args) propapp (retprop :type (proptype psym) - :lambda (propargs psym) + :lambda (proplambda psym) :desc (lambda (&rest args) (strcat "Unapply: " (apply #'propdesc psym args))) :check (complement (get psym 'check)) -- cgit v1.2.3