From 433dc9bc3ec843570bc90e73ea1c145606eb1289 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 8 Oct 2018 08:27:04 +0200
Subject: [PATCH] LLOGO no longer needs to define NTH and SYMBOLP.

---
 src/llogo/error.224  | 2 --
 src/llogo/primit.304 | 5 -----
 2 files changed, 7 deletions(-)

diff --git a/src/llogo/error.224 b/src/llogo/error.224
index 002e9c03..3fe7610e 100644
--- a/src/llogo/error.224
+++ b/src/llogo/error.224
@@ -130,8 +130,6 @@
 ;;;   TYPE CHECKING FUNCTIONS.
 
 (DECLARE (MACROS NIL)) 
-
-(DEFUN SYMBOLP (X) (AND (EQ (TYPEP X) 'SYMBOL) X)) 
 
 (DEFUN VARIABLEP (CHECKER VAR) 
        ;;USED BY EDIT, LIST TO DECIDE LEGALITY OF VARIABLE NAME. 
diff --git a/src/llogo/primit.304 b/src/llogo/primit.304
index 8a15ee86..5a273d7c 100644
--- a/src/llogo/primit.304
+++ b/src/llogo/primit.304
@@ -580,11 +580,6 @@
 	      ((CDR X)))) 
 
 (DEFINE LAST (PARSE (PARSE-SUBSTITUTE 'LOGO-LAST))) 
-
-(DEFINE NTH (POSITION LIST) 
-	;;THE CLASSIC NTH FUNCTION.  FINDS THE NTH ELEMENT IN A LIST. INSERT ERROR
-	;;CHECKING -- BAD POSITION NUMBER, TOO SHORT LIST, ETC.
-	(DO NIL ((= POSITION 1.) (CAR LIST)) (POP LIST) (DECREMENT POSITION))) 
 
 (DEFINE LOGO-LAST (ABB LA) (UNPARSE (UNPARSE-SUBSTITUTE 'LAST)) (X) 
 	(COND ((EMPTYP X)