diff options
Diffstat (limited to 'src/interp/macros.lisp.pamphlet')
| -rw-r--r-- | src/interp/macros.lisp.pamphlet | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/interp/macros.lisp.pamphlet b/src/interp/macros.lisp.pamphlet index 1cd2f731..e1a67392 100644 --- a/src/interp/macros.lisp.pamphlet +++ b/src/interp/macros.lisp.pamphlet @@ -327,11 +327,6 @@ This version is needed so that (COLLECT (IN X Y) ... (RETURN 'JUNK))=>JUNK." ; 15.2 Lists -(defun ELEMN (X N DEFAULT) - (COND ((NULL X) DEFAULT) - ((EQL N 1) (CAR X)) - ((ELEMN (CDR X) (SUB1 N) DEFAULT)))) - (defmacro TL (&rest L) `(tail . ,L)) @@ -827,12 +822,6 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size (defun |deleteWOC| (item list) (lisp::delete item list :test #'equal)) -(DEFUN |leftBindingPowerOf| (X IND &AUX (Y (GETL X IND))) - (IF Y (ELEMN Y 3 0) 0)) - -(DEFUN |rightBindingPowerOf| (X IND &AUX (Y (GETL X IND))) - (IF Y (ELEMN Y 4 105) 105)) - ;;---- Added by WFS. (proclaim '(ftype (function (t t) t) |subWord|)) ;hack for bug in akcl-478 |