diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-20 21:53:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-20 21:53:30 +0000 |
| commit | c707a9c63ad286a9492be7f2145d8b688ddf61d5 (patch) | |
| tree | f8d5e214af517558b79c2e845aae2108a24fda4d /src/interp/macros.lisp | |
| parent | 47a2fd61be7c98af4d53f8b885a0038a72fcd4e6 (diff) | |
| download | open-axiom-c707a9c63ad286a9492be7f2145d8b688ddf61d5.tar.gz | |
* interp/parsing.lisp (CONVERSATION): Remove.
(CONVERSATION1): Likewise.
(MAKE-PARSE-FUNCTION): Likewise.
(MAKE-PARSE-FUNCTION1): Likewise.
(MAKE-PARSE-FUNC-FLATTEN): Likewise.
(MAKE-PARSE-FUNC-FLATTEN-1): Likewise.
(TRANSPGVAR): Likewise.
(GETRULEFUNLISTS): Likewise.
(REDUCTION-PRINT): Likewise.
(TRACEMETA): Likewise.
(TRMETA): Likewise.
(TRMETA1): Likewise.
(/MDEF): Likewise.
* interp/macros.lisp (EXPAND-TABS): Likewise.
* interp/spad.lisp (READ-SPAD): Likewise.
(READ-INPUT): Likewise.
(READ-SPAD0): Likewise.
(READ-SPAD1): Likewise.
(READ-SPAD-1): Likewise.
(New,ENTRY,1): Likewise.
(New,ENTRY,2): Likewise.
* interp/bootlex.lisp (SPAD_SYNTAX_ERROR): Move to debug.lisp.
(SPAD_LONG_ERROR): Likewise.
(SPAD_SHORT_ERROR): Likewise.
(SPAD_ERROR_LOC): Likewise.
* interp/c-util.boot (COMP370): Move to lisp-backend.boot.
(compQuietly): Move to slam.boot.
Diffstat (limited to 'src/interp/macros.lisp')
| -rw-r--r-- | src/interp/macros.lisp | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp index 69959807..7044e6e1 100644 --- a/src/interp/macros.lisp +++ b/src/interp/macros.lisp @@ -473,21 +473,6 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size (terpri stream) (finish-output stream))) -(defun expand-tabs (str) - (if (and (stringp str) (> (length str) 0)) - (let ((bpos (|firstNonblankCharPosition| str)) - (tpos (|indentationLocation| str))) - (setq str - (if (eql bpos tpos) - str - (concatenate 'string - (make-string tpos :initial-element #\space) - (subseq str bpos)))) - ;; remove dos CR - (let ((lpos (|maxIndex| str))) - (if (eq (char str lpos) #\Return) (subseq str 0 lpos) str))) - str)) - ;; stream handling for paste-in generation (defun |applyWithOutputToString| (func args) |