diff options
Diffstat (limited to 'src/boot/strap/pile.clisp')
| -rw-r--r-- | src/boot/strap/pile.clisp | 28 |
1 files changed, 12 insertions, 16 deletions
diff --git a/src/boot/strap/pile.clisp b/src/boot/strap/pile.clisp index caa56d3e..a0f6d6db 100644 --- a/src/boot/strap/pile.clisp +++ b/src/boot/strap/pile.clisp @@ -6,14 +6,11 @@ (IN-PACKAGE "BOOTTRAN") -(DEFUN |shoeFirstTokPosn| (|t|) - (PROG () (RETURN (|shoeTokPosn| (CAAR |t|))))) +(DEFUN |shoeFirstTokPosn| (|t|) (|shoeTokPosn| (CAAR |t|))) -(DEFUN |shoeLastTokPosn| (|t|) - (PROG () (RETURN (|shoeTokPosn| (CADR |t|))))) +(DEFUN |shoeLastTokPosn| (|t|) (|shoeTokPosn| (CADR |t|))) -(DEFUN |shoePileColumn| (|t|) - (PROG () (RETURN (CDR (|shoeTokPosn| (CAAR |t|)))))) +(DEFUN |shoePileColumn| (|t|) (CDR (|shoeTokPosn| (CAAR |t|)))) (DEFUN |shoePileInsert| (|s|) (PROG (|a| |toktype|) @@ -95,7 +92,7 @@ ('T (|shoePileForests| (|shoePileCtree| |h| |h1|) |n| |t1|))))))) (DEFUN |shoePileCtree| (|x| |y|) - (PROG () (RETURN (|dqAppend| |x| (|shoePileCforest| |y|))))) + (|dqAppend| |x| (|shoePileCforest| |y|))) (DEFUN |shoePileCforest| (|x|) (PROG (|b| |a|) @@ -142,13 +139,12 @@ (LIST |a| |semicolon| (|shoeSeparatePiles| (CDR |x|))))))))) (DEFUN |shoeEnPile| (|x|) - (PROG () - (RETURN - (|dqConcat| (LIST (|dqUnit| - (|shoeTokConstruct| 'KEY 'SETTAB - (|shoeFirstTokPosn| |x|))) - |x| - (|dqUnit| - (|shoeTokConstruct| 'KEY 'BACKTAB - (|shoeLastTokPosn| |x|)))))))) + (|dqConcat| + (LIST (|dqUnit| + (|shoeTokConstruct| 'KEY 'SETTAB + (|shoeFirstTokPosn| |x|))) + |x| + (|dqUnit| + (|shoeTokConstruct| 'KEY 'BACKTAB + (|shoeLastTokPosn| |x|)))))) |