1 files changed, 1 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index 2e5091dd..b827c705 100644
--- a/lib.c
+++ b/lib.c
@@ -2571,7 +2571,7 @@ val listp(val obj)
   return if2(obj == nil || consp(obj), t);
 }
 
-val proper_listp(val obj)
+val proper_list_p(val obj)
 {
   while (consp(obj))
     obj = cdr(obj);