From 0f176342245b5d1827d5dc1181d310c4bbc832c9 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 2 Apr 2022 14:48:38 -0700 Subject: replace uses of COLLAPSE-TYPES & drop the function Signed-off-by: Sean Whitton --- src/property.lisp | 2 -- 1 file changed, 2 deletions(-) (limited to 'src/property.lisp') diff --git a/src/property.lisp b/src/property.lisp index aca6bbd..23587d6 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -68,8 +68,6 @@ (getf (cadr propapp) :orig-args) (cdr propapp))) -(defun collapse-types (&rest lists) - (if (member :lisp (flatten lists)) :lisp :posix)) (defun combine-propapp-types (&rest lists) (if (member :lisp (mapcan (curry #'mapcar #'propapptype) lists)) -- cgit v1.2.3