From 755d9c3f9646392fe16e2596e663756bf8cc90c8 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 13 Dec 2011 20:58:04 +0100 Subject: [PATCH] Fixed indentation of CALL-UNKNOWN-GLOBAL-LOC. --- src/cmp/cmpcall.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp index 2def3e0c9..899f8b530 100644 --- a/src/cmp/cmpcall.lsp +++ b/src/cmp/cmpcall.lsp @@ -187,8 +187,8 @@ (defun call-unknown-global-loc (fname loc args &optional function-p) (unless loc (if (and (symbolp fname) - (not (eql (symbol-package fname) - (find-package "CL")))) + (not (eql (symbol-package fname) + (find-package "CL")))) (setf loc (add-symbol fname) function-p nil) (setf loc (list 'FDEFINITION fname)