From e97a0f3414926d2442e82c8531287e4b6e10ef37 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 9 Mar 2022 16:15:21 -0700 Subject: rename MEMSTRING= -> MEMSTR= Signed-off-by: Sean Whitton --- src/image.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/image.lisp') diff --git a/src/image.lisp b/src/image.lisp index d87a80c..b57350d 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -447,8 +447,7 @@ Called by connection types which start up remote Lisp images." :goal-operation 'asdf:monolithic-compile-bundle-op)) (let ((name (asdf:component-name requirement))) ;; Handle UIOP specially because it comes with ASDF. - (unless - (memstring= (asdf:primary-system-name name) '("asdf" "uiop")) + (unless (memstr= (asdf:primary-system-name name) '("asdf" "uiop")) (pushnew requirement asdf-requirements))))) (nreversef asdf-requirements)) requirements)) -- cgit v1.2.3