github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-19 09:29:15 +00:00
Code Issues Releases Wiki Activity

LLOGO no longer needs to define NTH and SYMBOLP.

Browse Source
This commit is contained in:
Lars Brinkhoff 2018-10-08 08:27:04 +02:00
parent 04bb06e0eb
commit 433dc9bc3e
2 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/llogo/error.224
View File

@ -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.

5
src/llogo/primit.304
View File

@ -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)