diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
| commit | 5a03f408233bf4e17759ace9a83dcf6012f72dcc (patch) | |
| tree | 5af46b5ebca646527bb7ec115cfaaf68d5e00d23 /src/boot/strap/includer.clisp | |
| parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
| download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz | |
Cleanup.
Diffstat (limited to 'src/boot/strap/includer.clisp')
| -rw-r--r-- | src/boot/strap/includer.clisp | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index 28ade94d..a5beae8e 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -182,38 +182,6 @@ (DEFUN |shoeLine?| (|s|) (|shoePrefix?| ")line" |s|)) -(DEFUN |shoeBiteOff| (|x|) - (PROG (|n1| |n|) - (RETURN - (PROGN - (SETQ |n| (|firstNonblankPosition| |x| 0)) - (COND ((NULL |n|) NIL) - (T (SETQ |n1| (|firstBlankPosittion| |x| |n|)) - (COND ((NULL |n1|) (LIST (|subString| |x| |n|) "")) - (T - (LIST (|subString| |x| |n| (- |n1| |n|)) - (|subString| |x| |n1|)))))))))) - -(DEFUN |shoeFileName| (|x|) - (PROG (|c| |a|) - (RETURN - (PROGN - (SETQ |a| (|shoeBiteOff| |x|)) - (COND ((NULL |a|) "") - (T (SETQ |c| (|shoeBiteOff| (CADR |a|))) - (COND ((NULL |c|) (CAR |a|)) - (T (CONCAT (CAR |a|) "." (CAR |c|)))))))))) - -(DEFUN |shoeFnFileName| (|x|) - (PROG (|c| |a|) - (RETURN - (PROGN - (SETQ |a| (|shoeBiteOff| |x|)) - (COND ((NULL |a|) (LIST "" "")) - (T (SETQ |c| (|shoeFileName| (CADR |a|))) - (COND ((NULL |c|) (LIST (CAR |a|) "")) - (T (LIST (CAR |a|) |c|))))))))) - (DEFUN |shoeInclude| (|s|) (|bDelay| #'|shoeInclude1| (LIST |s|))) (DEFUN |shoeInclude1| (|s|) |